activateall
each [rt 30 * who setpc 1 + who
st
repeat 36 [fd 10 rt 10
make "t .1
repeat 10 [setzoom :t make "t :t + .5
setzoom 1
repeat 18 [rotateyaxis 20
