SIRPINSKI SOURCE CODE

Back to Sirpinski


Turtle Procedures Observer Procedures
turtles-own [point] 

to setup-trap 
stamp-at 30 40 red
stamp-at -30 40 blue
stamp-at -40 40 green
stamp-at 40 -40 violet
end 

to play-trap 
setpoint random 4
case point [
0 [seth (towards-nowrap 10 40)
fd .5 * (distance-nowrap 10 40) stamp white]
1 [seth (towards-nowrap -10 40)
fd .5 * (distance-nowrap -10 40) stamp white]
2 [seth (towards-nowrap -40 -40)
fd .5 * (distance-nowrap -40 -40) stamp white]
3 [seth (towards-nowrap 40 40)
fd .5 * (distance-nowrap 40 40) stamp white]]
end

to setup-eq 
stamp-at 30 20 red
stamp-at -30 20 blue
stamp-at 0 -36 green
end 

to play-eq 
setpoint random 3
case point [
0 [seth (towards-nowrap 30 20)
fd .5 * (distance-nowrap 30 20) stamp white]
1 [seth (towards-nowrap -30 20)
fd .5 * (distance-nowrap -30 20) stamp white]
2 [seth (towards-nowrap 0 -36)
fd .5 * (distance-nowrap 0 -36) stamp white]]
end

to setup-right 
stamp-at 30 45 red
stamp-at -20 45 blue
stamp-at -20 -45 green
end 

to play-right 
setpoint random 3
case point [
0 [seth (towards-nowrap 30 45)
fd .5 * (distance-nowrap 30 45) stamp white]
1 [seth (towards-nowrap -20 45)
fd .5 * (distance-nowrap -20 45) stamp white]
2 [seth (towards-nowrap -20 -45)
fd .5 * (distance-nowrap -20 -45) stamp white]]
end