绣球花

; 画一朵绣球花： 用多边形旋转角度后进行叠加，形成一朵绣球花
; 一些可调整的参数
; num: 花瓣的数量，即重复画多少个多边形
; slides: 每一片花瓣有几条边
; len: 花瓣的边长

; 降低ticks的速度，可以观察海龟画图的过程。

; netlogo 软件让我想起了小时候学的“海龟画图”，那时候好像还是在dos系统下进行操作的。
; 查阅资料后发现两个程序使用的是相同的语言， logo语言。
; 因此使用netlogo 写了这个小程序，纪念小学的电脑课。纪念早已被拆除的丁堰中心小学。
; By RaymondChen


turtles-own [p1]

to setup
  ca
  set-default-shape turtles "turtle"
  ask patches [set pcolor white]
  crt 1 [
    setxy 0 0
    set p1 (( random 14) * 10 ) ; 颜色的色相
  ]
  reset-ticks
end 

to go
  let i  0
  while [i < num] [
    ask turtles [
      draw0
      rt (360 / num)]
    set i i + 1
  ]
end 

to draw0
  pen-down
  repeat slides [
    fd len
    rt 360 / slides
  ]
end 

to go2
  let i  0
  while [i < num] [
    ask turtles [
      let  clr1 (p1 +  ((random 5) + 4) )
      set color clr1
      draw0
      rt (360 / num)
    ]
    set i i + 1
  ]
end