reset st cleartext make "r 0 make "g 50 make "b 100 repeat 100000[ if :r > 255[make "r 0] if :g > 255[make "g 0] if :b > 255[make "b 0] make "r :r*1.1 make "g :g*1.2 make "b :b*1.3 color [:r :g :b] if getx >500 setx 0 if gety >500 sety 0 if getx <0 setx 500 if gety <0 sety 500 fw 1 rt 0.15 ]