to setup
clear-all ;; すべてをクリアする。
create-turtles 1 ;; タートルを1つ生成する。
ask turtles [ setxy 0 0 set heading 90 set color yellow ] ;; タートルに対して、Worldの中心の位置で、右向きで、黄色になるように要求する。
end
to go
square
repeat 21 [ rt 15 square] ;; 右周りに15°回転させ、正方形を描く手続きを 21 回繰り返す。
end
to square ;; 正方形を描く手続き
pendown
fd 10
repeat 3 [rt 90 fd 10]
penup
end
これを実行させると、
このプログラムを少しだけ変えて、
to setup
clear-all
create-turtles 1
ask turtles [ setxy 0 0 set heading 90 set color blue ]
end
to go
star
end
to star
repeat 18 [window rt 5]
end
to window
repeat 4 [square lt 90]
end
to square
pendown
repeat 4 [fd 10 rt 90]
penup
end
と、正方形を描く手続きを4回繰り返す手続き(window)を回転させる手続き(star)を実行させると、