reset st cleartext penwidth 10 make "r 10 make "g 50 make "b 100 repeat 100000[ if :r > 255[make "r 1] if :g > 255[make "g 1] if :b > 255[make "b 1] make "r :r*1.1 make "g :g*1.2 make "b :b*1.3 color [:r :g :b] if getx >500 setx (0 + rand 25) if gety >500 sety (0 + rand 25) if getx <0 setx (500 - rand 25) if gety <0 sety (500 - rand 25) fw (0.5 + rand 4 +1) rt 0.22223 ]