Sorry your browser is not supported!

	If GetRawKeyState(KEY_RIGHT) = 1 						// Moves the player
       posx# = posx# + 230 * GetFrameTime()
    endif 
	
	If GetRawKeyState(KEY_LEFT) = 1 						// Moves the player
       posx# = posx# - 230 * GetFrameTime()
    endif
	SetSpritePositionByOffset(player, posx#  , posy#)

// Project: stutter_cut_down_001 
// Created: 2018-07-13
#CONSTANT KEY_LEFT         37
#CONSTANT KEY_UP           38
#CONSTANT KEY_RIGHT        39
#CONSTANT KEY_DOWN         40
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "stutter_cut_down_001" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 1 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

player = CreateSprite(0)
SetSpriteSize(player, 32, 32)
SetSpriteOffset(player, 16.0, 16.0)
SetSpritePosition(player, 100, 140)
SetSpriteShape(player, 2)

SetPhysicsDebugOn()

 
posx# = GetSpriteXByOffset(player)
posy# = GetSpriteYByOffset(player)
do
    If GetRawKeyState(KEY_RIGHT) = 1 						// Moves the player
       posx# = posx# + 230 * GetFrameTime()
    endif 
	
	If GetRawKeyState(KEY_LEFT) = 1 						// Moves the player
       posx# = posx# - 230 * GetFrameTime()
    endif
	SetSpritePositionByOffset(player, posx#  , posy# )

    Print( ScreenFPS() )
    Print( GetFrameTime())
    Sync()
loop

// show all errors
SetErrorMode(2)


#constant TRUE 		1
#constant FALSE 	0
#constant KEY_ESC	27
#constant KEY_1		49
#constant KEY_2		50

#constant STATE_MAIN	1
#constant STATE_TEST1	2
#constant STATE_TEST2	3

#constant SECONDS_PER_TEST	10

#constant TARGET_FRAME_RATE 120


type TObject
	id as integer
	xp as float
	yp as float
	xv as float
endtype


global state as integer
global startmillis as integer
global stopmillis as integer
global millisPerFrame as float
global FTS as float
global objects as TObject[4]



InitDisplay("Smooth Variable Frame-rate Movement", 1280, 720, 0, TRUE)

// allow display to settle
sleep(500)
sync()
sync()


// calculate millis per frame
i as integer
sync()
startmillis = GetMilliseconds()
for i = 1 to 30
	sync()
next i
stopmillis = GetMilliseconds()
millisPerFrame = (stopmillis - startmillis) / 30.0


state = STATE_MAIN

repeat
	select state
		case STATE_MAIN
			StateMain()
		endcase

		case STATE_TEST1
			StateTest1()
		endcase

		case STATE_TEST2
			StateTest2()
		endcase
	endselect

    Sync()
until GetRawKeyPressed(KEY_ESC)

end



function InitDisplay(title as string, width as integer, height as integer, maxFrameRate as float, fullscreen as integer)
	// set window properties
	SetWindowTitle(title)
	SetWindowSize(width, height, fullscreen)

	// set display properties
	SetVirtualResolution(width, height)
	SetScissor(0,0,0,0)
	UseNewDefaultFonts(TRUE)
	SetVSync(1)
endfunction

function StateMain()
	Print("        1  -  VSync and Variable Frame Time Scale")
	Print("        2  -  VSync and Constant Frame Time Scale")
	print("")
	Print("        Esc to Exit")
	print("")
	print("        Milliseconds per frame: " + str(millisPerFrame))
	
	// Variable Frame Time Scale
	if GetRawKeyPressed(KEY_1)
		ObjectsInit()
		state = STATE_TEST1
		startmillis = GetMilliseconds()

	// Constant Pre-Calculated Time Scale
	elseif GetRawKeyPressed(KEY_2)
		ObjectsInit()
		FTS = TARGET_FRAME_RATE / (1000.0 / millisPerFrame) / TARGET_FRAME_RATE
		startmillis = GetMilliseconds()
		state = STATE_TEST2
	endif
endfunction

function StateTest1()
	Print("        VSync and Variable Frame Time Scale  ...  " +  str(SECONDS_PER_TEST - ((GetMilliseconds() - startmillis) / 1000)))
	FTS = GetFrameTime()
	ObjectsMove()
	
	if (GetMilliseconds() - startmillis) < (SECONDS_PER_TEST * 1000) then exitfunction

	ObjectsHide()
	state = STATE_MAIN
endfunction

function StateTest2()
	Print("        VSync and Constant Frame Time Scale  ...  " +  str(SECONDS_PER_TEST - ((GetMilliseconds() - startmillis) / 1000)))
	ObjectsMove()
	
	if (GetMilliseconds() - startmillis) < (SECONDS_PER_TEST * 1000) then exitfunction

	ObjectsHide()
	state = STATE_MAIN
endfunction

function ObjectsInit()
	i as integer
	
	for i = 0 to 4
		if objects[i].id = 0
			objects[i].id = CreateSprite(0)
		endif
	
		objects[i].xp = 0
		objects[i].yp = i * 144
		objects[i].xv = (i + 1) * 128
		SetSpriteSize(objects[i].id, (i + 1) * 32, (i + 1) * 32)
		SetSpritePosition(objects[i].id, objects[i].xp, objects[i].yp)
		SetSpriteVisible(objects[i].id, TRUE)
		
		select i
			case 0
				SetSpriteColor(objects[i].id, 255,255,255, 255)
			endcase

			case 1
				SetSpriteColor(objects[i].id, 255,0,0, 255)
			endcase

			case 2
				SetSpriteColor(objects[i].id, 0,255,0, 255)
			endcase

			case 3
				SetSpriteColor(objects[i].id, 0,0,255, 255)
			endcase

			case 4
				SetSpriteColor(objects[i].id, 255,255,0, 255)
			endcase
		endselect
	next i
endfunction

function ObjectsHide()
	i as integer
	
	for i = 0 to 4
		if objects[i].id > 0
			SetSpriteVisible(objects[i].id, FALSE)
		endif
	next i
endfunction

function ObjectsMove()
	i as integer

	for i = 0 to 4
		inc objects[i].xp, objects[i].xv * FTS
		if objects[i].xp > 1279
			objects[i].xp = 0 - GetSpriteWidth(objects[i].id)
		endif
		
		SetSpritePosition(objects[i].id, objects[i].xp, objects[i].yp)
	next i
endfunction