TO FK :B
HT # hide the turtle
IF :B>15 [STOP]
REPEAT 4 [FD :B RT 90]
FK :B+1 # draw a bigger square to fill
END
TO QP :Y
IF :Y>4 [STOP]
REPEAT 4 [FK 15 FD 15 FK 1 FD 15]
RT 90 FD 30 RT 90
REPEAT 4 [FK 15 FD 15 FK 1 FD 15]
RT 180
QP :Y+1
END
QP 1
Fractal Stars
cs ht
to star :size :small
if :size<:small [stop]
repeat 5 [fd :size star :size*0.3 :small rt 144]
end
star 200 10
ht cs for [i 0 360 45] [seth :i make "n 0
repeat 80 [setpc :random*15
repeat 8 [fd :n rt 45] make "n :n+1
]
]
