BundledTurtleCooler

extensions [gogo]
breed [persons person]
breed [heats hot]
patches-own [ pheat border outside]
persons-own [ heat ]
heats-own [life cheat]
globals [ serial-port max_heat raw_height raw_width xlist ylist sum_heat room_heat room_size gogo_in_use]

to setup-gogo
   set serial-port user-one-of "Select a port:" gogo:ports
  gogo:open serial-port
  repeat 5
  [ if not gogo:ping
    [ user-message "The GoGo Board is not responding." ] ]
  gogo:talk-to-output-ports [ "a" "b" "c" "d" ]
  set gogo_in_use true
end 

to setup
  clear-all
  set room_size (room-width * room-width)
  set xlist []
  set ylist []
  set sum_heat 0
  set room_heat 0
  create-campfire-people
  create-fire
  set raw_height (room-width / 2)
  set raw_width (room-width / 2)
  set gogo_in_use false
  draw-box
  initiate-people
  ;;show-heat
end 

to add-people
   create-persons 1[
    set shape "person"
    set size 2
    set color brown
    set-random-direction
    set heat human-heat
    forward distance_from_center
    ]
   set people (count persons)
end 

to go
  if (use-light-sensor) [set fire (gogo:sensor 1 > light-threshold)]
  find-people
  add-fire-heat
  ifelse activity[
  move-people
  radiate-heat
  absorb-heat]
  [add-heat
  radiate-heat
  absorb-heat]
  do-sums
  if (sum_heat < auto-cluster-threshold)
  [
    if (auto-cluster)
    [cluster-people]
  ]
  if room_heat < 0 [set fire true]
  do-plot
end 

to cluster-people
  ask persons[
    facexy 0 0
    forward 1
  ]
end 

to create-campfire-people
  create-persons people[
    set shape "person"
    set size 2
    set color brown
    facexy xcor max-pycor
    set heat human-heat
    ]
end 

to create-fire
  if fire[
  ask patch 0 0 [ 
    set pheat 100
    set pcolor 15
  ]]
end 

to draw-box
;;creating a bounding box based on the size of input
ask patches[ 
  if ((abs pxcor = raw_width and abs pycor <= raw_height) or (abs pycor = raw_height and abs pxcor <= raw_width))
  [set pcolor white
    set border true]
]
end 

to initiate-people
  let angle (360 / people)
  let cpeople 0
  ask turtles[
    rt ( angle * cpeople )
     forward distance_from_center
     set cpeople (cpeople + 1)
    ]
end 

to find-people
;;used to keep track of different turtle locations in the form of two lists
  ask persons[
    set xlist lput xcor xlist
    set ylist lput ycor ylist
  ]
end 

to add-fire-heat
ifelse fire
[
  create-heats abs fire_heat [
    set shape "dot"
    set size 1
    set life 4
    set xcor 0
    set ycor 0
    ifelse (fire_heat > 0)
    [set cheat 1
      set color blue]
    [set cheat -1
      set color green
      set life 5]
    ]
  ]
  [
    if gogo_in_use[carefully [
      create-heats (1028 - gogo:sensor 1) [
        set shape "dot"
        set size 1
        set life 4
        set xcor ((random room-width) + (0 - raw_width)) 
        set ycor ((random room-width) + (0 - raw_height)) 
        set color blue
        set cheat 1
        ]
    ]
    []
    ]
   ]
end 

to add-heat
  ;; add up the heat of each person and see how long it takes for the temperature in the room to change
  let iter 0
  
  repeat people
  [
    create-heats heat_rad[
    set shape "dot"
    set size 1
    set life 3
    set xcor (item iter xlist )
    set ycor (item iter ylist)
    set color blue
    set cheat 1
    ]
    set iter (iter + 1)
  ]
end 

to radiate-heat
  ask heats [
    if (color != orange and color != white) 
    [set-random-direction]
    check-border
    if (color = white) [set life (life - 1) set cheat 0.75]
    if (life = 0) [die]
    if color = orange [set color white set cheat 0.75]
    if color = blue [ set color orange set cheat 0.9]
    if color = green [set life (life - 1)]
    ]
  ask persons [set heat (heat - (heat_rad))]
  ;; have each turtle emit some heat to the room
end 

to absorb-heat
  ask persons [ 
    let hcount 0 
    ask patch-here [ask heats-here [ 
        if color = blue[set hcount (hcount + cheat)]
        if color = orange [ set hcount (hcount + cheat)]
        if color = white [set hcount (hcount + cheat)]
        die
        ]]
    ifelse activity[set heat (heat + hcount + (activity_level * room_heat))]
    [ set heat (heat + hcount + room_heat)]
  ]
  ifelse activity[set room_heat ((room_heat * room_size) - (count persons * room_heat * activity_level))]
  [set room_heat ((room_heat * room_size) - (count persons * room_size))]
  ;;have turtles absorb heat if the current patch has more heat than they do?
end 

to set-random-direction
  facexy ((random 32) + -16)  ((random 32) + -16)
end 

to check-border
  let checkcolor false
    ask patch-ahead 1[set checkcolor (pcolor = white)]
    ifelse checkcolor = false
    [forward 1]
    [set-random-direction]
end 

to move-people 
  repeat activity_level [
    add-heat
    ask persons 
    [
      if activity[set-random-direction
      check-border]
      absorb-heat
     ]
    find-people
  ]
end 

to do-sums
set sum_heat 0
set room_heat 0
set room_heat (room_heat * room_size)

ask persons[
  set sum_heat (sum_heat + heat)
]
ask heats[
  ifelse color = orange
  [set room_heat (room_heat + 1)]
  [set room_heat (room_heat + 0.5)]
]

set sum_heat (sum_heat / people)
set room_heat (room_heat / room_size)
end 

to do-plot
  set-current-plot "people-heat"
  plot sum_heat
  set-current-plot "room-heat"
  plot room_heat
  set-current-plot "actual_heat"
  plot gogo:sensor 8
end