XProfan

//Version:0.0.3
 {$cleq}
 {$res noversioninfo,nomanifest,icon if.ico}
const framesPerSecond=60
#include oglhelper.inc
#include fps.class
set(Decimals,0)
windowstyle 112
window 0,0 - maxx,maxy
long hPic=create(hPic,0,&DSKBMP)
ogl.window(ogltest7,true,maxx,maxy,$00FFFFFF,1,false,true,framesPerSecond)

ifnot ogl.vsync(true) {

    messagebox cant init vsync,,0
    ogl.done

}

float realFps=framesPerSecond,rx,ry,t
long sleeper,hPicTex=oGL(GetTextureBMP,hPic,3)
var myFPS=new(FPS,realFps)
ogl.noLight

do {

    realFps=myFPS::frame()
    case realFPS>framesPerSecond : sleeper=sleeper+realFps
    settext hwnd,str$(realFPS)+ FPS, +str$(sleeper)+ SLP

    if (realFPS<framesPerSecond) and (sleeper<1000) {

        messagebox machine to slow,,0
        break

    }

    whileloop sleeper{}

    ogl.clear
    ogl.2dnow
    t=rx
    rx=(maxx-mousex*2)/maxx*90
    rx=(rx*0.1)+(t*0.9)
    t=ry
    ry=(maxy-mousey*2)/maxy*90
    ry=(ry*0.1)+(t*0.9)
    ogl.2drotate(maxx/2,maxy/2,0,rx*0.5,ry*0.5)
    ogl(texture,hPicTex,1)
    ogl.rectangle(0-mousex,0-mousey,0-mousex+maxx*2,0-mousey+maxy*2,true)
    ogl.show
    case (umessage==wm_close) or (iskey(27)) or (mousepressed) :break

}

ogl.done
dispose myFPS
='./../../function-references/XProfan/end/'>end