;draws a detailed rainbow circle 100 pixels in radius, by Foxy
;centers on mousepos, usage "rainbow spot"
{ "" CHATSTR = 4 PENSIZE 0 ad =
 { 0 ra = 0 ga = 0 ba = STRTOATOM EXEC b = g = r = 0 cl =
 { r g b PENCOLOR 360 ad * 126 / theta = MOUSEPOS PENPOS
   theta SINE 10 / theta COSINE 10 / LINETO ad ++
  ra 6 * r += ga 6 * g += ba 6 * b += cl ++
 } { cl 21 < } while
} [ "-2 ra = 255 0 255" "2 ga = -2 ba = 0 0 255" 
  "2 ra = 0 255 0" "-1 ga = 255 255 0" 
 "-1 ga = 255 128 0" "2 ba = 255 0 0"
] FOREACH
} CHATSTR "rainbow spot" == IF