;makes a bowed rainbow by Escaflowne
{
130 PENOPACITY 
0 PENFILLOPACITY
8 linethickness =
24 linestodraw =
{
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
    ROOMWIDTH 2 / x =
    ROOMHEIGHT y =
    linethickness 2 * startval * offset =
    ROOMWIDTH offset - d =
    x y d d OVAL
    #start linethickness linenum * ROOMWIDTH linethickness linenum * LINE
} [ 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 "rainbowpaint" == If
;By Esca