NetLogoプログラミング(その1)

次は、正方形を描く手続き(プロシージャ)を作成し、それを回転させるだけの簡単なプログラムである。

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)を実行させると、


となる。


哲猫