Sorry your browser is not supported!

// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

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

// set window properties
SetWindowTitle( "lego" )
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 nobblecount=0
global nobbles as integer[]

block1 = createlegopeice(10,1,0,0,255)
SetObjectPosition(block1,-5,0,0)

block2 = createlegopeice(5,5,255,255,0)
SetObjectPosition(block2,5,0,0)


block3 = createlegopeice(8,8,255,255,255)
SetObjectPosition(block3,5,0,10)


block4 = createlegopeice(5,2,255,0,255)
SetObjectPosition(block4,-5,0,10)




do
    RotateObjectLocalY(block1,.1)

    Print( ScreenFPS() )
    Sync()
loop

function createlegopeice(x#,z#,r,g,b)
	
	peice = CreateObjectBox(x#,1,z#)
	
	posx=floor(x#/2)
	posz=floor(z#/2)
	
	
	for xx#=1 to x#
		for zz#=1 to z#
			nobbles.insert(CreateObjectCylinder(1,.5,12))
			
			SetObjectPosition(nobbles[nobblecount],-(x#/2)+xx#-.5,.2,-(z#/2)+zz#-.5)
			
			FixObjectToObject(nobbles[nobblecount],peice)
			SetObjectColor(nobbles[nobblecount],r,g,b,255)
			inc nobblecount
		next
	next
	
	SetObjectColor(peice,r,g,b,255)

endfunction peice

// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

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

// set window properties
SetWindowTitle( "lego" )
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 nobblecount=0
global nobbles as integer[]
global land as integer[]
global peices as integer[]

size=10

landid=0
for x=-3 to 3
	for z=-3 to 3
		land.insert(createlegopeice(size,size,0,0,255))
		SetObjectPosition(land[landid],x * size, 0, z * size)
		inc landid
	next
next

peicesid=0
for x=-3 to 3
	for z=-3 to 3
		peices.insert(createlegopeice(random(1,5),random(1,5),random(0,255),random(0,255),random(0,255)))
		SetObjectPosition(peices[peicesid],random2(-size*2,size*2),2,random2(-size*2,size*2))
		inc peicesid
	next
next


/*block2 = createlegopeice(5,5,255,255,0)
SetObjectPosition(block2,5,0,0)


block3 = createlegopeice(1,8,255,255,255)
SetObjectPosition(block3,5,0,10)


block4 = createlegopeice(5,2,255,0,255)
SetObjectPosition(block4,-5,0,10)
*/



do

    Print( ScreenFPS() )
    Sync()
loop

function createlegopeice(x#,z#,r,g,b)
	
	peice = CreateObjectBox(x#,1,z#)
	
	for xx#=1 to x#
		for zz#=1 to z#
			nobbles.insert(CreateObjectCylinder(1,.5,12))
			
			SetObjectPosition(nobbles[nobblecount],-(x#/2)+xx#-.5,.2,-(z#/2)+zz#-.5)
			
			FixObjectToObject(nobbles[nobblecount],peice)
			SetObjectColor(nobbles[nobblecount],r,g,b,255)
			inc nobblecount
		next
	next
	
	SetObjectColor(peice,r,g,b,255)

endfunction peice

// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

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

// set window properties
SetWindowTitle( "lego" )
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 nobblecount=0
global nobbles as integer[]
global land as integer[]
global peices as integer[]


size#=180
land.insert(createlegopeice(size#,size#,random(200,255),random(200,255),random(200,255)))


do

    Print( ScreenFPS() )
    Sync()
loop

function createlegopeice(x#,z#,r,g,b)
	
	peice = CreateObjectBox(x#,1,z#)
	
	for xx#=1 to x#
		for zz#=1 to z#
			nobbles.insert(CreateObjectCylinder(1,.5,12))
			
			SetObjectPosition(nobbles[nobblecount],-(x#/2)+xx#-.5,.2,-(z#/2)+zz#-.5)
			
			FixObjectToObject(nobbles[nobblecount],peice)
			SetObjectColor(nobbles[nobblecount],r,g,b,255)
			inc nobblecount
		next
	next
	
	SetObjectColor(peice,r,g,b,255)

endfunction peice

// show all errors
SetErrorMode(2)

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

createobjectbox(1,40,2,40)
setobjectcolor(1,100,80,0,0)
SetObjectTransparency(1,1)
SetObjectAlpha(1,80)
createobjectbox(2,2,15,2)
setobjectposition(2,15,7,15)
fixobjectpivot(2)
createobjectbox(3,8,8,8)
setobjectrotation(3,0,45,0)
setobjectposition(3,-5,4,-5)
fixobjectpivot(3)
for a= 4 to 10
	createobjectbox(a,3,3,3)
	setobjectrotation(a,random(0,180),random(0,180),random(0,180))
	setobjectposition(a,-50+random(0,100),5+random(0,10),-50+random(0,100))
	fixobjectpivot(a)
next
v=1000
mesh = CreateMemblockFromObjectMesh(1,1)
`get obj verts
verts= GetMemblockInt( mesh, 0 )
for i= 0 to 15
	 if i=4 then i=12
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 inc v
	 createobjectsphere(v,1,10,10)
	 setobjectcolor(v,255,0,0,0)
	 setobjectposition(v,x#,y#,z#)
	createtext(v,str(v-1000))
    settextsize(v,20)
 next i
DeleteMemblock(1)
 //fixing mesh
SetObjectMeshFromMemblock(1,1,mesh)

gosub save

loadobject(1000,"cubo.obj")
setobjectposition(1000,20,15,0)
//setobjectcullmode(1000,0)
loadimage(1,"kja.png")
setobjectimage(1000,1,0)
SetObjectLightMode(1000,0)

SetAmbientColor(10,10,10)
SetSunActive(0)
createpointlight(1,0,0,0,400,0,255,0)

setcameraposition(1,-50,50,-50)
SetCameraLookAt(1,0,0,0,0)
do
   for i= 1001 to 1008
	x#=getobjectx(i)
	y#=getobjecty(i)
	z#=getobjectz(i)
	px = GetScreenXFrom3D( x#,y#,z#)
    py = GetScreenYFrom3D( x#,y#,z#) 
 	settextposition(i,px,py) 
next 
    gosub camara
    SetPointLightPosition(1,getcamerax(1),getcameray(1),getcameraz(1))
    Print( ScreenFPS() )
    Sync()
loop

save:

OpenToWrite ( 1, "raw:d:\agk2\cubo nuevo\media\cubo.obj", 0 )
n=0
for t= 1 to 10
mesh = CreateMemblockFromObjectMesh(t,1)
`get obj verts
verts= GetMemblockInt( mesh, 0 )
v=1000
writeline(1,"g ") 
for i= 0 to 15
	 if i=4 then i=12
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
     inc v
	 setobjectposition(v,x#,y#,z#)
 next i
 
 `VERTEX     just eight vertex
 for i= 1001 to 1008
	 x#=getobjectx(i)
	 y#=getobjecty(i)
	 z#=getobjectz(i)
     Writeline ( 1, " v " + str(x#)+ " "+str(y#)+ " "+str(-z#))
 next i
 
for j= 1 to 2
  Writeline ( 1, " vt " + str(0.0)+ " "+str(0.0))
  Writeline ( 1, " vt " + str(0.0)+ " "+str(1.0))
  Writeline ( 1, " vt " + str(1.0)+ " "+str(0.0))
  Writeline ( 1, " vt " + str(1.0)+ " "+str(1.0))
next

`normals
Writeline ( 1, " vn " + str(0.0)+ " "+str(0.0)+" "+str(-1.0))
Writeline ( 1, " vn " + str(1.0)+ " "+str(0.0)+" "+str(0.0)) 
Writeline ( 1, " vn " + str(-0.0)+ " "+str(-0.0)+" "+str(1.0)) 
Writeline ( 1, " vn " + str(-1.0)+ " "+str(-0.0)+" "+str(-0.0))
Writeline ( 1, " vn " + str(0.0)+ " "+str(-1.0)+" "+str(0.0))
Writeline ( 1, " vn " + str(0.0)+ " "+str(1.0)+" "+str(0.0))
Writeline ( 1, " vn " + str(0.0)+ " "+str(0.0)+" "+str(-1.0))
Writeline ( 1, " vn " + str(1.0)+ " "+str(0.0)+" "+str(0.0))  
 
 `six faces of four vertex
Writeline ( 1, " f " + str(4+n)+"/"+str(4+n)+"/"+str(1)+ " "+str(3+n)+"/"+str(3+n)+"/"+str(1)+ " "+str(1+n)+"/"+str(1+n)+"/"+str(1)+" "+str(2+n)+"/"+str(2+n)+"/"+str(1))
Writeline ( 1, " f " + str(6+n)+"/"+str(6+n)+"/"+str(2)+ " "+str(5+n)+"/"+str(5+n)+"/"+str(2)+ " "+str(3+n)+"/"+str(3+n)+"/"+str(2)+" "+str(4+n)+"/"+str(4+n)+"/"+str(2))
Writeline ( 1, " f " + str(8+n)+"/"+str(8+n)+"/"+str(3)+ " "+str(7+n)+"/"+str(7+n)+"/"+str(3)+ " "+str(5+n)+"/"+str(5+n)+"/"+str(3)+" "+str(6+n)+"/"+str(6+n)+"/"+str(3))
Writeline ( 1, " f " + str(2+n)+"/"+str(2+n)+"/"+str(4)+ " "+str(1+n)+"/"+str(1+n)+"/"+str(4)+ " "+str(7+n)+"/"+str(7+n)+"/"+str(4)+" "+str(8+n)+"/"+str(8+n)+"/"+str(4))
Writeline ( 1, " f " + str(3+n)+"/"+str(3+n)+"/"+str(5)+ " "+str(5+n)+"/"+str(5+n)+"/"+str(5)+ " "+str(7+n)+"/"+str(7+n)+"/"+str(5)+" "+str(1+n)+"/"+str(1+n)+"/"+str(5))
Writeline ( 1, " f " + str(4+n)+"/"+str(4+n)+"/"+str(6)+ " "+str(2+n)+"/"+str(2+n)+"/"+str(6)+ " "+str(8+n)+"/"+str(8+n)+"/"+str(6)+" "+str(6+n)+"/"+str(6+n)+"/"+str(6))
n=n+8

 
DeleteMemblock(1)
next

  CloseFile ( 1 )





return


camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) 
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) 
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		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 )
	 endif
return

/// Project: Mesh Template
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant size=32  // Size of the chunk in X and Z direction - make this small so the chunk can be quickly rebuilt in processing
#constant renderdistance=0 // how many chunks surrounding each other - call it render distance variable

// set window properties
SetWindowTitle( "Mesh Template" )
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 angx#,angy#,startx#,starty#,cube,collisioncoordx,collisioncoordz,collisioncoordy
global numofchunks, numofcubes,chunk
global img,camerax#,cameray#,cameraz#,centrespr, minx,miny,minz,maxx,maxy,maxz, actualverts
global vertexcounter=0


// meshmemblock types
Type Vertex
    air as integer  
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
endtype
  
global MeshID as Mesh

x#=0
y#=0
z#=0
sizex#=10

sizez#=10
c=1



	AddVertex(meshid, x#  		,y#,z# 			, 0,1,0, 0	,0		, c)
	AddVertex(meshid, x#  		,y#,z#-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#+sizex#	,y#,z# 			, 0,1,0, .5  ,0		, c)

	AddVertex(meshid, x#+sizex#	,y#,z# 			, 0,1,0, .5 ,0		, c)
	AddVertex(meshid, x#  		,y#,z#-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#+sizex#	,y#,z#-sizez# 	, 0,1,0, .5 ,.5	, c)



obj=CreateObjectFromMeshWithUVTexturing(meshid,1,0)

startx#=screenwidth/2
starty#=screenheight/2
do
	print(GetPolygonsDrawn())
	movecamera()
    Print( ScreenFPS() )
    Sync()
loop


function movecamera()
	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 )
	
endfunction
function addCubeToMesh(x#,y#,z#,sizex#,sizey#,sizez#,c)
	
	
	// do adjacent culling check
	cx = floor(x#)
	cy = floor(y#)
	cz = floor(z#)
	
	
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0	,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5  ,0		, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5 ,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, .5 ,.5	, c)

	// BOTTOM face - top right corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0.5,0  	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0, 1,0		, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,0.5	, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 1,0		, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 1,0.5		, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,0.5		, c)


	// Left Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0,1, c)
	

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0, 0.5,1, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0,1, c)
		
	// Right Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0,1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, 0.5,0.5, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0,1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,1, c)

		
	// Front Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0   , 0    , 0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0   , 0    , 1  , c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0   , .5 , 1  , c)

	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5  , 1, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#  	, 0,1,0  , .5  , .5  , c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)		   	, 0,1,0  , 0    , .5  , c)

	// Back Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)			, 0,1,0   , 0   , 0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0   , .5   , 1  , c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0   , 0   , 1  , c)


	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5   , 1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)		   	, 0,1,0  , 0    , .5  , c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0  , .5  , .5 , c)


	
endfunction


function emptymesh()
	meshid.VertexList.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, air 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.air = air
    m.VertexList.Insert(vert)
  
endfunction
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, MeshIndex,texture)
    DeleteMemblock(chunkmesh)
    VertexCount = m.VertexList.Length + 1
   
    IndexCount = 0
    IndexOffset = 60 + VertexCount*36
    chunkmesh = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(chunkmesh,0,VertexCount)
    SetMemblockInt(chunkmesh,4,IndexCount)
    SetMemblockInt(chunkmesh,8,3)
    SetMemblockInt(chunkmesh,12,32) // no color - 36 if color
    SetmemblockInt(chunkmesh,16,60)
    SetMemblockInt(chunkmesh,20,IndexOffset)
    SetMemblockInt(chunkmesh,24,0x0c000300)
    SetMemblockString(chunkmesh,28,"position")
    SetMemblockInt(chunkmesh,40,0x08000300)
    SetMemblockString(chunkmesh,44,"normal")
    SetMemblockInt(chunkmesh,52,0x04000200)
    SetMemblockString(chunkmesh,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
			
		if m.VertexList[i].air = 1 // has a block there
			SetMemblockFloat(chunkmesh,60+i*32,m.VertexList[i].x)
			SetMemblockFloat(chunkmesh,64+i*32,m.VertexList[i].y)
			SetMemblockFloat(chunkmesh,68+i*32,m.VertexList[i].z)
			SetMemblockFloat(chunkmesh,72+i*32,m.VertexList[i].nx)
			SetMemblockFloat(chunkmesh,76+i*32,m.VertexList[i].ny)
			SetMemblockFloat(chunkmesh,80+i*32,m.VertexList[i].nz)
			SetMemblockFloat(chunkmesh,84+i*32,m.VertexList[i].u)
			SetMemblockFloat(chunkmesh,88+i*32,m.VertexList[i].v)
		endif
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
//    DeleteAllObjects()
	DeleteObject(1)

    CreateObjectFromMeshMemblock(1,chunkmesh)
    SetObjectImage(1,texture,0)
	SetObjectColor(1,255,255,255,10)
endfunction 1

/// Project: Mesh Template
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant size=32  // Size of the chunk in X and Z direction - make this small so the chunk can be quickly rebuilt in processing
#constant renderdistance=0 // how many chunks surrounding each other - call it render distance variable

// set window properties
SetWindowTitle( "Mesh Template" )
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 angx#,angy#,startx#,starty#,cube,collisioncoordx,collisioncoordz,collisioncoordy
global numofchunks, numofcubes,chunk
global img,camerax#,cameray#,cameraz#,centrespr, minx,miny,minz,maxx,maxy,maxz, actualverts
global vertexcounter=0


// meshmemblock types
Type Vertex
    air as integer  
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
endtype
  
global MeshID as Mesh

x#=0
y#=0
z#=0
sizex#=10

sizez#=10
c=1



	AddVertex(meshid, x#  		,y#,z# 			, 0,1,0, 0	,0		, c)
	AddVertex(meshid, x#  		,y#,z#-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#+sizex#	,y#,z# 			, 0,1,0, .5  ,0		, c)

	AddVertex(meshid, x#+sizex#	,y#,z# 			, 0,1,0, .5 ,0		, c)
	AddVertex(meshid, x#  		,y#,z#-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#+sizex#	,y#,z#-sizez# 	, 0,1,0, .5 ,.5	, c)



obj=CreateObjectFromMeshWithUVTexturing(meshid,1,0)

startx#=screenwidth/2
starty#=screenheight/2
do
	print("Polies "+ str(GetPolygonsDrawn()))
	print("Tiangles"+ str(GetPolygonsDrawn()*3))
	movecamera()
    Print( ScreenFPS() )
    Sync()
loop


function movecamera()
	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 )
	
endfunction
function addCubeToMesh(x#,y#,z#,sizex#,sizey#,sizez#,c)
	
	
	// do adjacent culling check
	cx = floor(x#)
	cy = floor(y#)
	cz = floor(z#)
	
	
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0	,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5  ,0		, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5 ,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, .5 ,.5	, c)

	// BOTTOM face - top right corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0.5,0  	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0, 1,0		, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,0.5	, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 1,0		, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 1,0.5		, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,0.5		, c)


	// Left Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0,1, c)
	

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0, 0.5,1, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0,1, c)
		
	// Right Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0,1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, 0.5,0.5, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0,1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,1, c)

		
	// Front Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0   , 0    , 0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0   , 0    , 1  , c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0   , .5 , 1  , c)

	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5  , 1, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#  	, 0,1,0  , .5  , .5  , c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)		   	, 0,1,0  , 0    , .5  , c)

	// Back Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)			, 0,1,0   , 0   , 0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0   , .5   , 1  , c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0   , 0   , 1  , c)


	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5   , 1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)		   	, 0,1,0  , 0    , .5  , c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0  , .5  , .5 , c)


	
endfunction


function emptymesh()
	meshid.VertexList.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, air 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.air = air
    m.VertexList.Insert(vert)
  
endfunction
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, MeshIndex,texture)
    DeleteMemblock(chunkmesh)
    VertexCount = m.VertexList.Length + 1
   
    IndexCount = 0
    IndexOffset = 60 + VertexCount*36
    chunkmesh = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(chunkmesh,0,VertexCount)
    SetMemblockInt(chunkmesh,4,IndexCount)
    SetMemblockInt(chunkmesh,8,3)
    SetMemblockInt(chunkmesh,12,32) // no color - 36 if color
    SetmemblockInt(chunkmesh,16,60)
    SetMemblockInt(chunkmesh,20,IndexOffset)
    SetMemblockInt(chunkmesh,24,0x0c000300)
    SetMemblockString(chunkmesh,28,"position")
    SetMemblockInt(chunkmesh,40,0x08000300)
    SetMemblockString(chunkmesh,44,"normal")
    SetMemblockInt(chunkmesh,52,0x04000200)
    SetMemblockString(chunkmesh,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
			
		if m.VertexList[i].air = 1 // has a block there
			SetMemblockFloat(chunkmesh,60+i*32,m.VertexList[i].x)
			SetMemblockFloat(chunkmesh,64+i*32,m.VertexList[i].y)
			SetMemblockFloat(chunkmesh,68+i*32,m.VertexList[i].z)
			SetMemblockFloat(chunkmesh,72+i*32,m.VertexList[i].nx)
			SetMemblockFloat(chunkmesh,76+i*32,m.VertexList[i].ny)
			SetMemblockFloat(chunkmesh,80+i*32,m.VertexList[i].nz)
			SetMemblockFloat(chunkmesh,84+i*32,m.VertexList[i].u)
			SetMemblockFloat(chunkmesh,88+i*32,m.VertexList[i].v)
		endif
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
//    DeleteAllObjects()
	DeleteObject(1)

    CreateObjectFromMeshMemblock(1,chunkmesh)
    SetObjectImage(1,texture,0)
	SetObjectColor(1,255,255,255,10)
endfunction 1

/// Project: Mesh Template
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant size=32  // Size of the chunk in X and Z direction - make this small so the chunk can be quickly rebuilt in processing
#constant renderdistance=0 // how many chunks surrounding each other - call it render distance variable

// set window properties
SetWindowTitle( "Mesh Template" )
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 angx#,angy#,startx#,starty#,cube,collisioncoordx,collisioncoordz,collisioncoordy
global numofchunks, numofcubes,chunk
global img,camerax#,cameray#,cameraz#,centrespr, minx,miny,minz,maxx,maxy,maxz, actualverts
global vertexcounter=0


// meshmemblock types
Type Vertex
    air as integer  
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
endtype
  
global MeshID as Mesh

x#=0
y#=0
z#=0
sizex#=10

sizez#=10
c=1

block1 = LoadObject("\media\block1.obj")
//SetObjectImage(block1,LoadImage("\media\lego1.png"),0)
SetObjectColor(block1,255,0,0,255)
SetObjectPosition(block1,-10,0,0)

block2 = LoadObject("\media\block2.obj")
//SetObjectImage(block1,LoadImage("\media\lego1.png"),0)
SetObjectColor(block2,255,0,0,255)
SetObjectPosition(block2,0,0,0)

block3 = LoadObject("\media\block4.obj")
//SetObjectImage(block1,LoadImage("\media\lego1.png"),0)
SetObjectColor(block3,255,0,0,255)
SetObjectPosition(block3,10,0,0)

block4 = LoadObject("\media\block4b.obj")
//SetObjectImage(block1,LoadImage("\media\lego1.png"),0)
SetObjectColor(block4,255,0,0,255)
SetObjectPosition(block4,-10,0,-10)

block5 = LoadObject("\media\block6.obj")
//SetObjectImage(block1,LoadImage("\media\lego1.png"),0)
SetObjectColor(block5,255,0,0,255)
SetObjectPosition(block5,-5,0,0)

block6 = LoadObject("\media\block8.obj")
//SetObjectImage(block1,LoadImage("\media\lego1.png"),0)
SetObjectColor(block6,255,0,0,255)
SetObjectPosition(block6,10,0,10)


startx#=screenwidth/2
starty#=screenheight/2
do
	print("Polies "+ str(GetPolygonsDrawn()))
	print("Tiangles"+ str(GetPolygonsDrawn()*3))
	movecamera()
    Print( ScreenFPS() )
    Sync()
loop


function movecamera()
	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 )
	
endfunction
function addCubeToMesh(x#,y#,z#,sizex#,sizey#,sizez#,c)
	
	
	// do adjacent culling check
	cx = floor(x#)
	cy = floor(y#)
	cz = floor(z#)
	
	
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0	,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5  ,0		, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5 ,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, .5 ,.5	, c)

	// BOTTOM face - top right corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0.5,0  	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0, 1,0		, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,0.5	, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 1,0		, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 1,0.5		, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,0.5		, c)


	// Left Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0,1, c)
	

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0, 0.5,1, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)			, 0,1,0, 0,1, c)
		
	// Right Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0,1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, 0.5,0.5, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0,1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0, 0.5,1, c)

		
	// Front Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0   , 0    , 0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0   , 0    , 1  , c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0   , .5 , 1  , c)

	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5  , 1, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#  	, 0,1,0  , .5  , .5  , c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)		   	, 0,1,0  , 0    , .5  , c)

	// Back Side - bottom left corner texture
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)			, 0,1,0   , 0   , 0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0   , .5   , 1  , c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0   , 0   , 1  , c)


	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5   , 1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)		   	, 0,1,0  , 0    , .5  , c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0  , .5  , .5 , c)


	
endfunction


function emptymesh()
	meshid.VertexList.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, air 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.air = air
    m.VertexList.Insert(vert)
  
endfunction
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, MeshIndex,texture)
    DeleteMemblock(chunkmesh)
    VertexCount = m.VertexList.Length + 1
   
    IndexCount = 0
    IndexOffset = 60 + VertexCount*36
    chunkmesh = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(chunkmesh,0,VertexCount)
    SetMemblockInt(chunkmesh,4,IndexCount)
    SetMemblockInt(chunkmesh,8,3)
    SetMemblockInt(chunkmesh,12,32) // no color - 36 if color
    SetmemblockInt(chunkmesh,16,60)
    SetMemblockInt(chunkmesh,20,IndexOffset)
    SetMemblockInt(chunkmesh,24,0x0c000300)
    SetMemblockString(chunkmesh,28,"position")
    SetMemblockInt(chunkmesh,40,0x08000300)
    SetMemblockString(chunkmesh,44,"normal")
    SetMemblockInt(chunkmesh,52,0x04000200)
    SetMemblockString(chunkmesh,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
			
		if m.VertexList[i].air = 1 // has a block there
			SetMemblockFloat(chunkmesh,60+i*32,m.VertexList[i].x)
			SetMemblockFloat(chunkmesh,64+i*32,m.VertexList[i].y)
			SetMemblockFloat(chunkmesh,68+i*32,m.VertexList[i].z)
			SetMemblockFloat(chunkmesh,72+i*32,m.VertexList[i].nx)
			SetMemblockFloat(chunkmesh,76+i*32,m.VertexList[i].ny)
			SetMemblockFloat(chunkmesh,80+i*32,m.VertexList[i].nz)
			SetMemblockFloat(chunkmesh,84+i*32,m.VertexList[i].u)
			SetMemblockFloat(chunkmesh,88+i*32,m.VertexList[i].v)
		endif
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
//    DeleteAllObjects()
	DeleteObject(1)

    CreateObjectFromMeshMemblock(1,chunkmesh)
    SetObjectImage(1,texture,0)
	SetObjectColor(1,255,255,255,10)
endfunction 1

// Project: Get vertex 
// Created: 2018-12-04

// show all errors
SetErrorMode(2)

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


`L O A D  H E R E  Y O U R   O B J E C T . . . .
CreateObjectbox(1,15,15,15)

`creating a memblock
mesh = CreateMemblockFromObjectMesh(1,1)
`getting object vertex quantity
verts= GetMemblockInt( mesh, 0 )

 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
 next
 
SetObjectMeshFromMemblock(1,1,mesh)
  
 CreateObjectSphere(2,1,20,20)
 SetObjectColor(2,255,0,0,0)

SetCameraPosition(1,30,30,-30)
SetCameraLookAt(1,0,0,0,0)
v=0
do
   if ( GetRawKeyState( 65) ) 
	     v=v-1 
         sleep (300)
   endif
  
   if ( GetRawKeyState( 68) ) 
	     v=v+1 
         sleep (300)
   endif
   if v<0 then v=verts-1
   if v>verts-1 then v=0
  
   x#=GetMeshMemblockVertexX(mesh,v)
   y#=GetMeshMemblockVertexy(mesh,v)
   z#=GetMeshMemblockVertexz(mesh,v)
   setobjectposition(2,x#,y#,z#)
     
    `CAMERA SETUP
   	movecameralocalz(1,(GetRawKeyState( 38 )*2)-GetRawKeyState( 40 )*2)
	movecameralocalx(1,(GetRawKeyState( 39 )*2)-GetRawKeyState( 37 )*2)

    if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		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 )
	 endif

    Print("Press  A / D   to see new vertex" )
    print("Camera fly with cursor and mouse")
    print("Total Vertex  "+str(verts))
    print("vertex    "+str(v))
    Sync()
loop

// Project: Normals importance 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Normals importance" )
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
loadobject(1,"test1.obj")

SetObjectColor(1,0,255,0,0)

for i= 2 to 100
	cloneobject(i,1)
	setobjectposition(i,random(0,300),0+random(0,5),random(0,300))
	next
loadobject(101,"test2.obj")
SetObjectColor(101,0,255,0,0)

for i= 102 to 200
	cloneobject(i,101)
	setobjectposition(i,random(0,300),60+random(0,5),random(0,300))
next
setcameraposition(1,0,100,-100)
SetCameraLookAt(1,0,0,0,0)
do
    
    
    
    movecameralocalz(1,(GetRawKeyState( 38 )*1)-GetRawKeyState( 40 )*1)
	movecameralocalx(1,(GetRawKeyState( 39 )*1)-GetRawKeyState( 37 )*1)
    
	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		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 )
	 endif

    Print( ScreenFPS() )
    Sync()
loop

// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

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

// set window properties
SetWindowTitle( "lego" )
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 nobblecount=0
global nobbles as integer[]
global land as integer[]
global peices as integer[]

cube = LoadObject("\media\block1.obj")

cubes as integer[]

size#=70 // change this for FPS checks

cubeid=0

for x=-size# to size#
	for z=-size# to size#
		cubes.insert(InstanceObject(cube))
		SetObjectColor(cubes[cubeid],random(200,255),random(0,255),random(0,255),255)
		SetObjectPosition(cubes[cubeid],x*2,random(0,1)*2,z*2)
		inc cubeid
	next
next


//land.insert(createlegopeice(size#,size#,random(200,255),random(200,255),random(200,255)))


do

    movecameralocalz(1,(GetRawKeyState( 38 )*1)-GetRawKeyState( 40 )*1)
	movecameralocalx(1,(GetRawKeyState( 39 )*1)-GetRawKeyState( 37 )*1)
    
	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		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 )
	 endif

    Print( ScreenFPS() )
    Sync()
loop

function createlegopeice(x#,z#,r,g,b)
	
	peice = CreateObjectBox(x#,1,z#)
	
	for xx#=1 to x#
		for zz#=1 to z#
			nobbles.insert(CreateObjectCylinder(1,.5,12))
			
			SetObjectPosition(nobbles[nobblecount],-(x#/2)+xx#-.5,.2,-(z#/2)+zz#-.5)
			
			FixObjectToObject(nobbles[nobblecount],peice)
			SetObjectColor(nobbles[nobblecount],r,g,b,255)
			inc nobblecount
		next
	next
	
	SetObjectColor(peice,r,g,b,255)

endfunction peice