Test

globals [head]

to setup
  ca
  set head 0
  set steps 0
  create-turtles num-agents [
    set heading 0 set pen-size thick
  ]
  if choose-color = true [
    ask turtles [ set color colors]
  ]
end 

to layer
  clear-turtles
  set steps 0
  create-turtles num-agents [
    set heading 0 set pen-size thick
  ]
  if choose-color = true [
  ask turtles [ set color colors]
  ]
end 

to distribute
  ask turtles [setxy random-xcor random-ycor]
end 

to draw
  ask turtles [pd]
end 

to sf
  ask turtles [forward steps]
end 

to sb
  ask turtles [back steps]
end 

to turn
  ifelse side = "right" [
    ask turtles [right degree]
  ][
    ask turtles [left degree]
  ]
end 

to spiral
  set steps steps + 0.05
  ask turtles [ fd steps ]
  turn
end 

to orient
  ask turtles [
    set head head + degree
    set heading head
  ]
end 

to FT
  ask turtles [ fd steps ]
  turn
end 

to random-walk
  ask turtles [ fd random-float steps ]
  ifelse random-float 1.0 < 0.5 [
    ask turtles [right random-float degree]
 ][
    ask turtles [left random-float degree]
  ]
end