AirTrafficControl_m

;  air traffic controller game     Jim Reierson  11/26/2014
;  change aircraft direction by clicking mouse
;  11/26/2014 mods to allow compilation with tortoise  
;      -- as of 11/26/2014 this will compile in tortoise but browser freezes after mouse clicks
breed [airplanes airplane]
airplanes-own [old-heading new-heading]
breed [halos halo]
globals [dist dist-flown prev_timer temp-dif]

to setup
  clear-all
  reset-ticks
  reset-timer 
  set prev_timer timer     ;  use timer intervals rather than ticks so aircraft movement not a function of cpu speed
  set-default-shape halos "circle" ;  "circle 2"
  ; draw a fix
  crt 1 [
    set color black
    set pen-size 3
    setxy 8 12
    pendown
    set heading 90
    fd 1
    left 120
    fd 1
    left 120
    fd 1
    ;; die   ;  keeps default triangle in place when compiled with tortoise
  ]
  
  create-airplanes population
  [
    set shape "airplane"             ; shape size relative to patch size  shapes: airplane, circle 2, target
    set size 2
    make-halo
    ;;  set color who + 2
    set color who * 10 + 45
    set label who
    set label-color black
    set heading 20
       ; set dest to be x= 8, y= 12,   all turtles initially equidistant and heading to fix
    setxy (8 - 27 * sin (70 - who * 10 )) (12 - 27 * cos (70 - who * 10 ))
    set heading (70 - who * 10 )
    set old-heading heading
    set new-heading heading  
  ]
  
  ; create crossing traffic
  
    if Crossing_Traffic   [ create-airplanes 1
   [  set shape "airplane"             ; shape size relative to patch size  shapes: airplane, circle 2, target
    set size 2
    make-halo
    set color brown
    set label who
    set heading 270
    set old-heading heading
    set new-heading heading 
    setxy 18 6
    
  ]]
    
  grow-background
  reset-timer
end 

to go
  ;turn-with-mouse
  ;every 0.5 
  ;move-with-mouse
  turn-to-mouse
  
  set dist max-step-size / 50     
  tick 
  if (timer - prev_timer) > .1  
   [ask airplanes 
    [
      ; if (( [heading] of airplane 1 ) = Heading_1 ) [ask airplane 1 [set heading Heading_1]]  ;; errors
      ; if not Instant_Turn [ask airplane 1 [set heading heading + ((Heading_1 - heading) / 100 )]]   ;  needs work
      
        set temp-dif (subtract-headings new-heading heading)
         if ( abs temp-dif > 1 )
              [set heading  (heading + (0.8 * max-step-size) * (temp-dif / (abs (temp-dif))))] 
      pen-down
      forward  dist
      set dist-flown  dist-flown + dist
           ask other airplanes in-radius 3  [ set color black ] 
  ]
  set prev_timer timer
  ]
end 

to-report coin-flip?     ; returns true or false at random   --- not used presently
  report random 2 = 0
end 

to grow-background
  ask patches [set pcolor 59]
end 

to make-halo  ;; turtle procedure
  ;; when you use HATCH, the new turtle inherits the
  ;; characteristics of the parent.  so the halo will
  ;; be the same color as the turtle it encircles (unless
  ;; you add code to change it
  hatch-halos 1
  [ set size 3
    ;; Use an RGB color to make halo three fourths transparent
    ;; set color lput 90 extract-rgb color    removed for compilation with tortoise
   set color lput 50 [100 0 0]
    ;; set thickness of halo to half a patch
   ;; __set-line-thickness 0.1
    ;; We create an invisible directed link from the runner
    ;; to the halo.  Using tie means that whenever the
    ;; runner moves, the halo moves with it.
    create-link-from myself
    [ tie
      hide-link ] ]
end 

to turn-to-mouse      ;  this one works best so far
   while [mouse-down? ]          
    [let airplane min-one-of airplanes [distancexy mouse-xcor mouse-ycor]
      if [distancexy mouse-xcor mouse-ycor] of airplane < 3 [
      ;; The WATCH primitive puts a "halo" around the watched turtle.
        watch airplane
        display
        ;; The SUBJECT primitive reports the turtle being watched.
        ask airplane [set old-heading heading]
        ask airplane [facexy mouse-xcor mouse-ycor]
        ask airplane [set new-heading heading]
        if (not Instant_Turn)
        [ ask airplane [set  heading old-heading]]
        
        ; if (not Instant_Turn) [ask airplane [set heading old-heading]]
      ]
      
      ;; Undoes the effects of WATCH.  Can be abbreviated RP.
      reset-perspective
    ]
end 

to-report head2
 ;; report airplane 2 show new-heading
end