Sorry your browser is not supported!

// Project: occlusion 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "occlusion" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 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 cubex=30
#constant cubey=10
#constant cubez=30

b as integer[cubex,cubey,cubez]

cube  = CreateObjectBox(1,1,1)

camerax# = 10
cameray# = 30
cameraz# = -30
a=0
angx#=0
angy#=0
startx#=screenwidth/2

starty#=screenheight/2
SetRawMousePosition(startx#,starty#)

do
	if GetRawMouseLeftState()
		RotateObjectLocalX(cube,ScreenFPS()/100)
		RotateObjectLocalY(cube,ScreenFPS()/100)
		RotateObjectLocalZ(cube,ScreenFPS()/100)
	else
		//reset back to normal
		SetObjectRotation(cube,0,0,0)
	endif



	if GetRawKeyState(37) then dec camerax#
	if GetRawKeyState(39) then inc camerax#
	if GetRawKeyState(38) then inc cameraz#
	if GetRawKeyState(40) then dec cameraz#

	print("Press cursors to move about")
	print("Press Lft mouse to rotate to show the invisible objects indeed gone")
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
	//getcameraposition
    lx#=GetCameraX(1)
	ly#=GetCameraY(1)	
	lz#=GetCameraZ(1)

	print("Polygons Drawn - " + str(GetPolygonsDrawn()))  

// occull further objects
	for x=0 to cubex
		for y=0 to cubey
			for z=0 to cubez


			obx#=x
			oby#=y
			obz#=z
		
			dis2#=distance#(lx#,ly#,lz#,obx#,oby#,obz#)
			if dis2#>30 /// change this to your desired amount
				DeleteObject(b[x,y,z])
			else
				// display the edges 
				if x=0 or x=10 or y=0 or y=10 or z=0 or z=10
	
					if GetObjectExists(b[x,y,z])=0 
						b[x,y,z]=InstanceObject(cube)
						SetObjectVisible(b[x,y,z],1)
						SetObjectPosition(b[x,y,z],x,y,z)
						SetObjectColor(b[x,y,z],random(0,255),random(0,255),random(0,255),255)
						FixObjectToObject(b[x,y,z],cube)
					endif
					
				else
					// otherwise remove the remaining
					DeleteObject(b[x,y,z])
				endif
			endif
		next
	next
	next

// move camera with mouse

        fDiffX# = (GetPointerX() - startx#)/1.0
        fDiffY# = (GetPointerY() - starty#)/1.0
 
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )


    Print( ScreenFPS() )
    Sync()
loop


function distance#(x1#,y1#,z1#,x2#,y2#,z2#)
	value#=sqrt(((x2#-(x1#))^2)+((y2#-(y1#))^2)+((z2#-(z1#))^2))
endfunction value#

// Project: occlusion 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "occlusion" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 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 cubex=10
#constant cubey=10
#constant cubez=10

type _block
	air
	objid
endtype

b as _block[cubex,cubey,cubez]

	for x=0 to cubex
		for y=0 to cubey
			for z=0 to cubez
				b[x,y,z].air=random(0,1)
			next
		next
	next


cube  = CreateObjectBox(1,1,1)

camerax# = 10
cameray# = 30
cameraz# = -30
a=0
angx#=0
angy#=0
startx#=screenwidth/2

