XProfan

 {$cleq}
 {$res noversioninfo,nomanifest,icon if.ico}
const framesPerSecond=60
#include oglhelper.inc
#include fps.class
set(Decimals,0)
ogl.window(ogltest7,false,maxx,maxy,$00FFFFFF,1,false,true,framesPerSecond)

ifnot ogl.vsync(true) {

    messagebox cant init vsync,,0
    ogl.done

}

float realFps=framesPerSecond
var myFPS=new(FPS,realFps)
long sleeper

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.2dnow
    ogl.color(rnd($00FFFFFF),$40)
    ogl.2drotate(maxx/2,maxy/2,gettickcount,0,0)
    ogl.rectangle(rnd(maxx),rnd(maxy),rnd(maxx),rnd(maxy),true)
    ogl.show
    case umessage==wm_close:break

}

ogl.done
dispose myFPS
end