to
demo.18
perspective
make
"append "false
cs
ht
setturtle
-1
setxyz
0 0 1000
setturtle
0
repeat
36 [setturtle -1 sety 700 lt 90 rr 90 arc2 10 1000 lr 90 rt 90 setturtle 0 cs
cube 100 axis wait 15(gifsave "cub50.gif 180 :append 0) make "append
"true]
end
to axis
fd 200
rt 90 label "+ص lt 90
bk 400
rt 90 label "-ص lt 90
fd 200
rt 90
fd 200
label "+س
bk 400
label "-س
fd 200
lt 90
down 90
fd 200
up 90
rt 90 label "-ع lt 90
down 90
bk 400
up 90
rt 90 label "+ع lt 90
down 90
fd 200
up 90
end
 |
 |
 |
