Human Geo Class

globals [ speed ]

to setup
  clear-all
  create-turtles 1 [
    setxy 4 4
    set roll -45
    set color red
    set shape "airplane"
  ]
  set speed .1
  ask patches with [ pzcor = -8 ] [ set pcolor green + (random-float 2) - 1 ]
  ask patches with [ pzcor = -8 and pxcor > -12 and pxcor < -4 ]
    [ set pcolor gray ]
  ask patches with [ pxcor = 5 and pycor = -7 and pzcor > -8 and pzcor < -1 ]
    [ set pcolor gray - 3 ]
  ask patches with [ pxcor > 3 and pxcor < 11 and pycor > -3 and pycor < 10 and pzcor = -7 ]
    [ set pcolor gray + 3 ]
  reset-ticks
end 

to go
  if speed = 0 [ stop ]
  ask turtles [
    if ( heading != 180 )
    [ set heading heading - 1 ]
    if ( pitch != 345 and heading <= 180.1 and zcor > -6 )
    [ set pitch precision (pitch - .1) 3 ]
    if ( roll != 0 and heading < 226 )
    [ set roll precision (roll + 1) 3 ]
    if ( roll = 0 and pitch = -15 )
    [ set zcor zcor - .00 ]
    if ( zcor < -6.2 and pitch != 0 )
    [ set pitch precision (pitch + .2) 3 ]
    if ( zcor < -6.2 and pitch = 0 and speed > 0 )
    [ set speed speed - .001 ]
    fd speed
  ]
  tick
end 


; Public Domain:
; To the extent possible under law, Uri Wilensky has waived all
; copyright and related or neighboring rights to this model.