Sorry your browser is not supported!

// Project: text
// Created: 2019-02-10

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "text" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

CreateText(999999, "???")

tsize#=1
do
	SetTextSize(999999, tsize#)
    
	print(gettextsize(999999))

	if GetRawKeyState(38) then inc tsize#,.1    // Cursor UP
	if GetRawKeyState(40) then dec tsize#,.1  // Cursor Down
	

    Print( ScreenFPS() )
    Sync()
loop

// Project: chiv 
// Created: 2019-02-10

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "chiv" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

msg = CreateText("Meeting Expectations")
SetTextColor(msg,255,255,0,255)


tsize#=16
tup=1
tangle#=-30
do
	SetTextSize(msg, tsize#)
    SetTextAngle(msg,tangle#)
    SetTextPosition(msg,screenwidth/2-tsize#*2,300)
    
    if tup=0 then inc tsize#,.01
    if tup=1 then dec tsize#,.01
    
	if tsize#<16 
		tsize#=16
		tup=0
	endif
	
	if tsize#>20
		tsize#=20
		tup=1
	endif
	

    Print( ScreenFPS() )
    Sync()
loop

// Project: minemenu
// Created: 2019-02-10

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "minemenu" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

msg = CreateText("Click an Option")
SetTextColor(msg,255,255,0,255)


tsize#=16
tup=1
tangle#=-30
do
	SetTextSize(msg, tsize#)
    SetTextAngle(msg,tangle#)
    SetTextPosition(msg,screenwidth/2+100-GetTextTotalWidth(msg)/2,400-GetTextTotalHeight(msg)/2)
    
    if tup=0 then inc tsize#,.03
    if tup=1 then dec tsize#,.03
    
	if tsize#<16 
		tsize#=16
		tup=0
	endif
	
	if tsize#>64
		tsize#=64
		tup=1
	endif
	
	print(GetTextSize(msg))

    Print( ScreenFPS() )
    Sync()
loop

// Project: minemenu
// Created: 2019-02-10

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "minemenu" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

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

msg = CreateText("Click an Option")
SetTextColor(msg,255,255,0,255)


tsize#=16
tup=1
tangle#=-30
do
	SetTextSize(msg, tsize#)
    SetTextAngle(msg,tangle#)
    SetTextPosition(msg,screenwidth/2+100-GetTextTotalWidth(msg)/2,400-GetTextTotalHeight(msg)/2)
    
    if tup=0 then inc tsize#,.03
    if tup=1 then dec tsize#,.03
    
	if tsize#<16 
		tsize#=16
		tup=0
	endif
	
	if tsize#>64
		tsize#=64
		tup=1
	endif
	
	print(GetTextSize(msg))

    Print( ScreenFPS() )
    Sync()
loop