DrawScript

home.gif


Sierpinski Triangle


triang.gif
·Colour(RND)
PROCSierpinski(1,1,8)
END

DEF PROCSierpinski(a,b,r)
IF r<.125 THEN ENDPROC
·Triangle(a,b,a+r/2,b+r*SIN(PI/3),a+r,b)
PROCSierpinski(a,b,r/2)
PROCSierpinski(a+r/2,b,r/2)
PROCSierpinski(a+r*COS(PI/3)/2,b+r*SIN(PI/3)/2,r/2)
ENDPROC