XProfan

English

p.specht

Down? raging? everything cretins!? the following Fun-Program should The mood again raise: one must only on it believe and long enough on the screen stare. hardly is the mood again rather, exits one längerer Tastendruck whom Spuk! Have fun!

P.s.: Dzt. only for Bildschirmauflösung 1366 x 768 optimiert - but your can whom Sch**** Yes anytime adjust!

Compile Mark Separation

Window Title "    MOTIVATOR 1.0"
'(CL) CopyLeft for_non-commercial use 2018-08 by P.woodpecker, Vienna/EU
Window Style 24:Window 0,0-%maxx,%maxy:Showmax
Declare xh&,yh&,x&,y&,r!,a!,b!,f!,c&
xh&=width(%hwnd)/2:yh&=height(%hwnd)/2
f!=pi()/180

REPEAT

    Whileloop 0,359,12:b!=&Loop*f!

        r!=3:x&=r!*cos(a!):y&=r!*sin(a!)
        MCLS %maxx,%maxy,$FFFFFF:StartPaint -1
        moveto xh&+x&,yh&-y&

        whileloop 0,2553,2

            a!=&Loop*f! + b!
            x&=r!*cos(a!):y&=r!*sin(a!)
            usepen 0,r!/11,rgb(70,70,90+130*cos(15*a!))
            lineto xh&+x&+1,yh&-y&
            r!=r!*0.9998+0.3333333333

        endwhile

        usefont "Arial",170,70,1,0,0
        c&=120+120*cos(b!)
        Text Color rgb(255,c&,c&),-1
        DrawText 35,yh&-90,"ALLES IS GUT!"
        'DrawText 35,yh&-90," DU BIST SPITZE! "
        EndPaint:MCopyBMP 0,0-%maxx,%maxy>1,0;0

    EndWhile

UNTIL 0