// Project: TerrainBuilder
// Created: 2017-04-20
// show all errors
SetErrorMode(2)
// set window properties
SetWindowTitle( "TerrainBuilder" )
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( 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
c=MakeColor(255,255,255)
swap()
drawbox(0,0,40,100,c,c,c,c,1)
render()
mouse=createsprite(getimage(0,0,10,40))
sizex#=GetSpriteWidth(mouse) * 4
sizey#=GetSpriteheight(mouse)/4
do
SetSpritePosition(mouse,getpointerx(), getpointery())
c=MakeColor(255,255,255)
x=getpointerx()
y=getpointery()+GetSpriteHeight(mouse)
DrawEllipse(x,y, sizex# , sizey#,c,c,0)
Print( ScreenFPS() )
Sync()
loop
