Game Of Life 3D

globals[
 backgroundColor
]

patches-own[
  futurColor
  
]

to setup
  clean
  ask n-of population_start patches [ set pcolor one-of remove backgroundColor base-colors]
  ask patches [ set futurColor pcolor ]
end 

to clean
  clear-all
  set backgroundColor black
  ask patches [ set pcolor backgroundColor ]
  ask patches [ set futurColor pcolor ]
  reset-ticks 
end 

to populate
  ask n-of population_start patches with [pcolor = backgroundColor]  [ 
    set pcolor one-of remove backgroundColor base-colors
    set futurColor pcolor
    ]
end 

to go
 ask patches [ gameOfLife ]
 
 ask patches [ applyChange]
 
 if(count patches with [pcolor != backgroundColor] = 0) [stop]
 
 set-plot-x-range (ticks - graph_window) ticks
 tick
end 

to gameOfLife
  
  let cells neighbors with [pcolor != backgroundColor]
  
  if(not isAlive? and count cells = trigger_birth)[
    grow
    stop
  ]
  
  if(isAlive? and (count cells >= dead_trigger_overpopulated or count cells <= dead_trigger_lonely))[
    destroy
    stop
  ]
  
  set futurColor pcolor
end 

to destroy
  set futurColor backgroundColor
end 

to grow
  set futurColor one-of remove backgroundColor base-colors
end 

to-report isAlive?
  report (pcolor != backgroundColor)
end 

to applyChange
  set pcolor futurColor
end