DIRECTORY ViewerClasses USING [Viewer]; PieViewers: CEDAR DEFINITIONS = BEGIN PieViewer: TYPE = ViewerClasses.Viewer; Create: PROC [ parent: ViewerClasses.Viewer, -- the containing viewer x, y: INTEGER _ 0, -- location within the parent viewer diameter: INTEGER _ 16, -- diameter of the pie chart total: REAL _ 100, -- number of units in the whole pie divisions: NAT _ 25 -- the granularity of the display ] RETURNS [pieViewer: PieViewer]; Set: PROC [pieViewer: PieViewer, amount: REAL]; END. Michael Plass, November 2, 1982 10:52 am. CEDARized. lPieViewers.mesa Michael Plass, November 2, 1982 10:52 am Last Edited by: Beach, May 24, 1983 9:13 am Κκ– "cedar" style˜JšΟc™Jš(™(J™+šΟk ˜ Jšœžœ ˜J˜—Jšœ žœž˜%J˜Jšœ žœ˜'J˜šΟnœžœ˜Jšœ˜6Jšœžœ$˜7Jšœ žœ˜4Jšœžœ#˜6Jšœ žœ!˜5Jšœžœ˜!J˜—JšŸœžœ žœ˜/J˜Jšžœ˜J˜4—…—(~