Idioms

to setup
setdie? false
end

to kill :who
setdie?-of :who true
end

to run-forever
if die?
[die]
end

-------------------------
to place-turtles-randomly
setxy random screen-size random screen-size
end

-------------------------
to orient-turtles-randomly
seth random 360
end

-------------------------
to seth-outward
seth atan ycor xcor
end

-------------------------
to wiggle
rt random 90
lt random 90
fd 1
end

-------------------------
patches-own [chemical]

to setup
setchemical random 10
end

to blue-blur
diffuse chemical 0.5
scale-pc blue chemical 0 10
end

to evaporate
setchemical chemical * 0.9
end

-------------------------
patches-own [old-pc]

to store-graphics
setold-pc pc
end

to restore-graphics
setpc old-pc
end

-------------------------
patches-own [food]

to see-food
setpc food
end

-------------------------
to avoid-blue
ifelse (pc-at dx dy) = blue
[rt 90]
[fd 1]
end

-------------------------
to startup
ca
end

-------------------------
to kill-three-out-of-ten
if (random 10) < 3
[die]
end

-------------------------
to go
button1
button2
end

to stop-it
stopbutton1
stopbutton2
end

-------------------------
to follow :leader
seth towards xcor-of :leader ycor-of :leader
fd 1
end

-------------------------
turtles-own [friend to setup
place-turtles-randomly
setfriend-state still-looking
end

to go
if friend-state = still-looking
[setfriend one-of-turtles-here
ifelse friend = nobody
[wiggle]
[setfriend-state found-friend]]
if friend-state = found-friend
[wiggle
follow friend]
end

-------------------------
to draw-diagonal
if xcor = ycor
[setpc blue]
end

-------------------------
breeds [frogs toads]

to setup-creatures
ca
create-frogs 10
ask-frogs
[place-turtles-randomly
setc green]
create-toads 15
ask-toads
[setx random screen-size
sety 0
setc blue]
end

to run-creatures
ask-frogs
[hop-around-like-frogs]
ask-toads
[hop-around-like-toads]
end

-------------------------
breeds [rabbits planters]

to setup
create-rabbits 500
create-planters 2
ask-planters
[ht]
end

to go
ask-rabbits
[wiggle]
ask-planters
[wiggle
stamp green]
end

-------------------------
to encode-picture
if not (pc = black)
sprout [stamp black]
orient-turtles-randomly
fd 200
end

to decode-picture
bk 200
end

-------------------------
turtles-own [speed]

to move
fd speed
end

to accelerate
setspeed speed + 1
end

to decelerate
setspeed speed - 1
end