TestPipal.cm
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Louis Monier January 20, 1988 0:11:15 am PST
Bertrand Serlet February 28, 1988 6:31:19 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]
← &box ← PipalMask.CreateBox[[100, 100], Imager.black]
← &viewer ← PipalEdit.CreateViewer[&box]