Bounce Lottery

extensions[gogo]

globals [
turtlecolor
]

to setup
  clear-all
  set-default-shape turtles "circle"
  draw-walls
  crt 5                                 ;; create some turtles
    [ randomize ]                       ;; place them randomly
  reset-ticks
end 

; draws the boundaries (walls) of the "billiard table"

to draw-walls
  ; draw left and right walls
  ask patches with [abs pxcor = max-pxcor]
    [ set pcolor blue ]
  ; draw top and bottom walls
  ask patches with [abs pycor = max-pycor]
    [ set pcolor blue ]
end 

; set random location

to randomize
  setxy random-xcor random-ycor
  if pcolor = blue       ; if it's on the wall...
    [ randomize ]        ; ...try again
end 

to go
  ask turtles [
    ifelse leave-trace?             ;; the turtle puts its pen up or down depending on the
      [ pd ]                        ;; value of the LEAVE-TRACE? switch
      [ pu ]
    bounce
    fd 0.1
  ]
  tick
end 

;; this procedure checks the coordinates and makes the turtles
;; reflect according to the law that the angle of reflection is
;; equal to the angle of incidence

to bounce  ;; turtle procedure
  ; check: hitting left or right wall?
  if abs [pxcor] of patch-ahead 0.1 = max-pxcor
    ; if so, reflect heading around x axis
    [ set heading (- heading) ]
  ; check: hitting top or bottom wall?
  if abs [pycor] of patch-ahead 0.1 = max-pycor
    ; if so, reflect heading around y axis
    [ set heading (180 - heading) ]
end 

to lights2
  let counter 0
  while [ gogo:sensor 1 < 50] [ 
    talk-to counter
    gogo:output-port-off
    set counter counter + 1 
    talk-to counter
    gogo:output-port-on
    gogo:beep
    repeat 5 [wait .005 go]
  ]
end 

to talk-to [counter]
  if counter mod 3 = 0
  [ gogo:talk-to-output-ports["a"] ask turtles [set color blue]
]
  if counter mod 3 = 1
  [ gogo:talk-to-output-ports["b"] ask turtles [set color green]
]
  if counter mod 3 = 2
  [ gogo:talk-to-output-ports["c"] ask turtles [set color red]
]
end 

to setupturtle
gogo:open "/dev/tty.usbmodem1421"
end 

to turnoff
gogo:talk-to-output-ports [ "a" "b" "c" ]
gogo:output-port-off
end 


  ;ask turtles set color red

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