TestPipalEdit.cm
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Louis Monier January 29, 1988 9:32:29 pm PST
Bertrand Serlet March 7, 1988 3:58:51 pm PST
Barth, January 28, 1988 5:08:16 pm PST
Install Pipal
Run -a PipalPackage
← &ob1 ← PipalMask.CreateBrick[[30, 50], Imager.MakeGray[0.5]]
← &ob2 ← PipalInt.CreateAbutBoxAnnotation[PipalMask.CreateBrick[[20, 50], Imager.MakeGray[0.125]], [[-5, -5], [30, 60]]]
← &ob3 ← PipalWB.CreateBoxedText["Some text", PipalInt.emptySize]
← &mutant ← PipalOverlayMutant.Create[Pipal.CreateOverlay[NIL]]
← &mutant ← PipalOverlayMutant.InsertInt[&mutant, &ob1, [100, 200], TRUE]
← &mutant ← PipalOverlayMutant.InsertInt[&mutant, &ob2, [200, 50], TRUE]
← &mutant ← PipalOverlayMutant.InsertInt[&mutant, &ob3, [300, 100], TRUE]
← PipalOverlayEditorImpl.Test[&mutant]
← &vd ← PipalTextEditorImpl.Test[[400.0, 100.0]]