starty#=screenheight/2
SetRawMousePosition(startx#,starty#)

do
	if GetRawMouseLeftState()
		RotateObjectLocalX(cube,ScreenFPS()/ScreenFPS()/4)
		RotateObjectLocalY(cube,ScreenFPS()/ScreenFPS()/4)
		RotateObjectLocalZ(cube,ScreenFPS()/ScreenFPS()/4)
	else
		//reset back to normal
		SetObjectRotation(cube,0,0,0)
	endif

	print(GetRawLastKey())

	if GetRawKeyState(37) then dec camerax#,.2
	if GetRawKeyState(39) then inc camerax#,.2
	if GetRawKeyState(38) then inc cameraz#,.2
	if GetRawKeyState(40) then dec cameraz#,.2
	
	if GetRawKeyState(87) then inc cameray#,.2
	if GetRawKeyState(83) then dec cameray#,.2

	print("Press cursors to move about")
	print("Press Lft mouse to rotate to show the invisible objects indeed gone")
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
	//getcameraposition
    lx#=GetCameraX(1)
	ly#=GetCameraY(1)	
	lz#=GetCameraZ(1)

	print("Polygons Drawn - " + str(GetPolygonsDrawn()))  

		
	for x=0 to cubex
		for y=0 to cubey
			for z=0 to cubez


			obx#=x
			oby#=y
			obz#=z
		
			dis2#=distance#(lx#,ly#,lz#,obx#,oby#,obz#)
			if y>0 and dis2#>30 /// change this to your desired amount - camera distance to the objects
				DeleteObject(b[x,y,z].objid)
			else
				// display the edges 
				
	//			if x=0 or x=10 or y=0 or y=10 or z=0 or z=10
				if y>0 and dis2#<32
	
					if GetObjectExists(b[x,y,z].objid)=0

						if b[x,y,z].air=1

							b[x,y,z].objid=InstanceObject(cube)
							SetObjectVisible(b[x,y,z].objid,1)
							SetObjectPosition(b[x,y,z].objid,x,y,z)
							SetObjectColor(b[x,y,z].objid,random(0,255),random(0,255),random(0,255),255)
							FixObjectToObject(b[x,y,z].objid,cube)
						else
							
							DeleteObject(b[x,y,z].objid)
						endif
					endif
				endif	
		//		else
					// otherwise remove the remaining
				
			//		DeleteObject(b[x,y,z].objid)
		//		endif
			endif
		next
	next
	next

// move camera with mouse

        fDiffX# = (GetPointerX() - startx#)/1.0
        fDiffY# = (GetPointerY() - starty#)/1.0
 
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )


    Print( ScreenFPS() )
    Sync()
loop


function distance#(x1#,y1#,z1#,x2#,y2#,z2#)
	value#=sqrt(((x2#-(x1#))^2)+((y2#-(y1#))^2)+((z2#-(z1#))^2))
endfunction value#

SetWindowTitle( "Octree" )
SetWindowSize( 800, 600, 0 )

