Communication-T-P Example

to setup
  clear-all
  crt 20 [
    ;; color half the turtles red,
    ;; the other half yellow
    set color one-of [yellow red]
    setxy random-xcor random-ycor
  ]
  ask patches [
    set pcolor green      ;; color the patches green
  ]
  reset-ticks
end 

to go
  ask turtles [
    rt random 90
    lt random 90
    fd 1
    ;; if you're a red turtle, turn your patch black
    if color = red
      [ set pcolor black ]
    ;; if you're a yellow turtle, turn your patch magenta
    if color = yellow
      [ set pcolor magenta ]
  ]
  tick
end 


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