·Fill(&FF00) ·EvenOddWindingRule PROCDiagram(6,6,4) END DEF PROCDiagram(x,y,r) ·Circle(x,y,r) IF r>1/16 THEN PROCDiagram(x,y+r/2,r/2) PROCDiagram(x,y-r/2,r/2) ENDIF ENDPROC