SetVirtualResolution( 800, 600 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate(0,0)
SetClearColor(0, 193, 255)
SetPrintSize(12)

CameraVectorID=CreateVector3()
PointerVectorID=CreateVector3()
PointVectorID=CreateVector3()

type OctTree_NodeData
	Depth as integer
	MinX# as float
	MinY# as float
	MinZ# as float
	MaxX# as float
	MaxY# as float
	MaxZ# as float
	Size# as float
	ObjectID as integer
	ParentID as integer
	ChildID as integer[7]
endtype

global OcTreeNode as OctTree_NodeData[]
global MaxDepth
MaxDepth=3

OcTree_CreateNode(-1,-1,-1,1,1,1,4,-1)

SphereObjectID=CreateObjectSphere(0.3,16,32)
SetObjectCollisionMode(SphereObjectID,0)
GridX#=0.125
GridY#=0.125
GridZ#=0.125
do
	print("Arrow keys to move the selection sphere and right mouse to remove/add a cube")
	Print(ScreenFPS())
	ControlCamera()

	//~ PointerX#=Get3DVectorXFromScreen(GetPointerX(),GetPointerY())
	//~ PointerY#=Get3DVectorYFromScreen(GetPointerX(),GetPointerY())
	//~ PointerZ#=Get3DVectorZFromScreen(GetPointerX(),GetPointerY())
	//~ SetVector3(PointerVectorID,PointerX#,PointerY#,PointerZ#)
	//~ SetVector3(CameraVectorID,GetCameraX(1),GetCameraY(1),GetCameraZ(1))
	//~ GetVector3Multiply(PointerVectorID,9999)
	//~ ObjectRayCast(0,GetVector3X(CameraVectorID),GetVector3Y(CameraVectorID),GetVector3Z(CameraVectorID),GetVector3X(PointerVectorID),GetVector3Y(PointerVectorID),GetVector3Z(PointerVectorID))
	//~ ObjectID=GetObjectRayCastHitID(0)
	//~ RayHitX#=GetObjectRayCastX(0)
	//~ RayHitY#=GetObjectRayCastY(0)
	//~ RayHitZ#=GetObjectRayCastZ(0)

	GridX#=GridX#-GetRawKeyPressed(37)*0.25+GetRawKeyPressed(39)*0.25
	GridY#=GridY#-GetRawKeyPressed(34)*0.25+GetRawKeyPressed(33)*0.25
	GridZ#=GridZ#-GetRawKeyPressed(40)*0.25+GetRawKeyPressed(38)*0.25
	SetObjectPosition(SphereObjectID,GridX#,GridY#,GridZ#)
	X#=GridX#
	Y#=GridY#
	Z#=GridZ#

	//~ NodeID=OcTree_Exist(0,X#,Y#,Z#)
	//~ print(NodeID)
	//~ if NodeID<>-1
		//~ print("ObjectID: "+str(OcTree_GetObjectID(NodeID)))
		//~ print("Depth: "+str(OcTreeNode[NodeID].Depth))
		//~ print("ParentID: "+str(OcTreeNode[NodeID].ParentID))
	//~ endif

	if GetRawMouseRightPressed()=1
		NodeID=OcTree_Exist(0,X#,Y#,Z#)
		if NodeID<>-1
			if GetObjectExists(OcTree_GetObjectID(NodeID))
				OcTree_RemoveNode(NodeID,X#,Y#,Z#)
			else
				OcTree_AddNode(NodeID,X#,Y#,Z#)
			endif
		endif
	endif

	for ID=0 to OcTreeNode.length
		print(str(ID,0)+","+str(OcTreeNode[ID].ParentID)+","+str(OcTreeNode[ID].Depth))
	next ID

	sync()
loop

function AddCube(Size#,X#,Y#,Z#)
	//~ message("Add Cube: size="+str(Size#)+" position="+str(X#,0)+","+str(Y#,0)+","+str(Z#,0))
	ObjectID=CreateObjectBox(Size#,Size#,Size#)
	SetObjectPosition(ObjectID,X#,Y#,Z#)
endfunction ObjectID

function RemoveCube(ObjectID)
	DeleteObject(ObjectID)
endfunction ObjectID

function OcTree_CreateNode(MinX#,MinY#,MinZ#,MaxX#,MaxY#,MaxZ#,Size#,ParentID)
	TempNode as OctTree_NodeData

	if ParentID=-1
		TempNode.Depth=0
	else
		TempNode.Depth=OcTreeNode[ParentID].Depth+1
	endif
	TempNode.MinX#=MinX#
	TempNode.MinY#=MinY#
	TempNode.MinZ#=MinZ#
	TempNode.MaxX#=MaxX#
	TempNode.MaxY#=MaxY#
	TempNode.MaxZ#=MaxZ#
	TempNode.Size#=Size#
	TempNode.ParentID=ParentID
	TempNode.ObjectID=AddCube(Size#*0.5,(MaxX#+MinX#)*0.5,(MaxY#+MinY#)*0.5,(MaxZ#+MinZ#)*0.5)

	for ChildID=0 to 7
		TempNode.ChildID[ChildID]=-1
	next ChildID

	OcTreeNode.insert(TempNode)
endfunction OcTreeNode.length

function OcTree_SplitNode(NodeID)
	TempNode as OctTree_NodeData
	TempNode=OcTreeNode[NodeID]
	HalfSize#=TempNode.Size#*0.5
	X#=GetObjectX(TempNode.ObjectID)
	Y#=GetObjectY(TempNode.ObjectID)
	Z#=GetObjectZ(TempNode.ObjectID)
	TempNode.ChildID[0]=OcTree_CreateNode(TempNode.MinX#,TempNode.MinY#,TempNode.MinZ#,X#,Y#,Z#,HalfSize#,NodeID)
	TempNode.ChildID[1]=OcTree_CreateNode(X#,TempNode.MinY#,TempNode.MinZ#,TempNode.MaxX#,Y#,Z#,HalfSize#,NodeID)
	TempNode.ChildID[2]=OcTree_CreateNode(X#,TempNode.MinY#,Z#,TempNode.MaxX#,Y#,TempNode.MaxZ#,HalfSize#,NodeID)
	TempNode.ChildID[3]=OcTree_CreateNode(TempNode.MinX#,TempNode.MinY#,Z#,X#,Y#,TempNode.MaxZ#,HalfSize#,NodeID)
	TempNode.ChildID[4]=OcTree_CreateNode(TempNode.MinX#,Y#,TempNode.MinZ#,X#,TempNode.MaxY#,Z#,HalfSize#,NodeID)
	TempNode.ChildID[5]=OcTree_CreateNode(X#,Y#,TempNode.MinZ#,TempNode.MaxX#,TempNode.MaxY#,Z#,HalfSize#,NodeID)
	TempNode.ChildID[6]=OcTree_CreateNode(X#,Y#,Z#,TempNode.MaxX#,TempNode.MaxY#,TempNode.MaxZ#,HalfSize#,NodeID)
	TempNode.ChildID[7]=OcTree_CreateNode(TempNode.MinX#,Y#,Z#,X#,TempNode.MaxY#,TempNode.MaxZ#,HalfSize#,NodeID)
	RemoveCube(TempNode.ObjectID)
	OcTreeNode[NodeID]=TempNode
endfunction

function OcTree_RemoveNode(NodeID,X#,Y#,Z#)
	if OcTreeNode[NodeID].Depth>=MaxDepth
		RemoveCube(OcTreeNode[NodeID].ObjectID)
	else
		OcTree_SplitNode(NodeID)
		for ChildID=0 to 7
			if OcTree_InsideNode(OcTreeNode[NodeID].ChildID[ChildID],X#,Y#,Z#)=1
				OcTree_RemoveNode(OcTreeNode[NodeID].ChildID[ChildID],X#,Y#,Z#)
				exit
			endif
		next ChildID
	endif
endfunction

function OcTree_UniteNode(NodeID)
	TempNode as OctTree_NodeData
	TempNode=OcTreeNode[NodeID]

	for ChildID=0 to 7
		RemoveCube(OcTreeNode[TempNode.ChildID[ChildID]].ObjectID)
	next ChildID

	ParentNode as OctTree_NodeData
	ParentNode=OcTreeNode[TempNode.ParentID]
	OcTree_CreateNode(ParentNode.MinX#,ParentNode.MinY#,ParentNode.MinZ#,ParentNode.MaxX#,ParentNode.MaxY#,ParentNode.MaxZ#,ParentNode.Size#,NodeID)

	OcTreeNode[NodeID]=TempNode
endfunction

function OcTree_FullParent(NodeID)
	ParentID=OcTreeNode[NodeID].ParentID
	for ChildID=0 to 7
		if OcTreeNode[ParentID].ChildID[ChildID]=-1 then exitfunction 0
	next ChildID
endfunction 1

function OcTree_Combine(NodeID)
	if OcTree_FullParent(NodeID)=1 and OcTreeNode[NodeID].Depth>1
		MaxX#=OcTreeNode[NodeID].MaxX#
		MaxY#=OcTreeNode[NodeID].MaxY#
		MaxZ#=OcTreeNode[NodeID].MaxZ#
		MinX#=OcTreeNode[NodeID].MinX#
		MinY#=OcTreeNode[NodeID].MinY#
		MinZ#=OcTreeNode[NodeID].MinZ#
		Size#=OcTreeNode[NodeID].Size#
		Depth=OcTreeNode[NodeID].Depth
		ParentID=OcTreeNode[NodeID].ParentID
		ObjectID=OcTreeNode[NodeID].ObjectID
		OcTreeNode.remove(NodeID)

		OcTree_CreateNode(MinX#,MinY#,MinZ#,MaxX#,MaxY#,MaxZ#,Size#,ParentID)
		for ChildID=7 to 0 step -1
			ID=OcTreeNode[ParentID].ChildID[ChildID]
			OcTreeNode[ParentID].ChildID[ChildID]=-1
			DeleteObject(OcTreeNode[ID].ObjectID)
			OcTreeNode.remove(ID)
		next ChildID

		OcTree_Combine(ParentID)
	endif
endfunction

function OcTree_AddNode(NodeID,X#,Y#,Z#)
	if OcTreeNode[NodeID].Depth>=MaxDepth
		OcTree_Combine(NodeID)
	else
		for ChildID=0 to 7
			if OcTree_InsideNode(OcTreeNode[NodeID].ChildID[ChildID],X#,Y#,Z#)=1
				OcTree_AddNode(OcTreeNode[NodeID].ChildID[ChildID],X#,Y#,Z#)
				exit
			endif
		next ChildID
	endif
endfunction

function OcTree_Exist(NodeID,X#,Y#,Z#)
	for ChildID=0 to 7
		if OcTreeNode[NodeID].ChildID[ChildID]<>-1
			if OcTree_InsideNode(OcTreeNode[NodeID].ChildID[ChildID],X#,Y#,Z#)=1
				ID=OcTree_Exist(OcTreeNode[NodeID].ChildID[ChildID],X#,Y#,Z#)
				if ID<>-1 then exitfunction ID
			endif
		endif
	next ChildID
	if OcTree_InsideNode(NodeID,X#,Y#,Z#)=1 then exitfunction NodeID
endfunction -1

function OcTree_InsideNode(NodeID,X#,Y#,Z#)
	if NodeID<=OcTreeNode.length
		if X#>=OcTreeNode[NodeID].MinX# and X#<=OcTreeNode[NodeID].MaxX#
			if Y#>=OcTreeNode[NodeID].MinY# and Y#<=OcTreeNode[NodeID].MaxY#
				if Z#>=OcTreeNode[NodeID].MinZ# and Z#<=OcTreeNode[NodeID].MaxZ#
					exitfunction 1
				endif
			endif
		endif
	endif
endfunction 0

function OcTree_GetObjectID(NodeID)
endfunction OcTreeNode[NodeID].ObjectID

function ControlCamera()
	global startx#
	global starty#
	global angx#
	global angY#

	speed#=40*GetFrameTime()

	// move the camera with keys
	if GetKeyboardExists()=1
		if(GetRawKeyState(87)) then MoveCameraLocalZ(1, speed# )
		if(GetRawKeyState(83)) then MoveCameraLocalZ(1, -speed# )
		if(GetRawKeyState(65)) then MoveCameraLocalX(1, -speed# )
		if(GetRawKeyState(68)) then MoveCameraLocalX(1, speed# )
		if(GetRawKeyState(81)) then MoveCameraLocalY(1, -speed# )
		if(GetRawKeyState(69)) then MoveCameraLocalY(1, speed# )
	else
		JoystickSize#=GetVirtualHeight()*0.25
		SetJoystickScreenPosition(GetScreenBoundsLeft()+JoystickSize#*0.5,GetScreenBoundsBottom()-JoystickSize#*0.5,JoystickSize#)
		MoveCameraLocalZ( 1, -GetJoystickY() * speed# )
		MoveCameraLocalX( 1, GetJoystickX() * speed# )
	endif

	// rotate the camera
    if GetPointerPressed()=1
        startx# = GetPointerX()
        starty# = GetPointerY()
        angx# = GetCameraAngleX(1)
        angy# = GetCameraAngleY(1)
    endif

    if GetPointerState()=1
        fDiffX# = (GetPointerX() - startx#)
        fDiffY# = (GetPointerY() - starty#)

        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction

// Project: greedy algorythm 
// Created: 2019-01-02

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "greedy algorythm" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 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 nongreedy=0

global strings as string[]

global boxes as integer[]


makemap()
buildmap_Greedy()


angx#=0
angy#=0
startx#=screenwidth/2
starty#=screenheight/2
SetRawMousePosition(startx#,starty#)
do

	print("greedy cubes " + str(boxes.length))
	print("compared to non greedy cubes " + str(nongreedy))

	if GetRawMouseLeftPressed()
		dispose()
		buildmap_Greedy()
	endif



        fDiffX# = (GetPointerX() - startx#)/1.0
        fDiffY# = (GetPointerY() - starty#)/1.0
 
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
    

    Print( ScreenFPS() )
    Sync()
loop

function buildmap_Greedy()
	a=0
	
	xcount=0
	zcount=0
	startedx=1
	for z=0 to strings.length
		posx=0
		for x=1 to len(strings[z])
			inc nongreedy
			if mid(strings[z],x,1)="1" 
				inc xcount
				if startedx=1 then posx=x+1
				startedx=2
				
				made=0	
			else
				
				
				if made=0
					boxes.insert(CreateObjectBox(xcount,1,1)) // +1 cause xcount starts at 0
			
					SetObjectPosition(boxes[a],posx+xcount/2,0,z)
					SetObjectColor(boxes[a],random(200,255),random(200,255),random(200,255),255)
					inc a
					startedx=1
					xcount=0
				else
					made=1
				endif
				inc posx,2
			endif
			
		next

//		if made=0 // is the object been made yet for this row
//				boxes.insert(CreateObjectBox(xcount+1,1,1)) // +1 cause xcount starts at 0
			
//				SetObjectPosition(boxes[a],x,0,z)
//				SetObjectColor(boxes[a],random(200,255),random(200,255),random(200,255),255)
//				inc a
//				xcount=0
//		endif
	next

endfunction

function dispose()
	
	for a=0 to boxes.length
		DeleteObject(a)
	next
endfunction

function makemap()
	
	strings.insert("1010110111011110")
	strings.insert("1101110111100100")
	strings.insert("1111010111111010")
	strings.insert("1111100111010110")
	strings.insert("1111110110010110")
	strings.insert("1111110011110010")
	
	
	
endfunction

// Project: greedy algorythm 
// Created: 2019-01-02

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "greedy algorythm" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 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 nongreedy=0

global strings as string[]

global boxes as integer[]


makemap()
buildmap_Greedy()


angx#=0
angy#=0
startx#=screenwidth/2
starty#=screenheight/2
SetRawMousePosition(startx#,starty#)
do

	print("greedy cubes " + str(boxes.length))
	print("compared to non greedy cubes " + str(nongreedy))

	if GetRawMouseLeftPressed()
		dispose()
		buildmap_Greedy()
	endif



        fDiffX# = (GetPointerX() - startx#)/1.0
        fDiffY# = (GetPointerY() - starty#)/1.0
 
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
    

    Print( ScreenFPS() )
    Sync()
loop

function buildmap_Greedy()
	a=0
	
	xcount=0
	zcount=0
	startedx=1
	for z=0 to strings.length
		posx=0
		for x=1 to len(strings[z])
			inc nongreedy
			if mid(strings[z],x,1)="1" 
				inc xcount
				if startedx=1 then posx=x+1
				startedx=2
				
				made=0	
			else
				
				
				if made=0
					boxes.insert(CreateObjectBox(xcount,1,1)) // +1 cause xcount starts at 0
			
					SetObjectPosition(boxes[a],posx+xcount/2,0,z)
					SetObjectColor(boxes[a],random(200,255),random(200,255),random(200,255),255)
					inc a
					startedx=1
					xcount=0
				else
					made=1
				endif
				inc posx,2
			endif
			
		next

//		if made=0 // is the object been made yet for this row
//				boxes.insert(CreateObjectBox(xcount+1,1,1)) // +1 cause xcount starts at 0
			
//				SetObjectPosition(boxes[a],x,0,z)
//				SetObjectColor(boxes[a],random(200,255),random(200,255),random(200,255),255)
//				inc a
//				xcount=0
//		endif
	next

endfunction

function dispose()
	
	for a=0 to boxes.length
		DeleteObject(a)
	next
endfunction

function makemap()
	
	for z=0 to 100
		strings.insert("")
		for x=0 to 100
			strings[z]=strings[z]+str(random(0,1))
			
		next
	next
	
	
endfunction

for x=0 to 30 
     for y=0 to 30
         for z=0 to 30
            create cube
             set position of x,y,z
         next
     next
next

// Project: greedy algorythm 
// Created: 2019-01-02
  
// show all errors
SetErrorMode(2)
  
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
  
// set window properties
SetWindowTitle( "greedy algorythm" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
  
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 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 Vertex
       
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
   
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
   
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
   
global MeshID as Mesh
 
  
global nongreedy=0
  
global strings as string[]
  
type _boxes
    id
    x#
    y#
    z#
endtype
global boxes as _boxes[]
global box as _boxes
  
 
size= 16
for x#=-size to size
    for y#=-size to size
        for z#=-size to size
     
            if random(0,1)=1
                buildAGKCubeIntoMesh(x#,y#,z#, MakeColor(0,random(200,255),0))
                inc nongreedy
            endif
        next
    next
next
 
 
ncube = CreateObjectFromMeshWithColor(meshid)
ncube1 = CreateObjectFromMeshWithColor(meshid)
SetObjectCullMode(ncube,1)
SetObjectCullMode(ncube1,1)
FixObjectToObject(ncube1,ncube)


SetObjectPosition(ncube1,0,0,50)
 
SetObjectPosition(ncube,1,0,0)
 
SetCameraPosition(1,0,50,-100)
 
angx#=0
angy#=0
startx#=screenwidth/2
starty#=screenheight/2
SetRawMousePosition(startx#,starty#)
do
	print("Polygons : " + str(GetPolygonsDrawn()))
    print("greedy cubes " + str(boxes.length))
    print("compared to non greedy cubes " + str(nongreedy))
       print("Press lft mouse to create an OBJ")
    if GetRawMouseLeftPressed()
           // AGM_SaveObject(boxes,1,"boxes","raw:c:\database\","test.obj","test.mtl","",0)
    endif
  
  
	if GetRawKeyState(37) then MoveObjectLocalX(ncube1,-1)
	if GetRawKeyState(39) then MoveObjectLocalX(ncube1,1)
		
  
  
  
    if GetRawKeyPressed(27) then end
  
        fDiffX# = (GetPointerX() - startx#)/4.0
        fDiffY# = (GetPointerY() - starty#)/4.0
   
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
      
  
    Print( ScreenFPS() )
    Sync()
loop
 
function buildAGKCubeIntoMesh(x#,y#,z#,c)
cube = CreateObjectBox(1,1,1)
SetObjectPosition(cube,x#,y#,z#)
 
mesh = CreateMemblockFromObjectMesh(cube,1)
verts=GetMemblockInt(mesh,0)
 
for v=0 to verts-1 step 4
    vx1# = GetMeshMemblockVertexX(mesh,v) + x#
    vy1# = GetMeshMemblockVertexY(mesh,v) + y#
    vz1# = GetMeshMemblockVertexZ(mesh,v) + z#
     
    vnx1# = GetMeshMemblockVertexNormalX(mesh,v) 
    vny1# = GetMeshMemblockVertexNormalY(mesh,v) 
    vnz1# = GetMeshMemblockVertexNormalZ(mesh,v)    
     
    vx2# = GetMeshMemblockVertexX(mesh,v+1) + x#
    vy2# = GetMeshMemblockVertexY(mesh,v+1) + y#
    vz2# = GetMeshMemblockVertexZ(mesh,v+1) + z#
 
    vnx2# = GetMeshMemblockVertexNormalX(mesh,v+1) 
    vny2# = GetMeshMemblockVertexNormalY(mesh,v+1) 
    vnz2# = GetMeshMemblockVertexNormalZ(mesh,v+1)  
     
    vx3# = GetMeshMemblockVertexX(mesh,v+2) + x#
    vy3# = GetMeshMemblockVertexY(mesh,v+2) + y#
    vz3# = GetMeshMemblockVertexZ(mesh,v+2) + z#
     
    vnx3# = GetMeshMemblockVertexNormalX(mesh,v+2) 
    vny3# = GetMeshMemblockVertexNormalY(mesh,v+2) 
    vnz3# = GetMeshMemblockVertexNormalZ(mesh,v+2)  
 
    vx4# = GetMeshMemblockVertexX(mesh,v+3) + x#
    vy4# = GetMeshMemblockVertexY(mesh,v+3) + y#
    vz4# = GetMeshMemblockVertexZ(mesh,v+3) + z#
     
    vnx4# = GetMeshMemblockVertexNormalX(mesh,v+3) 
    vny4# = GetMeshMemblockVertexNormalY(mesh,v+3) 
    vnz4# = GetMeshMemblockVertexNormalZ(mesh,v+3)  
 
    AddVertex(meshid,vx1#,vy1#,vz1#,vnx1#,vny1#,vnz1#,0,0,c)
    AddVertex(meshid,vx2#,vy2#,vz2#,vnx2#,vny2#,vnz2#,0,0,c)
    AddVertex(meshid,vx3#,vy3#,vz3#,vnx3#,vny3#,vnz3#,0,0,c)
 
 
    AddVertex(meshid,vx3#,vy3#,vz3#,vnx3#,vny3#,vnz3#,0,0,c)
    AddVertex(meshid,vx2#,vy2#,vz2#,vnx2#,vny2#,vnz2#,0,0,c)
    AddVertex(meshid,vx4#,vy4#,vz4#,vnx4#,vny4#,vnz4#,0,0,c)    
     
     
     
next
 
deleteobject (cube)
endfunction
 
 
  
function buildmap_Greedy(sizey)
    box as _boxes
    a=0
      
    xcount=0
    zcount=0
    startedx=1
    nongreedy=0
    for z=0 to strings.length
        for y=0 to sizey
        posx=0
        for x=1 to len(strings[z])
            inc nongreedy
            if mid(strings[z],x,1)="1"
                inc xcount
                if startedx=1 then posx=x+1
                startedx=2
                  
                made=0  
            else
                  
                  
                if made=0
                    box.id = CreateObjectBox(xcount,1,1) // +1 cause xcount starts at 0
                    box.x# = posx+xcount/2
                    box.y# = y
                    box.z# = z
                    boxes.insert(box)
                    SetObjectPosition(boxes[a].id,boxes[a].x#,boxes[a].y#,boxes[a].z#)
                      
                    SetObjectColor(boxes[a].id,random(200,255),random(200,255),random(200,255),255)
                    inc a
                    startedx=1
                    xcount=0
                else
                    made=1
                endif
                  
            endif
              
        next
  
//      if made=0 // is the object been made yet for this row
//              boxes.insert(CreateObjectBox(xcount+1,1,1)) // +1 cause xcount starts at 0
              
//              SetObjectPosition(boxes[a],x,0,z)
//              SetObjectColor(boxes[a],random(200,255),random(200,255),random(200,255),255)
//              inc a
//              xcount=0
//      endif
  
        next
    next
  
endfunction
  
function dispose()
      
    for a=0 to boxes.length
        DeleteObject(boxes[a].id)
    next
    strings.length=-1
    boxes.length=-1
endfunction
  
function makemap(sizex,sizey,sizez)
      
    for z=0 to sizez
            strings.insert("")
            for x=0 to sizex
                strings[z]=strings[z]+str(random(0,1))
              
          
            next
            strings[z]=strings[z]+"0"
    next
      
      
endfunction
 
 
 
 
function emptymesh()
    MeshID.VertexList.Length=-1
    MeshID.TriangleList.Length=-1
     
      
endfunction
   
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
   
endfunction
   
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
   
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
     
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
       
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
  
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
   
   
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
       
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
   
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
       
//  DeleteMemblock(memblock)
endfunction id