Got it working, thanks - code is below:
// "main.agc"...
remstart
-----------------------------------------------------------------------------------
JeZxLee's
_ _ ____ _ _ _ _ _ _ _____ _ _ ___ _ ___ _ TM
( | ) _ \(_)_ _____| | / \ _ __| |_(_)___| |_ |___ / / / |/ _ (_)/ ( | )
V V| |_) | \ \/ / _ \ | / _ \ | '__| __| / __| __| |_ \ | | | | | |/ / V V
| __/| |> < __/ | / ___ \| | | |_| \__ \ |_ ___) | | | | |_| / /_
|_| |_/_/\_\___|_| /_/ \_\_| \__|_|___/\__| |____/ |_|_|\___/_/(_)
Google Android SmartPhones/Tablets & HTML5 Desktop/Notebook Internet Browsers
(C)opyright 2017, By Team "www.16BitSoft.com"
-----------------------------------------------------------------------------------
remend
#include "visuals.agc"
SetErrorMode(2)
global ScreenWidth = 504
global ScreenHeight = 896
global CurrentMinTextIndex = 1
SetWindowTitle( "Pixel Artist 3 110%[TM]" )
SetWindowSize( ScreenWidth, ScreenHeight, 0 )
SetWindowAllowResize( 1 )
SetScreenResolution( ScreenWidth, ScreenHeight )
SetVirtualResolution( ScreenWidth, ScreenHeight )
SetOrientationAllowed( 1, 0, 0, 0 )
SetSyncRate( 30, 0 )
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 )
LoadFont( 999, "\media\fonts\Akashi.ttf" )
LoadImage ( 1, "\media\images\Test-BG.png" )
TestBG = CreateSprite ( 1 )
CreateAndInitializeOutlinedText(1, " ", 999, 80, 255, 255, 255, 255, 0, 0, 0, 1, ScreenWidth/2, ScreenHeight/2, 0)
LoadMusicOGG( 1, "\media\music\Title-01.ogg" )
PlayMusicOGG( 1, 1 )
do
SetTextStringOutlined ( 1, str(ScreenFPS()) )
Render2DFront()
Sync()
loop// "visuals.agc"...
function ClearScreenWithColor ( red as integer, green as integer, blue as integer )
SetClearColor( red, green, blue )
ClearScreen()
endfunction
//------------------------------------------------------------------------------------------------------------
function CreateAndInitializeOutlinedText (index as integer, text as string, font as integer, size as integer, red as integer, green as integer, blue as integer, alpha as integer, outRed as integer, outGreen as integer, outBlue as integer, horizontalJustification as integer, screenX as integer, screenY as integer, depth as integer )
if CurrentMinTextIndex > index
index = CurrentMinTextIndex
CurrentMinTextIndex = 9 + index
endif
outlineIndex = 1
for posX = -3 to 3 step 3
for posY = -3 to 3 step 3
CreateText( index+outlineIndex, text )
SetTextFont( index+outlineIndex, font )
SetTextSize(index+outlineIndex, size)
SetTextColor(index+outlineIndex, outRed, outGreen, outBlue, alpha)
SetTextAlignment(index+outlineIndex, horizontalJustification)
SetTextPosition(index+outlineIndex, screenX+posX, screenY+posY)
SetTextDepth(index+outlineIndex, depth)
inc outlineIndex, 1
next posY
next posX
CreateText( index, text )
SetTextFont( index, font )
SetTextSize(index, size)
SetTextColor(index, red, green, blue, alpha)
SetTextAlignment(index, horizontalJustification)
SetTextPosition(index, screenX, screenY)
SetTextDepth(index, depth)
endfunction index
//------------------------------------------------------------------------------------------------------------
function SetTextStringOutlined (index as integer, textString as string)
for textIndex = index to (index+9)
SetTextString ( textIndex, textString )
next textIndex
endfunction
