to bluetogreen
pu home rt 180
repeat 18[wait 30 pu fd 20 rt 90 fd 20 lt 90 pd fd 173 rt 150 fd 200 rt 120 fd 100 pu fd 20 lt 90 fd 20 rt 190]
pu home pd
end

to bluetopink
cs t3
wait 30 cs pu bk 18.8 lt 90 fd 20 pd fd 100 lt 121.6 fd 190.9 lt 148.4 fd 163 pu
lt 135 fd 5 setfloodcolor 3 fill home
wait 30 cs pu bk 15.3 lt 90 fd 20 pd fd 100 lt 127 fd 166 lt 143 fd 133 pu
lt 135 fd 5 setfloodcolor 3 fill home
wait 30 cs pu bk 10 lt 90 fd 20 pd fd 100 lt 139.1 fd 132.2 lt 130.9 fd 87 pu
lt 135 fd 5 setfloodcolor 3 fill home
wait 30 cs pu bk 3.5 lt 90 fd 20 pd fd 100 lt 163.3 fd 104.4 lt 106.7 fd 31 pu
lt 135 fd 5 setfloodcolor 3 fill home
wait 30 cs pu lt 90 fd 20 pd setpensize [5 5] fd 100 pu home setpensize [1 1]
wait 30 cs pu fd 3.5 lt 90 fd 20 pd fd 100 rt 163.3 fd 104.4 rt 106.7 fd 31 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 10 lt 90 fd 20 pd fd 100 rt 139.1 fd 132.2 rt 130.9 fd 87 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 15.3 lt 90 fd 20 pd fd 100 rt 127 fd 166 rt 143 fd 133 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 18.8 lt 90 fd 20 pd fd 100 rt 121.6 fd 190.9 rt 148.4 fd 163 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs t4 t3
end

to bluetored
pu home
repeat 9[wait 30 pu lt 90 fd 20 lt 90 fd 20 pd fd 173 rt 150 fd 200 rt 120 fd 100 pu fd 20 lt 90 fd 20 lt 10]
pu home pd
end

to bluetoyellow
pu home
setpos [-121 -55] rt 76
repeat 10 [wait 30 setpos [-121 -55] fd 107 rt 109 pd fd 173 rt 150 fd 200 rt 120 fd 100 pu]
home pd
end

to greentoblue
pu home
repeat 18[wait 30 pu fd 20 rt 90 fd 20 lt 90 pd fd 173 rt 150 fd 200 rt 120 fd 100 pu fd 20 lt 90 fd 20 rt 190]
pu home pd
end

to greentopink
cs t1
wait 30 cs pu fd 20 rt 90 fd 18.8 pd fd 94 lt 118.5 fd 197 lt 151.5 fd 173 pu
lt 135 fd 5 setfloodcolor 2 fill home
wait 30 cs pu fd 20 rt 90 fd 15.3 pd fd 76.6 lt 113.9 fd 189 lt 156.1 fd 173 pu 
lt 135 fd 5 setfloodcolor 2 fill home
wait 30 cs pu fd 20 rt 90 fd 10 pd fd 50 lt 106.1 fd 180 lt 163.9 fd 173 pu 
lt 135 fd 5 setfloodcolor 2 fill home
wait 30 cs pu fd 20 rt 90 fd 3.5 pd fd 17.3 lt 95.7 fd 173 lt 174.3 fd 173 pu 
lt 135 fd 5 setfloodcolor 2 fill home
wait 30 cs pu fd 20 pd setpensize [5 5] fd 173 pu home setpensize [1 1]
wait 30 cs pu fd 20 lt 90 fd 3.5 pd fd 17.3 rt 95.7 fd 173 rt 174.3 fd 173 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 20 lt 90 fd 10 pd fd 50 rt 106.1 fd 180 rt 163.9 fd 173 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 20 lt 90 fd 15.3 pd fd 76.6 rt 113.9 fd 189 rt 156.1 fd 173 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 20 lt 90 fd 18.8 pd fd 94 rt 118.5 fd 197 rt 151.5 fd 173 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs t1 t4
end

to greentored
pu home
repeat 9[wait 30 pu fd 20 rt 90 fd 20 lt 90 pd fd 173 rt 150 fd 200 rt 120 fd 100 pu fd 20 lt 90 fd 20 rt 190]
pu home pd
end

to greentoyellow
pu home fd 20 rt 90 fd 20 lt 90 pd
repeat 11[wait 30 fd 173 rt 150 fd 200 rt 120 fd 100 pu fd 22 lt 90 fd 10 rt 180 pd]
pu home pd
end

