XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Kreise (Bildschirmschoner)
declare x1%,x2%,y1%,y2%,farbe1%,farbe2%,farbe3%,muster%,ende%,xx%,yy%

proc paintellipse

    randomize
    farbe1%=rnd(255)
    farbe2%=rnd(255)
    farbe3%=rnd(255)
    x1%=rnd(xx%)
    x2%=rnd(yy%)
    y1%=rnd(yy%)
    y2%=rnd(yy%)
    usepen 1,2,rgb(farbe3%,farbe2%,farbe1%)
    usebrush 1,rgb(farbe1%,farbe2%,farbe3%)
    ellipse x1%,Y1%-X2%,Y2%

endproc

settruecolor 1
windowstyle $F0
window 0,0-%maxx,%maxy
cls rgb(0,0,0)
showcursor 0
xx%=%maxx
yy%=%maxy
ende%=4

while ende%

    paintellipse
    case %getinputstate:dec ende%

wend

ShowCursor 1
end