TestPipal.cm
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Louis Monier January 20, 1988 0:11:15 am PST
Bertrand Serlet March 7, 1988 3:59:03 pm PST
Install Pipal
Run -a TestPipal
← TestPipal.IntOperations[]
← TestPipal.RealOperations[]
← TestPipal.AreaOperations[]
← &ob ← PipalWB.CreateBoxedText["Hello, World!", [10, 100]]
← &viewer ← PipalEdit.CreateViewer[&ob]
← &ov ← Pipal.CreateOverlay[LIST[&ob]]
← &viewer ← PipalEdit.CreateViewer[&ov]
← &ab ← PipalInt.CreateAbut[TRUE, LIST[&ob, &ov]]
← &viewer ← PipalEdit.CreateViewer[&ab]
← &tr ← PipalInt.TransformObject[[[24, 48], rotate90], &ab]
← &viewer ← PipalEdit.CreateViewer[&tr]
← &brick ← PipalMask.CreateBrick[[100, 100], Imager.black]
← &viewer ← PipalEdit.CreateViewer[&brick]