XProfan

randomize
CLS
SET("OGLW2H", 4/3)
OGL("init",%HWND,0,0,0,5)
OGL("posmode",1)
var TEXBMP&=CREATE("hNewPic",128,128,0)
STARTPAINT TEXBMP&

WHILELOOP 200

    USEPEN 0,5,RND($FFFFFF)
    LINE RND(128),RND(128) - RND(128),RND(128)

ENDWHILE

usepen 0,20,$223377
usebrush 0,0
rectangle 0,0 - 127,127
usepen 0,5,$FFFFFF
rectangle 10,10 - 118,118
copysizedbmp 0,0 - 128,128 > 0,0 - 128,65;0
copysizedbmp 0,0 - 128,64 > 0,128 - 127,-64;0
copybmp 0,0 - 128,64 > 0,64;3
ENDPAINT TEXBMP&
var TEX&=OGL("getTextureBMP",TEXBMP&,3)
var fx!=0
var qw!=0.3

WHILE 1

    OGL("clear")
    OGL("texture",TEX&,1)
    OGL("move",0,-0.25,-2.5)
    OGL("push")
    fx!=(%MOUSEX-200)/100
    OGL("move",fx!,0,0)

    WHILELOOP 18

        fx!=fx!-0.25

        if fx!

            OGL("move",-0.25,0,0)
            OGL("push")
            OGL("rotate",0,90,0)

        else

            OGL("move",-0.25,0,0)
            OGL("push")
            OGL("move",0,0,-abs(fx!*0.5)*3+1.5)
            OGL("rotate",0,180+90*-fx!,0)

        endif

        if fx!>-1

            OGL("quad",qw!,qw!*2)

        else

            OGL("quad",-qw!,qw!*2)

        endif

        OGL("pop")

    ENDWHILE

    OGL("pop")
    OGL("show")

ENDWHILE

OGL("done")