patches-own
[chemical]
to setup
setxy 0 0
fd random 10
setc orange
end
to go
rt int 4 * chemical
fd 1 + chemical * chemical / 60
set chemical chemical + 2
end |
to setup
ca
crt number
ask-turtles [setup]
set chemical 0
end
to go
ask-turtles [go]
ask-patches
[set chemical chemical
*
0.99]
diffuse chemical .01
ask-patches [scale-pc yellow chemical 4 15]
end |