Sorry your browser is not supported!

// Project: 3D-Engine - by Programming is Ace
// Created: 2017-04-15

// show all errors
SetErrorMode(2)

#constant width=GetDeviceWidth()
#constant height=GetDeviceHeight()

// set window properties
SetWindowTitle( "3D-Engine" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( width, height ) // 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

global textsizes#=14

type _objects
	id as integer
	x# as float
	y# as float
	z# as float
	r# as float
	colr# as float
	colg# as float
	colb# as float
	cola# as float
endtype
global objects as _objects[100]
global currentobject=0
global maxobjects=0

plane=CreateObjectPlane(20,20)

img=create_wireframe()



SetObjectImage(plane,create_wireframe(),0)


cameraimagex = CreateObjectCone(.3,.3,30)
cameraimagey = CreateObjectCone(.3,.3,30)
cameraimagez = CreateObjectCone(.3,.3,30)


x#=0
y#=0
z#=0
cx#=0
cy#=0
cz#=-20
cstep#=.5

// Camera Rotations
rx#=90
ry#=0
rz#=90

planetext=CreateText("")
SetTextSize(planetext,textsizes#)
FPStext=createtext("FPS:")
SetTextSize(FPStext,textsizes#)

global infotext as integer[10]

for a=1 to 10
	infotext[a]=createtext("")
	SetTextSize(infotext[a],14)
next
SetTextString(infotext[1], "Press 'Z' and cursors to change Z")
SetTextString(infotext[2], "Press 'X' and cursors to change X")
SetTextString(infotext[3], "Press 'Y' and cursors to change Y")
SetTextString(infotext[4], "Press 'C' and cursors to camera view")
SetTextString(infotext[5], "Press 'R' and cursors to rotate plane")
SetTextString(infotext[6], "Press '1' and cursors to Box")
SetTextString(infotext[7], "Press '2' and cursors to Sphere/Ball")
SetTextString(infotext[8], "Press '3' and cursors to Cylindar")
SetTextString(infotext[9], "Press '4' and cursors to Cone")
SetTextString(infotext[10], "Press cursors on there own will move the new objects placed")



mouse=CreateObjectBox(.01,.01,.01)


do

	SetObjectPosition(mouse, 0,.5,0)

//	SetObjectPosition(plane, x#,y#,z#)
	SetObjectPosition(plane, x#,y#,z#)
	SetObjectRotation(plane, rx#,ry#,rz#)

	SetCameraPosition(1,cx#,cy#+5,cz#)
	SetCameraRotation(1,rx#-90,ry#,rz#-90)
	
	SetObjectPosition(cameraimagex, cx#,cy#,cz#)
	SetObjectRotation(cameraimagex, cx#, cy#, cz#)
	
	SetObjectPosition(cameraimagey, cx#,cy#,cz#)
	SetObjectRotation(cameraimagey, cx#, cy#, cz#)

	SetObjectPosition(cameraimagez, cx#,cy#,cz#)
	SetObjectRotation(cameraimagez, cx#, cy#, cz#)

	
	
	
	
	// Display objects if created any
	if maxobjects>0
		for a=0 to maxobjects-1		
			SetObjectPosition(objects[a].id,objects[a].x#, objects[a].y#, objects[a].z#)
	
			old_x# = GetObjectX(objects[0].id)
        old_y# = GetObjectY(objects[0].id)
        old_z# = GetObjectZ(objects[0].id)
        new_x# = GetObjectX(objects[a].id)
        new_y# = GetObjectY(objects[a].id)
        new_z# = GetObjectZ(objects[a].id)

        object_hit = ObjectRayCast(a,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#)

        // if either of the boxes have been hit then position the blue sphere at the collision point
        if object_hit <> 0
                setObjectPosition(a,GetObjectRayCastX(1),GetObjectRayCastY(1),GetObjectRayCastZ(1))
				SetObjectColor(objects[a].id,100,0,0,255)

        endif
	


		if GetRawKeyState(37) // << Normal Left
			dec objects[maxobjects-1].x#, 0.1
			
			endif
		
		

		if GetRawKeyState(38) // << Normal UP
			inc objects[maxobjects-1].z#, 0.1
			
			endif
		
		
		if GetRawKeyState(39) // << Normal UP
			inc objects[maxobjects-1].x#, 0.1
			
			endif

		if GetRawKeyState(40) // << Normal UP
			dec objects[maxobjects-1].z#, 0.1
			
			endif

		
		next




	endif
	
	
	
	
	/*if GetSpriteCollision(mouse,plane) and GetRawMouseLeftPressed()
	
		x#=width/2 - getpointerx()
		y#=height/2 - getpointery()
	
		SetObjectColor(plane,100,0,0,255)
		
	else
		if GetRawMouseLeftReleased() then SetObjectColor(plane,255,255,255,255)
		
	endif
	
	*/
	
	

	
	keypressed$=""
	
	if GetRawKeyPressed(49) then sys_createobject(maxobjects,1,0,0.5,0,1,1,1) // 1 - BOX/CUBE
	if GetRawKeyPressed(50) then sys_createobject(maxobjects,2,0,0.5,0,1,50,50) // 1 - Sphere / Ball
	if GetRawKeyPressed(51) then sys_createobject(maxobjects,3,0,0.5,0,1,1,50) // 1 - Cylinder
	if GetRawKeyPressed(52) then sys_createobject(maxobjects,4,0,0.5,0,1,1,50) // 1 - CONE
		
		
		

	if GetRawKeyState(187) // zoom in "-"
		cy#=cy#-.5
		cz#=cz#+.5
		
	endif
	if GetRawKeyState(189) // zoom out "+"
		cy#=cy#+.5
		cz#=cz#-.5
		
	endif

	
	if GetRawKeyState(67) // C - Camera
		keypressed$="c"
	endif
	if GetRawKeyState(82) // R - Rotate Camera
		keypressed$="r"
	endif
	if GetRawKeyState(88) // X
		keypressed$="x"
	endif

	if GetRawKeyState(89) // X
		keypressed$="y"
	endif

	if GetRawKeyState(90) // Z
		keypressed$="z"
	endif
	
	
	

	if keypressed$="c" 
		
		if GetRawKeyState(37)
			dec cx#,cstep#
		endif
		if GetRawKeystate(39)
			inc cx#,cstep#
		endif
		if GetRawKeystate(38)
			inc cy#,cstep#
		endif
		if GetRawKeystate(40)
			dec cy#,cstep#
		endif

	endif

	if keypressed$="r" 
		
		if GetRawKeyState(37)
			dec rx#,cstep#
			dec rz#,cstep#
		endif
		if GetRawKeystate(39)
			inc rx#,cstep#
			inc rz#,cstep#
		endif
		if GetRawKeystate(38)
			inc rz#,cstep#
			inc ry#,cstep#
		endif
		if GetRawKeystate(40)
			dec rz#,cstep#
			dec ry#,cstep#
		
		endif
		

	endif

		
	if keypressed$="x" 
		if GetRawKeyState(37)
			dec cx#,cstep#
		endif
		if GetRawKeystate(39)
			inc cx#,cstep#
		endif
	endif

	if keypressed$="z" 
		if GetRawKeyState(37)
			dec cz#,cstep#
		endif
		if GetRawKeystate(39)
			inc cz#,cstep#
		endif
	endif
	if keypressed$="y" 
		if GetRawKeyState(37)
			dec cy#,cstep#
		endif
		if GetRawKeystate(39)
			inc cy#,cstep#
		endif
	endif

	
    
    SetTextString(planetext,"Plane: X=" + str(x#) + " Y=" +str(y#) + " Z=" +str(z#))
	SetTextPosition(planetext, 10,10)
	SetTextString(fpstext, "FPS-" + str(screenfps()) + " Key-" + str(GetRawLastKey()) + " Max Objects: " + str(maxobjects))
	SetTextPosition(fpstext,width-GetTextTotalWidth(fpstext)-10,10)

	for a=1 to 10
		SetTextPosition(infotext[a],10, 40+ (a*GetTextTotalHeight(infotext[a])))
		
	next
	
	
	
    Sync()
loop


function sys_createobject(obj,model, objx#, objy#, objz#, sizex#, sizey#, sizez#)
	
	
	select model
		case 1: //Box
			objects[obj].id=CreateObjectBox(sizex#,sizey#,sizez#)
		endcase
		case 2: //Sphere
			objects[obj].id=CreateObjectSphere(sizex#,sizey#,sizez#)
		endcase
		case 3: //Cylinder
			objects[obj].id=CreateObjectCylinder(sizex#,sizey#,sizez#)
		endcase
		case 4: //Cone
			objects[obj].id=CreateObjectCone(sizex#,sizey#,sizez#)
		endcase
	endselect
	objects[obj].x#=objx#
	objects[obj].y#=objy#
	objects[obj].z#=objz#
	objects[obj].r#=0
	objects[obj].colr#=100
	objects[obj].colg#=100
	objects[obj].colb#=100
	objects[obj].cola#=255
	SetObjectCollisionMode(objects[obj].id,1)
	

	inc currentobject
	inc maxobjects
	
	
	
endfunction
function create_wireframe()
	
	swap()
	white=MakeColor(100,100,100)
	for wx=1 to 100 step 2
		DrawLine((wx),0,(wx),100,white,white)
		DrawLine(0,(wx),100,(wx), white, white)
	next
	render()
	s=GetImage(0,0,100,100)

endfunction s

// Project: 3D-Engine - by Programming is Ace
// Created: 2017-04-15

// show all errors
SetErrorMode(2)

#constant width=GetDeviceWidth()
#constant height=GetDeviceHeight()

// set window properties
SetWindowTitle( "3D-Engine" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( width, height ) // 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

#constant textsizes#=14


// Buttons
type _buttons
	ID as integer
	name as string
	x# as float
	y# as float
	sizex# as float
	sizey# as float
	checkbox as integer
	color as integer
endtype
global buttons as _buttons[50]



// Game Objects
type _objects
	id as integer
	x# as float
	y# as float
	z# as float
	rx# as float
	ry# as float
	rz# as float
	transformrx# as float
	transformry# as float
	transformrz# as float
	
	colr# as float
	colg# as float
	colb# as float
	cola# as float
endtype
global objects as _objects[2000]
global currentobject=0
global maxobjects=0

// 3D World coordinates
global x#, y#, z#, cx#, cy#, cz#, rx#, ry#, rz#, crx#, cry#, crz#, cstep#, perspective=1
global oldx#, oldy#, oldz#, oldcx#, oldcy#, oldcz#, oldrx#, oldry#, oldrz#, oldcrx#, oldcry#, oldcrz#


// Sky box ints
global plane, planeleft, planeright, planefront, planeback,planetop
global worldsizex#=100
global worldsizey#=100

// Setup world
createworld(worldsizex#,worldsizey#)


// setup variables


planetext=CreateText("")
SetTextSize(planetext,textsizes#)
FPStext=createtext("FPS:")
SetTextSize(FPStext,textsizes#)

global infotext as integer[14]

for a=1 to infotext.length
	infotext[a]=createtext("")
	SetTextSize(infotext[a],14)
next
SetTextString(infotext[1], "Press 'Z' and cursors to change Z")
SetTextString(infotext[2], "Press 'X' and cursors to change X")
SetTextString(infotext[3], "Press 'Y' and cursors to change Y")
SetTextString(infotext[4], "Press 'C' and cursors to camera view")
SetTextString(infotext[5], "Press 'R' and cursors to rotate plane")
SetTextString(infotext[6], "Press 'T' to flip between Top Down / Perspective View")
SetTextString(infotext[7], "Press '1' to add a standard box and cursors to move")
SetTextString(infotext[8], "Press '2' to add a standard ball and cursors to move")
SetTextString(infotext[9], "Press '3' to add a standard Cylinder and cursors to move")
SetTextString(infotext[10], "Press '4' to add a standard Cone and cursors to move")
SetTextString(infotext[11], "Press 'A' add 1000 over the plane")
SetTextString(infotext[12], "Press 'Z' to add a transform effect on each object")
SetTextString(infotext[13], "Press cursors on there own will move the new objects placed")
SetTextString(infotext[14], "Press 'Q' to Exit")


setup3dfield(1) // First create the field world coordinates
			perspectivestring$="Perspective"

mouse=CreateObjectBox(.01,.01,.01)


do
	// Display UI
	sys_buildbutton(1,"Perspective"   ,30,30,150,60,MakeColor(100,100,100))
	sys_buildbutton(2,"Add a Cube"    ,30,60,150,100,MakeColor(100,100,100))
	sys_buildbutton(3,"Add a Ball"    ,30,100,150,140,MakeColor(100,100,100))
	sys_buildbutton(4,"Add a Cone"    ,30,140,150,180,MakeColor(100,100,100))
	sys_buildbutton(5,"Add a Cylinder",30,180,150,220,MakeColor(100,100,100))
	

	SetObjectPosition(mouse, 0,.5,0)
	SetObjectPosition(plane, x#,y#,z#)
	SetObjectRotation(plane, rx#,ry#,rz#)

// Skybox
/*
	SetObjectPosition(planetop, x#,y#+worldsizey#/2,z#-worldsizey#/2)
	SetObjectRotation(planetop, rx#-180,ry#-270,rz#)
	SetObjectPosition(planeleft, x#-worldsizey#,y#,z#-worldsizey#)
	SetObjectRotation(planeleft, rx#-90,ry#-270,rz#-90)
	SetObjectPosition(planeright, x#+worldsizey#,y#,z#-worldsizey#)
	SetObjectRotation(planeright, rx#-90,ry#-270,rz#-90)
	SetObjectPosition(planefront, x#,y#+5,z#+10)
	SetObjectRotation(planefront, rx#-90,ry#,rz#-90)
	SetObjectPosition(planeback, x#,y#+5,z#-10)
	SetObjectRotation(planeback, rx#-90,ry#,rz#-90)
*/

	
	// Display objects if created any
	if maxobjects>0
		for a=0 to maxobjects-1		
			SetObjectPosition(objects[a].id,objects[a].x#, objects[a].y#, objects[a].z#)
			SetObjectRotation(objects[a].id,objects[a].rx#, objects[a].ry#, objects[a].rz#)
			SetObjectColor(objects[a].id, objects[a].colr#, objects[a].colg#, objects[a].colb#, objects[a].cola#)
			

			if GetRawKeyPressed(77) // M- to setup a transform to each object
				objects[a].transformrx#=random2(-90,90) / 10
				objects[a].transformry#=random2(-90,90) / 10
				objects[a].transformrz#=random2(-90,90) / 10
			endif

//Play the transforms
			if objects[a].transformrx#<>0 or objects[a].transformry#<>0 or objects[a].transformrz# <> 0 then settransforms(a, objects[a].transformrx#,objects[a].transformry#,objects[a].transformrz#)
		next
	endif

	// Check mouse collisons with the buttons on the system if nothing else is pressed (camera key / rotation key)
	if perspectivestring$="Perspective"
		if GetRawKeyState(37) then dec objects[maxobjects-1].x#, 0.1
		if GetRawKeyState(38) then inc objects[maxobjects-1].z#, 0.1
		if GetRawKeyState(39) then inc objects[maxobjects-1].x#, 0.1
		if GetRawKeyState(40) then dec objects[maxobjects-1].z#, 0.1
	else
		if GetRawKeyState(37) then dec objects[maxobjects-1].y#, 0.1
		if GetRawKeyState(38) then dec objects[maxobjects-1].x#, 0.1
		if GetRawKeyState(39) then inc objects[maxobjects-1].y#, 0.1
		if GetRawKeyState(40) then inc objects[maxobjects-1].x#, 0.1
	endif


	
	keypressed$=""
	if GetRawKeyPressed(65) // A - Add a few objects
		for l=maxobjects to 1000
			sys_createobject(l,1,random2(-50,50),2,random2(-50,50),1,1,1) // 1 - Sphere / Ball
		next
	endif
	if GetRawKeyPressed(49) then sys_createobject(maxobjects,1,0,2,0,4,4,4) // 1 - BOX/CUBE
	if GetRawKeyPressed(50) then sys_createobject(maxobjects,2,0,2,0,4,50,50) // 2 - Sphere / Ball
	if GetRawKeyPressed(51) then sys_createobject(maxobjects,3,0,2,0,4,4,50) // 3 - Cylinder
	if GetRawKeyPressed(52) then sys_createobject(maxobjects,4,0,2,0,4,4,50) // 4 - CONE


	if GetRawKeyPressed(84) // T = Top Down View Toggler
		
		if perspective=2 
			setup3dfield(3)
			perspectivestring$="Top down"
		else
			setup3dfield(2)
			perspectivestring$="Perspective"
		endif
	endif
	
		
	
	if GetRawKeyState(187) // zoom in "-"
//		cy#=cy#-cstep#
		cz#=cz#+cstep#*2
		
	endif
	if GetRawKeyState(189) // zoom out "+"
	//	cy#=cy#+cstep#
		cz#=cz#-cstep#*2
		
	endif

	if GetRawKeyPressed(81) // Q - Quit
		exit
	endif
	
	
	if GetRawKeyState(67) // C - Camera
		keypressed$="c"
	endif
	if GetRawKeyState(82) // R - Rotate Camera
		keypressed$="r"
	endif
	if GetRawKeyState(88) // X
		keypressed$="x"
	endif

	if GetRawKeyState(89) // X
		keypressed$="y"
	endif

	if GetRawKeyState(90) // Z
		keypressed$="z"
	endif
	
	if keypressed$="c" 
		
		if GetRawKeyState(37)
			dec cx#,cstep#
		endif
		if GetRawKeystate(39)
			inc cx#,cstep#
		endif
		if GetRawKeystate(38)
			inc cy#,cstep#
		endif
		if GetRawKeystate(40)
			dec cy#,cstep#
		endif
		SetCameraLookAt(1,cx#,cy#+5,cz#,0)

	endif

	if keypressed$="r" 
		
		if GetRawKeyState(37)
			dec crx#,cstep#
			dec crz#,cstep#
		endif
		if GetRawKeystate(39)
			inc crx#,cstep#
			inc crz#,cstep#
		endif
		if GetRawKeystate(38)
			inc crz#,cstep#
			inc cry#,cstep#
		endif
		if GetRawKeystate(40)
			dec crz#,cstep#
			dec cry#,cstep#
		
		endif
		

	endif

		
	if keypressed$="x" 
		if GetRawKeyState(37)
			dec cx#,cstep#
		endif
		if GetRawKeystate(39)
			inc cx#,cstep#
		endif
	endif

	if keypressed$="z" 
		if GetRawKeyState(38)
			dec cz#,cstep#
		endif
		if GetRawKeystate(40)
			inc cz#,cstep#
		endif
	endif
	if keypressed$="y" 
		if GetRawKeyState(38)
			dec cy#,cstep#
		endif
		if GetRawKeystate(40)
			inc cy#,cstep#
		endif
	endif



	SetCameraPosition(1,cx#,cy#+5,cz#)
	SetCameraRotation(1,crx#,cry#,crz#)
//	
	
	
    
    SetTextString(planetext,"Plane: X=" + str(x#) + " Y=" +str(y#) + " Z=" +str(z#) + "               Camera X=" + str(cx#) + " Y=" + str(cy#)+" Z=" + str(cz#) + "               Rotation X=" + str(crx#) + " Y=" + str(cry#) + " Z=" + str(cz#) + "              Perspective=" + perspectivestring$)
	SetTextPosition(planetext, 10,10)
	SetTextString(fpstext, "FPS-" + str(screenfps()) + " Key-" + str(GetRawLastKey()) + " Max Objects: " + str(maxobjects))
	SetTextPosition(fpstext,width-GetTextTotalWidth(fpstext)-10,10)

	for a=1 to infotext.length
		SetTextPosition(infotext[a],10, 400+ (a*GetTextTotalHeight(infotext[a])))
		
	next
	
	
	Render2DFront()
    Sync()
loop

function sys_buildbutton(id, name$, x#, y#, sizex#, sizey#, color)
	
	if GetTextExists(buttons[id].id)=0 then buttons[id].id=createtext(name$)
	settextsize	(buttons[id].id,textsizes#)
	

	DrawBox(x#,y#,sizex#,sizey#,color<<2,color<<2,color,color,1)


	SetTextPosition(buttons[id].id,(x#+(sizex#/2)-(GetTextTotalWidth(buttons[id].id))/2),y#+10)
	
	
	
	
//	(y#+(sizey#/2)-(GetTextTotalHeight(buttons[id].id])/2)))
	
	
endfunction


function settransforms(obj, trx#, try#, trz#)
	inc objects[obj].rx#, trx#
	inc objects[obj].ry#, try#
	inc objects[obj].rz#, trz#
	
	
endfunction


function sys_createobject(obj,model, objx#, objy#, objz#, sizex#, sizey#, sizez#)
	DeleteObject(obj)
	
	select model
		case 1: //Box
				objects[obj].id=CreateObjectBox(sizex#,sizey#,sizez#)
		endcase
		case 2: //Sphere
			objects[obj].id=CreateObjectSphere(sizex#,sizey#,sizez#)
	
		endcase
		case 3: //Cylinder
			objects[obj].id=CreateObjectCylinder(sizex#,sizey#,sizez#)
		endcase
		case 4: //Cone
			objects[obj].id=CreateObjectCone(sizex#,sizey#,sizez#)
		endcase
	endselect
	
	objects[obj].x#=objx#
	objects[obj].y#=objy#
	objects[obj].z#=objz#
	objects[obj].rx#=0
	objects[obj].ry#=0
	objects[obj].rz#=0
	objects[obj].colr#=random(1,255)
	objects[obj].colg#=random(1,255)
	objects[obj].colb#=random(1,255)
	objects[obj].cola#=255
	objects[obj].transformrx#=0
	objects[obj].transformry#=0
	objects[obj].transformrz#=0
	
	updatevariables()
	
	inc maxobjects
	inc currentobject
	
	
	
endfunction
function create_wireframe()
	
	swap()
	white=MakeColor(100,100,100)
	for wx=1 to 100 step 2
		DrawLine((wx),0,(wx),100,white,white)
		DrawLine(0,(wx),100,(wx), white, white)
	next
	render()
	s=GetImage(0,0,100,100)

endfunction s



function createworld(sizex#, sizey#)
	Create3DPhysicsWorld()
	
	plane=CreateObjectplane(sizex#,sizey#)
	SetObjectImage(plane,create_wireframe(),0)

//SKY BOX development - in progress
/*	planetop=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planetop,loadimage("\media\skyboxes\desert_top.png"),0)
	planeleft=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planeleft,loadimage("\media\skyboxes\desert_left.png"),0)
	planeright=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planeright,loadimage("\media\skyboxes\desert_right.png"),0)
	planefront=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planefront,loadimage("\media\skyboxes\desert_front.png"),0)
	planeback=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planeback,loadimage("\media\skyboxes\desert_back.png"),0)
*/
endfunction




function setup3dfield(mode as integer)
	
	select mode
		case 1: // Perspective
// Transform Values
		x#=0
		y#=0
		z#=0

// Perspective Values

//Camera Positioning Values
		cx#=0
		cy#=worldsizey#/5
		cz#=-worldsizey#

//Camera Rotation Values
		crx#=0
		cry#=0
		crz#=0
		cstep#=1

// Camera Rotations
		rx#=90
		ry#=0
		rz#=90

	updatevariables()

	endcase	

		case 2: // Perspective Update old varibales
// Transform Values
		x#=oldx#
		y#=oldy#
		z#=oldz#

// Perspective Values

//Camera Positioning Values
		cx#=oldcx#
		cy#=oldcy#
		cz#=oldcz#

//Camera Rotation Values
		crx#=oldcrx#
		cry#=oldcry#
		crz#=oldcrz#

		cstep#=1

// Camera Rotations
		rx#=oldrx#
		ry#=oldry#
		rz#=oldrz#



	endcase	


case 3: // Top down
// Transform Values
		x#=0
		y#=0
		z#=0

// Perspective Values

//Camera Positioning Values
		cx#=0
		cy#=150
		cz#=0

//Camera Rotation Values
		crx#=90
		cry#=0
		crz#=0

		cstep#=1

// Camera Rotations
		rx#=90
		ry#=0
		rz#=0



	endcase	

	endselect
	perspective=mode
endfunction

function updatevariables()
	
	oldx#=x#
	oldy#=y#
	oldz#=z#
	oldcx#=cx#
	oldcy#=cy#
	oldcz#=cz#
	oldcrx#=crx#
	oldcry#=cry#
	oldcrz#=crz#
	oldrx#=rx#
	oldry#=ry#
	oldrz#=rz#
		
endfunction

// Project: 3D-Engine - by Programming is Ace
// Created: 2017-04-15

// show all errors
SetErrorMode(2)

#constant width=GetDeviceWidth()
#constant height=GetDeviceHeight()

// set window properties
SetWindowTitle( "3D-Engine" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( width, height ) // 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

#constant textsizes#=14


// Buttons
type _buttons
	ID as integer
	name as string
	x# as float
	y# as float
	sizex# as float
	sizey# as float
	checkbox as integer
	color as integer
endtype
global buttons as _buttons[50]



// Game Objects
type _objects
	id as integer
	x# as float
	y# as float
	z# as float
	rx# as float
	ry# as float
	rz# as float
	transformrx# as float
	transformry# as float
	transformrz# as float
	
	colr# as float
	colg# as float
	colb# as float
	cola# as float
endtype
global objects as _objects[2000]
global currentobject=0
global maxobjects=0

// 3D World coordinates
global x#, y#, z#, cx#, cy#, cz#, rx#, ry#, rz#, crx#, cry#, crz#, cstep#, perspective=1
global oldx#, oldy#, oldz#, oldcx#, oldcy#, oldcz#, oldrx#, oldry#, oldrz#, oldcrx#, oldcry#, oldcrz#


// Sky box ints
global plane, planeleft, planeright, planefront, planeback,planetop, perspectivestring$,planetext
global worldsizex#=500
global worldsizey#=500
global wireframeon, wireframeoff
global wireframeonoff=0 // 1-on // 0-off

// Setup world
createworld(worldsizex#,worldsizey#)
create_wireframe()

// setup variables


planetext=CreateText("")
SetTextSize(planetext,textsizes#)
FPStext=createtext("FPS:")
SetTextSize(FPStext,textsizes#)

global infotext as integer[16]

for a=1 to infotext.length
	infotext[a]=createtext("")
	SetTextSize(infotext[a],16)
next
SetTextString(infotext[1], "Press 'Z' and cursors to change Z")
SetTextString(infotext[2], "Press 'X' and cursors to change X")
SetTextString(infotext[3], "Press 'Y' and cursors to change Y")
SetTextString(infotext[4], "Press 'C' and cursors to camera view")
SetTextString(infotext[5], "Press 'R' and cursors to rotate plane")
SetTextString(infotext[6], "Press 'T' to flip between Top Down / Perspective View")
SetTextString(infotext[7], "Press '1' to add a standard box and cursors to move")
SetTextString(infotext[8], "Press '2' to add a standard ball and cursors to move")
SetTextString(infotext[9], "Press '3' to add a standard Cylinder and cursors to move")
SetTextString(infotext[10], "Press '4' to add a standard Cone and cursors to move")
SetTextString(infotext[11], "Press 'A' add 1000 over the plane")
SetTextString(infotext[12], "Press 'M' to add a transform effect on each object")
SetTextString(infotext[13], "Press cursors on there own will move the new objects placed")
SetTextString(infotext[14], "Press 'W' to toggle Wireframe/Grid on and off to the plane")
SetTextString(infotext[15], "Press '<Space>' Reset the camera")
SetTextString(infotext[16], "Press 'Q' to Exit")


setup3dfield(1) // First create the field world coordinates
			perspectivestring$="Perspective"

mouse=CreateObjectBox(.01,.01,.01)


do
	

	SetObjectPosition(mouse, 0,.5,0)
	SetObjectPosition(plane, x#,y#,z#)
	SetObjectRotation(plane, rx#,ry#,rz#)

// Skybox
/*
	SetObjectPosition(planetop, x#,y#+worldsizey#/2,z#-worldsizey#/2)
	SetObjectRotation(planetop, rx#-180,ry#-270,rz#)
	SetObjectPosition(planeleft, x#-worldsizey#,y#,z#-worldsizey#)
	SetObjectRotation(planeleft, rx#-90,ry#-270,rz#-90)
	SetObjectPosition(planeright, x#+worldsizey#,y#,z#-worldsizey#)
	SetObjectRotation(planeright, rx#-90,ry#-270,rz#-90)
	SetObjectPosition(planefront, x#,y#+5,z#+10)
	SetObjectRotation(planefront, rx#-90,ry#,rz#-90)
	SetObjectPosition(planeback, x#,y#+5,z#-10)
	SetObjectRotation(planeback, rx#-90,ry#,rz#-90)
*/

	
	// Display objects if created any
	if maxobjects>0
		for a=0 to maxobjects-1		
			SetObjectPosition(objects[a].id,objects[a].x#, objects[a].y#, objects[a].z#)
			SetObjectRotation(objects[a].id,objects[a].rx#, objects[a].ry#, objects[a].rz#)
			SetObjectColor(objects[a].id, objects[a].colr#, objects[a].colg#, objects[a].colb#, objects[a].cola#)
			

			if GetRawKeyPressed(77) // M- to setup a transform to each object
				objects[a].transformrx#=random2(-90,90) / 10
				objects[a].transformry#=random2(-90,90) / 10
				objects[a].transformrz#=random2(-90,90) / 10
			endif

//Play the transforms
			if objects[a].transformrx#<>0 or objects[a].transformry#<>0 or objects[a].transformrz# <> 0 then settransforms(a, objects[a].transformrx#,objects[a].transformry#,objects[a].transformrz#)
		next
	endif

	// Check mouse collisons with the buttons on the system if nothing else is pressed (camera key / rotation key)
	if maxobjects>0 
		if perspectivestring$="Perspective"
			if GetRawKeyState(37) then dec objects[maxobjects-1].x#, cstep#
			if GetRawKeyState(38) then inc objects[maxobjects-1].z#, cstep#
			if GetRawKeyState(39) then inc objects[maxobjects-1].x#, cstep#
			if GetRawKeyState(40) then dec objects[maxobjects-1].z#, cstep#
		else
			if GetRawKeyState(37) then dec objects[maxobjects-1].y#, cstep#
			if GetRawKeyState(38) then dec objects[maxobjects-1].x#, cstep#
			if GetRawKeyState(39) then inc objects[maxobjects-1].y#, cstep#
			if GetRawKeyState(40) then inc objects[maxobjects-1].x#, cstep#
		endif
	endif

	
	keypressed$=""
	
	if GetRawKeyPressed(87) // W - add a wireframe
		if (mod(wireframeonoff,2)=0)
			SetObjectImage(plane, wireframeon,0)
		else
			SetObjectImage(plane, wireframeoff,0)
		endif
		inc wireframeonoff
	endif
	
	if GetRawKeyPressed(65) // A - Add a few objects
		for l=maxobjects to 1000
			sys_createobject(l,1,random2(-worldsizex#/2,worldsizex#/2),2,random2(-worldsizey#/2,worldsizey#/2),4,4,4) // 1 - Sphere / Ball
		next
	endif
	if GetRawKeyPressed(49) then sys_createobject(maxobjects,1,0,2,0,4,4,4) // 1 - BOX/CUBE
	if GetRawKeyPressed(50) then sys_createobject(maxobjects,2,0,2,0,4,50,50) // 2 - Sphere / Ball
	if GetRawKeyPressed(51) then sys_createobject(maxobjects,3,0,2,0,4,4,50) // 3 - Cylinder
	if GetRawKeyPressed(52) then sys_createobject(maxobjects,4,0,2,0,4,4,50) // 4 - CONE


	if GetRawKeyPressed(84) // T = Top Down View Toggler
		
		if perspective=2 
			setup3dfield(3)
			perspectivestring$="Top down"
		else
			setup3dfield(2)
			perspectivestring$="Perspective"
		endif
	endif
	if GetRawKeyPressed(32) // Space
		setup3dfield(1)
	endif
	
		
	
	if GetRawKeyState(187) // zoom in "-"
//		cy#=cy#-cstep#
		cz#=cz#+cstep#*2
		
	endif
	if GetRawKeyState(189) // zoom out "+"
	//	cy#=cy#+cstep#
		cz#=cz#-cstep#*2
		
	endif

	if GetRawKeyPressed(81) // Q - Quit
		exit
	endif
	
	
	if GetRawKeyState(67) // C - Camera
		keypressed$="c"
	endif
	if GetRawKeyState(82) // R - Rotate Camera
		keypressed$="r"
	endif
	if GetRawKeyState(88) // X
		keypressed$="x"
	endif

	if GetRawKeyState(89) // X
		keypressed$="y"
	endif

	if GetRawKeyState(90) // Z
		keypressed$="z"
	endif
	
	if keypressed$="c" 
		
		if GetRawKeyState(37)
			dec cx#,cstep#
		endif
		if GetRawKeystate(39)
			inc cx#,cstep#
		endif
		if GetRawKeystate(38)
			inc cz#,cstep#
		endif
		if GetRawKeystate(40)
			dec cz#,cstep#
		endif
		SetCameraLookAt(1,cx#,cy#+5,cz#,0)

	endif

	if keypressed$="r" 
		
		if GetRawKeyState(37)
			dec crx#,cstep#
			dec crz#,cstep#
		endif
		if GetRawKeystate(39)
			inc crx#,cstep#
			inc crz#,cstep#
		endif
		if GetRawKeystate(38)
			inc crz#,cstep#
			inc cry#,cstep#
		endif
		if GetRawKeystate(40)
			dec crz#,cstep#
			dec cry#,cstep#
		
		endif
		

	endif

		
	if keypressed$="x" 
		if GetRawKeyState(37)
			dec cx#,cstep#
		endif
		if GetRawKeystate(39)
			inc cx#,cstep#
		endif
	endif

	if keypressed$="z" 
		if GetRawKeyState(38)
			dec cz#,cstep#
		endif
		if GetRawKeystate(40)
			inc cz#,cstep#
		endif
	endif
	if keypressed$="y" 
		if GetRawKeyState(38)
			dec cy#,cstep#
		endif
		if GetRawKeystate(40)
			inc cy#,cstep#
		endif
	endif


	if maxobjects=0 or keypressed$<>""
// Move the camera to standard view
		SetCameraPosition(1,cx#,cy#+10,cz#-10)
		SetCameraRotation(1,crx#,cry#,crz#)
	else
// Move the camera to the new place added
		SetCameraPosition(1,objects[maxobjects-1].x#,objects[maxobjects-1].y#+10,objects[maxobjects-1].z#-50)
		SetCameraRotation(1,crx#,cry#,crz#)
	endif
	UI_Diplay()
	
	
	Render2Dfront()
    Sync()
loop

function UI_Diplay()

// Build the UI interface
	black=MakeColor(10,10,10)
	DrawBox(0,0,300,height,black,black,black,black,1)
	// Display UI
	sys_buildbutton(1,"Perspective"   ,30,30,150,60,MakeColor(100,100,100))
	sys_buildbutton(2,"Add a Cube"    ,30,60,150,100,MakeColor(100,100,100))
	sys_buildbutton(3,"Add a Ball"    ,30,100,150,140,MakeColor(100,100,100))
	sys_buildbutton(4,"Add a Cone"    ,30,140,150,180,MakeColor(100,100,100))
	sys_buildbutton(5,"Add a Cylinder",30,180,150,220,MakeColor(100,100,100))

    
    SetTextString(planetext,"Plane: X=" + str(x#) + " Y=" +str(y#) + " Z=" +str(z#) + "               Camera X=" + str(cx#) + " Y=" + str(cy#)+" Z=" + str(cz#) + "               Rotation X=" + str(crx#) + " Y=" + str(cry#) + " Z=" + str(cz#) + "              Perspective=" + perspectivestring$ + "         FPS-" + str(screenfps()) + " Key-" + str(GetRawLastKey()) + " Max Objects: " + str(maxobjects))
	SetTextPosition(planetext, 10,10)
	
	for a=1 to infotext.length / 2
		SetTextPosition(infotext[a],200, 40+ (a*GetTextTotalHeight(infotext[a])))
		SetTextDepth(infotext[a],0)
	next
	
	for a=(infotext.length/2)+1 to infotext.length
		SetTextPosition(infotext[a],500, 40+ ((a-infotext.length/2)*GetTextTotalHeight(infotext[a])))
		SetTextDepth(infotext[a],0)
	next

	SetObjectDepthWrite(plane,0)

endfunction


function sys_buildbutton(id, name$, x#, y#, sizex#, sizey#, color)
	if GetTextExists(buttons[id].id)=0 then buttons[id].id=createtext(name$)
	settextsize	(buttons[id].id,textsizes#)
	DrawBox(x#,y#,sizex#,sizey#,color<<2,color<<2,color,color,1)
	SetTextPosition(buttons[id].id,(x#+(sizex#/2)-(GetTextTotalWidth(buttons[id].id))/2),y#+10)
endfunction


function settransforms(obj, trx#, try#, trz#)
	inc objects[obj].rx#, trx#
	inc objects[obj].ry#, try#
	inc objects[obj].rz#, trz#
endfunction


function sys_createobject(obj,model, objx#, objy#, objz#, sizex#, sizey#, sizez#)
	DeleteObject(obj)
	
	select model
		case 1: //Box
				objects[obj].id=CreateObjectBox(sizex#,sizey#,sizez#)
		endcase
		case 2: //Sphere
			objects[obj].id=CreateObjectSphere(sizex#,sizey#,sizez#)
	
		endcase
		case 3: //Cylinder
			objects[obj].id=CreateObjectCylinder(sizex#,sizey#,sizez#)
		endcase
		case 4: //Cone
			objects[obj].id=CreateObjectCone(sizex#,sizey#,sizez#)
		endcase
	endselect
	
	objects[obj].x#=objx#
	objects[obj].y#=objy#
	objects[obj].z#=objz#
	objects[obj].rx#=0
	objects[obj].ry#=0
	objects[obj].rz#=0
	objects[obj].colr#=random(1,255)
	objects[obj].colg#=random(1,255)
	objects[obj].colb#=random(1,255)
	objects[obj].cola#=255
	objects[obj].transformrx#=0
	objects[obj].transformry#=0
	objects[obj].transformrz#=0
	
	updatevariables()
	
	inc maxobjects
	inc currentobject
	
	
	
endfunction
function create_wireframe()
	
	swap()
	white=MakeColor(100,100,100)
	for wx=1 to 100 step 2
		DrawLine((wx),0,(wx),100,white,white)
		DrawLine(0,(wx),100,(wx), white, white)
	next
	render()
	wireframeon=GetImage(0,0,100,100)
	
	swap()
	ClearScreen()
	white=MakeColor(100,100,100)
	DrawBox(0,0,100,100,white,white,white,white,1)
	render()
	wireframeoff=GetImage(0,0,100,100)

endfunction



function createworld(sizex#, sizey#)
	Create3DPhysicsWorld()
	
	plane=CreateObjectplane(sizex#,sizey#)
	SetObjectImage(plane,wireframeoff,0)
//	SetObjectImage(plane,create_wireframe(),0)

//SKY BOX development - in progress
/*	planetop=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planetop,loadimage("\media\skyboxes\desert_top.png"),0)
	planeleft=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planeleft,loadimage("\media\skyboxes\desert_left.png"),0)
	planeright=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planeright,loadimage("\media\skyboxes\desert_right.png"),0)
	planefront=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planefront,loadimage("\media\skyboxes\desert_front.png"),0)
	planeback=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planeback,loadimage("\media\skyboxes\desert_back.png"),0)
*/
endfunction




function setup3dfield(mode as integer)
	
	select mode
		case 1: // Perspective
// Transform Values
		x#=0
		y#=0
		z#=0

// Perspective Values

//Camera Positioning Values
		cx#=0
		cy#=worldsizey#/8
		cz#=-worldsizey# / 2

//Camera Rotation Values
		crx#=0
		cry#=0
		crz#=0
		cstep#=1

// Camera Rotations
		rx#=90
		ry#=0
		rz#=90

	updatevariables()

	endcase	

		case 2: // Perspective Update old varibales
// Transform Values
		x#=oldx#
		y#=oldy#
		z#=oldz#

// Perspective Values

//Camera Positioning Values
		cx#=oldcx#
		cy#=oldcy#
		cz#=oldcz#

//Camera Rotation Values
		crx#=oldcrx#
		cry#=oldcry#
		crz#=oldcrz#

		cstep#=1

// Camera Rotations
		rx#=oldrx#
		ry#=oldry#
		rz#=oldrz#



	endcase	


case 3: // Top down
// Transform Values
		x#=0
		y#=0
		z#=0

// Perspective Values

//Camera Positioning Values
		cx#=0
		cy#=worldsizey#-200
		cz#=0

//Camera Rotation Values
		crx#=90
		cry#=0
		crz#=0

		cstep#=1

// Camera Rotations
		rx#=90
		ry#=0
		rz#=0



	endcase	

	endselect
	perspective=mode
endfunction

function updatevariables()
	
	oldx#=x#
	oldy#=y#
	oldz#=z#
	oldcx#=cx#
	oldcy#=cy#
	oldcz#=cz#
	oldcrx#=crx#
	oldcry#=cry#
	oldcrz#=crz#
	oldrx#=rx#
	oldry#=ry#
	oldrz#=rz#
		
endfunction

// Project: 3D-Engine - by Programming is Ace
// Created: 2017-04-15

// show all errors
SetErrorMode(2)

#constant width=GetDeviceWidth()
#constant height=GetDeviceHeight()

// set window properties
SetWindowTitle( "3D-Engine" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( width, height ) // 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

#constant textsizes#=14


// Buttons
type _buttons
	ID as integer
	name as string
	x# as float
	y# as float
	sizex# as float
	sizey# as float
	checkbox as integer
	color as integer
endtype
global buttons as _buttons[50]



// Game Objects
type _objects
	id as integer
	x# as float
	y# as float
	z# as float
	rx# as float
	ry# as float
	rz# as float
	transformrx# as float
	transformry# as float
	transformrz# as float
	
	colr# as float
	colg# as float
	colb# as float
	cola# as float
endtype
global objects as _objects[2000]
global currentobject=0
global maxobjects=0

// 3D World coordinates
global x#, y#, z#, cx#, cy#, cz#, rx#, ry#, rz#, crx#, cry#, crz#, cstep#, perspective=1
global oldx#, oldy#, oldz#, oldcx#, oldcy#, oldcz#, oldrx#, oldry#, oldrz#, oldcrx#, oldcry#, oldcrz#


// Sky box ints
global plane, planeleft, planeright, planefront, planeback,planetop, perspectivestring$,planetext
global worldsizex#=500
global worldsizey#=500
global wireframeon, wireframeoff, skyboxonoff
global wireframeonoff=0 // 1-on // 0-off

// Setup world
createworld(worldsizex#,worldsizey#)
create_wireframe()

// setup variables


planetext=CreateText("")
SetTextSize(planetext,textsizes#)
FPStext=createtext("FPS:")
SetTextSize(FPStext,textsizes#)

global infotext as integer[17]

for a=1 to infotext.length
	infotext[a]=createtext("")
	SetTextSize(infotext[a],17)
next
SetTextString(infotext[1], "Press 'Z' and cursors to change Z")
SetTextString(infotext[2], "Press 'X' and cursors to change X")
SetTextString(infotext[3], "Press 'Y' and cursors to change Y")
SetTextString(infotext[4], "Press 'C' and cursors to camera view")
SetTextString(infotext[5], "Press 'R' and cursors to rotate plane")
SetTextString(infotext[6], "Press 'T' to flip between Top Down / Perspective View")
SetTextString(infotext[7], "Press '1' to add a standard box and cursors to move")
SetTextString(infotext[8], "Press '2' to add a standard ball and cursors to move")
SetTextString(infotext[9], "Press '3' to add a standard Cylinder and cursors to move")
SetTextString(infotext[10], "Press '4' to add a standard Cone and cursors to move")
SetTextString(infotext[11], "Press 'A' add 1000 over the plane")
SetTextString(infotext[12], "Press 'M' to add a transform effect on each object")
SetTextString(infotext[13], "Press cursors on there own will move the new objects placed")
SetTextString(infotext[14], "Press 'W' to toggle Wireframe/Grid on and off to the plane")
SetTextString(infotext[15], "Press '<Space>' Reset the camera")
SetTextString(infotext[16], "Press '0' to show a SkyBox")
SetTextString(infotext[17], "Press 'Q' to Exit")


setup3dfield(1) // First create the field world coordinates
			perspectivestring$="Perspective"

mouse=CreateObjectBox(.01,.01,.01)


do
	

	SetObjectPosition(mouse, 0,.5,0)
	SetObjectPosition(plane, x#,y#,z#)
	SetObjectRotation(plane, rx#,ry#,rz#)

// Skybox
/*
	SetObjectPosition(planetop, x#,y#+worldsizey#/2,z#-worldsizey#/2)
	SetObjectRotation(planetop, rx#-180,ry#-270,rz#)
	SetObjectPosition(planeleft, x#-worldsizey#,y#,z#-worldsizey#)
	SetObjectRotation(planeleft, rx#-90,ry#-270,rz#-90)
	SetObjectPosition(planeright, x#+worldsizey#,y#,z#-worldsizey#)
	SetObjectRotation(planeright, rx#-90,ry#-270,rz#-90)
	SetObjectPosition(planefront, x#,y#+5,z#+10)
	SetObjectRotation(planefront, rx#-90,ry#,rz#-90)
	SetObjectPosition(planeback, x#,y#+5,z#-10)
	SetObjectRotation(planeback, rx#-90,ry#,rz#-90)
*/

	
	// Display objects if created any
	if maxobjects>0
		for a=0 to maxobjects-1		
			SetObjectPosition(objects[a].id,objects[a].x#, objects[a].y#, objects[a].z#)
			SetObjectRotation(objects[a].id,objects[a].rx#, objects[a].ry#, objects[a].rz#)
			SetObjectColor(objects[a].id, objects[a].colr#, objects[a].colg#, objects[a].colb#, objects[a].cola#)
			

			if GetRawKeyPressed(77) // M- to setup a transform to each object
				objects[a].transformrx#=random2(-90,90) / 10
				objects[a].transformry#=random2(-90,90) / 10
				objects[a].transformrz#=random2(-90,90) / 10
			endif

//Play the transforms
			if objects[a].transformrx#<>0 or objects[a].transformry#<>0 or objects[a].transformrz# <> 0 then settransforms(a, objects[a].transformrx#,objects[a].transformry#,objects[a].transformrz#)
		next
	endif

	// Check mouse collisons with the buttons on the system if nothing else is pressed (camera key / rotation key)
	if maxobjects>0 
		if perspectivestring$="Perspective"
			if GetRawKeyState(37) then dec objects[maxobjects-1].x#, cstep#
			if GetRawKeyState(38) then inc objects[maxobjects-1].z#, cstep#
			if GetRawKeyState(39) then inc objects[maxobjects-1].x#, cstep#
			if GetRawKeyState(40) then dec objects[maxobjects-1].z#, cstep#
		else
			if GetRawKeyState(37) then dec objects[maxobjects-1].y#, cstep#
			if GetRawKeyState(38) then dec objects[maxobjects-1].x#, cstep#
			if GetRawKeyState(39) then inc objects[maxobjects-1].y#, cstep#
			if GetRawKeyState(40) then inc objects[maxobjects-1].x#, cstep#
		endif
	endif

	
	keypressed$=""
	
	if GetRawKeyPressed(87) // W - add a wireframe
		if (mod(wireframeonoff,2)=0)
			SetObjectImage(plane, wireframeon,0)
		else
			SetObjectImage(plane, wireframeoff,0)
		endif
		inc wireframeonoff
	endif
	
	if GetRawKeyPressed(65) // A - Add a few objects
		for l=maxobjects to 1000
			sys_createobject(l,1,random2(-worldsizex#/2,worldsizex#/2),2,random2(-worldsizey#/2,worldsizey#/2),4,4,4) // 1 - Sphere / Ball
		next
	endif
	if GetRawKeyPressed(49) then sys_createobject(maxobjects,1,0,2,0,4,4,4) // 1 - BOX/CUBE
	if GetRawKeyPressed(50) then sys_createobject(maxobjects,2,0,2,0,4,50,50) // 2 - Sphere / Ball
	if GetRawKeyPressed(51) then sys_createobject(maxobjects,3,0,2,0,4,4,50) // 3 - Cylinder
	if GetRawKeyPressed(52) then sys_createobject(maxobjects,4,0,2,0,4,4,50) // 4 - CONE


	if GetRawKeyPressed(84) // T = Top Down View Toggler
		
		if perspective=2 
			setup3dfield(3)
			perspectivestring$="Top down"
		else
			setup3dfield(2)
			perspectivestring$="Perspective"
		endif
	endif
	if GetRawKeyPressed(32) // Space
		setup3dfield(1)
	endif
	
		
	if GetRawKeyPressed(48)
		SetSkyBoxVisible(mod(skyboxonoff,2))
		inc skyboxonoff
	endif
	
	if GetRawKeyState(187) // zoom in "-"
//		cy#=cy#-cstep#
		cz#=cz#+cstep#*2
		
	endif
	if GetRawKeyState(189) // zoom out "+"
	//	cy#=cy#+cstep#
		cz#=cz#-cstep#*2
		
	endif

	if GetRawKeyPressed(81) // Q - Quit
		exit
	endif
	
	
	if GetRawKeyState(67) // C - Camera
		keypressed$="c"
	endif
	if GetRawKeyState(82) // R - Rotate Camera
		keypressed$="r"
	endif
	if GetRawKeyState(88) // X
		keypressed$="x"
	endif

	if GetRawKeyState(89) // X
		keypressed$="y"
	endif

	if GetRawKeyState(90) // Z
		keypressed$="z"
	endif
	
	if keypressed$="c" 
		
		if GetRawKeyState(37)
			dec cx#,cstep#
		endif
		if GetRawKeystate(39)
			inc cx#,cstep#
		endif
		if GetRawKeystate(38)
			inc cz#,cstep#
		endif
		if GetRawKeystate(40)
			dec cz#,cstep#
		endif
		SetCameraLookAt(1,cx#,cy#+5,cz#,0)

	endif

	if keypressed$="r" 
		
		if GetRawKeyState(37)
			dec crx#,cstep#
			dec crz#,cstep#
		endif
		if GetRawKeystate(39)
			inc crx#,cstep#
			inc crz#,cstep#
		endif
		if GetRawKeystate(38)
			inc crz#,cstep#
			inc cry#,cstep#
		endif
		if GetRawKeystate(40)
			dec crz#,cstep#
			dec cry#,cstep#
		
		endif
		

	endif

		
	if keypressed$="x" 
		if GetRawKeyState(37)
			dec cx#,cstep#
		endif
		if GetRawKeystate(39)
			inc cx#,cstep#
		endif
	endif

	if keypressed$="z" 
		if GetRawKeyState(38)
			dec cz#,cstep#
		endif
		if GetRawKeystate(40)
			inc cz#,cstep#
		endif
	endif
	if keypressed$="y" 
		if GetRawKeyState(38)
			dec cy#,cstep#
		endif
		if GetRawKeystate(40)
			inc cy#,cstep#
		endif
	endif


	if maxobjects=0 or keypressed$=""
// Move the camera to standard view
		SetCameraPosition(1,cx#,cy#+10,cz#-10)
		SetCameraRotation(1,crx#,cry#,crz#)
	else
// Move the camera to the new place added
		SetCameraPosition(1,objects[maxobjects-1].x#,objects[maxobjects-1].y#+10,objects[maxobjects-1].z#-50)
		SetCameraRotation(1,crx#,cry#,crz#)
	endif
	UI_Diplay()
	
	
	Render2Dfront()
    Sync()
loop

function UI_Diplay()

// Build the UI interface
	black=MakeColor(10,10,10)
	DrawBox(0,0,300,height,black,black,black,black,1)
	// Display UI
	sys_buildbutton(1,"Perspective"   ,30,30,150,60,MakeColor(100,100,100))
	sys_buildbutton(2,"Add a Cube"    ,30,60,150,100,MakeColor(100,100,100))
	sys_buildbutton(3,"Add a Ball"    ,30,100,150,140,MakeColor(100,100,100))
	sys_buildbutton(4,"Add a Cone"    ,30,140,150,180,MakeColor(100,100,100))
	sys_buildbutton(5,"Add a Cylinder",30,180,150,220,MakeColor(100,100,100))

    
    SetTextString(planetext,"Plane: X=" + str(x#) + " Y=" +str(y#) + " Z=" +str(z#) + "               Camera X=" + str(cx#) + " Y=" + str(cy#)+" Z=" + str(cz#) + "               Rotation X=" + str(crx#) + " Y=" + str(cry#) + " Z=" + str(cz#) + "              Perspective=" + perspectivestring$ + "         FPS-" + str(screenfps()) + " Key-" + str(GetRawLastKey()) + " Max Objects: " + str(maxobjects))
	SetTextPosition(planetext, 10,10)
	
	for a=1 to infotext.length / 2
		SetTextPosition(infotext[a],200, 40+ (a*GetTextTotalHeight(infotext[a])))
		SetTextDepth(infotext[a],0)
	next
	
	for a=(infotext.length/2)+1 to infotext.length
		SetTextPosition(infotext[a],500, 40+ ((a-infotext.length/2)*GetTextTotalHeight(infotext[a])))
		SetTextDepth(infotext[a],0)
	next

	SetObjectDepthWrite(plane,0)

endfunction


function sys_buildbutton(id, name$, x#, y#, sizex#, sizey#, color)
	if GetTextExists(buttons[id].id)=0 then buttons[id].id=createtext(name$)
	settextsize	(buttons[id].id,textsizes#)
	DrawBox(x#,y#,sizex#,sizey#,color<<2,color<<2,color,color,1)
	SetTextPosition(buttons[id].id,(x#+(sizex#/2)-(GetTextTotalWidth(buttons[id].id))/2),y#+10)
endfunction


function settransforms(obj, trx#, try#, trz#)
	inc objects[obj].rx#, trx#
	inc objects[obj].ry#, try#
	inc objects[obj].rz#, trz#
endfunction


function sys_createobject(obj,model, objx#, objy#, objz#, sizex#, sizey#, sizez#)
	DeleteObject(obj)
	
	select model
		case 1: //Box
				objects[obj].id=CreateObjectBox(sizex#,sizey#,sizez#)
		endcase
		case 2: //Sphere
			objects[obj].id=CreateObjectSphere(sizex#,sizey#,sizez#)
	
		endcase
		case 3: //Cylinder
			objects[obj].id=CreateObjectCylinder(sizex#,sizey#,sizez#)
		endcase
		case 4: //Cone
			objects[obj].id=CreateObjectCone(sizex#,sizey#,sizez#)
		endcase
	endselect
	
	objects[obj].x#=objx#
	objects[obj].y#=objy#
	objects[obj].z#=objz#
	objects[obj].rx#=0
	objects[obj].ry#=0
	objects[obj].rz#=0
	objects[obj].colr#=random(1,255)
	objects[obj].colg#=random(1,255)
	objects[obj].colb#=random(1,255)
	objects[obj].cola#=255
	objects[obj].transformrx#=0
	objects[obj].transformry#=0
	objects[obj].transformrz#=0
	
	updatevariables()
	
	inc maxobjects
	inc currentobject
	
	
	
endfunction
function create_wireframe()
	
	swap()
	white=MakeColor(100,100,100)
	for wx=1 to 100 step 2
		DrawLine((wx),0,(wx),100,white,white)
		DrawLine(0,(wx),100,(wx), white, white)
	next
	render()
	wireframeon=GetImage(0,0,100,100)
	
	swap()
	ClearScreen()
	white=MakeColor(100,100,100)
	DrawBox(0,0,100,100,white,white,white,white,1)
	render()
	wireframeoff=GetImage(0,0,100,100)

endfunction



function createworld(sizex#, sizey#)
	Create3DPhysicsWorld()
	
	SetSkyBoxSunColor(255,0,0)
//	SetSkyBoxHorizonColor(0,0,200)
	SetSkyBoxSkyColor(0,100,200)
	SetSkyBoxHorizonSize(10,1)
	SetSkyBoxSunSize(5,10)
	
	SetSkyBoxSunVisible(1)
	skyboxonoff=0
	SetSkyBoxVisible(skyboxonoff)
	
	
	plane=CreateObjectplane(sizex#,sizey#)
	SetObjectImage(plane,wireframeoff,0)
//	SetObjectImage(plane,create_wireframe(),0)

//SKY BOX development - in progress
/*	planetop=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planetop,loadimage("\media\skyboxes\desert_top.png"),0)
	planeleft=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planeleft,loadimage("\media\skyboxes\desert_left.png"),0)
	planeright=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planeright,loadimage("\media\skyboxes\desert_right.png"),0)
	planefront=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planefront,loadimage("\media\skyboxes\desert_front.png"),0)
	planeback=CreateObjectPlane(sizex#,sizey#)
	SetObjectImage(planeback,loadimage("\media\skyboxes\desert_back.png"),0)
*/
endfunction




function setup3dfield(mode as integer)
	
	select mode
		case 1: // Perspective
// Transform Values
		x#=0
		y#=0
		z#=0

// Perspective Values

//Camera Positioning Values
		cx#=0
		cy#=worldsizey#/8
		cz#=-worldsizey# / 2

//Camera Rotation Values
		crx#=0
		cry#=0
		crz#=0
		cstep#=1

// Camera Rotations
		rx#=90
		ry#=0
		rz#=90

	updatevariables()

	endcase	

		case 2: // Perspective Update old varibales
// Transform Values
		x#=oldx#
		y#=oldy#
		z#=oldz#

// Perspective Values

//Camera Positioning Values
		cx#=oldcx#
		cy#=oldcy#
		cz#=oldcz#

//Camera Rotation Values
		crx#=oldcrx#
		cry#=oldcry#
		crz#=oldcrz#

		cstep#=1

// Camera Rotations
		rx#=oldrx#
		ry#=oldry#
		rz#=oldrz#



	endcase	


case 3: // Top down
// Transform Values
		x#=0
		y#=0
		z#=0

// Perspective Values

//Camera Positioning Values
		cx#=0
		cy#=worldsizey#-200
		cz#=0

//Camera Rotation Values
		crx#=90
		cry#=0
		crz#=0

		cstep#=1

// Camera Rotations
		rx#=90
		ry#=0
		rz#=0



	endcase	

	endselect
	perspective=mode
endfunction

function updatevariables()
	
	oldx#=x#
	oldy#=y#
	oldz#=z#
	oldcx#=cx#
	oldcy#=cy#
	oldcz#=cz#
	oldcrx#=crx#
	oldcry#=cry#
	oldcrz#=crz#
	oldrx#=rx#
	oldry#=ry#
	oldrz#=rz#
		
endfunction

// Project: terrain 
// Created: 2017-04-22

// show all errors
SetErrorMode(2)

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

worldsizex#=50
worldsizey#=50

type _faces // wether be colors with makecolor or texture
	ctop as integer
	cbottom as integer
	cright as integer
	cleft as integer
	cfront as integer
	cback as integer
	ctype as integer //1 - color, 2 - texture
	cfile$ as string // filename for the texture image
endtype
	
type _cube
	planes as integer[6] // front, back, left, right, bottom, etc
	x# as float
	y# as float
	z# as float
	sizex# as float
	sizey# as float
	sizez# as float
	faces as _faces
endtype
global Cube3D as _cube[10] // assign as many cubes you like



//Camera Positioning Values
cx#=0
cy#=-10
cz#=-90

cube3d[1].faces.ctop=makecolor(255,0,0)
cube3d[1].faces.cbottom=makecolor(255,255,0)
cube3d[1].faces.cright=makecolor(255,255,0)
cube3d[1].faces.cleft=makecolor(0,0,255)
cube3d[1].faces.cright=makecolor(255,255,255)
cube3d[1].faces.cback=makecolor(255,0,255)
cube3d[1].faces.cfront=makecolor(0,255,255)


do
	build3Dcube(cube3d, 1, 0,0,0,2,2,2,cx#,cy#,cz#)
	
	
	if GetRawKeystate(37) then dec cy#
	if GetRawKeystate(39) then inc cy#
	if GetRawKeystate(38) then dec cz#
	if GetRawKeystate(40) then inc cz#
	
    Print( ScreenFPS() )
    Sync()
loop

function build3Dcube(obj ref as _cube[], cubenumber, x#, y#,z#, sizex#, sizey#,sizez#, rx#, ry#, rz#)
	obj[cubenumber].x# = x# : obj[cubenumber].y# = y# : obj[cubenumber].z# = z#
	for loops=1 to 6
		if obj[cubenumber].planes[loops]=0 then obj[cubenumber].planes[loops]=CreateObjectplane(sizex#,sizey#)
	next

// Position plane 2 and texture / color it
	SetObjectPosition(obj[cubenumber].planes[1], obj[cubenumber].x#-(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#-(sizez#))
	SetObjectColor(obj[cubenumber].planes[1], rgba(obj[cubenumber].faces.ctop,1), rgba(obj[cubenumber].faces.ctop,2),rgba(obj[cubenumber].faces.ctop,3),255)

// Position plane 2 and texture / color it

	SetObjectPosition(obj[cubenumber].planes[2], obj[cubenumber].x#-(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#-(sizez#/2))
	SetObjectColor(obj[cubenumber].planes[2], rgba(obj[cubenumber].faces.cbottom,1), rgba(obj[cubenumber].faces.cbottom,2),rgba(obj[cubenumber].faces.cbottom,3),255)

// Position plane 2 and texture / color it
	SetObjectPosition(obj[cubenumber].planes[3], obj[cubenumber].x#-(sizex#/2),obj[cubenumber].y#, obj[cubenumber].z#-(sizez#/2))
	SetObjectColor(obj[cubenumber].planes[3], rgba(obj[cubenumber].faces.cright,1), rgba(obj[cubenumber].faces.cright,2),rgba(obj[cubenumber].faces.cright,3),255)


// Position plane 2 and texture / color it
	SetObjectPosition(obj[cubenumber].planes[4], obj[cubenumber].x#+(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#-(sizez#/2))
	SetObjectColor(obj[cubenumber].planes[4], rgba(obj[cubenumber].faces.cleft,1), rgba(obj[cubenumber].faces.cleft,2),rgba(obj[cubenumber].faces.cleft,3),255)

// Position plane 2 and texture / color it
	SetObjectPosition(obj[cubenumber].planes[5], obj[cubenumber].x#+(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#+(sizez#/2))
	SetObjectColor(obj[cubenumber].planes[5], rgba(obj[cubenumber].faces.cfront,1), rgba(obj[cubenumber].faces.cfront,2),rgba(obj[cubenumber].faces.cfront,3),255)


// Position plane 2 and texture / color it
	SetObjectPosition(obj[cubenumber].planes[6], obj[cubenumber].x#+(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#+(sizez#/2))
	SetObjectColor(obj[cubenumber].planes[6], rgba(obj[cubenumber].faces.cback,1), rgba(obj[cubenumber].faces.cback,2),rgba(obj[cubenumber].faces.cback,3),255)


	for loops=1 to 6
		SetObjectRotation(obj[cubenumber].planes[loops], obj[cubenumber].x#, obj[cubenumber].y#-90, obj[cubenumber].z#-90)
	next
	
// Join all of them up to 1 object rather then 6
	for loops=2 to 6
		
		FixObjectToObject(obj[cubenumber].planes[loops], obj[cubenumber].planes[loops-1])
	next
	
// Rotate using the rx#, ry#, rz# in the function

	SetObjectRotation(obj[cubenumber].planes[1], obj[cubenumber].x#-rx#, obj[cubenumber].y#+ry#, obj[cubenumber].z#-rz#)
endfunction


// Retreives the RGBA values from makecolor.
//
// rgbint = the actual makecolor value (Integer)
// r = the value to return
//
//      1 - red
//      2 - green
//      3 - blue
//      4 - alpha

function RGBA(rgbint, r as integer)
	select r
		case 1 : // red
			c=(rgbint) && 255
		endcase
		case 2 : // green
			c=(rgbint >> 8) && 255
		endcase
		case 3 : // blue
			c=(rgbint >> 16) && 255
		endcase
	endselect
	
endfunction c

// Project: 3D boxes
// Created: 2017-04-22

// show all errors
SetErrorMode(2)

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

worldsizex#=50
worldsizey#=50

type _faces // wether be colors with makecolor or texture
	ctop as integer
	cbottom as integer
	cright as integer
	cleft as integer
	cfront as integer
	cback as integer
	ctype as integer //1 - color, 2 - texture
	cfile$ as string // filename for the texture image
endtype
	
type _cube
	planes as integer[50] // front, back, left, right, bottom, etc Vertices
	x# as float
	y# as float
	z# as float
	sizex# as float
	sizey# as float
	sizez# as float
	faces as integer[50]
	facesgreen as integer[50]
	facesblue as integer[50]
endtype
global Cube3D as _cube[10] // assign as many cubes you like


vertices=10
//Camera Positioning Values
cx#=0
cy#=0
cz#=0

for a=1 to vertices
	rr=random(0,255) : rg=random(0,255) : rb=random(0,255)
	cube3d[1].faces[a]=makecolor(rr,rg,rb)
	cube3d[1].facesgreen[a]=makecolor(rr,rg,rb)
	cube3d[1].facesblue[a]=makecolor(rr,rg,rb)
next

	build3Dcube(cube3d, 1, vertices, 0,0,0,2,2,2,cx#,cy#,cz#)

do
	
	
	if GetRawKeystate(37) then dec cy#
	if GetRawKeystate(39) then inc cy#
	if GetRawKeystate(38) then dec cz#
	if GetRawKeystate(40) then inc cz#

	RotateObjectLocalX(cube3d[1].planes[1],cx#)
	RotateObjectLocaly(cube3d[1].planes[1],cy#)
	RotateObjectLocalz(cube3d[1].planes[1],cz#)
	
    Print( ScreenFPS() )
    Sync()
loop

function build3Dcube(obj ref as _cube[], cubenumber, vertices, x#, y#,z#, sizex#, sizey#,sizez#, rx#, ry#, rz#)
	obj[cubenumber].x# = x# : obj[cubenumber].y# = y# : obj[cubenumber].z# = z#
	for loops=1 to vertices-1
		if obj[cubenumber].planes[loops]=0 then obj[cubenumber].planes[loops]=CreateObjectplane(sizex#,sizey#)
		
		SetObjectPosition(obj[cubenumber].planes[loops], obj[cubenumber].x#+(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#+(sizey#/2))
		SetObjectColor(obj[cubenumber].planes[loops], rgba(obj[cubenumber].faces[loops],1), rgba(obj[cubenumber].facesgreen[loops],2),rgba(obj[cubenumber].facesblue[loops],3),255)
		SetObjectRotation(obj[cubenumber].planes[loops], obj[cubenumber].x#, obj[cubenumber].y#+90, obj[cubenumber].z#-90)
		if loops>1 then	FixObjectToObject(obj[cubenumber].planes[loops], obj[cubenumber].planes[loops-1])
	next
endfunction


// Retreives the RGBA values from makecolor.
//
// rgbint = the actual makecolor value (Integer)
// r = the value to return
//
//      1 - red
//      2 - green
//      3 - blue
//      4 - alpha

function RGBA(rgbint, r as integer)
	select r
		case 1 : // red
			c=(rgbint) && 255
		endcase
		case 2 : // green
			c=(rgbint >> 8) && 255
		endcase
		case 3 : // blue
			c=(rgbint >> 16) && 255
		endcase
	endselect
	
endfunction c

// Project: terrain 
// Created: 2017-04-22
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "terrain" )
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
 
worldsizex#=50
worldsizey#=50
 
type _faces // wether be colors with makecolor or texture
    ctop as integer
    cbottom as integer
    cright as integer
    cleft as integer
    cfront as integer
    cback as integer
    ctype as integer //1 - color, 2 - texture
    cfile$ as string // filename for the texture image
endtype
     
type _cube
    planes as integer[6] // front, back, left, right, bottom, etc
    x# as float
    y# as float
    z# as float
    sizex# as float
    sizey# as float
    sizez# as float
    faces as _faces
endtype
global Cube3D as _cube[10] // assign as many cubes you like

global sphere as integer[10] 
 
 
//Camera Positioning Values
cx#=0
cy#=-10
cz#=-90
 
cube3d[1].faces.ctop=makecolor(255,0,0)
cube3d[1].faces.cbottom=makecolor(255,255,0)
cube3d[1].faces.cright=makecolor(255,255,0)
cube3d[1].faces.cleft=makecolor(0,0,255)
cube3d[1].faces.cright=makecolor(255,255,255)
cube3d[1].faces.cback=makecolor(255,0,255)
cube3d[1].faces.cfront=makecolor(0,255,255)
 
 
do
    build3Dcube(cube3d, 1, 0,0,0,2,2,2,cx#,cy#,cz#)
     
     
    if GetRawKeystate(37) then dec cy#
    if GetRawKeystate(39) then inc cy#
    if GetRawKeystate(38) then dec cz#
    if GetRawKeystate(40) then inc cz#
     
    Print( ScreenFPS() )
    Sync()
loop
 
function build3Dcube(obj ref as _cube[], cubenumber, x#, y#,z#, sizex#, sizey#,sizez#, rx#, ry#, rz#)
	
    obj[cubenumber].x# = x# : obj[cubenumber].y# = y# : obj[cubenumber].z# = z#
    for loops=1 to 6
        if obj[cubenumber].planes[loops]=0 then obj[cubenumber].planes[loops]=CreateObjectplane(sizex#,sizey#)
        if sphere[loops]=0 then sphere[loops]=CreateObjectSphere(sizex#*0.25,20,20)
        
    next
 
// Position plane 2 and texture / color it
    SetObjectPosition(obj[cubenumber].planes[1], obj[cubenumber].x#-(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#-(sizez#))
    SetObjectColor(obj[cubenumber].planes[1], rgba(obj[cubenumber].faces.ctop,1), rgba(obj[cubenumber].faces.ctop,2),rgba(obj[cubenumber].faces.ctop,3),255)
    
     
// Position plane 2 and texture / color it
 
    SetObjectPosition(obj[cubenumber].planes[2], obj[cubenumber].x#-(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#-(sizez#/2))
    SetObjectColor(obj[cubenumber].planes[2], rgba(obj[cubenumber].faces.cbottom,1), rgba(obj[cubenumber].faces.cbottom,2),rgba(obj[cubenumber].faces.cbottom,3),255)
 
// Position plane 2 and texture / color it
    SetObjectPosition(obj[cubenumber].planes[3], obj[cubenumber].x#-(sizex#/2),obj[cubenumber].y#, obj[cubenumber].z#-(sizez#/2))
    SetObjectColor(obj[cubenumber].planes[3], rgba(obj[cubenumber].faces.cright,1), rgba(obj[cubenumber].faces.cright,2),rgba(obj[cubenumber].faces.cright,3),255)
 
 
// Position plane 2 and texture / color it
    SetObjectPosition(obj[cubenumber].planes[4], obj[cubenumber].x#+(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#-(sizez#/2))
    SetObjectColor(obj[cubenumber].planes[4], rgba(obj[cubenumber].faces.cleft,1), rgba(obj[cubenumber].faces.cleft,2),rgba(obj[cubenumber].faces.cleft,3),255)
 
// Position plane 2 and texture / color it
    SetObjectPosition(obj[cubenumber].planes[5], obj[cubenumber].x#+(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#+(sizez#/2))
    SetObjectColor(obj[cubenumber].planes[5], rgba(obj[cubenumber].faces.cfront,1), rgba(obj[cubenumber].faces.cfront,2),rgba(obj[cubenumber].faces.cfront,3),255)
 
 
// Position plane 2 and texture / color it
    SetObjectPosition(obj[cubenumber].planes[6], obj[cubenumber].x#+(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#+(sizez#/2))
    SetObjectColor(obj[cubenumber].planes[6], rgba(obj[cubenumber].faces.cback,1), rgba(obj[cubenumber].faces.cback,2),rgba(obj[cubenumber].faces.cback,3),255)
 
 
    for loops=1 to 6
        SetObjectRotation(obj[cubenumber].planes[loops], obj[cubenumber].x#, obj[cubenumber].y#-90, obj[cubenumber].z#-90)
		SetObjectPosition(sphere[loops], obj[cubenumber].x#,obj[cubenumber].y#,obj[cubenumber].z#)


		FixObjectToObject(sphere[loops],obj[cubenumber].planes[loops])

    next
     
// Join all of them up to 1 object rather then 6
    for loops=2 to 6
         
        FixObjectToObject(obj[cubenumber].planes[loops], obj[cubenumber].planes[loops-1])
    next


// Rotate using the rx#, ry#, rz# in the function
 
    SetObjectRotation(obj[cubenumber].planes[1], obj[cubenumber].x#-rx#, obj[cubenumber].y#+ry#, obj[cubenumber].z#-rz#)
endfunction
 
 
// Retreives the RGBA values from makecolor.
//
// rgbint = the actual makecolor value (Integer)
// r = the value to return
//
//      1 - red
//      2 - green
//      3 - blue
//      4 - alpha
 
function RGBA(rgbint, r as integer)
    select r
        case 1 : // red
            c=(rgbint) && 255
        endcase
        case 2 : // green
            c=(rgbint >> 8) && 255
        endcase
        case 3 : // blue
            c=(rgbint >> 16) && 255
        endcase
    endselect
     
endfunction c

// Project: terrain 
// Created: 2017-04-22
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "terrain" )
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
 
worldsizex#=50
worldsizey#=50
 
type _faces // wether be colors with makecolor or texture
    ctop as integer
    cbottom as integer
    cright as integer
    cleft as integer
    cfront as integer
    cback as integer
    ctype as integer //1 - color, 2 - texture
    cfile$ as string // filename for the texture image
endtype
     
type _cube
    planes as integer[6] // front, back, left, right, bottom, etc
    x# as float
    y# as float
    z# as float
    sizex# as float
    sizey# as float
    sizez# as float
    faces as _faces
endtype
global Cube3D as _cube[10] // assign as many cubes you like

global sphere as integer[10] 
 
global alert
//Camera Positioning Values
cx#=0
cy#=-10
cz#=-90
 
cube3d[1].faces.ctop=makecolor(255,0,0)
cube3d[1].faces.cbottom=makecolor(255,255,0)
cube3d[1].faces.cright=makecolor(255,255,0)
cube3d[1].faces.cleft=makecolor(0,0,255)
cube3d[1].faces.cright=makecolor(255,255,255)
cube3d[1].faces.cback=makecolor(255,0,255)
cube3d[1].faces.cfront=makecolor(0,255,255)


framesync#=timer()
do
    build3Dcube(cube3d, 1, 0,0,0,4,4,4,cx#,cy#,cz#)
    
     
    if GetRawKeystate(37) then dec cy#
    if GetRawKeystate(39) then inc cy#
    if GetRawKeystate(38) then dec cz#
    if GetRawKeystate(40) then inc cz#
     
    if (timer()-framesync#>1)
		framesync#=timer()
		inc alert
	endif
     
    Print( ScreenFPS() )
    Sync()
loop
 
function build3Dcube(obj ref as _cube[], cubenumber, x#, y#,z#, sizex#, sizey#,sizez#, rx#, ry#, rz#)
	
    obj[cubenumber].x# = x# : obj[cubenumber].y# = y# : obj[cubenumber].z# = z#
    for loops=1 to 5
        if obj[cubenumber].planes[loops]=0 then obj[cubenumber].planes[loops]=CreateObjectplane(sizex#,sizey#)
        if sphere[loops]=0 then sphere[loops]=CreateObjectSphere(sizex#*0.25,20,20)
        
    next
 
// Position plane 2 and texture / color it
    SetObjectPosition(obj[cubenumber].planes[1], obj[cubenumber].x#-(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#-(sizez#))
    SetObjectColor(obj[cubenumber].planes[1], rgba(obj[cubenumber].faces.ctop,1), rgba(obj[cubenumber].faces.ctop,2),rgba(obj[cubenumber].faces.ctop,3),255)
    
     
// Position plane 2 and texture / color it
 
    SetObjectPosition(obj[cubenumber].planes[2], obj[cubenumber].x#-(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#-(sizez#/2))
    SetObjectColor(obj[cubenumber].planes[2], rgba(obj[cubenumber].faces.cbottom,1), rgba(obj[cubenumber].faces.cbottom,2),rgba(obj[cubenumber].faces.cbottom,3),255)
 
// Position plane 2 and texture / color it
    SetObjectPosition(obj[cubenumber].planes[3], obj[cubenumber].x#-(sizex#/2),obj[cubenumber].y#, obj[cubenumber].z#-(sizez#/2))
    SetObjectColor(obj[cubenumber].planes[3], rgba(obj[cubenumber].faces.cright,1), rgba(obj[cubenumber].faces.cright,2),rgba(obj[cubenumber].faces.cright,3),255)
 
 
// Position plane 2 and texture / color it
    SetObjectPosition(obj[cubenumber].planes[4], obj[cubenumber].x#+(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#-(sizez#/2))
    SetObjectColor(obj[cubenumber].planes[4], rgba(obj[cubenumber].faces.cleft,1), rgba(obj[cubenumber].faces.cleft,2),rgba(obj[cubenumber].faces.cleft,3),255)
 
// Position plane 2 and texture / color it
    SetObjectPosition(obj[cubenumber].planes[5], obj[cubenumber].x#+(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#+(sizez#/2))
    SetObjectColor(obj[cubenumber].planes[5], rgba(obj[cubenumber].faces.cfront,1), rgba(obj[cubenumber].faces.cfront,2),rgba(obj[cubenumber].faces.cfront,3),255)
 
 
// Position plane 2 and texture / color it
//    SetObjectPosition(obj[cubenumber].planes[6], obj[cubenumber].x#+(sizex#/2), obj[cubenumber].y#, obj[cubenumber].z#+(sizez#/2))
//    SetObjectColor(obj[cubenumber].planes[6], rgba(obj[cubenumber].faces.cback,1), rgba(obj[cubenumber].faces.cback,2),rgba(obj[cubenumber].faces.cback,3),255)
 
	
 
    for loops=1 to 5
        SetObjectRotation(obj[cubenumber].planes[loops], obj[cubenumber].x#, obj[cubenumber].y#-90, obj[cubenumber].z#-90)
		SetObjectPosition(sphere[loops], obj[cubenumber].x#,obj[cubenumber].y#,obj[cubenumber].z#)
		if mod(alert,2)=0 
			SetObjectColor(sphere[loops],255,0,0,255)
		else
			SetObjectColor(sphere[loops],255,255,255,255)
		endif
		
		FixObjectToObject(sphere[loops],obj[cubenumber].planes[loops])

    next
     
// Join all of them up to 1 object rather then 6
    for loops=2 to 5
         
        FixObjectToObject(obj[cubenumber].planes[loops], obj[cubenumber].planes[loops-1])
    next


// Rotate using the rx#, ry#, rz# in the function
 
    SetObjectRotation(obj[cubenumber].planes[1], obj[cubenumber].x#-rx#, obj[cubenumber].y#+ry#, obj[cubenumber].z#-rz#)
endfunction
 
 
// Retreives the RGBA values from makecolor.
//
// rgbint = the actual makecolor value (Integer)
// r = the value to return
//
//      1 - red
//      2 - green
//      3 - blue
//      4 - alpha
 
function RGBA(rgbint, r as integer)
    select r
        case 1 : // red
            c=(rgbint) && 255
        endcase
        case 2 : // green
            c=(rgbint >> 8) && 255
        endcase
        case 3 : // blue
            c=(rgbint >> 16) && 255
        endcase
    endselect
     
endfunction c

// Project: Collisions 
// Created: 2017-04-22
 
// show all errors
SetErrorMode(2)
 
#constant width=1024
#constant height=768

// set window properties
SetWindowTitle( "3D Collision" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( width, height ) // 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
 
type _balls
	id as integer
	x# as float
	y# as float
	z# as float
endtype
global balls as _balls[5]
 
global box
global cx#, cy#, cz# as float

//Camera Positioning Values
cx#=0
cy#=-5
cz#=20
 
//SetCameraPosition(1,cx#,cy#,cz#)mouse = CreateObjectCapsule(4,4,20)
box = createobjectbox(4,4,4)

// Set up the coords for the objects
for a=1 to balls.length
	balls[a].id=CreateObjectSphere(2,10,10)
	balls[a].x#=random2(-5,5)
	balls[a].y#=random2(-5,5)
		balls[a].z#=random2(0,5)

next
	
text=createtext	("")
settextsize	(text,30)


do
	
	SetTextString(text, "Main Player not collided")

	for a=1 to balls.length
		SetObjectPosition(balls[a].id,balls[a].x#,balls[a].y#,balls[a].z#)

		if objectcollision(box, balls[a].id)=0
			SetTextString(text, "Main Player Collided with an object ")
		
		endif
    next
	SetTextPosition(text, width/2- GetTextTotalWidth(text)/2, 10)
    Print( ScreenFPS() )
    Sync()
loop
 

function objectcollision(obj1, obj2)
	rx# = Get3DVectorXFromScreen(GetPointerX(),GetPointerY()) *100.0
	ry# = Get3DVectorYFromScreen(GetPointerX(),GetPointerY()) * 100.0
	rz# = Get3DVectorZFromScreen(GetPointerX(),GetPointerY()) * 100.0
	len# = -getcameray(1) / ry#
	rx# = getcamerax(1) + rx# * len#
	ry# = getcameray(1) + ry# * len#
	rz# = getcameraz(1) + rz# * len#
    old_x# = GetObjectX(obj2)
    old_y# = GetObjectY(obj2)
    old_z# = GetObjectZ(obj2)
    new_x# = GetObjectX(obj1)
    new_y# = GetObjectY(obj1)
    new_z# = GetObjectZ(obj1)

    hit = ObjectRayCast(obj1,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#)
	SetObjectPosition(obj1, rx#, ry#, rz#)

endfunction hit

// Project: 3D Collision 
// Created: 2017-04-22
 
// show all errors
SetErrorMode(2)
 
#constant width=1024
#constant height=768

// set window properties
SetWindowTitle( "3D Collision" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( width, height ) // 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
 
type _balls
	id as integer
	x# as float
	y# as float
	z# as float
endtype
global balls as _balls[100]
 
global box
global cx#, cy#, cz# as float

//Camera Positioning Values
cx#=0
cy#=-5
cz#=20
speed#=.5

Create3DPhysicsWorld()
CreateVector3()

 
//SetCameraPosition(1,cx#,cy#,cz#)mouse = CreateObjectCapsule(4,4,20)
box = createobjectbox(4,4,4)
Create3DPhysicsDynamicBody(box)
SetObjectShapeBox(box,4,4,4)
SetObjectCollisionMode(box,1)

// Set up the coords for the objects
for a=1 to balls.length
	balls[a].id=CreateObjectSphere(2,10,10)
	Create3DPhysicsDynamicBody(balls[a].id)
	SetObjectShapeSphere(balls[a].id,2)
	SetObjectCollisionMode(balls[a].id,1)
	
	balls[a].x#=random2(-20,20)
	balls[a].y#=0
		balls[a].z#=random2(50,200)

next
	
text=createtext	("")
settextsize	(text,30)
scoretext=createtext("")
SetTextSize(scoretext,30)
score=0
do
	
	SetTextString(text, "Main Player not collided")

	for a=1 to balls.length
		SetObjectPosition(balls[a].id,balls[a].x#,balls[a].y#,balls[a].z#)

		if objectcollision(box, balls[a].id)=0
			balls[a].z# = random(50,200)
			score=score+10
			SetTextString(text, "Main Player Collided with an object ")
			SetTextString(scoretext, "Score : " + str(score))
		endif
    
		dec balls[a].z#,speed#
		
		if balls[a].z#<0 then balls[a].z#=random(50,200)
    next

	SetTextPosition(scoretext, 10,10)
	SetTextPosition(text, width/2- GetTextTotalWidth(text)/2, 10)
    Sync()
loop
 

function objectcollision(obj1, obj2)
	rx# = Get3DVectorXFromScreen(GetPointerX(),GetPointerY()) *100.0
	ry# = Get3DVectorYFromScreen(GetPointerX(),GetPointerY()) * 100.0
	rz# = Get3DVectorZFromScreen(GetPointerX(),GetPointerY()) * 100.0
	len# = -getcameray(1) / ry#
	rx# = getcamerax(1) + rx# * len#
	ry# = getcameray(1) + ry# * len#
	rz# = getcameraz(1) + rz# * len#
    old_x# = GetObjectX(obj2) 
    old_y# = GetObjectY(obj2) 
    old_z# = GetObjectZ(obj2) 
   
    new_x# = GetObjectX(obj1) 
    new_y# = GetObjectY(obj1)
    new_z# = GetObjectZ(obj1)

    hit = ObjectRayCast(obj1,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#)
	SetObjectPosition(obj1, rx#, ry#, rz#)

endfunction hit

// Project: 3D Collision 
// Created: 2017-04-22
 
// show all errors
SetErrorMode(2)
 
#constant width=1024
#constant height=768

// set window properties
SetWindowTitle( "3D Collision" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( width, height ) // 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
 
global levels as integer[5]

levels[1]=makecolor(255,255,255)
levels[2]=makecolor(255,0,255)
levels[3]=makecolor(255,0,0)
levels[4]=makecolor(0,255,255)
levels[5]=makecolor(0,0,255)

type _balls
	id as integer
	x# as float
	y# as float
	z# as float
	notinplay as integer
	level as integer
endtype
global balls as _balls[200]
 
global box
global cx#, cy#, cz# as float

//Camera Positioning Values
cx#=0
cy#=-5
cz#=20
speed#=.5

Create3DPhysicsWorld()
CreateVector3()

 
//SetCameraPosition(1,cx#,cy#,cz#)mouse = CreateObjectCapsule(4,4,20)
box = createobjectbox(4,4,4)
Create3DPhysicsDynamicBody(box)
SetObjectShapeBox(box,4,4,4)
SetObjectCollisionMode(box,1)

// Set up the coords for the objects
for a=1 to balls.length
	balls[a].id=CreateObjectSphere(2,10,10)
	Create3DPhysicsDynamicBody(balls[a].id)
	SetObjectShapeSphere(balls[a].id,2)
	SetObjectCollisionMode(balls[a].id,1)
	
	balls[a].x#=random2(-20,20)
	balls[a].y#=0
		balls[a].z#=random2(50,200)
	balls[a].notinplay=0
	balls[a].level=1
next
	
text=createtext	("")
settextsize	(text,30)
scoretext=createtext("")
SetTextSize(scoretext,30)
score=0
do
	
	SetTextString(text, "Main Player not collided")

	for a=1 to balls.length
		SetObjectPosition(balls[a].id,balls[a].x#,balls[a].y#,balls[a].z#)
		SetObjectColor(balls[a].id, rgba(levels[balls[a].level],1),rgba(levels[balls[a].level],2),rgba(levels[balls[a].level],3),255)
		if objectcollision(box, balls[a].id)=0
			balls[a].z# = random(50,200)
			inc balls[a].level
			score=score+10 * balls[a].level
			SetTextString(text, "Main Player Collided with an object ")
			SetTextString(scoretext, "Score : " + str(score))
		endif
    
		dec balls[a].z#,speed#
		
		if balls[a].z#<0 then balls[a].notinplay=1
    next

	SetTextPosition(scoretext, 10,10)
	SetTextPosition(text, width/2- GetTextTotalWidth(text)/2, 10)
    Sync()
loop
 

function objectcollision(obj1, obj2)
	rx# = Get3DVectorXFromScreen(GetPointerX(),GetPointerY()) *100.0
	ry# = Get3DVectorYFromScreen(GetPointerX(),GetPointerY()) * 100.0
	rz# = Get3DVectorZFromScreen(GetPointerX(),GetPointerY()) * 100.0
	len# = -getcameray(1) / ry#
	rx# = getcamerax(1) + rx# * len#
	ry# = getcameray(1) + ry# * len#
	rz# = getcameraz(1) + rz# * len#
    old_x# = GetObjectX(obj2) 
    old_y# = GetObjectY(obj2) 
    old_z# = GetObjectZ(obj2) 
   
    new_x# = GetObjectX(obj1) 
    new_y# = GetObjectY(obj1)
    new_z# = GetObjectZ(obj1)

    hit = ObjectRayCast(obj1,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#)
	SetObjectPosition(obj1, rx#, ry#, rz#)

endfunction hit

// Retreives the RGBA values from makecolor.
//
// rgbint = the actual makecolor value (Integer)
// r = the value to return
//
//      1 - red
//      2 - green
//      3 - blue
//      4 - alpha
 
function RGBA(rgbint, r as integer)
    select r
        case 1 : // red
            c=(rgbint) && 255
        endcase
        case 2 : // green
            c=(rgbint >> 8) && 255
        endcase
        case 3 : // blue
            c=(rgbint >> 16) && 255
        endcase
    endselect
     
endfunction c

// Project: Vortex 
// Created: 2017-04-22
 
// show all errors
SetErrorMode(2)
 
#constant width=1024
#constant height=768

// set window properties
SetWindowTitle( "Vortex" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( width, height ) // 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
 
global levels as integer[5]

levels[1]=makecolor(255,255,255)
levels[2]=makecolor(255,0,255)
levels[3]=makecolor(255,0,0)
levels[4]=makecolor(0,255,255)
levels[5]=makecolor(0,0,255)


type _balls
	id as integer
	x# as float
	y# as float
	z# as float
	notinplay as integer
	level as integer
endtype
global balls as _balls[500]
 
global box
global cx#, cy#, cz# as float

//Camera Positioning Values
cx#=0
cy#=0
cz#=0
speed#=.5
rx#=0
ry#=0
rz#=90

 
//SetCameraPosition(1,cx#,cy#,cz#)mouse = CreateObjectCapsule(4,4,20)
box = CreateObjectSphere(4,10,10)


// Set up the coords for the objects
for a=1 to balls.length
	balls[a].id=CreateObjectSphere(2,10,10)
	
	balls[a].x#=random2(-200,200)
	balls[a].y#=cy#/2
	balls[a].z#=random2(200,500)
	balls[a].notinplay=0
	balls[a].level=1
next

skyred=0:skygreen=0:skyblue=255
SetSkyBoxSunColor(255,0,0)
SetSkyBoxSunColor(255,255,255)
	SetSkyBoxSkyColor(skyred,skygreen,skyblue)
	SetSkyBoxHorizonColor(255,0,0)
	SetSkyBoxHorizonSize(2,2)
	
	SetSkyBoxSunSize(5,10)
	SetSkyBoxSunVisible(1)
	SetSkyBoxVisible(1)
	
//SetFogMode(1)	
//SetFogColor(255,255,255)

SetCameraPosition(1,cx#,cy#,cz#)
SetCameraRotation(1,cx#,cy#,cz#+rz#)

// Setup text objects for title / score
text=createtext	("")
settextsize	(text,30)
scoretext=createtext("")
SetTextSize(scoretext,30)
starttext=createtext("")
settextsize	(starttext,50)
titletext=createtext("Vortex")
settextsize	(titletext,50)
SetTextColor( titletext, 255,255,0,255)
destructiontext = createtext("Use up and Down cursors to fly through the vortex, hitting as many as you can")
SetTextsize( destructiontext,20)
score=0

gamestart=0


do

	if gamestart=1

	
		SetTextString(text,"")
		
		for a=1 to balls.length
			SetObjectPosition(balls[a].id,balls[a].x#,balls[a].y#,balls[a].z#)
			SetObjectColor(balls[a].id,rgba(levels[balls[a].level],1), rgba(levels[balls[a].level],2), rgba(levels[balls[a].level],3), 255)
			if objectcollision(box, balls[a].id)=0

//				inc balls[a].level
				score=score+10 * balls[a].level
				SetTextString(text, "HIT!! ")
				SetTextString(scoretext, "Score : " + str(score))
			endif
    
			dec balls[a].z#,speed#
			if balls[a].z#<rz#-20 
				balls[a].level=random(1,5)
				balls[a].z#=random(500,1000)
			
				balls[a].x#=random2(-200,200)
			endif
		next

		if GetRawKeyState(37) then dec cz#,1
		if GetRawKeyState(38) then inc cx#,1
		if GetRawKeyState(39) then inc cz#,1
		if GetRawKeyState(40) then dec cx#,1
		
		SetTextPosition(scoretext, 10,10)
		SetTextPosition(text, width/2- GetTextTotalWidth(text)/2, 10)

		inc rz#,1
		SetObjectPosition(box,  cx#,cy#,rz#)

		SetCameraRotation(1,rx#,ry#,rz#)
		SetCameraPosition(1,getobjectx(box),getobjecty(box),getobjectz(box)-20)

    
    else
		SetSkyBoxSkyColor(0,0,skyblue)
		SetSkyBoxHorizonColor(skyblue,0,0)
		if goup=1 then inc skyblue,10
		if goup=0 then dec skyblue,10
		
		if skyblue>255 
			goup=0
			skyblue=255
		endif
		if skyblue<0 
			goup=1
			skyblue=0
		endif
		SetCameraRotation(1,rx#,ry#,rz#)
		inc rz#
		if GetRawKeyPressed(32)=1 
			gamestart=1
			SetTextVisible(starttext,0)
			SetTextVisible(titletext,0)
			SetTextVisible(destructiontext,0)
		endif
		settextstring(starttext,"Press Space To Start")
		SetTextPosition(titletext,width/2-GetTextTotalWidth(titletext)/2, 10)
		SetTextPosition(starttext, width/2-GetTextTotalWidth(starttext)/2, height/2-GetTextTotalHeight(starttext)/2)
		SetTextPosition(destructiontext, width/2-GetTextTotalWidth(destructiontext)/2, height/2+100-GetTextTotalHeight(destructiontext)/2)
		
	endif
    Sync()
    
loop
 

function objectcollision(obj1, obj2)
	rx# = Get3DVectorXFromScreen(GetPointerX(),GetPointerY()) *100.0
	ry# = Get3DVectorYFromScreen(GetPointerX(),GetPointerY()) * 100.0
	rz# = Get3DVectorZFromScreen(GetPointerX(),GetPointerY()) * 100.0
	len# = -getcameray(1) / ry#
	rx# = getcamerax(1) + rx# * len#
	ry# = getcameray(1) + ry# * len#
	rz# = getcameraz(1) + rz# * len#
    old_x# = GetObjectX(obj2) 
    old_y# = GetObjectY(obj2) 
    old_z# = GetObjectZ(obj2) 
   
    new_x# = GetObjectX(obj1) 
    new_y# = GetObjectY(obj1)
    new_z# = GetObjectZ(obj1)

    hit = ObjectRayCast(obj1,old_x#,old_y#,old_z#,new_x#,new_y#,new_z#)
//	SetObjectPosition(obj1, rx#, ry#, rz#)

endfunction hit

// Retreives the RGBA values from makecolor.
//
// rgbint = the actual makecolor value (Integer)
// r = the value to return
//
//      1 - red
//      2 - green
//      3 - blue
//      4 - alpha
 
function RGBA(rgbint, r as integer)
    select r
        case 1 : // red
            c=(rgbint) && 255
        endcase
        case 2 : // green
            c=(rgbint >> 8) && 255
        endcase
        case 3 : // blue
            c=(rgbint >> 16) && 255
        endcase
    endselect
     
endfunction c