DIRECTORYGraphics,PieViewers,Real,RealFns, ViewerOps,ViewerClasses;PieViewersImpl: CEDAR MONITORIMPORTS Graphics, Real, RealFns, ViewerOps EXPORTS PieViewers  =BEGINPieViewer: TYPE = PieViewers.PieViewer;DataRec: TYPE = RECORD [total: REAL, -- what the entire circle is worthamount: REAL, -- what amount is currently ongranularity: REAL -- display will not change if the new amount is of the same grain];Create: PUBLIC PROC [parent: ViewerClasses.Viewer, x, y: INTEGER _ 0, diameter: INTEGER _ 16, total: REAL _ 100, divisions: NAT _ 25]RETURNS [pieViewer: PieViewer] = TRUSTED {data: REF DataRec _ NEW[DataRec];data.total _ total;data.granularity _ total/divisions;pieViewer _ ViewerOps.CreateViewer[flavor: $PieViewer, info: [parent: parent, wx: x, wy: y, ww: diameter, wh: diameter, data: data, border: FALSE], paint: FALSE];Set[pieViewer, 0];};Set: PUBLIC PROC [pieViewer: PieViewer, amount: REAL] =BEGIN ENABLE ANY => GOTO Quit;d: REF DataRec _ NARROW[pieViewer.data];IF amount=d.total OR amount=0 OR Real.RoundI[d.amount/d.granularity] # Real.RoundI[amount/d.granularity]  THENBEGINd.amount _ amount;TRUSTED{ViewerOps.PaintViewer[pieViewer, client, FALSE, $Update]};END;EXITS Quit => {}END;pathStorage: Graphics.Path _ Graphics.NewPath[16];PieViewerPaint: ENTRY ViewerClasses.PaintProc =BEGIN ENABLE ANY => GOTO Quit;d: REF DataRec _ NARROW[self.data];diameter: REAL _ self.ww;radius: REAL _ diameter/2;path: Graphics.Path _ pathStorage;Graphics.SetColor[context, Graphics.black];Graphics.MoveTo[path, radius, radius];Graphics.LineTo[path, radius, diameter-0.51];ArcAround[path, radius, radius, TwoPi*d.amount/d.total];Graphics.LineTo[path, radius, radius];Graphics.DrawArea[context, path];Graphics.SetColor[context, Graphics.white];Graphics.MoveTo[path, radius, radius];Graphics.LineTo[path, radius, diameter];ArcAround[path, radius, radius, TwoPi*(d.amount/d.total-1)];Graphics.LineTo[path, radius, radius];Graphics.DrawArea[context, path];EXITS Quit => {}END;TwoPi: REAL = 2*3.14159265;Vec: TYPE = RECORD[x,y: REAL];Abs: PROCEDURE [a: Vec] RETURNS [REAL] = INLINE{RETURN[RealFns.SqRt[a.x*a.x+a.y*a.y]]};Mul: PROCEDURE [a: Vec, b: Vec] RETURNS [Vec] = INLINE{RETURN[[(a.x*b.x - a.y*b.y), (a.x*b.y + a.y*b.x)]]}; -- complex productAdd: PROCEDURE [a: Vec, b: Vec] RETURNS [Vec] = INLINE{RETURN[[a.x+b.x,a.y+b.y]]};  -- same as vector sumSub: PROCEDURE [a: Vec, b: Vec] RETURNS [Vec] = INLINE{RETURN[[a.x-b.x,a.y-b.y]]};  -- same as vector differenceShortArcAround: PROC [path: Graphics.Path, x, y: REAL, angle: REAL] =BEGIN -- good for angles of less than about a quarter circleinit: Vec;[init.x, init.y] _ Graphics.LastPoint[path];init _ Sub[init, [x,y]];IF angle#0 THENBEGINfinal: Vec _ Mul[init, [RealFns.Cos[angle], RealFns.Sin[angle]]];velocityRatio: REAL _ (4.0/3.0)*RealFns.Tan[angle/4];b1: Vec _ Add[[x,y], Add[init, Mul[init, [0,velocityRatio]]]];b2: Vec _ Add[[x,y], Add[final, Mul[final, [0,-velocityRatio]]]];final _ Add[[x,y], final];Graphics.CurveTo[path, b1.x, b1.y, b2.x, b2.y, final.x, final.y]; END;END;MaxSmallArc: REAL = 3.14159265/2.0;ArcAround: PROC [path: Graphics.Path, x, y: REAL, angle: REAL] =BEGINdelta: REAL _ IF angle>0 THEN MaxSmallArc ELSE - MaxSmallArc;WHILE ABS[angle]>MaxSmallArc DOShortArcAround[path, x, y, delta];angle _ angle - delta;ENDLOOP;ShortArcAround[path, x, y, angle];END;pieViewer: ViewerClasses.ViewerClass _ NEW[ViewerClasses.ViewerClassRec _ [paint: PieViewerPaint,tipTable: NIL]];TRUSTED{ViewerOps.RegisterViewerClass[$PieViewer, pieViewer]};	-- plug in to ViewersEND.Michael Plass, November 2, 1982 10:57 am. CEDARized.   p  PieViewersImpl.mesaMichael Plass,  November 2, 1982 10:56 amLast Edited by: Beach, May 24, 1983 9:13 amÊö  –"cedar" style˜ Jšœ™JšœÏk™)J™+š	˜	J˜	J˜J˜J˜	J˜
J˜J˜ —Jšœœ˜Jšœ$œ˜@Jš˜J˜ Jšœœ˜'J˜ šœ	œœ˜JšœœÏc"˜/Jšœœž˜,JšœœžA˜SJ˜J˜ —šÏnœœœ&œœœœ˜…Jšœœ˜*Jšœœœ
˜!J˜J˜#JšœŒœ
œ˜¢J˜J˜J˜ —šŸœœœ œ˜7Jšœœœœ˜Jšœœœ˜(šœœ
œJ˜nJš˜J˜Jšœ*œ˜BJšœ˜—Jšœ˜Jšœ˜J˜ —J˜2J˜ šœœ˜/Jšœœœœ˜Jšœœœ˜#Jšœ
œ˜Jšœœ˜J˜"J˜+J˜&J˜-J˜8J˜&J˜!J˜+J˜&J˜(J˜<J˜&J˜!Jšœ˜Jšœ˜J˜ —Jšœœ˜Jšœœœœ˜š	Ÿœ	œ
œœ˜/Jšœœ!˜(—šŸœ	œœ	˜6Jšœœ/ž˜H—šŸœ	œœ	˜6Jšœœž˜3—šŸœ	œœ	˜6Jšœœž˜:J˜ —šŸœœœ	œ˜EJšœž6˜<J˜
J˜,J˜šœ	˜Jš˜J˜AJšœœ"˜5J˜>J˜AJ˜J˜BJšœ˜—Jšœ˜J˜ —Jšœœ˜#J˜ šŸ	œœœ	œ˜@Jš˜Jš	œœœ	œœ˜=šœœ˜J˜"J˜Jšœ˜—J˜"Jšœ˜J˜ —šœ'œ!˜KJ˜Jšœ
˜J˜J˜ —Jšœ8ž˜TJ˜ Jšœ˜J˜4J˜ J˜ — …—    l  Ò  