 ticks]

  set-current-plot "Untriggered traps"
  plotxy ticks count patches with [pcolor = untriggered-color]

  ; Now keep stepping time forward to next time a trap is triggered,
  ; as long as there are any balls in the air
  while [any? patches with [trigger-time > ticks] ]

  [
    tick

    foreach (sort-on [trigger-time] patches with [ trigger-time <= ticks and pcolor = untriggered-color ])
    [
      x -> ask x
      [
      pop
      ]
    ]
    ; Update the plot using *plotxy* which lets us use non-integer x value
    set-current-plot "Balls in air"
    plotxy ticks count patches with [trigger-time > ticks]

    set-current-plot "Untriggered traps"
    plotxy ticks count patches with [pcolor = untriggered-color]
  ]

end]]>
ticks setup repeat 75 [ go ]