Sorry your browser is not supported!

// Project: text 
// Created: 2017-04-22

// show all errors
SetErrorMode(2)

#constant width=1024
#constant height=768

// set window properties
SetWindowTitle( "text" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( width, height ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 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


// This is an integer
var1=1
// This is a string
var2$ = "1"
// This is a float
var3# = 1.00

text1=createtext("Print the integer variable " + str(var1))
text2=createtext("Print the string variable " + var2$)
text3=createtext("Print the float variable " + str(var3#))

SetTextSize(text1,30)
SetTextSize(text2,30)
SetTextSize(text3,30)

framestep#=timer()
do
	var2$=str(screenfps())
	
	settextstring(text1, "Print the integer varibale: " + str(var1))
	settextstring(text2, "Print the string varibale: " + var2$)
	settextstring(text3, "Print the float varibale: " + str(var3#))

	inc var1
	inc var3#

	SetTextPosition(text1,somewherex,somewherey)
    SetTextPosition(text2,somewherex,somewherey+30)
    SetTextPosition(text3,somewherex,somewherey+60)
    
    if timer()-framestep#>2 // Timer for 3 second and then do something 
		framestep#=timer()
		somewherex=random(1,width)
		somewherey=random(1,height)
	endif



    Sync()
loop

SetErrorMode(2)

SetWindowTitle( "AppGameKit Test-01" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 )

SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 )
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 )

CreateText( 999, " " )
SetTextSize(999,25)
SetTextColor(999,0,0,0,255)
SetTextAlignment(999,1)
SetTextPosition(999,1024/2,768/2)
SetTextDepth(999,0)

// Should display white background with black Frames Per Second number in center?
do
    DrawBox( 0, 0, 1024, 768, MakeColor(255, 255, 255), MakeColor(255, 255, 255), MakeColor(255, 255, 255), MakeColor(255, 255, 255), 1 )
	
	SetTextString(999, str(ScreenFPS()))

    Sync()
loop
// All it displays is white background?
// Is FPS text under the white background?

SetErrorMode(2)
 
SetWindowTitle( "AppGameKit Test-01" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 )
 
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 )
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 )
SetClearColor( 255, 255, 255 )

CreateText( 999, " " )
SetTextSize(999,25)
SetTextColor(999,0,0,0,255)
SetTextAlignment(999,1)
SetTextPosition(999,1024/2,768/2)
SetTextDepth(999,0)
 
// Should display white background with black Frames Per Second number in center?
do

	SetTextString(999, str(ScreenFPS()))

	Sync()

loop

SetWindowSize( 1024, 768, 0 )
 
// set display properties
SetVirtualResolution( 1024, 768 )
SetSyncRate( 30, 0 )
 
 box = CreateObjectBox(5,5,5)
 SetObjectColor(box,255,0,0,255)
 
 txt = CreateText("Text in Front")
 SetTextSize(txt,60)
 SetTextAlignment(txt,1)
 SetTextPosition(txt,512,384)
 
do
		
		RotateObjectGlobalY(box,1)
		sync()
	
loop