FreeProfan

cls
mcls 320,200,0
var fle$=ReadIni$("Hkey_1","Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders","Desktop")+"\\test.png"
var hPic&=create("hpic",0,"&MEMBMP")
'savepic fle$,hPic&
'deleteObject hPic&
'shellexec(fle$,"open",3)
waitinput
end

long hPic2=create("hPic",0,"&OGLBMP")
startpaint -1
drawpic hPic2,0,0;0
endpaint

declare long x,y
decimals 0
window 600,600
windowtitle "oglUI-TestMode-Test"
ogl("init", %HWnd, 255,255,255,1)
mcls 600,600,0
ogl("clear")
ogl("color",1.3,1.3,1.3,1)
ogl("move",0,-.25,-3)
ogl("rotate",45,35,0)
ogl("cuboid",1,1,1)
ogl("show")

whileloop 0, 599, 3

    y = &loop

    whileloop 0, 599, 3

        x = &loop
        ogl("starttest",x,y)
        ogl("clear")
        ogl("move",0,-.25,-3)
        ogl("rotate",45,35,0)
        ogl("SetName", 1)
        ogl("cuboid",1,1,1)
        case ogl("endtest") = 1 : setpixel x,y,0

    endwhile

    settext %hwnd,str$(y/600*100)+"%"

endwhile

var string fle=ReadIni$("Hkey_1","Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders","Desktop")+"\\ogl.testmode.test.png"
var handle hPic = create("hpic",0,"&OGLBMP")
savepic fle, hPic
deleteObject hPic
shellexec(fle,"open",3)
ogl("done")
end