Sorry your browser is not supported!

SetErrorMode(2)

SetWindowPosition(GetMaxDeviceWidth()/2-GetDeviceWidth()/2,GetMaxDeviceHeight()/2-GetDeviceHeight()/2)

local dx as integer
local dy as integer
local mx as integer
local my as integer


while GetRawKeyPressed(27)=0
	
	dx=GetDeviceWidth()
	dy=GetDeviceHeight()
	
	SetScreenResolution(dx,dy)
	SetVirtualResolution(dx,dy)
	
	mx=20 //GetPointerX()-20
	my=20 //GetPointerY()-20
	
	drawline( mx,my, mx,my, -1,-1)
	
	drawline( mx-3,my, mx-8,my, -1,-1)
	drawline( mx+3,my, mx+8,my, -1,-1)
	
	drawline( mx,my-3, mx,my-8, -1,-1)
	drawline( mx,my+3, mx,my+8, -1,-1)
	
	sync()
endwhile

SetErrorMode(2)

SetWindowPosition(GetMaxDeviceWidth()/2-GetDeviceWidth()/2,GetMaxDeviceHeight()/2-GetDeviceHeight()/2)

local dx as integer
local dy as integer
local mx as integer
local my as integer


while GetRawKeyPressed(27)=0
	
	dx=GetDeviceWidth()
	dy=GetDeviceHeight()
	
	SetScreenResolution(dx,dy)
	SetVirtualResolution(dx,dy)
	
	mx=20 //GetPointerX()-20
	my=20 //GetPointerY()-20
	
	drawline( mx,my, mx,my, -1,-1)
	
	drawline( mx-3,my, mx-8,my, -1,-1)
	drawline( mx+3,my, mx+8,my, -1,-1)
	
	drawline( mx,my-3, mx,my-8, -1,-1)
	drawline( mx,my+3, mx,my+8, -1,-1)
	
	sync()
endwhile

SetErrorMode(2)

SetWindowPosition(GetMaxDeviceWidth()/2-GetDeviceWidth()/2,GetMaxDeviceHeight()/2-GetDeviceHeight()/2)

local dx as integer
local dy as integer
local count as float


while GetRawKeyPressed(27)=0
	
	dx=GetDeviceWidth()
	dy=GetDeviceHeight()
	
	SetScreenResolution(dx,dy)
	SetVirtualResolution(dx,dy)
	
	for count=0 to 359.9 step 0.1
		
		drawline( 50+cos(count)*30,50+sin(count)*30, 50+cos(count)*40,50+sin(count)*40, -1,-1 )
	next
	
	sync()
endwhile

    mx=20 //GetPointerX()-20
    my=20 //GetPointerY()-20
     
    drawline( mx,my, mx,my, -1,-1)
     
    drawline( mx-3,my, mx-8,my, -1,-1)
    drawline( mx+3,my, mx+8,my, -1,-1)
     
    drawline( mx,my-3, mx,my-8, -1,-1)
    drawline( mx,my+3, mx,my+8, -1,-1)

SetErrorMode(2)
 
SetWindowPosition(GetMaxDeviceWidth()/2-GetDeviceWidth()/2,GetMaxDeviceHeight()/2-GetDeviceHeight()/2)
 
local dx# as float
local dy# as float
local count as float
 
 
while GetRawKeyPressed(27)=0
     
    dx#=GetDeviceWidth()
    dy#=GetDeviceHeight()
     
    SetScreenResolution(dx#,dy#)
    SetVirtualResolution(dx#,dy#)
     
    for count#=0 to 359.9 step 0.1
         
        drawline( 50+cos(count#)*30,50+sin(count#)*30, 50+cos(count#)*40,50+sin(count#)*40, -1,-1 )
    next
     
    sync()
endwhile

// Project: Test01
// Created: 2017-04-19

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Test01" )
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

SetWindowPosition(GetMaxDeviceWidth()/2-GetDeviceWidth()/2,GetMaxDeviceHeight()/2-GetDeviceHeight()/2)

count as float

while GetRawKeyPressed(27)=0

	for count=0.0 to 359.9 step 0.1
		drawline( 50.0+cos(count)*30.0,50.0+sin(count)*30.0, 50.0+cos(count)*40.0,50.0+sin(count)*40.0, -1,-1 )
	next

	Sync()

endwhile