//	Project: Sky Box Example
//	Created: 18-05-19
//
//	show all errors
//	Useful Colour Picker : https://www.w3schools.com/colors/colors_picker.asp

SetErrorMode(2)

screenWidth As Float
screenHeight As Float
screenAspect As Float

screenWidth = GetDeviceWidth()
screenHeight = GetDeviceHeight()

// set window properties
SetWindowTitle("Sky Box Example")
SetOrientationAllowed(0, 0, 1, 1) // allow both portrait and landscape on mobile devices
SetWindowSize(screenWidth, screenHeight, 0, 0)
SetWindowAllowResize(1) // allow the user to resize the window

// set display properties
SetVirtualResolution(screenWidth, screenHeight) // doesn't have to match the window
SetSyncRate(25, 0) // 30fps instead of 60 to save battery
SetScissor(0, 0, 0, 0) // use the maximum available screen space, no black borders
//UseNewDefaultFonts(1)

//	Set the Sky's colour using Red/Green/Blue colour components
SetSkyBoxSkyColor(77,121,255)

//	Set the horizontal colour size
SetSkyBoxHorizonSize(1,0)

//	Set the Horizon and ground colour using Red/Green/Blue colour components
SetSkyBoxHorizonColor(0,128,0)

//	Switch the Skybox visibility on
SetSkyBoxVisible(1)

CreateObjectBox(1, 1, 1, 1)
SetObjectColor(1, 255, 0, 0, 0)
SetCameraPosition(1, 0, 0, -3)
SetCameraLookAt(1, 0, 0, 0, 0)

camX As Float
camY As Float
camZ As Float
dist As Float = 2.5
angle As Float = 180

do
	//	Calculate the rotation position of the camera
	camX = Sin(angle) * dist	//	Create a circular distance along the X axis
	camY = Sin(angle*3)*2		//	Create a wavey motion along the Y axis
	camZ = Cos(angle) * dist	//	Create a circular distance along the Z axis

	SetCameraPosition(1, camX, camY, camZ)
	SetCameraLookAt(1, 0, 0, 0, 0)
	
	angle = angle + 1

	Sync()
loop