DrawScript

home.gif


Recursive circles


circle.gif
·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