Chess Board
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
]
]
to randomwalk
repeat 100 [
make "r parseInt(:random*3)
if :r==0 [fd 20]
if :r==1 [rt 90 fd 20]
if :r==2 [lt 90 fd 20]
]
end
-
to spiral
make "n 1
while :n<100 [
make "n :n+5
fd :n rt 90
]
end
repeat 18[repeat 4[repeat 18[fd 10 rt 5] rt 180]rt 20]
repeat 18[repeat 18[repeat 4[repeat 18[fd 10 rt 5] rt 160]rt 20] rt 20]
repeat 4[repeat 9[repeat 4[repeat 9[fd 25 rt 10] repeat 9[ fd 25 lt 10] rt 160] lt 40] rt 90]
repeat 100 [fd :repcount*3 rt 90]
repeat 36[repeat 36[fd 10 pu fd 10 pd rt 10]lt 10]
repeat 72[repeat 4[repeat 4[fd 10 pu fd 20 pd fd 10] rt 90]lt 5]
rt 10
goto @start
repeat [5 fd 100 rt 144]
@start
make "i 0
@hello
fd 100
rt 90
make "i :i+1
if :i<4 [goto @hello]
fd 100