XProfan

WindowTitle "Zündholzgetriebe-Screensaver":WindowStyle 16 | 64:randomize
'(CL)CopyLeft 2015-01-02 by P. Specht, Wien (Austria)
Window 0,0-%maxx,%maxy:cls 0:var xh&=width(%hwnd)\2:var yh&=height(%hwnd)\2
declare x!,y!,x0!,y0!,x1!,y1!,x2!,y2!,x3!,y3!,r0!,r1!,r2!,r3!,a0!,a1!,a2!,a3!,d2r!
declare f0&,f1&,f2&,f3&,co&:d2r!=pi()/180:cls 0

repeat

    f0&=1+rnd(10):f1&=1+rnd(10):f2&=1+rnd(10):f3&=1+rnd(10)
    r0!=10+rnd(170):r1!=10+rnd(170):r2!=10+rnd(170):r3!=10+rnd(170)
    co&=rgb(100+rnd(156),100+rnd(156),100+rnd(156))

    whileloop 0,359,3:a0!=&Loop*d2r!

        x0!=r0!*cos(f0&*a0!):y0!=r0!*sin(f0&*a0!)
        x1!=r1!*cos(f1&*a0!):y1!=r1!*sin(f1&*a0!)
        x2!=r2!*cos(f2&*a0!):y2!=r2!*sin(f2&*a0!)
        x3!=r3!*cos(f3&*a0!):y3!=r3!*sin(f3&*a0!)
        usepen 0,1+rnd(2),co&:line xh&,yh& - xh&+x0!,yh&-y0!
        usepen 0,1+rnd(2),co&:line xh&+x0!,(yh&-y0!) - xh&+x0!+x1!,yh&-y0!-y1!
        usepen 0,1+rnd(2),co&:line xh&+x0!+x1!,(yh&-y0!-y1!) - xh&+x0!+x1!+x2!,yh&-y0!-y1!-y2!
        usepen 0,1+rnd(2),co&:line xh&+x0!+x1!+x2!,(yh&-y0!-y1!-y2!) - xh&+x0!+x1!+x2!+x3!,yh&-y0!-y1!-y2!-y3!
        usepen 0,8,200:line  xh&+x0!+x1!+x2!,(yh&-y0!-y1!-y2!) - xh&+x0!+x1!+x2!,yh&-y0!-y1!-y2!
        waitinput 10:case %key<>0:end
        endwhile :case rnd(100)<33:cls 0:Until 0