*ô > BLib.Graphic.Circle 1.00 15Apr1985 : ;Ýòcircle(x%,y%,r%,f%):ô X posn, Y posn, Radius, Filled? (ê step,s,c,xp,yp,xr 2/step=(2*¯/90)+50: ô Length of each arc <4s=µstep: ô Precalculate sin of step F7c=›step: ô Precalculate cosine of step P2xp=r%:yp=0: ô Set initial position Z8ìx%+xp,y%+yp: ô Move to initial point on edge d4ã segment=1 ¸ 31: ô We'll do 31 segments here n:xr=xp*c-yp*s: ô Calculate next point on edge xyp=xp*s+yp*c ‚ xp=xr ŒBç f%: ß x%,y%:ð85,x%+xp,y%+yp: ô Do segment if filled –;ç¬f%:ß x%+xp,y%+yp:ð 69,x%+xp,y%+yp: ô ..else draw arc  "ß x%+xp,y%+yp:ð 69,x%+xp,y%+yp ª$í: ô And again ´>ç f%: ß x%,y%:ð 85,x%+r%,y%+0: ô Do final segment ¾4ç¬f%:ß x%+r%,y%+0:ð 69,x%+r%,y%+0: ô ..or arc Èá ÿ