TestPipalOverlayEditor.cm
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Louis Monier January 25, 1988 2:02:39 pm PST
Bertrand Serlet January 28, 1988 3:09:11 pm PST
Barth, January 28, 1988 5:08:16 pm PST
Install Pipal
Run -a PipalImpl PipalIntImpl PipalRealImpl PipalOpsImpl PipalPaintImpl PipalEditImpl PipalOverlayEditorImpl
Run -a PipalDisplayImpl PipalWBImpl PipalMaskImpl
← &ob1 ← PipalMask.CreateBox[[30, 30], Imager.black]
← &editor ← PipalOverlayEditor.Create[NIL]
← PipalOverlayEditor.InsertInt[&editor, &ob1, [100, 200]]
← &ob ← PipalOverlayEditor.Freeze[&editor]
← PipalDisplayImpl.WorldTest[&ob]