XProfan

WindowTitle "Spirograph als Wappen- oder Avatar-Generator"
WindowStyle 24
Window 0,0-%maxx,%maxy
font 2
randomize
var xh&=width(%hwnd)\2
var yh&=height(%hwnd)\2
var f!=pi()/180/4
declare x!,y!,w!
declare r0!,r1!,r2!,r3!,r4!
declare w0!,w1!,w2!,w3!,w4!
declare x0!,x1!,x2!,x3!,x4!
declare y0!,y1!,y2!,y3!,y4!

Repeat

    Whileloop 20,3,-3

        r0!=196*rnd()
        r1!=48*rnd()
        r2!=24*rnd()
        r3!=12*rnd()
        r4!=6*rnd()
        usepen 0,&Loop,rgb(rnd(255),rnd(255),rnd(255))

        Whileloop 0,360*4

            w!=f!*&Loop
            w0!=w!
            w1!=-2*w!
            w2!=3*w!
            w3!=-5*w!
            w4!=-7*w!
            x0!=r0!*cos(w0!):y0!=r0!*sin(w0!)
            x1!=r1!*cos(w1!):y1!=r1!*sin(w1!)
            x2!=r2!*cos(w2!):y2!=r2!*sin(w2!)
            x3!=r3!*cos(w3!):y3!=r3!*sin(w3!)
            x4!=r4!*cos(w4!):y4!=r4!*sin(w4!)
            x!=x0!+x1!+x2!+x3!+x4!
            y!=y0!+y1!+y2!+y3!+y4!
            'locate 0,0:print x!,y!
            Line xh&-y!,(yh&+x!) - xh&-y!,yh&+x!

        endwhile

        waitinput 4000

    endwhile

    Waitinput
    cls

until %key=27

beep
waitinput
end