XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Grafik: Regenbogenfarben erzeugen
declare a%,b%,x%,y%
declare f1!,f1x!,f2!,f2x!,f3!,f3x!
window 0,0-710,550
SetTrueColor 0
cls 0
charset 2
usefont Wingdings,20,20,0,0,0

while 1

    case @lt(a%,1):let x%=1
    case @lt(b%,1):let y%=1
    case @gt(a%,680):let x%=-1
    case @gt(b%,480):let y%=-1
    case @lt(f1!,1):let f1x!=1
    case @gt(f1!,32):let f1x!=-1
    case @lt(f2!,1):let f2x!=0.5
    case @gt(f2!,32):let f2x!=-0.5
    case @lt(f3!,1):let f3x!=0.25
    case @gt(f3!,32):let f3x!=-0.25
    let f1!=@add(f1!,f1x!)
    let f2!=@add(f2!,f2x!)
    let f3!=@add(f3!,f3x!)
    TextColor @RGB(f1!,f2!,f3!),-1
    drawtext a%,b%,|
    add a%,x%
    add b%,y%

endwhile