to pinktoblue
cs t4
wait 30 cs pu fd 18.8 lt 90 fd 20 pd fd 100 rt 121.6 fd 190.9 rt 148.4 fd 163 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 15.3 lt 90 fd 20 pd fd 100 rt 127 fd 166 rt 143 fd 133 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 10 lt 90 fd 20 pd fd 100 rt 139.1 fd 132.2 rt 130.9 fd 87 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 3.5 lt 90 fd 20 pd fd 100 rt 163.3 fd 104.4 rt 106.7 fd 31 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu lt 90 fd 20 pd setpensize [5 5] fd 100 pu home setpensize [1 1]
wait 30 cs pu bk 3.5 lt 90 fd 20 pd fd 100 lt 163.3 fd 104.4 lt 106.7 fd 31 pu
lt 135 fd 5 setfloodcolor 3 fill home
wait 30 cs pu bk 10 lt 90 fd 20 pd fd 100 lt 139.1 fd 132.2 lt 130.9 fd 87 pu
lt 135 fd 5 setfloodcolor 3 fill home
wait 30 cs pu bk 15.3 lt 90 fd 20 pd fd 100 lt 127 fd 166 lt 143 fd 133 pu
lt 135 fd 5 setfloodcolor 3 fill home
wait 30 cs pu bk 18.8 lt 90 fd 20 pd fd 100 lt 121.6 fd 190.9 lt 148.4 fd 163 pu
lt 135 fd 5 setfloodcolor 3 fill home
wait 30 cs t3 t4
end

to pinktogreen
cs t4
wait 30 cs pu fd 20 lt 90 fd 18.8 pd fd 94 rt 118.5 fd 197 rt 151.5 fd 173 pu
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 20 lt 90 fd 15.3 pd fd 76.6 rt 113.9 fd 189 rt 156.1 fd 173 pu 
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 20 lt 90 fd 10 pd fd 50 rt 106.1 fd 180 rt 163.9 fd 173 pu 
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 20 lt 90 fd 3.5 pd fd 17.3 rt 95.7 fd 173 rt 174.3 fd 173 pu 
rt 135 fd 5 setfloodcolor 5 fill home
wait 30 cs pu fd 20 pd setpensize [5 5] fd 173 pu home setpensize [1 1]
wait 30 cs pu fd 20 rt 90 fd 3.5 pd fd 17.3 lt 95.7 fd 173 lt 174.3 fd 173 pu 
lt 135 fd 5 setfloodcolor 2 fill home
wait 30 cs pu fd 20 rt 90 fd 10 pd fd 50 lt 106.1 fd 180 lt 163.9 fd 173 pu 
lt 135 fd 5 setfloodcolor 2 fill home
wait 30 cs pu fd 20 rt 90 fd 15.3 pd fd 76.6 lt 113.9 fd 189 lt 156.1 fd 173 pu 
lt 135 fd 5 setfloodcolor 2 fill home
wait 30 cs pu fd 20 rt 90 fd 18.8 pd fd 94 lt 118.5 fd 197 lt 151.5 fd 173 pu 
lt 135 fd 5 setfloodcolor 2 fill home
wait 30 cs t1 t4
end

to pinktored
cs t4
wait 30 cs pu setpos [-18.8 18.8] pd setpos [-13.6 186.6] setpos [-115.8 15.8] setpos [-18.8 18.8] 
pu lt 45 fd 20 setfloodcolor 5 fill home
wait 30 cs pu setpos [-15.3 15.3] pd setpos [4.9 168.1] setpos [-103.6 3.6] setpos [-15.3 15.3] 
pu lt 45 fd 20 setfloodcolor 5 fill home
wait 30 cs pu setpos [-10 10] pd setpos [33.3 139.7] setpos [-85 -15] setpos [-10 10] 
pu lt 45 fd 20 setfloodcolor 5 fill home
wait 30 cs pu setpos [-3.5 3.5] pd setpos [68 105] setpos [-62.2 -37.8] setpos [-3.5 3.5] 
pu lt 45 fd 10 setfloodcolor 5 fill home
wait 30 cs pu setpos [-50 -50] pd setpensize [5 5] setpos [86.5 86.5] setpensize [1 1] pu home
wait 30 cs pu setpos [3.5 -3.5] pd setpos [105 68] setpos [-37.8 -62.2] setpos [3.5 -3.5] 
pu rt 135 fd 10 setfloodcolor 4 fill home
wait 30 cs pu setpos [10 -10] pd setpos [139.7 33.3] setpos [-15 -85] setpos [10 -10] 
pu rt 135 fd 20 setfloodcolor 4 fill home
wait 30 cs pu setpos [15.3 -15.3] pd setpos [168.1 4.9] setpos [3.6 -103.6] setpos [15.3 -15.3] 
pu rt 135 fd 20 setfloodcolor 4 fill home
wait 30 cs pu setpos [18.8 -18.8] pd setpos [186.6 -13.6] setpos [15.8 -115.8] setpos [18.8 -18.8] 
pu rt 135 fd 20 setfloodcolor 4 fill home
wait 30 cs t2 t4
end

