Mosaic

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
  
  ]