Wigglewalk

globals [ OriginDistance ]      ;; sets the OriginDistance as the global variable

to setup                        ;;creates 1 turtle sets its color,size,heading and resets ticks
  clear-all
  reset-ticks
  create-turtles 1
  ask turtles
  [
    set heading 0
    set color 15
    set size 5
  ]
end 

to DrawWall                            ;; Sets up the circle owl will be running into
  ask turtles
  [
    repeat 360
    [
      forward radius
      pen-down
      forward 5
      pen-up
      setxy 0 0
      set heading (heading + 1)
    ]
  ]
end 

to RandomWalk                               ;; Sets up how the turtle will run the RandomWalk procedure for the owl experiments
  ask turtles
  [
    set heading (random 360)
    pen-down
    forward 1
       set OriginDistance distancexy 0 0
  ]
  if OriginDistance > radius
  [stop]
  tick
end 

to WiggleWalk                               ;; Sets up how the turtle will run the WiggleWalk procedure for the owl experiments
  ask turtles
  [
    pen-down
    right wiggleright
    left wiggleleft
    forward 1
    set OriginDistance distancexy 0 0
  ]
  if OriginDistance > radius
  [stop]
  tick
end