to redtoblue
pu home
repeat 9[wait 30 pu bk 20 rt 90 fd 20 pd fd 173 rt 150 fd 200 rt 120 fd 100 pu fd 20 lt 90 fd 20 rt 100]
pu home pd
end

to redtogreen
pu home
repeat 9[wait 30 pu rt 90 fd 20 rt 90 fd 20 lt 90 pd fd 173 rt 150 fd 200 rt 120 fd 100 pu fd 20 lt 90 fd 20 rt 80]
pu home pd
end

to redtopink
cs t2
wait 30 cs pu setpos [18.8 -18.8] pd setpos [186.6 -13.6] setpos [15.8 -115.8] setpos [18.8 -18.8] 
pu rt 135 fd 20 setfloodcolor 4 fill home
wait 30 cs pu setpos [15.3 -15.3] pd setpos [168.1 4.9] setpos [3.6 -103.6] setpos [15.3 -15.3] 
pu rt 135 fd 20 setfloodcolor 4 fill home
wait 30 cs pu setpos [10 -10] pd setpos [139.7 33.3] setpos [-15 -85] setpos [10 -10] 
pu rt 135 fd 20 setfloodcolor 4 fill home
wait 30 cs pu setpos [3.5 -3.5] pd setpos [105 68] setpos [-37.8 -62.2] setpos [3.5 -3.5] 
pu rt 135 fd 10 setfloodcolor 4 fill home
wait 30 cs pu setpos [-50 -50] pd setpensize [5 5] setpos [86.5 86.5] setpensize [1 1] pu home
wait 30 cs pu setpos [-3.5 3.5] pd setpos [68 105] setpos [-62.2 -37.8] setpos [-3.5 3.5] 
pu lt 45 fd 10 setfloodcolor 5 fill home
wait 30 cs pu setpos [-10 10] pd setpos [33.3 139.7] setpos [-85 -15] setpos [-10 10] 
pu lt 45 fd 20 setfloodcolor 5 fill home
wait 30 cs pu setpos [-15.3 15.3] pd setpos [4.9 168.1] setpos [-103.6 3.6] setpos [-15.3 15.3] 
pu lt 45 fd 20 setfloodcolor 5 fill home
wait 30 cs pu setpos [-18.8 18.8] pd setpos [-13.6 186.6] setpos [-115.8 15.8] setpos [-18.8 18.8] 
pu lt 45 fd 20 setfloodcolor 5 fill home
wait 30 cs t4 t2
end

to t1
ht 
pu home fd 20 rt 90 fd 20 lt 90 pd
fd 173
rt 150
fd 200
rt 120
fd 100
pu rt 145 fd 10 setfloodcolor 2 fill home pd
end

to t2
ht
pu home rt 90 fd 20 rt 90 fd 20 lt 90 pd
fd 173
rt 150
fd 200
rt 120
fd 100
pu rt 145 fd 10 setfloodcolor 4 fill home pd
end

to t3
ht
pu home lt 90 fd 20 lt 90 fd 20 pd
fd 173
rt 150
fd 200
rt 120
fd 100
pu rt 145 fd 10 setfloodcolor 3 fill home pd
end

to t4
ht
pu home fd 20 lt 90 fd 20 rt 90 pd
fd 173
lt 150
fd 200
lt 120
fd 100
pu lt 145 fd 10 setfloodcolor 5 fill home pd
end

to t5
ht
pu home lt 90 fd 222 lt 90 fd 90 lt 180 pd
fd 173
rt 150
fd 200
rt 120
fd 100
pu rt 145 fd 10 setfloodcolor 6 fill home pd
end

to yellowtoblue
pu home
setpos [-121 -55] lt 102
repeat 11 [wait 30 setpos [-121 -55] fd 107 rt 107 pd fd 173 rt 150 fd 200 rt 120 fd 100 pu]
home pd
end

to yellowtogreen
pu home bk 90 lt 90 fd 222 rt 90 pd
repeat 11[wait 30 fd 173 rt 150 fd 200 rt 120 fd 100 pu bk 22 rt 90 fd 10 pd]
pu home pd
end