Sorry your browser is not supported!

rem
rem AGK Application 1.08 19
rem Frame Impact Chart

//bei 50-60 gibt es einbrüche am tablet
//40 wird beibehalten
setsyncrate(60,0)
//setsyncrate(40,0)
//setsyncrate(45,0) //zuviel
//setsyncrate(42,0) //so eben
//SetVSync(1) // wäre 60 fps

setorientationallowed(0,0,1,0)

TestFPS()
end

function TestFPS()

    dim FPS[200] as float

    t#=timer()

    i=0
    do

        if getpointerpressed()=1
            exit
        endif

        FPS[i]=screenfps()

        i=i+1
        if i>200 then i=0

        print("FPS")
        print(screenfps())

        print("Frame Time")
        print(getframetime())

        for in=0 to 200
            v#=FPS[in]
            x#=in
            x#=x#/2.0
        drawline(x#,100.0,x#,100.0-v#,255,255,255)
        next

        Sync()
    loop

endfunction

t# = Timer()
do

    if  Timer() >t#  + 1.0
        spr = CreateSprite(0)
        SetSpriteSize(spr,10,-1)
        SetSpritePosition(spr,random(0,90),0)
        SetSpritePhysicsOn(spr,2)
        t# = Timer()
    endif
    sync()
loop