;circular rainbow by Escaflowne { 130 PENOPACITY 0 PENFILLOPACITY 2 linethickness = 24 linestodraw = MOUSEPOS y_maus = x_maus = { startval = { Break } startval linestodraw > If { offset_rgb = 81 offset_horizont = startval offset_rgb + 24 % 51 * restval = { 1023 restval - restval = } restval 511 > If restval offset_horizont - value = ; normalisieren auf 0-255 { 255 value = } value 255 > If { 0 value = } value 0 < If { value color_r = } offset_rgb 6 == If { value color_g = } offset_rgb 22 == If { value color_b= } offset_rgb 14 == If } [ 6 22 14 ] ForEach startval linenum = color_r color_g color_b PENCOLOR PENBACK linethickness PENSIZE x_maus x = y_maus y = linethickness 2 * startval * offset = linestodraw linethickness * 7 * offset - d = x y d d OVAL } [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 ] ForEach "" CHATSTR = } CHATSTR"rainbowcircle" == If ;By Esca