Sorry your browser is not supported!

Global DeviceName$

Global SBL, SBT, SBR, SBB // SCREEN BOARDER VARIABLES

Global DW, DH  // DEVICE WIDTH AND HEIGHT VARIABLES
Global DDPI

SBL = GetScreenBoundsLeft()   // LEFT BOARDER
SBT = GetScreenBoundsTop()    // TOP BOARDER
SBR = GetScreenBoundsRight()  // RIGHT BOARDER
SBB = GetScreenBoundsBottom()  // BOTTOM BOARDER

DW = GetDeviceWidth()
DH = GetDeviceHeight()

DDPI = GetDeviceDPI()

DeviceName$ = GetDeviceBaseName()

do
    
	DeviceMenuSize()
    Print(DeviceName$)
    
	Print( ScreenFPS() )
    Sync()
loop


Function DeviceMenuSize()
	
	If DeviceName$ = "iPhone" Or "android"
		
		    DrawBox(SBL, SBT, SBR, SBB, MakeColor(10, 0, 150),	 MakeColor(10, 0, 150), MakeColor(10, 0, 150), MakeColor(10, 0, 150), 1)
		Else
			DrawBox(SBL - 50, SBT - 50, SBR - 50, SBB- 50, MakeColor(10, 0, 150),	 MakeColor(10, 0, 150), MakeColor(10, 0, 150), MakeColor(10, 0, 150), 1)
	
	Endif		

EndFunction

 If DeviceName$ = "iPhone" Or DeviceName$ = "android"

Function IsDeviceType(a$, b$, c$) 
	x$ = GetDeviceBaseName()
	if (a$ = x$) or (b$ = x$) or (c$ = x$)
		ExitFunction 1
	endif
EndFunction 0
 
if IsDeviceType("ios", "android", "")
	SetVirtualResolution(960, 540)
elseif IsDeviceType("windows", "mac", "linux")
	SetWindowSize(1024, 768, 0)
	SetVirtualResolution(1024, 768)
elseif IsDeviceType("html5", "", "")
	SetVirtualResolution(800, 600)
endif

function SetScreen()
	select GetDeviceBaseName()
		case "ios", "android"
			SetVirtualResolution(960, 540)
		endcase
		case "windows", "mac", "linux"
			SetVirtualResolution(1024, 768)
			SetWindowSize(1024, 768, 0)
		endcase
		case "html5"
			SetVirtualResolution(800, 600)
		endcase
	endselect
endfunction