to draw-polygon [:x :y num-sides len] ;; (:x :y) = center
  setxy 0 0
  set heading 90
  fd len / 2
  set heading -180 / num-sides
  pen-down
  repeat num-sides [
   fd len * sin ( 180 / num-sides )
   lt 360 / num-sides
  ]
  pen-up
 end

とすることができる。この手続きを使って、正三角形から正16角形までを描いたものが

である。尚、このプログラムのソースファイルは ここ にある。

哲猫