Is there anything like a Minecraft clone out there, made with AGK?

Author

Message

puzzler2018

User Banned

Posted: 19th Aug 2018 21:33

Thank you Xaby for your comments and indeed its a nice feeling of knowing that some other engine. Like C or Unit and such like to able to perform these tasks.

Im an AppGameKit coder and like to stay that way. I feel the importance of what AppGameKit is really capable of and always have done. So although we can do what your saying via DLL plug in imports would be a master peice.

But lets look at how AppGameKit started - just a mobile programming language with not too much of the dramaticness of how games are created to what we see around these days

Better drawcalls to the GPU requires shaders to do all the ground work- so if you could get into shader language then i think it will work well.

We have all the tools in place to make a nice product with AppGameKit already, so knowing the tricks of shaders will dramatically change the realism of this

Back to top

Profile

Santman

13

Years of Service

User Offline

Joined: 15th Sep 2011

Location: Inverness

Posted: 23rd Aug 2018 00:02

Link

Isn't that just instancing? Hasn't total war being doing that for a good while now?

Search for plug ins.....someone added one that let's us use compute shaders.

Back to top

Profile PM

Xaby

FPSC Reloaded TGC Backer

17

Years of Service

User Offline

Joined: 17th Apr 2007

Location: Berlin

Posted: 23rd Aug 2018 08:27

Link

@puzzler2018

I love AppGameKit as well. And like the way, I can code. I like, that it is available on Android and Raspberry Pi. I didn't want to say: Oh look here, Unreal and Unity could do that and AppGameKit not. That was not the case.
More like: Oh, Unreal and Unity also had there problems with drawcalls and some overcome it, maybe we could look into some ideas.

For most of my ideas, projects, tools, I want to make, Unreal or Unity are to much of an overhead. I also like that I could write an complete game in AppGameKit in the time, Unity or Unreal need to start it's Editor or compile the game.

So AppGameKit is the best, that's why we are all here.

And you have done a great job so far. Mostly am programming for the OUYA with it's Tegra 3 Soc. And shaders most of the time to slow

But combining objects into one Mesh, to reduce the drawcalls could be the answer and key to performance.

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 26th Aug 2018 18:51

Link

Hello

Sorry ive been neglecting this once again, its been a tough challenge, I have been mainly working on terrain map rolling etc.. Even though i nearly had it in this application, its just not 100% cause the
chunk generation is proving to be somewhat memory challenging.

So instead of the time being, ive just made the chunk larger and added a removal of a block

I know it feel like we going backwards with this, but for a learning programmer - i think its coming a long pretty well

I have implemented a cube damage level of 10, have a left click around (will need to do a few times) on the same block

// Project: codingtrain-terrain 
// Created: 2018-08-17

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768

// set window properties
SetWindowTitle( "codingtrain-terrain" )
SetWindowSize( screenwidth, screenheight, 0 )
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( 0, 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 perlinheight=70
global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#,cameray#,cameraz#,memblock, noiseterrain#,offsetx#,offsety#,meshobject,blocksimage,worldobject
global selectedcubex#, selectedcubey#, selectedcubez#, ix#, iz#, holder,exploded, playerspeed#,rebuildx#, rebuildy#, meshmemory
global cubesize#=100
global worldbuilt=1
global cubedamage = 10
#constant landsizex#=64
#constant landsizey#=1
#constant landsizez#=64

startx#=screenwidth/2:starty#=screenheight/2

type _explodecube
	id
	x#
	y#
	z#
	dirx#
	diry#
	dirz#
endtype 
global explodecube as _explodecube[25]

#constant worldchunksize#=0 // half (surrounding middle chunk)

type _worldchunks
	id
	x#
	y#
	z#
	chunk
endtype
global worldchunks as _worldchunks[worldchunksize#,worldchunksize#]

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 explodedcube as Mesh

// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
// textures
global textures as _textures[50]         // used to store textures (not ready yet)
    definetextures()

blocksimage = LoadImage("test.png")
NoiseInit()

setupskyandfog()

offsetx#=0:offsety#=0

//next

loading = CreateText("Loading Terrain")
SetTextSize(loading,60)
SetTextPosition(loading,screenwidth/2-GetTextTotalWidth(loading),screenheight/2)

sync()
buildlandscape(offsetx#,offsety#)

DeleteText(loading)

SetCameraRange(1,.01,10000)

//SetObjectRotation(meshobject,0,180,0)
camerax#=landsizex#/(cubesize#/2)
cameray#=5
cameraz#=landsizez#/(cubesize#/2)
playerspeed#=1
SetCameraPosition(1,camerax#,cameray#,cameraz#)

// these work the landscape rolling - everytime move the player - it moves the camera
// and increases/decreases these values too.
// if they hit past the rebuildstep variable the landscape gets rebuilt and repositioned back to the origin
// of the players starting point - but the landscapes vertcies and colours get changed depending on 
/// the map location
rebuildx#=0
rebuildy#=0
rebuildstep=1 // how many steps to take before the land starts to rebuild and reposition

// locate camera in middle of chunk
cameray#=getlandposition(landsizex#/2+offsetx#,landsizez#/2)+(cubesize#*4)

//setup a frame timer for use
frametime#=timer()

do
	
	
	movecamerawithmouse()
    checkkeypressesandmouseclicks()
	getplayerworldcoordinates()

// did you hit a cube, lets check and move the rubble
	if exploded=1
	
		for a=0 to explodecube.length
			explodecube[a].x#=explodecube[a].x#+explodecube[a].dirx#
			explodecube[a].y#=explodecube[a].y#+explodecube[a].diry#
			explodecube[a].z#=explodecube[a].z#+explodecube[a].dirz#
			SetObjectPosition(explodecube[a].id,explodecube[a].x#,explodecube[a].y#,explodecube[a].z#)

next
	endif
	
	if (timer()-frametime#)>5
		frametime#=timer()
		if exploded=1 
			for a=0 to explodecube.length
				DeleteObject(explodecube[a].id)
			next
		endif
		exploded=0
		
	endif
	
	
	SetCameraPosition(1,camerax#,cameray#, cameraz#)
	print ("Chunk Size "+ str(landsizex#) + "x" + str(landsizey#)+"x" + str(landsizez#)) 
	print ("World Size "+str(worldchunksize#) + "x" + str(worldchunksize#))
	print ("Selected Cube " + str(selectedcubex#) + " x " + str(selectedcubez#))
	print(GetRawLastKey())
    Print( ScreenFPS() )
    Sync()
loop

function checkkeypressesandmouseclicks()
	    if GetRawKeyState(38)

inc offsety#,playerspeed#
		dec rebuildy#,playerspeed#
		inc cameraz#,playerspeed#
	endif

if GetRawKeyState(40)

dec offsety#,playerspeed#
		inc rebuildy#,playerspeed#
		dec cameraz#,playerspeed#
	endif

if GetRawKeyState(39)

dec offsetx#,playerspeed#
		dec rebuildx#,playerspeed#
		dec camerax#,playerspeed#

endif
  
	if GetRawKeyState(87)
			
		inc cameray#,playerspeed#
	endif
	if GetRawKeyState(83)
			
		dec cameray#,playerspeed#
	endif
	
    if GetRawKeyState(37)

inc offsetx#,playerspeed#
		inc rebuildx#,playerspeed#
		inc camerax#,playerspeed#

endif

if GetRawMouseLeftPressed()
		
		DeleteCube(selectedcubex#,1, selectedcubez#)
	endif
	
/* Comes soon 
	if (rebuildx#>rebuildstep)
		rebuildx#=0
		renderedge()
    endif

/*	if (rebuildx#<-rebuildstep)
		rebuildx#=0
		 buildlandscape(offsetx#, offsety#)
    endif

if (rebuildy#>rebuildstep)
		rebuildy#=0
		buildlandscape(offsetx#, offsety#)
    endif
	if (rebuildy#<-rebuildstep)
		rebuildy#=0
		buildlandscape(offsetx#, offsety#)
    endif
  */

endfunction
function DeleteCube(CubeX#,CubeY#,CubeZ#)
	
	for a=0 to explodecube.length
//   SetObjectPosition(holder,,cubesize#+10,)
		if (GetObjectExists(explodecube[a].id)) then DeleteObject(explodecube[a].id)
		explodedcube.TriangleList.length=-1
		explodedcube.VertexList.length=-1
		addcube(explodedcube,20,1,1,0,1,0,0,0,0)
		explodecube[a].x#= (ix#+cubesize#)+cubesize#+random2(-5,5)
		explodecube[a].y# = cubesize#+10
		explodecube[a].z# = iz#+cubesize#/2+random2(-5,5)
		explodecube[a].dirx#=random2(-1,1)
		explodecube[a].diry#=random2(-1,1)
		explodecube[a].dirz#=random2(-1,1)
		
		explodecube[a].id = CreateObjectFromMeshWithUVTexturing(explodedcube,0)
		exploded=1
		SetObjectPosition(explodecube[a].id,explodecube[a].x#,explodecube[a].y#,explodecube[a].z#)
		
	next
	
	dec cubedamage

if cubedamage<0 
	// the Y comes later
	
		SC = (cubex# * landsizex#) + cubez#
		for v=(SC*36) to (SC*36) + 35
			SetMeshMemblockVertexPosition(meshmemory, v, 0,0,0)
		next
		SetObjectMeshFromMemblock(meshobject, 1, meshmemory)
		cubedamage=10
	endif
	
endfunction

function getplayerworldcoordinates()
    chunkhit=(mouseover()-100000-12) * 2
 
    //if chunkhit<0 
//       SetObjectVisible(holder,0)
//  else
//      SetObjectVisible(holder,1)
//  endif
     
    cubex=ix# - 1/ cubesize#
    cubey=iz# - 1/ cubesize#
 
    selectedcube = (cubex * landsizex#) + cubey
   
	print(selectedcube)
    // position the block selector at the intersection point
    selectedcubeX# = round(ix# / cubesize#) + landsizex#/2
    selectedcubez# = Round(iz# / cubesize#) + landsizez#/2

//SetSpritePosition(pointer, cubex,cubey)

SetObjectPosition(holder,(ix#+cubesize#)+cubesize#,cubesize#+10,iz#+cubesize#/2)
   
endfunction
   
   
function mouseOver()
            
    myX as float
    myY as float
    my3dX as float
    my3dY as float
    my3dZ as float
    rayStartX as float
    rayStartY as float
    rayStartZ as float
    rayEndX as float
    rayEndY as float
    rayEndZ as float
            
    myX=getpointerx()
    myY=getpointery()
    my3dX=Get3DVectorXFromScreen(myX,myY)
    my3dY=Get3DVectorYFromScreen(myX,myY)
    my3dZ=Get3DVectorZFromScreen(myX,myY)
    print(my3Dx)
    print(my3Dy)
    print(my3Dz)
    
    rayStartX=my3dX+GetCameraX(1)
    rayStartY=my3dY+GetCameraY(1)
    rayStartZ=my3dZ+GetCameraZ(1)
            
    rayEndX=1000*my3dX+GetCameraX(1)
    rayEndY=1000*my3dY+GetCameraY(1)
    rayEndZ=1000*my3dZ+GetCameraZ(1) 
            
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)      
   
    // Move camera with WASD
    // Rotate Camera with Arrow Keys
    MoveCameraLocalX(1,GetRawKeyState(68) - GetRawKeyState(65))
    MoveCameraLocalZ(1,GetRawKeyState(87) - GetRawKeyState(83))
    RotateCameraGlobalY(1,GetRawKeyState(39) - GetRawKeyState(37))
    RotateCameraLocalX(1,GetRawKeyState(40) - GetRawKeyState(38))
    
    cx# = GetCameraX(1)
    cy# = GetCameraY(1)
    cz# = GetCameraZ(1)
    
    pxRaw# = Get3DVectorXFromScreen(myX,myY)
    pyRaw# = Get3DVectorYFromScreen(myX,myY)
    pzRaw# = Get3DVectorZFromScreen(myX,myY)
    
    // get pointer vector y added to camera's y position
    pyRelative# = pyRaw# + cy#
    
    // find distance between camera's y position and pyRelative#
    dist# = cy# - pyRelative#
    
    // calculate scaling value by finding how many times dist# goes into the camera's y position
    s# = cy# / dist#
    
    // find the intersection point by multiplying pointer vector by s# and adding it to the camera position. 
    // ignoring Y in this case since it should be 0 anyway.
    ix# = (cx# + pxRaw# * s#)
    iz# = cz# + pzRaw# * s#
    
	
 
   
endfunction theObjectHit

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2)

// create the cube

AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))

endfunction

function getlandposition(x#,y#)
	
	ret = noise2d((x#+offsetx#)/noiseterrain#,			(y#+offsety#)/noiseterrain#)
endfunction ret

function buildlandscape(offsetx#, offsety#)
	
	if (worldbuilt = 0) // build the world one time only
		print("Build world")
		sync()
		sleep(10)
		
		col=1
		scale#=1
		noiseterrain#=1 // the higher this is the lower the hills and vica versa - 10-12 is a nice smooth effect
		meshID.TriangleList.length=-1
		meshID.VertexList.length=-1

noiseterrain#=10
		for x=1 to landsizex#
			for y=1 to landsizey#
				for z=1 to landsizez#
					
					addcube(MeshID,1,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

next
			next
		next

//	meshobject = CreateObjectFromMeshWithColor(meshID)
	worldobject = CreateObjectFromMeshWithUVTexturing(meshID,0)
	SetObjectImage(worldobject,blocksimage,0)
	SetImageMagFilter(blocksimage,0)
	SetImageMinFilter(blocksimage,0)
	SetObjectUVScale(worldobject,0,2,2)
	SetObjectPosition(worldobject,0,0,0)
				
		for wx=-worldchunksize#/2 to worldchunksize#/2
			for wz=-worldchunksize#/2 to worldchunksize#/2
				if wx=0 and wz=0
					// dont position our main player chunk
				else
				
					worldchunks[wx+worldchunksize#/2,wz+worldchunksize#/2].id = InstanceObject(worldobject)
					SetObjectPosition(worldchunks[wx+worldchunksize#/2,wz+worldchunksize#/2].id,wx * landsizex#, 0, wz * landsizez#)
				endif
				
			next
		next
		worldbuilt=1

endif
	buildachunk(0) // perlined
	camerax#=0
	cameraz#=0
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
endfunction

function buildachunk(mode)
	
	meshID.TriangleList.length=-1
	meshID.VertexList.length=-1

noiseterrain#=3
	for x=1 to landsizex#
		for y=1 to landsizey#
			for z=1 to landsizez#
					
				//if mode = 0 then addcube(cubesize#,1,1, 0,1,0,x*cubesize#,floor(y + noise2d((x+offsetx#)/noiseterrain#      ,(z+offsety#)/noiseterrain#))*cubesize#,z* cubesize#)
         		//if mode = 1 then addcube(cubesize#,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

addcube(MeshID,cubesize#,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

next
		next
	next
	DeleteObject(meshobject)

meshobject = CreateObjectFromMeshWithUVTexturing(meshID,1)
endfunction meshobject

function movecamerawithmouse()
      
    fDiffX# = (GetPointerX() - startx#)/2.0
    fDiffY# = (GetPointerY() - starty#)/2.0
  
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
    
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
    
    
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
endfunction

function setupskyandfog()

holder=CreateObjectBox(cubesize#/2,1,1)
	pointer1=CreateObjectBox(1,1,cubesize#/2)	
	FixObjectToObject(pointer1,holder)
	
	
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMouseVisible(0)	
	
    // setup a skybox
   SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
	SetCameraRange(1,0.1,10000)
	
	
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,32) // 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, mode)
	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,blocksimage,0)
	SetImageMagFilter(blocksimage,0)
	SetImageMinFilter(blocksimage,0)
	SetObjectUVScale(id,0,2,2)
	SetObjectPosition(id,-(landsizex#/2)*cubesize#,0,-(landsizez#/2)*cubesize#)

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

// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
    
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
    
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
    
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
    
    
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
    
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
    
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
    
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
    
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
    
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
        
    s = (xin + yin) * PN3DF2
    xs = xin + s
    
    i = floor(xs)
    ys = yin + s
    
    j = floor(ys)
    t = (i + j) * PN3DG2
    
    x0 = xin - (i - t)
    y0 = yin - (j - t)
    
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
    
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
    
    i = i && 255
    j = j && 255
    
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
    
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
    
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
    
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
    
endfunction  perlinheight * (n0 + n1 + n2)

function definetextures()
          
          
// create the texturs
    textures[0].id = CreateTextures(32,32,1,0,255,0)  // top
    textures[1].id = CreateTextures(32,32,1,100,100,0)  // top
    
    
      
endfunction
function createtextures(sizex# as float, sizey# as float,density, r,g,b)
          
            swap()
          
            for a#=0 to sizex# step .1
                for b#=0 to sizey# step .1
                    colorred=0
                    colorgreen=random(100,155)
                    colorblue=0
                    DrawLine(a#,b#,(A#),(B#), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue))
                next
            next
                  
            render()
            img = getimage(0,0,sizex#, sizey#)

sync()
sleep(10)          
endfunction img

+ Code Snippet


// Project: codingtrain-terrain 
// Created: 2018-08-17

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768

// set window properties
SetWindowTitle( "codingtrain-terrain" )
SetWindowSize( screenwidth, screenheight, 0 )
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( 0, 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 perlinheight=70
global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#,cameray#,cameraz#,memblock, noiseterrain#,offsetx#,offsety#,meshobject,blocksimage,worldobject
global selectedcubex#, selectedcubey#, selectedcubez#, ix#, iz#, holder,exploded, playerspeed#,rebuildx#, rebuildy#, meshmemory
global cubesize#=100
global worldbuilt=1
global cubedamage = 10
#constant landsizex#=64
#constant landsizey#=1
#constant landsizez#=64

startx#=screenwidth/2:starty#=screenheight/2


type _explodecube
	id
	x#
	y#
	z#
	dirx#
	diry#
	dirz#
endtype 
global explodecube as _explodecube[25]

#constant worldchunksize#=0 // half (surrounding middle chunk)

type _worldchunks
	id
	x#
	y#
	z#
	chunk
endtype
global worldchunks as _worldchunks[worldchunksize#,worldchunksize#]


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 explodedcube as Mesh


// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
// textures
global textures as _textures[50]         // used to store textures (not ready yet)
    definetextures()


blocksimage = LoadImage("test.png")
NoiseInit()

setupskyandfog()



offsetx#=0:offsety#=0

//next

loading = CreateText("Loading Terrain")
SetTextSize(loading,60)
SetTextPosition(loading,screenwidth/2-GetTextTotalWidth(loading),screenheight/2)

sync()
buildlandscape(offsetx#,offsety#)


DeleteText(loading)

SetCameraRange(1,.01,10000)

//SetObjectRotation(meshobject,0,180,0)
camerax#=landsizex#/(cubesize#/2)
cameray#=5
cameraz#=landsizez#/(cubesize#/2)
playerspeed#=1
SetCameraPosition(1,camerax#,cameray#,cameraz#)

// these work the landscape rolling - everytime move the player - it moves the camera
// and increases/decreases these values too.
// if they hit past the rebuildstep variable the landscape gets rebuilt and repositioned back to the origin
// of the players starting point - but the landscapes vertcies and colours get changed depending on 
/// the map location
rebuildx#=0
rebuildy#=0
rebuildstep=1 // how many steps to take before the land starts to rebuild and reposition

// locate camera in middle of chunk
cameray#=getlandposition(landsizex#/2+offsetx#,landsizez#/2)+(cubesize#*4) 

//setup a frame timer for use
frametime#=timer()

do
	
	
	movecamerawithmouse()
    checkkeypressesandmouseclicks()
	getplayerworldcoordinates()


// did you hit a cube, lets check and move the rubble
	if exploded=1
	
		for a=0 to explodecube.length
			explodecube[a].x#=explodecube[a].x#+explodecube[a].dirx#
			explodecube[a].y#=explodecube[a].y#+explodecube[a].diry#
			explodecube[a].z#=explodecube[a].z#+explodecube[a].dirz#
			SetObjectPosition(explodecube[a].id,explodecube[a].x#,explodecube[a].y#,explodecube[a].z#)

		next
	endif
	
	if (timer()-frametime#)>5
		frametime#=timer()
		if exploded=1 
			for a=0 to explodecube.length
				DeleteObject(explodecube[a].id)
			next
		endif
		exploded=0
		
	endif
	
	
	SetCameraPosition(1,camerax#,cameray#, cameraz#)
	print ("Chunk Size "+ str(landsizex#) + "x" + str(landsizey#)+"x" + str(landsizez#)) 
	print ("World Size "+str(worldchunksize#) + "x" + str(worldchunksize#))
	print ("Selected Cube " + str(selectedcubex#) + " x " + str(selectedcubez#))
	print(GetRawLastKey())
    Print( ScreenFPS() )
    Sync()
loop

function checkkeypressesandmouseclicks()
	    if GetRawKeyState(38) 

		inc offsety#,playerspeed#
		dec rebuildy#,playerspeed#
		inc cameraz#,playerspeed#
	endif

    if GetRawKeyState(40) 

		dec offsety#,playerspeed#
		inc rebuildy#,playerspeed#
		dec cameraz#,playerspeed#
	endif

    if GetRawKeyState(39) 

		dec offsetx#,playerspeed#
		dec rebuildx#,playerspeed#
		dec camerax#,playerspeed#

	endif
  
	if GetRawKeyState(87)
			
		inc cameray#,playerspeed#
	endif
	if GetRawKeyState(83)
			
		dec cameray#,playerspeed#
	endif
	
    if GetRawKeyState(37) 

		inc offsetx#,playerspeed#
		inc rebuildx#,playerspeed#
		inc camerax#,playerspeed#

	endif


	if GetRawMouseLeftPressed()
		
		DeleteCube(selectedcubex#,1, selectedcubez#)
	endif
	
/* Comes soon 
	if (rebuildx#>rebuildstep)
		rebuildx#=0
		renderedge()
    endif

/*	if (rebuildx#<-rebuildstep)
		rebuildx#=0
		 buildlandscape(offsetx#, offsety#)
    endif

	if (rebuildy#>rebuildstep)
		rebuildy#=0
		buildlandscape(offsetx#, offsety#)
    endif
	if (rebuildy#<-rebuildstep)
		rebuildy#=0
		buildlandscape(offsetx#, offsety#)
    endif
  */  

endfunction
function DeleteCube(CubeX#,CubeY#,CubeZ#)
	
	for a=0 to explodecube.length
//   SetObjectPosition(holder,,cubesize#+10,)
		if (GetObjectExists(explodecube[a].id)) then DeleteObject(explodecube[a].id)
		explodedcube.TriangleList.length=-1
		explodedcube.VertexList.length=-1
		addcube(explodedcube,20,1,1,0,1,0,0,0,0)
		explodecube[a].x#= (ix#+cubesize#)+cubesize#+random2(-5,5)
		explodecube[a].y# = cubesize#+10
		explodecube[a].z# = iz#+cubesize#/2+random2(-5,5)
		explodecube[a].dirx#=random2(-1,1)
		explodecube[a].diry#=random2(-1,1)
		explodecube[a].dirz#=random2(-1,1)
		
		explodecube[a].id = CreateObjectFromMeshWithUVTexturing(explodedcube,0)
		exploded=1
		SetObjectPosition(explodecube[a].id,explodecube[a].x#,explodecube[a].y#,explodecube[a].z#)
		
	next
	
	dec cubedamage



	
	if cubedamage<0 
	// the Y comes later
	
		SC = (cubex# * landsizex#) + cubez#
		for v=(SC*36) to (SC*36) + 35
			SetMeshMemblockVertexPosition(meshmemory, v, 0,0,0)
		next
		SetObjectMeshFromMemblock(meshobject, 1, meshmemory)
		cubedamage=10
	endif
	
endfunction


function getplayerworldcoordinates()
    chunkhit=(mouseover()-100000-12) * 2
 
    //if chunkhit<0 
//       SetObjectVisible(holder,0)
//  else
//      SetObjectVisible(holder,1)
//  endif
     
    cubex=ix# - 1/ cubesize#
    cubey=iz# - 1/ cubesize#
 
    selectedcube = (cubex * landsizex#) + cubey
   
	print(selectedcube)
    // position the block selector at the intersection point
    selectedcubeX# = round(ix# / cubesize#) + landsizex#/2
    selectedcubez# = Round(iz# / cubesize#) + landsizez#/2 

	//SetSpritePosition(pointer, cubex,cubey)

   SetObjectPosition(holder,(ix#+cubesize#)+cubesize#,cubesize#+10,iz#+cubesize#/2)
   
endfunction
   
   
function mouseOver()
            
    myX as float
    myY as float
    my3dX as float
    my3dY as float
    my3dZ as float
    rayStartX as float
    rayStartY as float
    rayStartZ as float
    rayEndX as float
    rayEndY as float
    rayEndZ as float
            
    myX=getpointerx()
    myY=getpointery()
    my3dX=Get3DVectorXFromScreen(myX,myY)
    my3dY=Get3DVectorYFromScreen(myX,myY)
    my3dZ=Get3DVectorZFromScreen(myX,myY)
    print(my3Dx)
    print(my3Dy)
    print(my3Dz)
    
    rayStartX=my3dX+GetCameraX(1)
    rayStartY=my3dY+GetCameraY(1)
    rayStartZ=my3dZ+GetCameraZ(1)
            
    rayEndX=1000*my3dX+GetCameraX(1)
    rayEndY=1000*my3dY+GetCameraY(1)
    rayEndZ=1000*my3dZ+GetCameraZ(1) 
            
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)      
   
    // Move camera with WASD
    // Rotate Camera with Arrow Keys
    MoveCameraLocalX(1,GetRawKeyState(68) - GetRawKeyState(65))
    MoveCameraLocalZ(1,GetRawKeyState(87) - GetRawKeyState(83))
    RotateCameraGlobalY(1,GetRawKeyState(39) - GetRawKeyState(37))
    RotateCameraLocalX(1,GetRawKeyState(40) - GetRawKeyState(38))
    
    cx# = GetCameraX(1)
    cy# = GetCameraY(1)
    cz# = GetCameraZ(1)
    
    pxRaw# = Get3DVectorXFromScreen(myX,myY)
    pyRaw# = Get3DVectorYFromScreen(myX,myY)
    pzRaw# = Get3DVectorZFromScreen(myX,myY)
    
    // get pointer vector y added to camera's y position
    pyRelative# = pyRaw# + cy#
    
    // find distance between camera's y position and pyRelative#
    dist# = cy# - pyRelative#
    
    // calculate scaling value by finding how many times dist# goes into the camera's y position
    s# = cy# / dist#
    
    // find the intersection point by multiplying pointer vector by s# and adding it to the camera position. 
    // ignoring Y in this case since it should be 0 anyway.
    ix# = (cx# + pxRaw# * s#)
    iz# = cz# + pzRaw# * s#
    
	
 
   
endfunction theObjectHit




function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2) 


// create the cube 

	AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))

endfunction

function getlandposition(x#,y#)
	
	ret = noise2d((x#+offsetx#)/noiseterrain#,			(y#+offsety#)/noiseterrain#)
endfunction ret

function buildlandscape(offsetx#, offsety#)
	
	if (worldbuilt = 0) // build the world one time only
		print("Build world")
		sync()
		sleep(10)
		
		col=1
		scale#=1
		noiseterrain#=1 // the higher this is the lower the hills and vica versa - 10-12 is a nice smooth effect
		meshID.TriangleList.length=-1
		meshID.VertexList.length=-1

		noiseterrain#=10
		for x=1 to landsizex#
			for y=1 to landsizey#
				for z=1 to landsizez#
					
					addcube(MeshID,1,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

				next
			next
		next

		
	//	meshobject = CreateObjectFromMeshWithColor(meshID)
	worldobject = CreateObjectFromMeshWithUVTexturing(meshID,0)
	SetObjectImage(worldobject,blocksimage,0)
	SetImageMagFilter(blocksimage,0)
	SetImageMinFilter(blocksimage,0)
	SetObjectUVScale(worldobject,0,2,2)
	SetObjectPosition(worldobject,0,0,0)
				
		for wx=-worldchunksize#/2 to worldchunksize#/2
			for wz=-worldchunksize#/2 to worldchunksize#/2
				if wx=0 and wz=0
					// dont position our main player chunk
				else
				
					worldchunks[wx+worldchunksize#/2,wz+worldchunksize#/2].id = InstanceObject(worldobject)
					SetObjectPosition(worldchunks[wx+worldchunksize#/2,wz+worldchunksize#/2].id,wx * landsizex#, 0, wz * landsizez#)
				endif
				
			next
		next
		worldbuilt=1

	endif
	buildachunk(0) // perlined
	camerax#=0
	cameraz#=0
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
endfunction

function buildachunk(mode)
	
	meshID.TriangleList.length=-1
	meshID.VertexList.length=-1

	noiseterrain#=3
	for x=1 to landsizex#
		for y=1 to landsizey#
			for z=1 to landsizez#
					
				//if mode = 0 then addcube(cubesize#,1,1, 0,1,0,x*cubesize#,floor(y + noise2d((x+offsetx#)/noiseterrain#      ,(z+offsety#)/noiseterrain#))*cubesize#,z* cubesize#)
         		//if mode = 1 then addcube(cubesize#,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

				addcube(MeshID,cubesize#,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

			next
		next
	next
	DeleteObject(meshobject)

	meshobject = CreateObjectFromMeshWithUVTexturing(meshID,1)
endfunction meshobject


function movecamerawithmouse()
      
    fDiffX# = (GetPointerX() - startx#)/2.0
    fDiffY# = (GetPointerY() - starty#)/2.0
  
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
    
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
    
    
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
endfunction


function setupskyandfog()

	holder=CreateObjectBox(cubesize#/2,1,1)
	pointer1=CreateObjectBox(1,1,cubesize#/2)	
	FixObjectToObject(pointer1,holder)
	
	
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMouseVisible(0)	
	
    // setup a skybox
   SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
	SetCameraRange(1,0.1,10000)
	
	
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,32) // 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, mode)
	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,blocksimage,0)
	SetImageMagFilter(blocksimage,0)
	SetImageMinFilter(blocksimage,0)
	SetObjectUVScale(id,0,2,2)
	SetObjectPosition(id,-(landsizex#/2)*cubesize#,0,-(landsizez#/2)*cubesize#)

	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


// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
    
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
    
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
    
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
    
    
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
    
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
    
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
    
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
    
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
    
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
        
    s = (xin + yin) * PN3DF2
    xs = xin + s
    
    i = floor(xs)
    ys = yin + s
    
    j = floor(ys)
    t = (i + j) * PN3DG2
    
    x0 = xin - (i - t)
    y0 = yin - (j - t)
    
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
    
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
    
    i = i && 255
    j = j && 255
    
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
    
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
    
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
    
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
    
endfunction  perlinheight * (n0 + n1 + n2)

function definetextures()
          
          
// create the texturs
    textures[0].id = CreateTextures(32,32,1,0,255,0)  // top
    textures[1].id = CreateTextures(32,32,1,100,100,0)  // top
    
    
      
endfunction
function createtextures(sizex# as float, sizey# as float,density, r,g,b)
          
            swap()
          
            for a#=0 to sizex# step .1
                for b#=0 to sizey# step .1
                    colorred=0
                    colorgreen=random(100,155)
                    colorblue=0
                    DrawLine(a#,b#,(A#),(B#), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue))
                next
            next
                  
            render()
            img = getimage(0,0,sizex#, sizey#)

sync()
sleep(10)          
endfunction img

My brain hurts now

Attachments

Login to view attachments

Back to top

Profile

puzzler2018

User Banned

Posted: 26th Aug 2018 20:42

Link

Ive re-added the add and the atlas map for the tiles -

// Project: codingtrain-terrain 
// Created: 2018-08-17

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768

// set window properties
SetWindowTitle( "codingtrain-terrain" )
SetWindowSize( screenwidth, screenheight, 0 )
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( 0, 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 perlinheight=70
global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#,cameray#,cameraz#,memblock, noiseterrain#,offsetx#,offsety#,meshobject,blocksimage,worldobject
global selectedcubex#, selectedcubey#, selectedcubez#, ix#, iz#, holder,exploded, playerspeed#,rebuildx#, rebuildy#, meshmemory
global cubesize#=100
global worldbuilt=1
global cubedamage = 10
#constant landsizex#=128
#constant landsizey#=1
#constant landsizez#=128

startx#=screenwidth/2:starty#=screenheight/2

type _explodecube
	id
	x#
	y#
	z#
	dirx#
	diry#
	dirz#
endtype 
global explodecube as _explodecube[100]

#constant worldchunksize#=6 // half (surrounding middle chunk)

type _worldchunks
	id
	x#
	y#
	z#
	chunk
endtype
global worldchunks as _worldchunks[worldchunksize#,worldchunksize#]

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 explodedcube as Mesh

// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
// textures
global textures as _textures[50]         // used to store textures (not ready yet)
    definetextures()

blocksimage = LoadImage("test.png")
NoiseInit()

setupskyandfog()

offsetx#=0:offsety#=0

//next

loading = CreateText("Loading Terrain")
SetTextSize(loading,60)
SetTextPosition(loading,screenwidth/2-GetTextTotalWidth(loading),screenheight/2)

sync()
buildlandscape(offsetx#,offsety#)

DeleteText(loading)

SetCameraRange(1,.01,10000)

//SetObjectRotation(meshobject,0,180,0)
camerax#=landsizex#/(cubesize#/2)
cameray#=5
cameraz#=landsizez#/(cubesize#/2)
playerspeed#=1
SetCameraPosition(1,camerax#,cameray#,cameraz#)

// these work the landscape rolling - everytime move the player - it moves the camera
// and increases/decreases these values too.
// if they hit past the rebuildstep variable the landscape gets rebuilt and repositioned back to the origin
// of the players starting point - but the landscapes vertcies and colours get changed depending on 
/// the map location
rebuildx#=0
rebuildy#=0
rebuildstep=1 // how many steps to take before the land starts to rebuild and reposition

// locate camera in middle of chunk
cameray#=getlandposition(landsizex#/2+offsetx#,landsizez#/2)+(cubesize#*4)

//setup a frame timer for use
frametime#=timer()

do
	
	
	movecamerawithmouse()
    checkkeypressesandmouseclicks()
	getplayerworldcoordinates()

// did you hit a cube, lets check and move the rubble
	if exploded=1
	
		for a=0 to explodecube.length
			explodecube[a].x#=explodecube[a].x#+explodecube[a].dirx#
			explodecube[a].y#=explodecube[a].y#+explodecube[a].diry#
			explodecube[a].z#=explodecube[a].z#+explodecube[a].dirz#
			SetObjectPosition(explodecube[a].id,explodecube[a].x#,explodecube[a].y#,explodecube[a].z#)

next
	endif
	
	if (timer()-frametime#)>1
		frametime#=timer()
		if exploded=1 
			for a=0 to explodecube.length
				DeleteObject(explodecube[a].id)
			next
		endif
		exploded=0
		
	endif
	
	
	SetCameraPosition(1,camerax#,cameray#, cameraz#)
	print ("Chunk Size "+ str(landsizex#) + "x" + str(landsizey#)+"x" + str(landsizez#)) 
	print ("World Size "+str(worldchunksize#) + "x" + str(worldchunksize#))
	print ("Selected Cube " + str(selectedcubex#) + " x " + str(selectedcubez#))
	print(GetRawLastKey())
    Print( ScreenFPS() )
    Sync()
loop

function checkkeypressesandmouseclicks()
	    if GetRawKeyState(38)

inc offsety#,playerspeed#
		dec rebuildy#,playerspeed#
		inc cameraz#,playerspeed#
	endif

if GetRawKeyState(40)

dec offsety#,playerspeed#
		inc rebuildy#,playerspeed#
		dec cameraz#,playerspeed#
	endif

if GetRawKeyState(39)

dec offsetx#,playerspeed#
		dec rebuildx#,playerspeed#
		dec camerax#,playerspeed#

endif
  
	if GetRawKeyState(87)
			
		inc cameray#,playerspeed#
	endif
	if GetRawKeyState(83)
			
		dec cameray#,playerspeed#
	endif
	
    if GetRawKeyState(37)

inc offsetx#,playerspeed#
		inc rebuildx#,playerspeed#
		inc camerax#,playerspeed#

endif

if GetRawMouseRightPressed()
		
		DeleteCube(selectedcubex#,1, selectedcubez#)
	endif

if GetRawMouseLeftPressed()
		
		AddNewCube(selectedcubex#,1, selectedcubez#)
	endif
	
/* Comes soon 
	if (rebuildx#>rebuildstep)
		rebuildx#=0
		renderedge()
    endif

/*	if (rebuildx#<-rebuildstep)
		rebuildx#=0
		 buildlandscape(offsetx#, offsety#)
    endif

if (rebuildy#>rebuildstep)
		rebuildy#=0
		buildlandscape(offsetx#, offsety#)
    endif
	if (rebuildy#<-rebuildstep)
		rebuildy#=0
		buildlandscape(offsetx#, offsety#)
    endif
  */

endfunction
function DeleteCube(CubeX#,CubeY#,CubeZ#)
	
	for a=0 to explodecube.length
//   SetObjectPosition(holder,,cubesize#+10,)
		if (GetObjectExists(explodecube[a].id)) then DeleteObject(explodecube[a].id)
		explodedcube.TriangleList.length=-1
		explodedcube.VertexList.length=-1
		addcube(explodedcube,15,1,1,0,1,0,0,0,0)
		explodecube[a].x#= (ix#+cubesize#)+cubesize#+random2(-5,5)
		explodecube[a].y# = cubesize#+10
		explodecube[a].z# = iz#+cubesize#/2+random2(-5,5)
		explodecube[a].dirx#=random2(-1,1)
		explodecube[a].diry#=random2(-1,1)
		explodecube[a].dirz#=random2(-1,1)
		
		explodecube[a].id = CreateObjectFromMeshWithUVTexturing(explodedcube,0)
		exploded=1
		SetObjectPosition(explodecube[a].id,explodecube[a].x#,explodecube[a].y#,explodecube[a].z#)
		
	next
	
	dec cubedamage

if cubedamage<0 
	// the Y comes later
	
		SC = (cubex# * landsizex#) + cubez#
		for v=(SC*36) to (SC*36) + 35
			SetMeshMemblockVertexPosition(meshmemory, v, GetMeshMemblockVertexX(meshmemory,v), GetMeshMemblockVertexY(meshmemory,v)-cubesize#, GetMeshMemblockVertexZ(meshmemory,v))
		next
		SetObjectMeshFromMemblock(meshobject, 1, meshmemory)
		cubedamage=4
	endif
	
endfunction

function AddNewCube(CubeX#,CubeY#,CubeZ#)
	
	for a=0 to explodecube.length
//   SetObjectPosition(holder,,cubesize#+10,)
		if (GetObjectExists(explodecube[a].id)) then DeleteObject(explodecube[a].id)
		explodedcube.TriangleList.length=-1
		explodedcube.VertexList.length=-1
		addcube(explodedcube,15,1,1,0,1,0,0,0,0)
		explodecube[a].x#= (ix#+cubesize#)+cubesize#+random2(-5,5)
		explodecube[a].y# = cubesize#+10
		explodecube[a].z# = iz#+cubesize#/2+random2(-5,5)
		explodecube[a].dirx#=random2(-1,1)
		explodecube[a].diry#=random2(-1,1)
		explodecube[a].dirz#=random2(-1,1)
		
		explodecube[a].id = CreateObjectFromMeshWithUVTexturing(explodedcube,0)
		exploded=1
		SetObjectPosition(explodecube[a].id,explodecube[a].x#,explodecube[a].y#,explodecube[a].z#)
		
	next
	
	dec cubedamage

SC = (cubex# * landsizex#) + cubez#
		for v=(SC*36) to (SC*36) + 35
			SetMeshMemblockVertexPosition(meshmemory, v, GetMeshMemblockVertexX(meshmemory,v), GetMeshMemblockVertexY(meshmemory,v)+cubesize#, GetMeshMemblockVertexZ(meshmemory,v))
		next
		SetObjectMeshFromMemblock(meshobject, 1, meshmemory)
		cubedamage=4
	
endfunction

function getplayerworldcoordinates()
    chunkhit=(mouseover()-100000-12) * 2
 
    //if chunkhit<0 
//       SetObjectVisible(holder,0)
//  else
//      SetObjectVisible(holder,1)
//  endif
     
    cubex=ix# - 1/ cubesize#
    cubey=iz# - 1/ cubesize#
 
    selectedcube = (cubex * landsizex#) + cubey
   
	print(selectedcube)
    // position the block selector at the intersection point
    selectedcubeX# = round(ix# / cubesize#) + landsizex#/2
    selectedcubez# = Round(iz# / cubesize#) + landsizez#/2

//SetSpritePosition(pointer, cubex,cubey)

SetObjectPosition(holder,(ix#+cubesize#)+cubesize#,cubesize#+10,iz#+cubesize#/2)
   
endfunction
   
   
function mouseOver()
            
    myX as float
    myY as float
    my3dX as float
    my3dY as float
    my3dZ as float
    rayStartX as float
    rayStartY as float
    rayStartZ as float
    rayEndX as float
    rayEndY as float
    rayEndZ as float
            
    myX=getpointerx()
    myY=getpointery()
    my3dX=Get3DVectorXFromScreen(myX,myY)
    my3dY=Get3DVectorYFromScreen(myX,myY)
    my3dZ=Get3DVectorZFromScreen(myX,myY)
    print(my3Dx)
    print(my3Dy)
    print(my3Dz)
    
    rayStartX=my3dX+GetCameraX(1)
    rayStartY=my3dY+GetCameraY(1)
    rayStartZ=my3dZ+GetCameraZ(1)
            
    rayEndX=1000*my3dX+GetCameraX(1)
    rayEndY=1000*my3dY+GetCameraY(1)
    rayEndZ=1000*my3dZ+GetCameraZ(1) 
            
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)      
   
    // Move camera with WASD
    // Rotate Camera with Arrow Keys
    MoveCameraLocalX(1,GetRawKeyState(68) - GetRawKeyState(65))
    MoveCameraLocalZ(1,GetRawKeyState(87) - GetRawKeyState(83))
    RotateCameraGlobalY(1,GetRawKeyState(39) - GetRawKeyState(37))
    RotateCameraLocalX(1,GetRawKeyState(40) - GetRawKeyState(38))
    
    cx# = GetCameraX(1)
    cy# = GetCameraY(1)
    cz# = GetCameraZ(1)
    
    pxRaw# = Get3DVectorXFromScreen(myX,myY)
    pyRaw# = Get3DVectorYFromScreen(myX,myY)
    pzRaw# = Get3DVectorZFromScreen(myX,myY)
    
    // get pointer vector y added to camera's y position
    pyRelative# = pyRaw# + cy#
    
    // find distance between camera's y position and pyRelative#
    dist# = cy# - pyRelative#
    
    // calculate scaling value by finding how many times dist# goes into the camera's y position
    s# = cy# / dist#
    
    // find the intersection point by multiplying pointer vector by s# and adding it to the camera position. 
    // ignoring Y in this case since it should be 0 anyway.
    ix# = (cx# + pxRaw# * s#)
    iz# = cz# + pzRaw# * s#
    
	
 
   
endfunction theObjectHit

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2)

// create the cube

AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))

endfunction

function getlandposition(x#,y#)
	
	ret = noise2d((x#+offsetx#)/noiseterrain#,			(y#+offsety#)/noiseterrain#)
endfunction ret

function buildlandscape(offsetx#, offsety#)
	
	if (worldbuilt = 0) // build the world one time only
		print("Build world")
		sync()
		sleep(10)
		
		col=1
		scale#=1
		noiseterrain#=1 // the higher this is the lower the hills and vica versa - 10-12 is a nice smooth effect
		meshID.TriangleList.length=-1
		meshID.VertexList.length=-1

noiseterrain#=10
		for x=1 to landsizex#
			for y=1 to landsizey#
				for z=1 to landsizez#
					
					addcube(MeshID,1,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

next
			next
		next

//	meshobject = CreateObjectFromMeshWithColor(meshID)
	worldobject = CreateObjectFromMeshWithUVTexturing(meshID,0)
	SetObjectImage(worldobject,blocksimage,0)
	SetImageMagFilter(blocksimage,0)
	SetImageMinFilter(blocksimage,0)
	SetObjectUVScale(worldobject,0,2,2)
	SetObjectPosition(worldobject,0,0,0)
				
		for wx=-worldchunksize#/2 to worldchunksize#/2
			for wz=-worldchunksize#/2 to worldchunksize#/2
				if wx=0 and wz=0
					// dont position our main player chunk
				else
				
					worldchunks[wx+worldchunksize#/2,wz+worldchunksize#/2].id = InstanceObject(worldobject)
					SetObjectPosition(worldchunks[wx+worldchunksize#/2,wz+worldchunksize#/2].id,wx * landsizex#, 0, wz * landsizez#)
				endif
				
			next
		next
		worldbuilt=1

endif
	buildachunk(0) // perlined
	camerax#=0
	cameraz#=0
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
endfunction

function buildachunk(mode)
	
	meshID.TriangleList.length=-1
	meshID.VertexList.length=-1

noiseterrain#=3
	for x=1 to landsizex#
		for y=1 to landsizey#
			for z=1 to landsizez#
					
				//if mode = 0 then addcube(cubesize#,1,1, 0,1,0,x*cubesize#,floor(y + noise2d((x+offsetx#)/noiseterrain#      ,(z+offsety#)/noiseterrain#))*cubesize#,z* cubesize#)
         		//if mode = 1 then addcube(cubesize#,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

addcube(MeshID,cubesize#,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

next
		next
	next
	DeleteObject(meshobject)

meshobject = CreateObjectFromMeshWithUVTexturing(meshID,1)
endfunction meshobject

function movecamerawithmouse()
      
    fDiffX# = (GetPointerX() - startx#)/2.0
    fDiffY# = (GetPointerY() - starty#)/2.0
  
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
    
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
    
    
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
endfunction

function setupskyandfog()

holder=CreateObjectBox(cubesize#/2,1,1)
	pointer1=CreateObjectBox(1,1,cubesize#/2)	
	FixObjectToObject(pointer1,holder)
	
	
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMouseVisible(0)	
	
    // setup a skybox
   SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
	SetCameraRange(1,0.1,10000)
	
	
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,32) // 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, mode)
	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,blocksimage,0)
	SetImageMagFilter(blocksimage,0)
	SetImageMinFilter(blocksimage,0)
	SetObjectUVScale(id,0,2,2)
	SetObjectPosition(id,-(landsizex#/2)*cubesize#,0,-(landsizez#/2)*cubesize#)

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

// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
    
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
    
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
    
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
    
    
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
    
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
    
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
    
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
    
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
    
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
        
    s = (xin + yin) * PN3DF2
    xs = xin + s
    
    i = floor(xs)
    ys = yin + s
    
    j = floor(ys)
    t = (i + j) * PN3DG2
    
    x0 = xin - (i - t)
    y0 = yin - (j - t)
    
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
    
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
    
    i = i && 255
    j = j && 255
    
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
    
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
    
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
    
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
    
endfunction  perlinheight * (n0 + n1 + n2)

function definetextures()
          
          
// create the texturs
    textures[0].id = CreateTextures(32,32,1,0,255,0)  // top
    textures[1].id = CreateTextures(32,32,1,100,100,0)  // top
    
    
      
endfunction
function createtextures(sizex# as float, sizey# as float,density, r,g,b)
          
            swap()
          
            for a#=0 to sizex# step .1
                for b#=0 to sizey# step .1
                    colorred=0
                    colorgreen=random(100,155)
                    colorblue=0
                    DrawLine(a#,b#,(A#),(B#), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue))
                next
            next
                  
            render()
            img = getimage(0,0,sizex#, sizey#)

sync()
sleep(10)          
endfunction img

+ Code Snippet



// Project: codingtrain-terrain 
// Created: 2018-08-17

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768

// set window properties
SetWindowTitle( "codingtrain-terrain" )
SetWindowSize( screenwidth, screenheight, 0 )
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( 0, 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 perlinheight=70
global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#,cameray#,cameraz#,memblock, noiseterrain#,offsetx#,offsety#,meshobject,blocksimage,worldobject
global selectedcubex#, selectedcubey#, selectedcubez#, ix#, iz#, holder,exploded, playerspeed#,rebuildx#, rebuildy#, meshmemory
global cubesize#=100
global worldbuilt=1
global cubedamage = 10
#constant landsizex#=128
#constant landsizey#=1
#constant landsizez#=128

startx#=screenwidth/2:starty#=screenheight/2


type _explodecube
	id
	x#
	y#
	z#
	dirx#
	diry#
	dirz#
endtype 
global explodecube as _explodecube[100]

#constant worldchunksize#=6 // half (surrounding middle chunk)

type _worldchunks
	id
	x#
	y#
	z#
	chunk
endtype
global worldchunks as _worldchunks[worldchunksize#,worldchunksize#]


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 explodedcube as Mesh


// setup the types - each entity may have multiple of entities to keep track of, these can be stored as Types
type _textures
    id              // texture store
    r,g,b           // colors
    dr,dg,db        // depths (because minecraft tiles is built with rectangular different shades of the color)
    texturessize
endtype
// textures
global textures as _textures[50]         // used to store textures (not ready yet)
    definetextures()


blocksimage = LoadImage("test.png")
NoiseInit()

setupskyandfog()



offsetx#=0:offsety#=0

//next

loading = CreateText("Loading Terrain")
SetTextSize(loading,60)
SetTextPosition(loading,screenwidth/2-GetTextTotalWidth(loading),screenheight/2)

sync()
buildlandscape(offsetx#,offsety#)


DeleteText(loading)

SetCameraRange(1,.01,10000)

//SetObjectRotation(meshobject,0,180,0)
camerax#=landsizex#/(cubesize#/2)
cameray#=5
cameraz#=landsizez#/(cubesize#/2)
playerspeed#=1
SetCameraPosition(1,camerax#,cameray#,cameraz#)

// these work the landscape rolling - everytime move the player - it moves the camera
// and increases/decreases these values too.
// if they hit past the rebuildstep variable the landscape gets rebuilt and repositioned back to the origin
// of the players starting point - but the landscapes vertcies and colours get changed depending on 
/// the map location
rebuildx#=0
rebuildy#=0
rebuildstep=1 // how many steps to take before the land starts to rebuild and reposition

// locate camera in middle of chunk
cameray#=getlandposition(landsizex#/2+offsetx#,landsizez#/2)+(cubesize#*4) 

//setup a frame timer for use
frametime#=timer()

do
	
	
	movecamerawithmouse()
    checkkeypressesandmouseclicks()
	getplayerworldcoordinates()


// did you hit a cube, lets check and move the rubble
	if exploded=1
	
		for a=0 to explodecube.length
			explodecube[a].x#=explodecube[a].x#+explodecube[a].dirx#
			explodecube[a].y#=explodecube[a].y#+explodecube[a].diry#
			explodecube[a].z#=explodecube[a].z#+explodecube[a].dirz#
			SetObjectPosition(explodecube[a].id,explodecube[a].x#,explodecube[a].y#,explodecube[a].z#)

		next
	endif
	
	if (timer()-frametime#)>1
		frametime#=timer()
		if exploded=1 
			for a=0 to explodecube.length
				DeleteObject(explodecube[a].id)
			next
		endif
		exploded=0
		
	endif
	
	
	SetCameraPosition(1,camerax#,cameray#, cameraz#)
	print ("Chunk Size "+ str(landsizex#) + "x" + str(landsizey#)+"x" + str(landsizez#)) 
	print ("World Size "+str(worldchunksize#) + "x" + str(worldchunksize#))
	print ("Selected Cube " + str(selectedcubex#) + " x " + str(selectedcubez#))
	print(GetRawLastKey())
    Print( ScreenFPS() )
    Sync()
loop

function checkkeypressesandmouseclicks()
	    if GetRawKeyState(38) 

		inc offsety#,playerspeed#
		dec rebuildy#,playerspeed#
		inc cameraz#,playerspeed#
	endif

    if GetRawKeyState(40) 

		dec offsety#,playerspeed#
		inc rebuildy#,playerspeed#
		dec cameraz#,playerspeed#
	endif

    if GetRawKeyState(39) 

		dec offsetx#,playerspeed#
		dec rebuildx#,playerspeed#
		dec camerax#,playerspeed#

	endif
  
	if GetRawKeyState(87)
			
		inc cameray#,playerspeed#
	endif
	if GetRawKeyState(83)
			
		dec cameray#,playerspeed#
	endif
	
    if GetRawKeyState(37) 

		inc offsetx#,playerspeed#
		inc rebuildx#,playerspeed#
		inc camerax#,playerspeed#

	endif


	if GetRawMouseRightPressed()
		
		DeleteCube(selectedcubex#,1, selectedcubez#)
	endif


	if GetRawMouseLeftPressed()
		
		AddNewCube(selectedcubex#,1, selectedcubez#)
	endif
	
/* Comes soon 
	if (rebuildx#>rebuildstep)
		rebuildx#=0
		renderedge()
    endif

/*	if (rebuildx#<-rebuildstep)
		rebuildx#=0
		 buildlandscape(offsetx#, offsety#)
    endif

	if (rebuildy#>rebuildstep)
		rebuildy#=0
		buildlandscape(offsetx#, offsety#)
    endif
	if (rebuildy#<-rebuildstep)
		rebuildy#=0
		buildlandscape(offsetx#, offsety#)
    endif
  */  

endfunction
function DeleteCube(CubeX#,CubeY#,CubeZ#)
	
	for a=0 to explodecube.length
//   SetObjectPosition(holder,,cubesize#+10,)
		if (GetObjectExists(explodecube[a].id)) then DeleteObject(explodecube[a].id)
		explodedcube.TriangleList.length=-1
		explodedcube.VertexList.length=-1
		addcube(explodedcube,15,1,1,0,1,0,0,0,0)
		explodecube[a].x#= (ix#+cubesize#)+cubesize#+random2(-5,5)
		explodecube[a].y# = cubesize#+10
		explodecube[a].z# = iz#+cubesize#/2+random2(-5,5)
		explodecube[a].dirx#=random2(-1,1)
		explodecube[a].diry#=random2(-1,1)
		explodecube[a].dirz#=random2(-1,1)
		
		explodecube[a].id = CreateObjectFromMeshWithUVTexturing(explodedcube,0)
		exploded=1
		SetObjectPosition(explodecube[a].id,explodecube[a].x#,explodecube[a].y#,explodecube[a].z#)
		
	next
	
	dec cubedamage



	
	if cubedamage<0 
	// the Y comes later
	
		SC = (cubex# * landsizex#) + cubez#
		for v=(SC*36) to (SC*36) + 35
			SetMeshMemblockVertexPosition(meshmemory, v, GetMeshMemblockVertexX(meshmemory,v), GetMeshMemblockVertexY(meshmemory,v)-cubesize#, GetMeshMemblockVertexZ(meshmemory,v))
		next
		SetObjectMeshFromMemblock(meshobject, 1, meshmemory)
		cubedamage=4
	endif
	
endfunction

function AddNewCube(CubeX#,CubeY#,CubeZ#)
	
	for a=0 to explodecube.length
//   SetObjectPosition(holder,,cubesize#+10,)
		if (GetObjectExists(explodecube[a].id)) then DeleteObject(explodecube[a].id)
		explodedcube.TriangleList.length=-1
		explodedcube.VertexList.length=-1
		addcube(explodedcube,15,1,1,0,1,0,0,0,0)
		explodecube[a].x#= (ix#+cubesize#)+cubesize#+random2(-5,5)
		explodecube[a].y# = cubesize#+10
		explodecube[a].z# = iz#+cubesize#/2+random2(-5,5)
		explodecube[a].dirx#=random2(-1,1)
		explodecube[a].diry#=random2(-1,1)
		explodecube[a].dirz#=random2(-1,1)
		
		explodecube[a].id = CreateObjectFromMeshWithUVTexturing(explodedcube,0)
		exploded=1
		SetObjectPosition(explodecube[a].id,explodecube[a].x#,explodecube[a].y#,explodecube[a].z#)
		
	next
	
	dec cubedamage



	
		SC = (cubex# * landsizex#) + cubez#
		for v=(SC*36) to (SC*36) + 35
			SetMeshMemblockVertexPosition(meshmemory, v, GetMeshMemblockVertexX(meshmemory,v), GetMeshMemblockVertexY(meshmemory,v)+cubesize#, GetMeshMemblockVertexZ(meshmemory,v))
		next
		SetObjectMeshFromMemblock(meshobject, 1, meshmemory)
		cubedamage=4
	
endfunction


function getplayerworldcoordinates()
    chunkhit=(mouseover()-100000-12) * 2
 
    //if chunkhit<0 
//       SetObjectVisible(holder,0)
//  else
//      SetObjectVisible(holder,1)
//  endif
     
    cubex=ix# - 1/ cubesize#
    cubey=iz# - 1/ cubesize#
 
    selectedcube = (cubex * landsizex#) + cubey
   
	print(selectedcube)
    // position the block selector at the intersection point
    selectedcubeX# = round(ix# / cubesize#) + landsizex#/2
    selectedcubez# = Round(iz# / cubesize#) + landsizez#/2 

	//SetSpritePosition(pointer, cubex,cubey)

   SetObjectPosition(holder,(ix#+cubesize#)+cubesize#,cubesize#+10,iz#+cubesize#/2)
   
endfunction
   
   
function mouseOver()
            
    myX as float
    myY as float
    my3dX as float
    my3dY as float
    my3dZ as float
    rayStartX as float
    rayStartY as float
    rayStartZ as float
    rayEndX as float
    rayEndY as float
    rayEndZ as float
            
    myX=getpointerx()
    myY=getpointery()
    my3dX=Get3DVectorXFromScreen(myX,myY)
    my3dY=Get3DVectorYFromScreen(myX,myY)
    my3dZ=Get3DVectorZFromScreen(myX,myY)
    print(my3Dx)
    print(my3Dy)
    print(my3Dz)
    
    rayStartX=my3dX+GetCameraX(1)
    rayStartY=my3dY+GetCameraY(1)
    rayStartZ=my3dZ+GetCameraZ(1)
            
    rayEndX=1000*my3dX+GetCameraX(1)
    rayEndY=1000*my3dY+GetCameraY(1)
    rayEndZ=1000*my3dZ+GetCameraZ(1) 
            
    theObjectHit= ObjectRayCast(0,rayStartX,rayStartY,rayStartZ,rayEndX,rayEndY,rayEndZ)      
   
    // Move camera with WASD
    // Rotate Camera with Arrow Keys
    MoveCameraLocalX(1,GetRawKeyState(68) - GetRawKeyState(65))
    MoveCameraLocalZ(1,GetRawKeyState(87) - GetRawKeyState(83))
    RotateCameraGlobalY(1,GetRawKeyState(39) - GetRawKeyState(37))
    RotateCameraLocalX(1,GetRawKeyState(40) - GetRawKeyState(38))
    
    cx# = GetCameraX(1)
    cy# = GetCameraY(1)
    cz# = GetCameraZ(1)
    
    pxRaw# = Get3DVectorXFromScreen(myX,myY)
    pyRaw# = Get3DVectorYFromScreen(myX,myY)
    pzRaw# = Get3DVectorZFromScreen(myX,myY)
    
    // get pointer vector y added to camera's y position
    pyRelative# = pyRaw# + cy#
    
    // find distance between camera's y position and pyRelative#
    dist# = cy# - pyRelative#
    
    // calculate scaling value by finding how many times dist# goes into the camera's y position
    s# = cy# / dist#
    
    // find the intersection point by multiplying pointer vector by s# and adding it to the camera position. 
    // ignoring Y in this case since it should be 0 anyway.
    ix# = (cx# + pxRaw# * s#)
    iz# = cz# + pzRaw# * s#
    
	
 
   
endfunction theObjectHit




function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2) 


// create the cube 

	AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))

endfunction

function getlandposition(x#,y#)
	
	ret = noise2d((x#+offsetx#)/noiseterrain#,			(y#+offsety#)/noiseterrain#)
endfunction ret

function buildlandscape(offsetx#, offsety#)
	
	if (worldbuilt = 0) // build the world one time only
		print("Build world")
		sync()
		sleep(10)
		
		col=1
		scale#=1
		noiseterrain#=1 // the higher this is the lower the hills and vica versa - 10-12 is a nice smooth effect
		meshID.TriangleList.length=-1
		meshID.VertexList.length=-1

		noiseterrain#=10
		for x=1 to landsizex#
			for y=1 to landsizey#
				for z=1 to landsizez#
					
					addcube(MeshID,1,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

				next
			next
		next

		
	//	meshobject = CreateObjectFromMeshWithColor(meshID)
	worldobject = CreateObjectFromMeshWithUVTexturing(meshID,0)
	SetObjectImage(worldobject,blocksimage,0)
	SetImageMagFilter(blocksimage,0)
	SetImageMinFilter(blocksimage,0)
	SetObjectUVScale(worldobject,0,2,2)
	SetObjectPosition(worldobject,0,0,0)
				
		for wx=-worldchunksize#/2 to worldchunksize#/2
			for wz=-worldchunksize#/2 to worldchunksize#/2
				if wx=0 and wz=0
					// dont position our main player chunk
				else
				
					worldchunks[wx+worldchunksize#/2,wz+worldchunksize#/2].id = InstanceObject(worldobject)
					SetObjectPosition(worldchunks[wx+worldchunksize#/2,wz+worldchunksize#/2].id,wx * landsizex#, 0, wz * landsizez#)
				endif
				
			next
		next
		worldbuilt=1

	endif
	buildachunk(0) // perlined
	camerax#=0
	cameraz#=0
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
endfunction

function buildachunk(mode)
	
	meshID.TriangleList.length=-1
	meshID.VertexList.length=-1

	noiseterrain#=3
	for x=1 to landsizex#
		for y=1 to landsizey#
			for z=1 to landsizez#
					
				//if mode = 0 then addcube(cubesize#,1,1, 0,1,0,x*cubesize#,floor(y + noise2d((x+offsetx#)/noiseterrain#      ,(z+offsety#)/noiseterrain#))*cubesize#,z* cubesize#)
         		//if mode = 1 then addcube(cubesize#,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

				addcube(MeshID,cubesize#,1,1, 0,1,0,x*cubesize#,1,z* cubesize#)

			next
		next
	next
	DeleteObject(meshobject)

	meshobject = CreateObjectFromMeshWithUVTexturing(meshID,1)
endfunction meshobject


function movecamerawithmouse()
      
    fDiffX# = (GetPointerX() - startx#)/2.0
    fDiffY# = (GetPointerY() - starty#)/2.0
  
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
    
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
    
    
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
endfunction


function setupskyandfog()

	holder=CreateObjectBox(cubesize#/2,1,1)
	pointer1=CreateObjectBox(1,1,cubesize#/2)	
	FixObjectToObject(pointer1,holder)
	
	
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMousePosition(screenwidth/2,screenheight/2)
	SetRawMouseVisible(0)	
	
    // setup a skybox
   SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
	SetCameraRange(1,0.1,10000)
	
	
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,32) // 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, mode)
	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,blocksimage,0)
	SetImageMagFilter(blocksimage,0)
	SetImageMinFilter(blocksimage,0)
	SetObjectUVScale(id,0,2,2)
	SetObjectPosition(id,-(landsizex#/2)*cubesize#,0,-(landsizez#/2)*cubesize#)

	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


// ***************************************************************************************************
// Ken Perlin's Simplex Noise 2D. AGK Version.
// Ported from Stefan Gustavson's Java implementation
// (http://staffwww.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf)
// 2015.02.03
// AGK reference https://forum.thegamecreators.com/thread/213532
// Thank you Thank you 
    
#constant PN3DF2 = 0.5*(sqrt(3.0)-1.0)
#constant PN3DG2 = (3.0-sqrt(3.0))/6.0
    
Type sPNVECTOR
    x as float
    y as float
    z as float
endtype
    
Global PNHash as integer[512]
Global PNGrad3 as sPNVECTOR[256]
    
    
Function NoiseInit()
    Local n as integer, rn as integer
    For n=0 To 255
        PNHash[n] = n
    Next n 
    For n=0 To 255
        rn=Random(0, 255) 
        PNHash.swap(n,rn)
    Next n
    For n=0 To 255
        PNHash[256 + n] = PNHash[n]
    Next n
    PNHash[511] = PNHash[0]
    
    For n=0 To 15
        PNGrad3[n * 16 + 0].x = 1 : PNGrad3[n * 16 + 0].y = 1 : PNGrad3[n * 16 + 0].z = 0
        PNGrad3[n * 16 + 1].x = -1 : PNGrad3[n * 16 + 1].y = 1 : PNGrad3[n * 16 + 1].z = 0
        PNGrad3[n * 16 + 2].x = 1 : PNGrad3[n * 16 + 2].y = -1 : PNGrad3[n * 16 + 2].z = 0
        PNGrad3[n * 16 + 3].x = -1 : PNGrad3[n * 16 + 3].y = -1 : PNGrad3[n * 16 + 3].z = 0
    
        PNGrad3[n * 16 + 4].x = 1 : PNGrad3[n * 16 + 4].y = 0 : PNGrad3[n * 16 + 4].z = 1
        PNGrad3[n * 16 + 5].x = -1 : PNGrad3[n * 16 + 5].y = 0 : PNGrad3[n * 16 + 5].z = 1
        PNGrad3[n * 16 + 6].x = 1 : PNGrad3[n * 16 + 6].y = 0 : PNGrad3[n * 16 + 6].z = -1
        PNGrad3[n * 16 + 7].x = -1 : PNGrad3[n * 16 + 7].y = 0 : PNGrad3[n * 16 + 7].z = -1
    
        PNGrad3[n * 16 + 8].x = 0 : PNGrad3[n * 16 + 8].y = 1 : PNGrad3[n * 16 + 8].z = 1
        PNGrad3[n * 16 + 9].x = 0 : PNGrad3[n * 16 + 9].y = -1 : PNGrad3[n * 16 + 9].z = 1
        PNGrad3[n * 16 + 10].x = 0 : PNGrad3[n * 16 + 10].y = 1 : PNGrad3[n * 16 + 10].z = -1
        PNGrad3[n * 16 + 11].x = 0 : PNGrad3[n * 16 + 11].y = -1 : PNGrad3[n * 16 + 11].z = -1
    
        PNGrad3[n * 16 + 12].x = 1 : PNGrad3[n * 16 + 12].y = 1 : PNGrad3[n * 16 + 12].z = 0
        PNGrad3[n * 16 + 13].x = -1 : PNGrad3[n * 16 + 13].y = 1 : PNGrad3[n * 16 + 13].z = 0
        PNGrad3[n * 16 + 14].x = 0 : PNGrad3[n * 16 + 14].y = -1 : PNGrad3[n * 16 + 14].z = 1
        PNGrad3[n * 16 + 15].x = 0 : PNGrad3[n * 16 + 15].y = -1 : PNGrad3[n * 16 + 15].z = -1
    Next n 
endfunction
    
function Noise2D(xin as float, yin as float)
    local n0 as float, n1 as float, n2 as float, s as float, t as float, x0 as float, y0 as float, xs as float, ys as float
    local i as integer, j as integer, i1 as integer, j1 as integer, i2 as integer, j2 as integer, gi0 as integer, gi1 as integer, gi2 as integer
    local x1 as float, y1 as float, x2 as float, y2 as float, x3 as float, y3 as float, t0 as float, t1 as float, t2 as float
        
    s = (xin + yin) * PN3DF2
    xs = xin + s
    
    i = floor(xs)
    ys = yin + s
    
    j = floor(ys)
    t = (i + j) * PN3DG2
    
    x0 = xin - (i - t)
    y0 = yin - (j - t)
    
    if x0>y0
        i1=1
        j1=0
    else
        i1=0
        j1=1
    endif
    
    x1 = x0 - i1 + PN3DG2
    y1 = y0 - j1 + PN3DG2
    x2 = x0 - 1.0 + 2.0 * PN3DG2
    y2 = y0 - 1.0 + 2.0 * PN3DG2
    
    i = i && 255
    j = j && 255
    
    gi0 =  PNHash[i + PNHash[j]] && 15
    gi1 = PNHash[i + i1 + PNHash[j + j1]] && 15
    gi2 = PNHash[i + 1 + PNHash[j+ 1]] && 15
    
    t0 = 0.5 - x0*x0-y0*y0
    if t0<0
        n0 = 0.0
    else
        t0 = t0 * t0
        n0 = t0 * t0 * (PNGrad3[gi0].x * x0 + PNGrad3[gi0].y * y0)
    endif
    
    t1 = 0.5 - x1*x1-y1*y1
    if t1<0
        n1 = 0.0
    else
        t1 = t1 * t1
        n1 = t1 * t1 * (PNGrad3[gi1].x * x1 + PNGrad3[gi1].y * y1)
    endif
    
    t2 = 0.5 - x2*x2-y2*y2
    if t2<0
        n2 = 0.0
    else
        t2 = t2 * t2
        n2 = t2 * t2 * (PNGrad3[gi2].x * x2 + PNGrad3[gi2].y * y2)
    endif
    
endfunction  perlinheight * (n0 + n1 + n2)

function definetextures()
          
          
// create the texturs
    textures[0].id = CreateTextures(32,32,1,0,255,0)  // top
    textures[1].id = CreateTextures(32,32,1,100,100,0)  // top
    
    
      
endfunction
function createtextures(sizex# as float, sizey# as float,density, r,g,b)
          
            swap()
          
            for a#=0 to sizex# step .1
                for b#=0 to sizey# step .1
                    colorred=0
                    colorgreen=random(100,155)
                    colorblue=0
                    DrawLine(a#,b#,(A#),(B#), MakeColor(colorred,colorgreen,colorblue),MakeColor(colorred,colorgreen,colorblue))
                next
            next
                  
            render()
            img = getimage(0,0,sizex#, sizey#)

sync()
sleep(10)          
endfunction img

Right click deletes cube with some effects that can be changed to make it more appealing with the normal dynamics

Left click adds cube

Not forgetting the tilemap for the blocks - add to the media folder

Attachments

Login to view attachments

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 26th Aug 2018 21:17

Link

Very well Done

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 26th Aug 2018 21:36

Link

Thanks - but the real challenge awaits - Infiniatity or a chunk rendering distance with FPS booming out of control.

Just need to figure out the best way to re-render the main chunk and just have the "edges" of it re-populate instead of the whole chunk

- We move forward,

- The whole chuck gets re-populated - it grinds to a steady half at each few frames.

- if just re-populate the edge of the chunk your facing then that would only be one row of blocks to add re-position in the memblock

- Instancing world chunks that surround will only duplicate one object - its not really what we want.

Having a 128x128 world of chunks looks better than a 16x16 one- so move around with the camera - great - once move a certain distance - then the edge of it only gets re--populated with new noise heights

Its a tough one...

Back to top

Profile

puzzler2018

User Banned

Posted: 27th Aug 2018 03:30

Link

if any of you are confused to say what the heck is he on about...

all will come

Back to top

Profile

puzzler2018

User Banned

Posted: 29th Aug 2018 22:13

Link

I think that the only way for long distance views of a 16x16x16 chunk is to send the out vertices and textures to a shader and let the GPU sort the rendering distances out.

hmmm

Can this be achievable!

Back to top

Profile

Santman

13

Years of Service

User Offline

Joined: 15th Sep 2011

Location: Inverness

Posted: 29th Aug 2018 22:58

Link

I didn't use a shader. I think it depends on the gpu, but I was rendering quite a few. The new Minecraft has some form of occlusion routine, I think that's the only difference really.

Back to top

Profile PM

puzzler2018

User Banned

Posted: 10th Sep 2018 19:59

Link

Just thought to bump this thread - I havent forgot about it.. I been working on Mesh memblock work n another thread of mine. All will fall into place once i got the smaller tools in place

Back to top

Profile

puzzler2018

User Banned

Posted: 15th Sep 2018 17:56

Link

ok, I think we may potentially have an exploding cube now

Its built up of 24 objects that can be used in physics engine and then after a few seconds once they lay to rest they will fade away and be able to be reused when hit other blocks

// Project: Mesh Objects
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
 #constant PI# = 3.14159265359
 
// set window properties
SetWindowTitle( "Mesh Objects" )
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( 0, 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 CubeD, Object, fall#, falltimer#, falling, pivot

CubeD =LoadImage("\media\cube.png")

// CubeD = 0

global size#
global peices as integer[]

Create3DPhysicsWorld()
SetPhysicsScale(0.01)

size#=15

// first layer
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,	size#	, 0,		0,	size#, size#	,	0,size#,0)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,	size#	, 0,		0,	size#, 0		, 	0,size#,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,	size#	, 0,		size#,	0, size#	, 	size#,0,0)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,	-size#	, 0,		size#,	0, 0		, 	size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,	-size#	, 0,		0,	-size#, size#	,	0,-size#,0)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,	-size#	, 0,		0,	-size#, 0		, 	0,-size#,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,	-size#	, 0,		-size#,0, size#		, 	-size#,0,0)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,		0	, 0,		-size#,0, size#		, 	-size#,size#,0)

// 2nd later
createMeshObjectTriangleChunk( 0,  -size#,   size#,     -size#,	-size#, 0,		-size#,-size#, size#,  -size#,  0, size#)
createMeshObjectTriangleChunk( 0,  -size#,   size#,      size#,	-size#, 0,		 size#,  0, size#   ,size#,-size#, size#)
createMeshObjectTriangleChunk( 0,   size#,   size#,      size#,   size#, 0,		 size#, size#, size#   ,size#,  0, size#)
createMeshObjectTriangleChunk( 0,   size#,   size#,     -size#,	 size#, 0,		-size#,  0, size#,  -size#, size#, size#)

// 3rd later
createMeshObjectTriangleChunk( 0,   size#,   size#,     -size#,	size#, size#,		-size#,  0, size#, 		-size#,size#,size#*2)
createMeshObjectTriangleChunk( 0,   size#,   size#,      size#,	size#, size#,		 size# , size#,size#*2,		size#,0, size# 		)
createMeshObjectTriangleChunk( 0,  -size#,   size#,      size#,  -size#, size#,	 size# , 0, size#,		size#,-size#, size#*2 		)
createMeshObjectTriangleChunk( 0,  -size#,   size#,     -size#,	-size#, size#,	-size#,  -size#,size#*2, 		-size#,0,size#)

// final layer
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,size#, size#*2,		0,	size#, size#*2, 	0,size#,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#,	size#, size#*2,		0,	size#, size#, 	0,size#,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#,	size#, size#*2,		size#,	0, size#*2, 		size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#,	-size#, size#*2,	size#,	0, size#, 		size#,0,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#,	-size#, size#*2,	0,	-size#, size#*2, 	0,-size#,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,	0,	-size#, size#, 	0,-size#,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,	-size#,0, size#*2, 		-size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,	-size#,0, size#*2, 		-size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,  0, size#*2,	-size#,size#, size#*2, 		-size#,0,size#)

Set3DPhysicsGravity(0,0,0)

SetCameraPosition(1,0,40,-100)

do
	if GetRawKeyState(32)
		for a=0 to peices.length
			RotateObjectLocalX(peices[a],.05)
			RotateObjectLocalY(peices[a],.05)
			RotateObjectLocalZ(peices[a],.05)
		next
	endif
	
	if GetRawKeyPressed(13)
			DeleteObject(object)
			for a=0 to peices.length
				Create3DPhysicsDynamicBody(peices[a]) 
				SetObject3DPhysicsRestitution(peices[a],1)
				SetObjectShapeConvexHull(peices[a])
			next

endif
	Print ("Press Space to rotate")
	Print ("Press Enter to seperate")
	Print ("Peices making up this object "  + str(peices.length))
    Print( ScreenFPS() )
	dirx# =dirx#+GetDirectionX() * 5.0:diry#=diry#+GetDirectionY() * 5.0
    dx# = dirx# - moveX#:dy# = diry# - moveY#
    moveX# = moveX# + (dx#*0.1):moveY# = moveY# + (dy#*0.1)
    x#=x#+GetDirectionX()*5.0:y#=y#+GetDirectionY()*5.0
    Set3DPhysicsGravity(x#,-.4,0)
    Step3DPhysicsWorld() //required for updating physics.
    
//	Step3DPhysicsWorld()
	//Render3D()
    Sync()
loop

// X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd

function createMeshObjectTriangleChunk(x#,y#,z#,x2#,y2#,z2#,x3#,y3#,z3#, x4#,y4#,z4#)
	Color=MakeColor(255,255,255)
	
	// bottom
	AddVertex(MeshID, x#, y#, z#			, 0 ,1, 0, 	.5,.5,Color)
	AddVertex(MeshID, x4#, y4#, z4#			, 0 ,1, 0, 	0, 1,Color)
	AddVertex(MeshID, x2#, y2#, z2#			, 0 ,1, 0, 	0, 0,Color)

AddVertex(MeshID, x2#, y2#, z2#			, 0 ,1, 0, 	.5,.5,Color)
	AddVertex(MeshID, x4#, y4#, z4#			, 0 ,1, 0, 	0, 1,Color)
	AddVertex(MeshID, x3#, y3#, z3#			, 0 ,1, 0, 	0, 0,Color)

AddVertex(MeshID, x#, y#, z#			, 0 ,1, 0, 	.5,.5,Color)
	AddVertex(MeshID, x3#, y3#, z3#			, 0 ,1, 0, 	0, 0,Color)
	AddVertex(MeshID, x4#, y4#, z4#			, 0 ,1, 0, 	0, 1,Color)

AddVertex(MeshID, x#, y#, z#			, 0 ,1, 0, 	.5,.5,Color)
	AddVertex(MeshID, x2#, y2#, z2#			, 0 ,1, 0, 	0, 0,Color)
	AddVertex(MeshID, x3#, y3#, z3#			, 0 ,1, 0, 	0, 1,Color)

peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()
	
endfunction

// X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd

function createMeshObjectTriangleBlock(x#,y#,z#,x2#,z2#,x3#,z3#,height#)
	Color=MakeColor(255,255,255)
	
	// bottom
	AddVertex(MeshID, x#, y#, z#			, 0 ,1, 0, 	.5,.5,Color)
	AddVertex(MeshID, x3#, y#, z3#			, 0 ,1, 0, 	0, 0,Color)
	AddVertex(MeshID, x2#, y#, z2#			, 0 ,1, 0, 	0, 1,Color)

// top
	AddVertex(MeshID, x#, y#+height#, z#	, 0 ,1,0,  .5, .5,Color)
	AddVertex(MeshID, x2#, y#+height#, z2#	, 0 ,1,0,  0, 0,Color)
	AddVertex(MeshID, x3#, y#+height#, z3#	, 0 ,1,0,  0, 1,Color)
	
	
	// side 1
	AddVertex(MeshID, x#, y#, z#			, 0	,1,0, 		0, 1,Color)
	AddVertex(MeshID, x2#, y#+height#, z2#	, 0 ,1,0, 		1, 0,Color)
	AddVertex(MeshID, x#, y#+height#, z#	, 0 ,1,0, 		0, 0,Color)

AddVertex(MeshID, x#, y#, z#			, 0 ,1,0, 		0,1,Color)
	AddVertex(MeshID, x2#, y#, z2#			, 0 ,1,0, 		1,1,Color)
	AddVertex(MeshID, x2#, y#+height#, z2#	, 0 ,1,0, 		1,0,Color)

// side 2
	AddVertex(MeshID, x2#, y#, z2#			, 0 ,1,0, 		0,1,Color)
	AddVertex(MeshID, x3#, y#+height#, z3#	, 0 ,1,0, 		1,0,Color)
	AddVertex(MeshID, x2#, y#+height#, z2#	, 0 ,1,0, 		0,0,Color)
	
	AddVertex(MeshID, x2#, y#, z2#			, 0 ,1,0,		0,1,Color)
	AddVertex(MeshID, x3#, y#, z3#			, 0 ,1,0, 		1,1,Color)
	AddVertex(MeshID, x3#, y#+height#, z3#	, 0 ,1,0, 		1,0,Color)

// side 3
	AddVertex(MeshID, x3#, y#, z3#			, 0 ,1,0, 		0,1,Color)
	AddVertex(MeshID, x#, y#+height#, z#	, 0 ,1,0, 		1,0,Color)
	AddVertex(MeshID, x3#, y#+height#, z3#	, 0 ,1,0, 		0,0,Color)
	
	
	AddVertex(MeshID, x3#, y#, z3#			, 0 ,1,0, 		0,1,Color)
	AddVertex(MeshID, x#, y#, z#			, 0 ,1,0, 		1,1,Color)
	AddVertex(MeshID, x#, y#+height#, z#	, 0 ,1,0, 		1,0,Color)

//	AddVertex(MeshID, x#, y#+height#, z3#	, 0 ,1,0, .5,.5,Color)
	
	
	
	
	
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()
	
endfunction

function createmeshobjectlighthouse(x#, y#, z#, basewidth#, height#)

CreateMeshObjectConeWithTexture(height#,50,basewidth#,0)
endfunction
function emptymesh()
	MeshID.VertexList.Length=-1
	MeshID.TriangleList.Length=-1
	
	
endfunction

Function CreateMeshObjectPlayWithTexture_Shatter(x#,y#,z#,width#,depth#)
	
	color=MakeColor(random(0,255),random(0,255),random(0,255))
	pos#=8 // location of the shatter point
	
	AddVertex(MeshID, x#-width#/2				, y#+depth#/2-depth#/2			,z#	, 0 ,1,0, 0,0.5,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#-width#/2				, y#+depth#/2					,z#	, 0 ,1,0, 0,0,Color)
	
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

AddVertex(MeshID, x#-width#/2				, y#+depth#/2					,z#	, 0 ,1,0, 0,0,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#-width#/2+(depth#/2)	, y#+depth#/2					,z#	, 0 ,1,0, .5,0,Color)

peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

AddVertex(MeshID, x#-width#/2+(depth#/2)	, y#+depth#/2					,z#	, 0 ,1,0, .5,0,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#+width#/2				, y#+depth#/2					,z#	, 0 ,1,0, 1,0,Color)

peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

AddVertex(MeshID, x#+width#/2				, y#+depth#/2					,z#	, 0 ,1,0, 1,0,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#+width#/2				, y#+depth#/2-depth#/2			,z#	, 0 ,1,0, 1,.5,Color)
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

AddVertex(MeshID, x#+width#/2				, y#+depth#/2-depth#/2			,z#	, 0 ,1,0, 1,.5,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#+width#/2				, y#-depth#/2					,z#	, 0 ,1,0, 1,1,Color)
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

AddVertex(MeshID, x#+width#/2				, y#-depth#/2					,z#	, 0 ,1,0, 1,1,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#+width#/2-depth#/2		, y#-depth#/2					,z#	, 0 ,1,0, .5,1,Color)
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

AddVertex(MeshID, x#+width#/2-depth#/2		, y#-depth#/2					,z#, 0 ,1,0, .5,1,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z# , 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#-width#/2				, y#-depth#/2					,z#, 0 ,1,0, 0,1,Color)
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

AddVertex(MeshID, x#-width#/2				, y#-depth#/2					,z#	, 0 ,1,0, 0,1,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#-width#/2				, y#+depth#/2-depth#/2			,z#	, 0 ,1,0, 0,.5,Color)
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

endfunction
function splitmesh(splitamount#)
	length=meshid.VertexList.length

for a=0 to 5

randomvertex = a

oldx# = MeshID.VertexList[randomvertex].x = MeshID.VertexList[randomvertex].x
		oldy# = MeshID.VertexList[randomvertex].y = MeshID.VertexList[randomvertex].y
		oldz# = MeshID.VertexList[randomvertex].z = MeshID.VertexList[randomvertex].z

randomsplit#=random2(1,splitamount#)/100.0
		MeshID.VertexList[randomvertex].x = MeshID.VertexList[randomvertex].x+randomsplit#

randomsplit#=random2(1,splitamount#)/100.0
		 MeshID.VertexList[randomvertex].y = MeshID.VertexList[randomvertex].y-randomsplit#
		randomsplit#=random2(1,splitamount#)/100.0
		MeshID.VertexList[randomvertex].z = MeshID.VertexList[randomvertex].z+randomsplit#

//	endif
	
	next

deleteobject(object)
	object = CreateObjectFromMeshWithUVTexturing(MeshID,CubeD)
	
	
endfunction

function createMeshObjectPlaneWithTexture(x#,y#,z#,width#,depth#)
	
	color=MakeColor(255,255,255)
	
	AddVertex(MeshID, x#-width#/2								, y#	,z#+depth#/2						, 0 ,1,0, 0,0,Color)
	AddVertex(MeshID, x#-width#/2								, y#	,z#-depth#/2						, 0 ,1,0, 0,1,Color)
	AddVertex(MeshID, x#+width#/2								, y#	,z#+depth#/2						, 0 ,1,0, 1,0,Color)
	
	AddVertex(MeshID, x#+width#/2								, y#	,z#+depth#/2						, 0 ,1,0, 1,0,Color)
	AddVertex(MeshID, x#-width#/2								, y#	,z#-depth#/2						, 0 ,1,0, 0,1,Color)
	AddVertex(MeshID, x#+width#/2								, y#	,z#-depth#/2						, 0 ,1,0, 1,1,Color)

endfunction

function createMeshObjectCylinderWithTexture(x#, y#, z#,height#, baseradius#, topradius#,segments#, top, bottom, color)

if (segments#<3) then segments#=3
	if (baseradius#<0) then baseradius#=-baseradius#
	
	radius#=baseradius#/2.0
	
	SegX# = 2*PI# /segments#
	SegU# = 1.0 / segments#
	
	if top=1 
	for i=0 to segments#
		nxt = i+1
		if ( nxt >= segments# ) then nxt = 0

AddVertex(MeshID, x#	, y#+height#/2.0	,z#					, 0 ,1,0, .5,.5,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*i) * (radius#-topradius#)	, y#+height#/2.0	,z#+CosRad(-SegX#*i) * (radius#-topradius#)	, 0 ,1,0, SinRad(-SegX#*i)/2.0+.5,CosRad(SegX#*i)/2.0+.5,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-topradius#)	, y#+height#/2.0	,z#+CosRad(-SegX#*nxt) * (radius#-topradius#)	, 0 ,1,0, SinRad(-SegX#*(i+1))/2.0+.5,CosRad(SegX#*(i+1))/2.0+.5,Color)

next
	endif

for i=0 to segments#
		nxt = i+1
		if ( nxt >= segments# ) then nxt = 0
		
		
		AddVertex(MeshID, x#+SinRad(-SegX#*i)	* (radius#-topradius#)	, y#+height#/2.0	,z#+CosRad(-SegX#*i) 	* (radius#-topradius#), SinRad	(-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,0,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*i) 	* (radius#+0)	, y#-height#/2.0	,z#+CosRad(-SegX#*i) 	* (radius#-0)	, SinRad(-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,1,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#+0)	, y#-height#/2.0	,z#+CosRad(-SegX#*nxt) 	* (radius#-0)	, SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),1,Color)
	
		AddVertex(MeshID, x#+SinRad(-SegX#*i)	* (radius#-topradius#)	, y#+height#/2.0	,z#+CosRad(-SegX#*i) 	* (radius#-topradius#), SinRad	(-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,0,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-0)	, y#-height#/2.0	,z#+CosRad(-SegX#*nxt) 	* (radius#-0)	, SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),1,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-topradius#)	, y#+height#/2.0	,z#+CosRad(-SegX#*nxt) 	* (radius#-topradius#)	, SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),0,Color)

next
	if bottom=1
		
	for i=0 to segments#
		nxt = i+1
		if ( nxt >= segments# ) then nxt = 0

AddVertex(MeshID, x#+Sinrad(-SegX#*i) * radius#		, y#-height#/2.0	,z#+CosRad(-SegX#*i) * radius#	, 0 ,-1,0, SinRad(-SegX#*i)/2.0+.5,CosRad(SegX#*i)/2.0+.5,Color)
		AddVertex(MeshID, x#								, y#-height#/2.0	,z#								, 0 ,-1,0, .5,.5,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * radius#	, y#-height#/2.0	,z#+CosRad(-SegX#*nxt) * radius#	, 0 ,-1,0, SinRad(-SegX#*(i+1))/2.0+.5,CosRad(SegX#*(i+1))/2.0+.5,Color)

next
	endif
	
	
endfunction
function CreateMeshObjectConeWithTexture(height#, segments#, Radius#, Bottom)
	
	color=MakeColor(255,255,255) // doesnt use color but the AddVertex requires it 
	SegX# = 2 * PI# / segments#

for i = 0 to segments#
		
		nxt = i+1
		if (nxt >= segments#) then nxt=0
	
		AddVertex(MeshID, 0								, height#	,0						, 0,1,0, .5,.5,Color)
			
			
		AddVertex(MeshID, SinRad(-SegX#*i)*radius#		,-height#	,CosRad(-SegX#*i) * radius#, sinrad( -SegX#*i),abs(radius#)/height#,cosRad(-SegX#*i),SinRad( -SegX# * i ) /2.0 +.5, CosRad(-SegX# * i)/2.0 + .5,Color)
		AddVertex(MeshID, SinRad(-SegX#*nxt)*radius#	,-height#	,CosRad(-SegX#*nxt) * radius#, SinRad(-SegX#*nxt),abs(radius#)/height#,CosRad(-SegX# * nxt),SinRad(-SegX# * (i+1) )/2.0 + .5, CosRad(-SegX#*(i+1)) /2.0+.5,Color)
	next
	
	
	if bottom=1 
		
		for i = 0 to segments#
		
			nxt = i+1
			if (nxt >= segments#) then nxt=0
	
			AddVertex(MeshID, SinRad(-SegX#*i)*radius#		,-height#/2.0	,CosRad(-SegX#*i) * radius#, 0,-height#,0,SinRad( -SegX#*i) /2.0+.5,CosRad(-SegX#*i)/2.0+.5,Color)

AddVertex(MeshID, 0								, -height#/2.0	,0						, 0,-height#,0, .5,.5,Color)
			
			AddVertex(MeshID, SinRad(-SegX#*nxt)*radius#	,-height#/2.0	,CosRad(-SegX#*nxt) * radius#, 0,-height#,0,SinRad(-SegX#*(i+1))/2.0+.5,CosRad(-SegX#*(i+1))/2.0+.5,Color)
		next
	endif

endfunction MeshID
 
 // creates a full cube with all the same texture all way round it
 
 function CreateMeshObjectBoxWithTexture(X#, Y#, Z#, Width#, Height#, Depth#)
	Color= MakeColor(255,255,255) // This doesnt use color but AddVertex requires it
	
	
//Front Face	
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2), 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2), 0,1,0, 1,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2), 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2), 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2), 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2), 0,1,0, 1,0,Color)

// Left
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)			, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)+depth#		, 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)+depth#		, 0,1,0, 0,1,Color)

// Right
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2)		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2)+depth#	, 0,1,0	, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2)+depth#, 0,1,0		, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#	, 0,1,0		, 1,0,Color)

//back
	AddVertex(MeshID, (X#-width#/2)				,(y#	-height#/2)			,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2)+depth#, 0,1,0, 0,1,Color)

// top
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#	, 0,1,0, 1,0,Color)

//bottom

AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2)+depth#		, 0,1,0, 1,0,Color)
	AddVertex(MeshID, (X#+width#/2)				,(y#-height#/2)				,(Z#-depth#/2)			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)+depth#		, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#+width#/2)				,(y#-height#/2)				,(Z#-depth#/2)+depth#		, 0,1,0, 1,0,Color)

endfunction MeshID

// This uses an Atlas tilemap image
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex# // the 15.00 is the amount of textures left to right in the Atlas image
    minx# = (maxx#-(100/15.00)/100) // the 15.00 is the amount of textures left to right in the Atlas image
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5) // the 15.00 is the amount of textures left to right in the Atlas image
    bottomminx# = (bottommaxx#-((100/15.00)/100)) // the 15.00 is the amount of textures left to right  in the Atlas image
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey# // the 11.00 is the amount of textures top to bottom in the Atlas image
    miny# = (maxy#-(100/11.00)/100) // the 11.00 is the amount of textures top to bottom in the Atlas image
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
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,32) // 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
//        SetMemblockFloat(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
  //      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

/*createMeshObjectTriangleBlock( 0,  0,   0,             10,	-10,	10,		0,10)
createMeshObjectTriangleBlock( 0,  0,   0,             10,	  0,	10,	   10,10)
createMeshObjectTriangleBlock( 0,  0,   0,             10,	 10,	0,	   10,10)
createMeshObjectTriangleBlock( 0,  0,   0,             	0,	 10,	-10,   10,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,	 10,	-10,   0,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,	 0,		-10,   -10,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,	 -10,	 0,   -10,10)

/*createMeshObjectTriangleBlock( 0,  0,   0,             -size#/2,-size#/2,  size#/2,	-size#/2 ,size#)
createMeshObjectTriangleBlock( 0,  0,   0,            	size#/2,-size#/2,  size#/2,	 size#/2 ,size#)
createMeshObjectTriangleBlock( 0,  0,   0,            	size#/2, size#/2, -size#/2,	 size#/2 ,size#)
*/

//createMeshObjectTriangleBlock(10,  0, -10,  10,		0, 	 0,   0 , 10)
//CreateMeshObjectPlayWithTexture_Shatter(0,0,0,100,100)

//SetObjectPosition(faces[0],0,0,0) // front
//SetObjectRotation(faces[1],90,0,0) // top
//SetObjectPosition(faces[2],0,0,0)

//createmeshobjectlighthouse(0,0,0,20,10)

//function createMeshObjectCylinderWithTexture(x#, y#, z#,height#, baseradius#, topradius#,segments#, top, bottom, color)
//lighgthouse 
//createMeshObjectCylinderWithTexture(0,0,0,30,10,3,10,1,0,MakeColor(255,255,255))

//goblet
/*createMeshObjectTriangleChunk( 0,  0,   0,     -20,	20, 0,		0,	20, 0, 		0,20,-20)
createMeshObjectTriangleChunk( 0,  0,   0,     20,	20, 0,		0,	20, -20, 		0,20,0)
*/

+ Code Snippet

// Project: Mesh Objects
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
 #constant PI# = 3.14159265359
 
// set window properties
SetWindowTitle( "Mesh Objects" )
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( 0, 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 CubeD, Object, fall#, falltimer#, falling, pivot


CubeD =LoadImage("\media\cube.png")

// CubeD = 0 

global size#
global peices as integer[]


Create3DPhysicsWorld()
SetPhysicsScale(0.01)


size#=15

// first layer
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,	size#	, 0,		0,	size#, size#	,	0,size#,0)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,	size#	, 0,		0,	size#, 0		, 	0,size#,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,	size#	, 0,		size#,	0, size#	, 	size#,0,0)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,	-size#	, 0,		size#,	0, 0		, 	size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,	-size#	, 0,		0,	-size#, size#	,	0,-size#,0)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,	-size#	, 0,		0,	-size#, 0		, 	0,-size#,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,	-size#	, 0,		-size#,0, size#		, 	-size#,0,0)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,		0	, 0,		-size#,0, size#		, 	-size#,size#,0)


// 2nd later
createMeshObjectTriangleChunk( 0,  -size#,   size#,     -size#,	-size#, 0,		-size#,-size#, size#,  -size#,  0, size#)
createMeshObjectTriangleChunk( 0,  -size#,   size#,      size#,	-size#, 0,		 size#,  0, size#   ,size#,-size#, size#)
createMeshObjectTriangleChunk( 0,   size#,   size#,      size#,   size#, 0,		 size#, size#, size#   ,size#,  0, size#)
createMeshObjectTriangleChunk( 0,   size#,   size#,     -size#,	 size#, 0,		-size#,  0, size#,  -size#, size#, size#)

// 3rd later
createMeshObjectTriangleChunk( 0,   size#,   size#,     -size#,	size#, size#,		-size#,  0, size#, 		-size#,size#,size#*2)
createMeshObjectTriangleChunk( 0,   size#,   size#,      size#,	size#, size#,		 size# , size#,size#*2,		size#,0, size# 		)
createMeshObjectTriangleChunk( 0,  -size#,   size#,      size#,  -size#, size#,	 size# , 0, size#,		size#,-size#, size#*2 		)
createMeshObjectTriangleChunk( 0,  -size#,   size#,     -size#,	-size#, size#,	-size#,  -size#,size#*2, 		-size#,0,size#)


// final layer
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,size#, size#*2,		0,	size#, size#*2, 	0,size#,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#,	size#, size#*2,		0,	size#, size#, 	0,size#,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#,	size#, size#*2,		size#,	0, size#*2, 		size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#,	-size#, size#*2,	size#,	0, size#, 		size#,0,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#,	-size#, size#*2,	0,	-size#, size#*2, 	0,-size#,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,	0,	-size#, size#, 	0,-size#,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,	-size#,0, size#*2, 		-size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,	-size#,0, size#*2, 		-size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,  0, size#*2,	-size#,size#, size#*2, 		-size#,0,size#)





Set3DPhysicsGravity(0,0,0)

SetCameraPosition(1,0,40,-100)

do
	if GetRawKeyState(32)
		for a=0 to peices.length
			RotateObjectLocalX(peices[a],.05)
			RotateObjectLocalY(peices[a],.05)
			RotateObjectLocalZ(peices[a],.05)
		next
	endif
	
	if GetRawKeyPressed(13)
			DeleteObject(object)
			for a=0 to peices.length
				Create3DPhysicsDynamicBody(peices[a]) 
				SetObject3DPhysicsRestitution(peices[a],1)
				SetObjectShapeConvexHull(peices[a])
			next


	endif
	Print ("Press Space to rotate")
	Print ("Press Enter to seperate")
	Print ("Peices making up this object "  + str(peices.length))
    Print( ScreenFPS() )
	dirx# =dirx#+GetDirectionX() * 5.0:diry#=diry#+GetDirectionY() * 5.0
    dx# = dirx# - moveX#:dy# = diry# - moveY#
    moveX# = moveX# + (dx#*0.1):moveY# = moveY# + (dy#*0.1)
    x#=x#+GetDirectionX()*5.0:y#=y#+GetDirectionY()*5.0
    Set3DPhysicsGravity(x#,-.4,0)
    Step3DPhysicsWorld() //required for updating physics.
    
//	Step3DPhysicsWorld()
	//Render3D()
    Sync()
loop


// X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd 

function createMeshObjectTriangleChunk(x#,y#,z#,x2#,y2#,z2#,x3#,y3#,z3#, x4#,y4#,z4#)
	Color=MakeColor(255,255,255)
	
	// bottom
	AddVertex(MeshID, x#, y#, z#			, 0 ,1, 0, 	.5,.5,Color)
	AddVertex(MeshID, x4#, y4#, z4#			, 0 ,1, 0, 	0, 1,Color)
	AddVertex(MeshID, x2#, y2#, z2#			, 0 ,1, 0, 	0, 0,Color)



	AddVertex(MeshID, x2#, y2#, z2#			, 0 ,1, 0, 	.5,.5,Color)
	AddVertex(MeshID, x4#, y4#, z4#			, 0 ,1, 0, 	0, 1,Color)
	AddVertex(MeshID, x3#, y3#, z3#			, 0 ,1, 0, 	0, 0,Color)


	AddVertex(MeshID, x#, y#, z#			, 0 ,1, 0, 	.5,.5,Color)
	AddVertex(MeshID, x3#, y3#, z3#			, 0 ,1, 0, 	0, 0,Color)
	AddVertex(MeshID, x4#, y4#, z4#			, 0 ,1, 0, 	0, 1,Color)


	AddVertex(MeshID, x#, y#, z#			, 0 ,1, 0, 	.5,.5,Color)
	AddVertex(MeshID, x2#, y2#, z2#			, 0 ,1, 0, 	0, 0,Color)
	AddVertex(MeshID, x3#, y3#, z3#			, 0 ,1, 0, 	0, 1,Color)


	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()
	
endfunction


// X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd 

function createMeshObjectTriangleBlock(x#,y#,z#,x2#,z2#,x3#,z3#,height#)
	Color=MakeColor(255,255,255)
	
	// bottom
	AddVertex(MeshID, x#, y#, z#			, 0 ,1, 0, 	.5,.5,Color)
	AddVertex(MeshID, x3#, y#, z3#			, 0 ,1, 0, 	0, 0,Color)
	AddVertex(MeshID, x2#, y#, z2#			, 0 ,1, 0, 	0, 1,Color)

	// top
	AddVertex(MeshID, x#, y#+height#, z#	, 0 ,1,0,  .5, .5,Color)
	AddVertex(MeshID, x2#, y#+height#, z2#	, 0 ,1,0,  0, 0,Color)
	AddVertex(MeshID, x3#, y#+height#, z3#	, 0 ,1,0,  0, 1,Color)
	
	
	// side 1
	AddVertex(MeshID, x#, y#, z#			, 0	,1,0, 		0, 1,Color)
	AddVertex(MeshID, x2#, y#+height#, z2#	, 0 ,1,0, 		1, 0,Color)
	AddVertex(MeshID, x#, y#+height#, z#	, 0 ,1,0, 		0, 0,Color)


	AddVertex(MeshID, x#, y#, z#			, 0 ,1,0, 		0,1,Color)
	AddVertex(MeshID, x2#, y#, z2#			, 0 ,1,0, 		1,1,Color)
	AddVertex(MeshID, x2#, y#+height#, z2#	, 0 ,1,0, 		1,0,Color)





	// side 2
	AddVertex(MeshID, x2#, y#, z2#			, 0 ,1,0, 		0,1,Color)
	AddVertex(MeshID, x3#, y#+height#, z3#	, 0 ,1,0, 		1,0,Color)
	AddVertex(MeshID, x2#, y#+height#, z2#	, 0 ,1,0, 		0,0,Color)
	
	AddVertex(MeshID, x2#, y#, z2#			, 0 ,1,0,		0,1,Color)
	AddVertex(MeshID, x3#, y#, z3#			, 0 ,1,0, 		1,1,Color)
	AddVertex(MeshID, x3#, y#+height#, z3#	, 0 ,1,0, 		1,0,Color)


	// side 3
	AddVertex(MeshID, x3#, y#, z3#			, 0 ,1,0, 		0,1,Color)
	AddVertex(MeshID, x#, y#+height#, z#	, 0 ,1,0, 		1,0,Color)
	AddVertex(MeshID, x3#, y#+height#, z3#	, 0 ,1,0, 		0,0,Color)
	
	
	AddVertex(MeshID, x3#, y#, z3#			, 0 ,1,0, 		0,1,Color)
	AddVertex(MeshID, x#, y#, z#			, 0 ,1,0, 		1,1,Color)
	AddVertex(MeshID, x#, y#+height#, z#	, 0 ,1,0, 		1,0,Color)

//	AddVertex(MeshID, x#, y#+height#, z3#	, 0 ,1,0, .5,.5,Color)
	
	
	
	
	
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()
	
endfunction

function createmeshobjectlighthouse(x#, y#, z#, basewidth#, height#)

	
	CreateMeshObjectConeWithTexture(height#,50,basewidth#,0)
endfunction
function emptymesh()
	MeshID.VertexList.Length=-1
	MeshID.TriangleList.Length=-1
	
	
endfunction

Function CreateMeshObjectPlayWithTexture_Shatter(x#,y#,z#,width#,depth#)
	
	color=MakeColor(random(0,255),random(0,255),random(0,255))
	pos#=8 // location of the shatter point
	
	AddVertex(MeshID, x#-width#/2				, y#+depth#/2-depth#/2			,z#	, 0 ,1,0, 0,0.5,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#-width#/2				, y#+depth#/2					,z#	, 0 ,1,0, 0,0,Color)
	
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()


	AddVertex(MeshID, x#-width#/2				, y#+depth#/2					,z#	, 0 ,1,0, 0,0,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#-width#/2+(depth#/2)	, y#+depth#/2					,z#	, 0 ,1,0, .5,0,Color)

	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

	AddVertex(MeshID, x#-width#/2+(depth#/2)	, y#+depth#/2					,z#	, 0 ,1,0, .5,0,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#+width#/2				, y#+depth#/2					,z#	, 0 ,1,0, 1,0,Color)

	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

	AddVertex(MeshID, x#+width#/2				, y#+depth#/2					,z#	, 0 ,1,0, 1,0,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#+width#/2				, y#+depth#/2-depth#/2			,z#	, 0 ,1,0, 1,.5,Color)
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

	AddVertex(MeshID, x#+width#/2				, y#+depth#/2-depth#/2			,z#	, 0 ,1,0, 1,.5,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#+width#/2				, y#-depth#/2					,z#	, 0 ,1,0, 1,1,Color)
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()


	AddVertex(MeshID, x#+width#/2				, y#-depth#/2					,z#	, 0 ,1,0, 1,1,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#+width#/2-depth#/2		, y#-depth#/2					,z#	, 0 ,1,0, .5,1,Color)
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()


	AddVertex(MeshID, x#+width#/2-depth#/2		, y#-depth#/2					,z#, 0 ,1,0, .5,1,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z# , 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#-width#/2				, y#-depth#/2					,z#, 0 ,1,0, 0,1,Color)
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()

	AddVertex(MeshID, x#-width#/2				, y#-depth#/2					,z#	, 0 ,1,0, 0,1,Color)
	AddVertex(MeshID, x#+(width#/2)-depth#/pos#	, y#+(depth#/2)-depth#/pos#		,z#	, 0 ,1,0, .5,.5,Color)
	AddVertex(MeshID, x#-width#/2				, y#+depth#/2-depth#/2			,z#	, 0 ,1,0, 0,.5,Color)
	peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
	emptymesh()





	
endfunction
function splitmesh(splitamount#)
	length=meshid.VertexList.length

	for a=0 to 5

		randomvertex = a		

		oldx# = MeshID.VertexList[randomvertex].x = MeshID.VertexList[randomvertex].x
		oldy# = MeshID.VertexList[randomvertex].y = MeshID.VertexList[randomvertex].y
		oldz# = MeshID.VertexList[randomvertex].z = MeshID.VertexList[randomvertex].z

	
		randomsplit#=random2(1,splitamount#)/100.0
		MeshID.VertexList[randomvertex].x = MeshID.VertexList[randomvertex].x+randomsplit#

		randomsplit#=random2(1,splitamount#)/100.0
		 MeshID.VertexList[randomvertex].y = MeshID.VertexList[randomvertex].y-randomsplit#
		randomsplit#=random2(1,splitamount#)/100.0
		MeshID.VertexList[randomvertex].z = MeshID.VertexList[randomvertex].z+randomsplit#


	//	endif
	
	next

	deleteobject(object)
	object = CreateObjectFromMeshWithUVTexturing(MeshID,CubeD)
	
	
endfunction


function createMeshObjectPlaneWithTexture(x#,y#,z#,width#,depth#)
	
	color=MakeColor(255,255,255)
	
	AddVertex(MeshID, x#-width#/2								, y#	,z#+depth#/2						, 0 ,1,0, 0,0,Color)
	AddVertex(MeshID, x#-width#/2								, y#	,z#-depth#/2						, 0 ,1,0, 0,1,Color)
	AddVertex(MeshID, x#+width#/2								, y#	,z#+depth#/2						, 0 ,1,0, 1,0,Color)
	
	AddVertex(MeshID, x#+width#/2								, y#	,z#+depth#/2						, 0 ,1,0, 1,0,Color)
	AddVertex(MeshID, x#-width#/2								, y#	,z#-depth#/2						, 0 ,1,0, 0,1,Color)
	AddVertex(MeshID, x#+width#/2								, y#	,z#-depth#/2						, 0 ,1,0, 1,1,Color)


endfunction

function createMeshObjectCylinderWithTexture(x#, y#, z#,height#, baseradius#, topradius#,segments#, top, bottom, color)

	if (segments#<3) then segments#=3
	if (baseradius#<0) then baseradius#=-baseradius#
	
	radius#=baseradius#/2.0
	
	SegX# = 2*PI# /segments#
	SegU# = 1.0 / segments#
	
	if top=1 
	for i=0 to segments#
		nxt = i+1
		if ( nxt >= segments# ) then nxt = 0

		AddVertex(MeshID, x#	, y#+height#/2.0	,z#					, 0 ,1,0, .5,.5,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*i) * (radius#-topradius#)	, y#+height#/2.0	,z#+CosRad(-SegX#*i) * (radius#-topradius#)	, 0 ,1,0, SinRad(-SegX#*i)/2.0+.5,CosRad(SegX#*i)/2.0+.5,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-topradius#)	, y#+height#/2.0	,z#+CosRad(-SegX#*nxt) * (radius#-topradius#)	, 0 ,1,0, SinRad(-SegX#*(i+1))/2.0+.5,CosRad(SegX#*(i+1))/2.0+.5,Color)
		

	next
	endif

	for i=0 to segments#
		nxt = i+1
		if ( nxt >= segments# ) then nxt = 0
		
		
		AddVertex(MeshID, x#+SinRad(-SegX#*i)	* (radius#-topradius#)	, y#+height#/2.0	,z#+CosRad(-SegX#*i) 	* (radius#-topradius#), SinRad	(-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,0,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*i) 	* (radius#+0)	, y#-height#/2.0	,z#+CosRad(-SegX#*i) 	* (radius#-0)	, SinRad(-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,1,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#+0)	, y#-height#/2.0	,z#+CosRad(-SegX#*nxt) 	* (radius#-0)	, SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),1,Color)
	
		AddVertex(MeshID, x#+SinRad(-SegX#*i)	* (radius#-topradius#)	, y#+height#/2.0	,z#+CosRad(-SegX#*i) 	* (radius#-topradius#), SinRad	(-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,0,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-0)	, y#-height#/2.0	,z#+CosRad(-SegX#*nxt) 	* (radius#-0)	, SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),1,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-topradius#)	, y#+height#/2.0	,z#+CosRad(-SegX#*nxt) 	* (radius#-topradius#)	, SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),0,Color)







	next
	if bottom=1
		
	for i=0 to segments#
		nxt = i+1
		if ( nxt >= segments# ) then nxt = 0

		AddVertex(MeshID, x#+Sinrad(-SegX#*i) * radius#		, y#-height#/2.0	,z#+CosRad(-SegX#*i) * radius#	, 0 ,-1,0, SinRad(-SegX#*i)/2.0+.5,CosRad(SegX#*i)/2.0+.5,Color)
		AddVertex(MeshID, x#								, y#-height#/2.0	,z#								, 0 ,-1,0, .5,.5,Color)
		AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * radius#	, y#-height#/2.0	,z#+CosRad(-SegX#*nxt) * radius#	, 0 ,-1,0, SinRad(-SegX#*(i+1))/2.0+.5,CosRad(SegX#*(i+1))/2.0+.5,Color)
		

	next
	endif
	
	
endfunction
function CreateMeshObjectConeWithTexture(height#, segments#, Radius#, Bottom)
	
	color=MakeColor(255,255,255) // doesnt use color but the AddVertex requires it 
	SegX# = 2 * PI# / segments#

	for i = 0 to segments#
		
		nxt = i+1
		if (nxt >= segments#) then nxt=0
	
		AddVertex(MeshID, 0								, height#	,0						, 0,1,0, .5,.5,Color)
			
			
		AddVertex(MeshID, SinRad(-SegX#*i)*radius#		,-height#	,CosRad(-SegX#*i) * radius#, sinrad( -SegX#*i),abs(radius#)/height#,cosRad(-SegX#*i),SinRad( -SegX# * i ) /2.0 +.5, CosRad(-SegX# * i)/2.0 + .5,Color)
		AddVertex(MeshID, SinRad(-SegX#*nxt)*radius#	,-height#	,CosRad(-SegX#*nxt) * radius#, SinRad(-SegX#*nxt),abs(radius#)/height#,CosRad(-SegX# * nxt),SinRad(-SegX# * (i+1) )/2.0 + .5, CosRad(-SegX#*(i+1)) /2.0+.5,Color)
	next
	
	
	if bottom=1 
		
		for i = 0 to segments#
		
			nxt = i+1
			if (nxt >= segments#) then nxt=0
	
			AddVertex(MeshID, SinRad(-SegX#*i)*radius#		,-height#/2.0	,CosRad(-SegX#*i) * radius#, 0,-height#,0,SinRad( -SegX#*i) /2.0+.5,CosRad(-SegX#*i)/2.0+.5,Color)

			AddVertex(MeshID, 0								, -height#/2.0	,0						, 0,-height#,0, .5,.5,Color)
			
			AddVertex(MeshID, SinRad(-SegX#*nxt)*radius#	,-height#/2.0	,CosRad(-SegX#*nxt) * radius#, 0,-height#,0,SinRad(-SegX#*(i+1))/2.0+.5,CosRad(-SegX#*(i+1))/2.0+.5,Color)
		next
	endif

endfunction MeshID
 
 // creates a full cube with all the same texture all way round it
 
 function CreateMeshObjectBoxWithTexture(X#, Y#, Z#, Width#, Height#, Depth#)
	Color= MakeColor(255,255,255) // This doesnt use color but AddVertex requires it
	
	
//Front Face	
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2), 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2), 0,1,0, 1,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2), 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2), 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2), 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2), 0,1,0, 1,0,Color)	

// Left
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)			, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)+depth#		, 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)+depth#		, 0,1,0, 0,1,Color)
	


// Right
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2)		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2)+depth#	, 0,1,0	, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2)+depth#, 0,1,0		, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#	, 0,1,0		, 1,0,Color)
	


//back
	AddVertex(MeshID, (X#-width#/2)				,(y#	-height#/2)			,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2)+depth#, 0,1,0, 0,1,Color)


// top
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)+height#		,(Z#-depth#/2)+depth#	, 0,1,0, 1,0,Color)
	


//bottom

	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)+width#		,(y#-height#/2)				,(Z#-depth#/2)+depth#		, 0,1,0, 1,0,Color)
	AddVertex(MeshID, (X#+width#/2)				,(y#-height#/2)				,(Z#-depth#/2)			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, (X#-width#/2)				,(y#-height#/2)				,(Z#-depth#/2)+depth#		, 0,1,0, 1,1,Color)
	AddVertex(MeshID, (X#+width#/2)				,(y#-height#/2)				,(Z#-depth#/2)+depth#		, 0,1,0, 1,0,Color)

endfunction MeshID

 
// This uses an Atlas tilemap image
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex# // the 15.00 is the amount of textures left to right in the Atlas image
    minx# = (maxx#-(100/15.00)/100) // the 15.00 is the amount of textures left to right in the Atlas image
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5) // the 15.00 is the amount of textures left to right in the Atlas image
    bottomminx# = (bottommaxx#-((100/15.00)/100)) // the 15.00 is the amount of textures left to right  in the Atlas image
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey# // the 11.00 is the amount of textures top to bottom in the Atlas image
    miny# = (maxy#-(100/11.00)/100) // the 11.00 is the amount of textures top to bottom in the Atlas image
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
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,32) // 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
//        SetMemblockFloat(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
  //      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

/*createMeshObjectTriangleBlock( 0,  0,   0,             10,	-10,	10,		0,10)
createMeshObjectTriangleBlock( 0,  0,   0,             10,	  0,	10,	   10,10)
createMeshObjectTriangleBlock( 0,  0,   0,             10,	 10,	0,	   10,10)
createMeshObjectTriangleBlock( 0,  0,   0,             	0,	 10,	-10,   10,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,	 10,	-10,   0,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,	 0,		-10,   -10,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,	 -10,	 0,   -10,10)


/*createMeshObjectTriangleBlock( 0,  0,   0,             -size#/2,-size#/2,  size#/2,	-size#/2 ,size#)
createMeshObjectTriangleBlock( 0,  0,   0,            	size#/2,-size#/2,  size#/2,	 size#/2 ,size#)
createMeshObjectTriangleBlock( 0,  0,   0,            	size#/2, size#/2, -size#/2,	 size#/2 ,size#)
*/


//createMeshObjectTriangleBlock(10,  0, -10,  10,		0, 	 0,   0 , 10)
//CreateMeshObjectPlayWithTexture_Shatter(0,0,0,100,100)

//SetObjectPosition(faces[0],0,0,0) // front
//SetObjectRotation(faces[1],90,0,0) // top
//SetObjectPosition(faces[2],0,0,0)

//createmeshobjectlighthouse(0,0,0,20,10)

//function createMeshObjectCylinderWithTexture(x#, y#, z#,height#, baseradius#, topradius#,segments#, top, bottom, color)
//lighgthouse 
//createMeshObjectCylinderWithTexture(0,0,0,30,10,3,10,1,0,MakeColor(255,255,255))

//goblet
/*createMeshObjectTriangleChunk( 0,  0,   0,     -20,	20, 0,		0,	20, 0, 		0,20,-20)
createMeshObjectTriangleChunk( 0,  0,   0,     20,	20, 0,		0,	20, -20, 		0,20,0)
*/

A few refineminements - like with UVs etc but the idea is here

You will need cube.png in your media folder

Please let me know what you *all* think

Attachments

Login to view attachments

Back to top

Profile

puzzler2018

User Banned

Posted: 28th Sep 2018 00:17 Edited at: 28th Sep 2018 00:18

Link

This is no way closed - my time is taken up on memblock work so this is a bump more than anything

For a venture like this - it requires memblock programing

Back to top

Profile

puzzler2018

User Banned

Posted: 28th Sep 2018 00:26

Link

Views - WOW

Back to top

Profile

puzzler2018

User Banned

Posted: 28th Sep 2018 01:04

Link

Minecraft requiures memblock work to make possible, please follow my memblock thread

Back to top

Profile

PHeMoX

6

Years of Service

User Offline

Joined: 9th Jan 2018

Location:

Posted: 28th Sep 2018 11:42

Link

Awesome stuff puzzler2018 and the others who've contributed fubarpk, Santman, Janbo etc. So I guess we can already conclude that for 3D geometry at a higher speed, we need to convert models to memblocks, merge them into larger chunks and go from there?

Back to top

Profile PM

puzzler2018

User Banned

Posted: 28th Sep 2018 18:43

Link

Spot on

Back to top

Profile

puzzler2018

User Banned

Posted: 30th Sep 2018 14:38 Edited at: 30th Sep 2018 14:45

Link

As i have been heavily working on memblock creations, i think this version would suit this now as we can import our own OBJ files

Here is a starting of a different style version

// Project: Mesh Objects
// Created: 2018-08-04
  
// show all errors
SetErrorMode(2)
  
 #constant PI# = 3.14159265359
 #constant screenwidth=1024
 #constant screenheight=768
 #constant fullscreen=0
  
// set window properties
SetWindowTitle( "Mesh Objects" )
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( 0, 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 ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#

// *************************************************
// ** Mesh Memblock Types - please dont upset these variables
// *************************************************
global Cubed, VertexCount, MaxObjects, object, memblock
global peices as integer[]

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

type _vector
	x#
	y#
	z#
	polygon // 1 = yes - 0 = no 
	vindex
	nindex
	tindex
endtype

type _object
	
	v as integer[]        // the actual vertex on the mesh which need to save so can use SetMeshMemblockVertexPosition commands for example at a later time
	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
	faces as _vector[]    // eg f 5//9 21//9 29//9
	textures as _vector[] // eg vt 0.500 1 [0]
	polygon as integer    // 1=Yes , 0 = No
endtype

global objectmesh as _object[10] // upto 10 objects per app

type _meshmemblockvertexes
	id
	vfrom
	vto
endtype
	
global meshmemblockvertexes as _meshmemblockvertexes[] // this will store the true vertex positions on a meshmemblock
// *************************************************
// ** END OF - Mesh Memblock Types - please dont upset these variables
// *************************************************

loadobjects()

buildworld(99,0,99)

setupskyandfog()

setupcamera()

do
	movecamerawithmouse()
	print (maxobjects)
	if GetRawKeyState	(32) // delete and object
		deletemeshobject(random(0,maxobjects),object,meshid)
	endif

if GetRawKeyState(87) then inc cameray#,.01
	if GetRawKeyState(83) then dec cameray#,.01
	if cameray#<4 then cameray#=4

SetCameraPosition(1,camerax#,cameray#,cameraz#)

// Debug stuff
	print ("WASD to move camera up or down")
	print ("Press Space to delete an object")
	print("FPS " + str(ScreenFPS()) + "  - Last Key" + str(GetRawLastKey()))
    Sync()
loop

function buildworld(sizex, sizey, sizez)
	c=0
	for x=-sizex to sizex
		for y=-sizey to sizey
			for z=-sizez to sizez
				InstanceMeshObject(0,c , x*2, random(-2,2),z*2, 	1	, MakeColor(0, random(100,200),0))
				inc c
			next
		next
	next
	maxobjects=c-1

object = CreateObjectFromMeshWithColor(meshid)

// empties the mesh array - no9t required anymore now built
	emptymesh()

endfunction
function loadobjects()
	LoadObjectIntoMesh(0,"\media\cube.obj", 0,1) // 1= saves the V/VN/VTs for been able to instance it
endfunction

function setupcamera()
	camerax#=0
	cameray#=4
	cameraz#=0
	startx#=screenwidth/2
	starty#=screenheight/2
	SetRawMousePosition(startx#,starty#)
endfunction
function setupskyandfog()
    // setup a skybox
    SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
    SetCameraRange(1,0.1,10000)
     
    
endfunction

function RemoveVertices(id,mesh,vertexfrom,vertextto)

for i=vertexfrom to vertextto
        SetMemblockFloat(mesh,72+i*36,0)
        SetMemblockFloat(mesh,76+i*36,0)
        SetMemblockFloat(mesh,80+i*36,0)
        SetMemblockFloat(mesh,84+i*36,0)
        SetMemblockFloat(mesh,88+i*36,0)
        SetMemblockFloat(mesh,92+i*36,0)
		SetMemblockFloat(mesh,96+i*36,0)
        SetMemblockFloat(mesh,100+i*36,0)
        SetMemblockInt(mesh,104+i*36,0) //maybe one day or year in 2019 lol
     next
	SetObjectMeshFromMemblock(id,1,memblock)
	
endfunction

// Delete an object from a mesh 
// ID = object to delete
// mesh = is the main meshmemblock that deletes from
function deletemeshobject(id, mesh, m ref as Mesh)

for i=meshmemblockvertexes[id].vfrom to meshmemblockvertexes[id].vto
        SetMemblockFloat(memblock,72+i*36,0)
        SetMemblockFloat(memblock,76+i*36,0)
        SetMemblockFloat(memblock,80+i*36,0)
        SetMemblockFloat(memblock,84+i*36,0)
        SetMemblockFloat(memblock,88+i*36,0)
        SetMemblockFloat(memblock,92+i*36,0)
		SetMemblockFloat(memblock,96+i*36,0)
        SetMemblockFloat(memblock,100+i*36,0)
        SetMemblockInt(memblock,104+i*36,0) //maybe one day or year in 2019 lol
     next
	SetObjectMeshFromMemblock(mesh,1,memblock)
	
endfunction

function Debug()
	
endfunction
// Instance a loaded object - requires to "save" the data when load an object for this to work
function InstanceMeshObject(id, ObjID, x#, y#, z#, scale#, color)
	mv as _meshmemblockvertexes

mv.id = ObjID
	mv.vfrom = vertexcount
	indices=0
	if objectmesh[id].polygon=0
		for a=0 to objectmesh[id].faces.length

// calculate the normals		
			nnx#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].x#
			nny#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].y#
			nnz#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].z# * -1
		
		
			length# = sqrt((nnx# * nnx#) + (nny# * nny#) + (nnz# * nnz#)) 
		
			if length#>31 
				length#=1/length#
			else
				nny#=1
				length#=1
			endif
		
			nx# = nnx# * length#
			ny# = nny# * length#
			nz# = nnz# * length#
		
// apply the polygon referencing indexes from the OBJect
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scale#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scale#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scale# ,nx#,ny#,nz#,  0,0,Color)
			inc indices,1
// add the next vertex position so we know which vertexs to change later when using setmeshmemblockvertexposition etc
				
		next	
	else
		//polygon
		// polygon construction
		for a=0 to objectmesh[id].faces.length step 4

//calculate the normals
			nnx#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].x#
			nny#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].y#
			nnz#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].z# * -1
		
		
			length# = sqrt((nnx# * nnx#) + (nny# * nny#) + (nnz# * nnz#)) 
		
			if length#>31 
				length#=1/length#
			else
				nny#=1
				length#=1
			endif
		
			nx# = nnx# * length#
			ny# = nny# * length#
			nz# = nnz# * length#

// apply the polygon referencing indexes from the OBJect
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].z# ,nx#,ny#,nz#,  0,0,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# ,nx#,ny#,nz#,  0,0,color)

AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# ,nx#,ny#,nz#,  0,0,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].z# ,nx#,ny#,nz#,  0,0,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,color)
			
// add the next 4 vertex position so we know which vertexs to change later when using setmeshmemblockvertexposition etc
// we need to add 4 of these cause its a polygon structure

//			inc vertexcount,1
			inc indices,6
		next
		
	endif
	
	
	mv.vto = vertexcount + indices-1
	meshmemblockvertexes.insert(mv)
	inc vertexcount,indices

endfunction

// LoadObjectIntoMeshfunction
// filename$ - What is the model name
// debug     - 0 to not have any - 1 to have all the info displayed 
// save      - 0 to not save any Vs/VNs/VTs/Fs in global memory or 1 to keep those in memory to change at a later time in the app if so wish

function LoadObjectIntoMesh(id, filename$, debug, save)
	v as _vector		  // create an empty type so can inert data	
	
// with face elements these are index references of the above array indexes
//
// f v1 v2 v3             	// This will be the indexes of the Vertex 1 2 and 3 in the vertex array
// f v1/vt1 v2/vt2 v3/vt3		// This one has texture / UV assigned to the object and the first is the index in the vertex array and the 2nd is the texture array
// f v1/vt1/vn1 v2/vt2/vn2 v3/vt3/vn3		// This one has texture / UV assigned and Normals to the object and the first is the index in the vertex array and the 2nd is the texture array and the index in normals arra
//
// The f data is normally at the end of the OBJ file, so
// What we would have to do first is grab the V into the Vertex array
// then the VNs into the Normal array
// then the VTs into the texture array
// then use the F(aces) data to pick out which vertex to work with the AddVertex command

// firstly empty the mesh for a new object to be loaded

objectmesh[id].vertex.length=-1
		objectmesh[id].normals.length=-1
		objectmesh[id].faces.length=-1
		objectmesh[id].textures.length=-1
	
	f = OpenToRead(filename$)
	
	vindex=0
	while not FileEOF(f)
		line$=ReadLine(f)
		if (mid(line$,1,2) = "v ") 
			line$=mid(line$,3,len(line$))
			
			v.x# = ValFloat(GetStringToken(line$," ",1))
			v.y#= ValFloat(GetStringToken(line$," ",2))
			v.z#= ValFloat(GetStringToken(line$," ",3)) * -1
	
			objectmesh[id].vertex.insert(v)
			
		endif
		
		if (mid(line$,1,3) = "vn ") 
			line$=mid(line$,4,len(line$))
			v.x# = ValFloat(GetStringToken(line$," ",1))
			v.y#= ValFloat(GetStringToken(line$," ",2))
			v.z#= ValFloat(GetStringToken(line$," ",3)) * -1
		
			objectmesh[id].normals.insert(v)
			
		endif

if (mid(line$,1,2) = "f ") 
			line$=mid(line$,3,len(line$))
			face1$ = GetStringToken(line$," ",1)
			face2$ = GetStringToken(line$," ",2)
			face3$ = GetStringToken(line$," ",3)
			face4$ = GetStringToken(line$," ",4)

// eg constucted F 1//1 14//1 13//1 = Vertex // Normal VertexIndex//NormalIndex VertexIndex//NormalIndex
// eg constucted F 1//1 14//1 13//1 8//1 = Polygon construction // Normal VertexIndex//NormalIndex VertexIndex//NormalIndex

// X#			
			for a=1 to len(face1$)
				if mid(face1$,a,1)="/" 
					v.vindex=val(mid(face1$,1,a))-1
					v.nindex=val(mid(face1$,a+2,len(face1$)))-1
					objectmesh[id].faces.insert(v)
					a=len(face1$) // get out of the loop
				endif
			next
			
// Y#
			for a=1 to len(face2$)
				if mid(face2$,a,1)="/" 
					v.vindex=val(mid(face2$,1,a))-1
					v.nindex=val(mid(face2$,a+2,len(face2$)))-1
					objectmesh[id].faces.insert(v)
					a=len(face2$) // et out of the loop
				endif

next
// Z#
			
			for a=1 to len(face3$)
				if mid(face3$,a,1)="/" 
					v.vindex=val(mid(face3$,1,a))-1
					v.nindex=val(mid(face3$,a+2,len(face3$)))-1
					objectmesh[id].faces.insert(v)
					a=len(face3$)
				endif
				
			next

// 4 faces = polygon so needs a polygon - 4 vertices command rather than a addvertex (3 points)
// a polygon will require 6xvertices. 1st/2nd/3rd points is indeed makes the first triangle
// then the other 3 needs to be - 2 x shared vertices from the 2 of the previous and an extra one making the
// final outcome of 4 vertices polygon object

if len(face4$)>0 
				objectmesh[id].polygon=1
			//poligon required
				for a=1 to len(face4$)
					if mid(face4$,a,1)="/" 
						v.vindex=val(mid(face4$,1,a))-1
						v.nindex=val(mid(face4$,a+2,len(face4$)))-1
						objectmesh[id].faces.insert(v)
						a=len(face4$)
					endif
				
				next
			endif

endif
		
	endwhile
	
	if debug=1 
		print(objectmesh[id].Vertex.length)
		for a=0 to objectmesh[id].vertex.length
			print("V " + str(objectmesh[id].vertex[a].x#) + " " + str(objectmesh[id].vertex[a].y#) + " " + str(objectmesh[id].vertex[a].z#))

next
	
		sync()
		sleep(2000)
	
		print(objectmesh[id].Normals.length)

for a=0 to objectmesh[id].normals.length
			print("VN " + str(objectmesh[id].normals[a].x#) + " " + str(objectmesh[id].normals[a].y#) + " " + str(objectmesh[id].normals[a].z#))

print(objectmesh[id].Faces.length)

for a=0 to objectmesh[id].faces.length
			print("F " + str(objectmesh[id].faces[a].x#) + " " + str(objectmesh[id].faces[a].y#) + " " + str(objectmesh[id].faces[a].z#))

next
		sync()
	
		sleep(2000)
	endif
	
	
	if debug=1
		sync()
		sleep(1000)
	endif

if save=0
		
		objectmesh[id].vertex.length=-1
		objectmesh[id].normals.length=-1
		objectmesh[id].faces.length=-1
		objectmesh[id].textures.length=-1
	endif
	
	CloseFile(f)
endfunction

// X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd 
// X4# is the 4th
 
function createMeshObjectTriangleChunk(x#,y#,z#,x2#,y2#,z2#,x3#,y3#,z3#, x4#,y4#,z4#)
    Color=MakeColor(255,255,255)
     
    // bottom
    AddVertex(MeshID, x#, y#, z#            , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x4#, y4#, z4#         , 0 ,1, 0,  0, 1,Color)
    AddVertex(MeshID, x2#, y2#, z2#         , 0 ,1, 0,  0, 0,Color)
 
 
 
    AddVertex(MeshID, x2#, y2#, z2#         , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x4#, y4#, z4#         , 0 ,1, 0,  0, 1,Color)
    AddVertex(MeshID, x3#, y3#, z3#         , 0 ,1, 0,  0, 0,Color)
 
 
    AddVertex(MeshID, x#, y#, z#            , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x3#, y3#, z3#         , 0 ,1, 0,  0, 0,Color)
    AddVertex(MeshID, x4#, y4#, z4#         , 0 ,1, 0,  0, 1,Color)
 
 
    AddVertex(MeshID, x#, y#, z#            , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x2#, y2#, z2#         , 0 ,1, 0,  0, 0,Color)
    AddVertex(MeshID, x3#, y3#, z3#         , 0 ,1, 0,  0, 1,Color)
 
 
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
     
endfunction
 
 function movecamerawithmouse()
       
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
   
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
   
endfunction

// X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd 
 
function createMeshObjectTriangleBlock(x#,y#,z#,x2#,z2#,x3#,z3#,height#)
    Color=MakeColor(255,255,255)
     
    // bottom
    AddVertex(MeshID, x#, y#, z#            , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1, 0,  0, 0,Color)
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1, 0,  0, 1,Color)
 
    // top
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,  .5, .5,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,  0, 0,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,  0, 1,Color)
     
     
    // side 1
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       0, 1,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       1, 0,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       0, 0,Color)
 
 
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       1,0,Color)
 
 
 
 
 
    // side 2
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       1,0,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       0,0,Color)
     
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       1,0,Color)
 
 
    // side 3
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       1,0,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       0,0,Color)
     
     
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       1,0,Color)
 
//  AddVertex(MeshID, x#, y#+height#, z3#   , 0 ,1,0, .5,.5,Color)
     
     
     
     
     
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
     
endfunction
 
function createmeshobjectlighthouse(x#, y#, z#, basewidth#, height#)
 
     
    CreateMeshObjectConeWithTexture(height#,50,basewidth#,0)
endfunction
function emptymesh()
    MeshID.VertexList.Length=-1
    MeshID.TriangleList.Length=-1
//	objectmesh.length=-1
	
     
endfunction
 
Function CreateMeshObjectPlayWithTexture_Shatter(x#,y#,z#,width#,depth#)
     
    color=MakeColor(random(0,255),random(0,255),random(0,255))
    pos#=8 // location of the shatter point
     
    AddVertex(MeshID, x#-width#/2               , y#+depth#/2-depth#/2          ,z# , 0 ,1,0, 0,0.5,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#-width#/2               , y#+depth#/2                   ,z# , 0 ,1,0, 0,0,Color)
     
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
 
    AddVertex(MeshID, x#-width#/2               , y#+depth#/2                   ,z# , 0 ,1,0, 0,0,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#-width#/2+(depth#/2)    , y#+depth#/2                   ,z# , 0 ,1,0, .5,0,Color)
 
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
    AddVertex(MeshID, x#-width#/2+(depth#/2)    , y#+depth#/2                   ,z# , 0 ,1,0, .5,0,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#+width#/2               , y#+depth#/2                   ,z# , 0 ,1,0, 1,0,Color)
 
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
    AddVertex(MeshID, x#+width#/2               , y#+depth#/2                   ,z# , 0 ,1,0, 1,0,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#+width#/2               , y#+depth#/2-depth#/2          ,z# , 0 ,1,0, 1,.5,Color)
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
    AddVertex(MeshID, x#+width#/2               , y#+depth#/2-depth#/2          ,z# , 0 ,1,0, 1,.5,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#+width#/2               , y#-depth#/2                   ,z# , 0 ,1,0, 1,1,Color)
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
 
    AddVertex(MeshID, x#+width#/2               , y#-depth#/2                   ,z# , 0 ,1,0, 1,1,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#+width#/2-depth#/2      , y#-depth#/2                   ,z# , 0 ,1,0, .5,1,Color)
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
 
    AddVertex(MeshID, x#+width#/2-depth#/2      , y#-depth#/2                   ,z#, 0 ,1,0, .5,1,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#-width#/2               , y#-depth#/2                   ,z#, 0 ,1,0, 0,1,Color)
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
    AddVertex(MeshID, x#-width#/2               , y#-depth#/2                   ,z# , 0 ,1,0, 0,1,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#-width#/2               , y#+depth#/2-depth#/2          ,z# , 0 ,1,0, 0,.5,Color)
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
 
 
 
 
     
endfunction
function splitmesh(splitamount#)
    length=meshid.VertexList.length
 
    for a=0 to 5
 
        randomvertex = a        
 
        oldx# = MeshID.VertexList[randomvertex].x = MeshID.VertexList[randomvertex].x
        oldy# = MeshID.VertexList[randomvertex].y = MeshID.VertexList[randomvertex].y
        oldz# = MeshID.VertexList[randomvertex].z = MeshID.VertexList[randomvertex].z
 
     
        randomsplit#=random2(1,splitamount#)/100.0
        MeshID.VertexList[randomvertex].x = MeshID.VertexList[randomvertex].x+randomsplit#
 
        randomsplit#=random2(1,splitamount#)/100.0
         MeshID.VertexList[randomvertex].y = MeshID.VertexList[randomvertex].y-randomsplit#
        randomsplit#=random2(1,splitamount#)/100.0
        MeshID.VertexList[randomvertex].z = MeshID.VertexList[randomvertex].z+randomsplit#
 
 
    //  endif
     
    next
 
    deleteobject(object)
    object = CreateObjectFromMeshWithUVTexturing(MeshID,CubeD)
     
     
endfunction
 
 
function createMeshObjectPlaneWithTexture(x#,y#,z#,width#,depth#)
     
    color=MakeColor(255,255,255)
     
    AddVertex(MeshID, x#-width#/2                               , y#    ,z#+depth#/2                        , 0 ,1,0, 0,0,Color)
    AddVertex(MeshID, x#-width#/2                               , y#    ,z#-depth#/2                        , 0 ,1,0, 0,1,Color)
    AddVertex(MeshID, x#+width#/2                               , y#    ,z#+depth#/2                        , 0 ,1,0, 1,0,Color)
     
    AddVertex(MeshID, x#+width#/2                               , y#    ,z#+depth#/2                        , 0 ,1,0, 1,0,Color)
    AddVertex(MeshID, x#-width#/2                               , y#    ,z#-depth#/2                        , 0 ,1,0, 0,1,Color)
    AddVertex(MeshID, x#+width#/2                               , y#    ,z#-depth#/2                        , 0 ,1,0, 1,1,Color)
 
 
endfunction
 
function createMeshObjectCylinderWithTexture(x#, y#, z#,height#, baseradius#, topradius#,segments#, top, bottom, color)
 
    if (segments#<3) then segments#=3
    if (baseradius#<0) then baseradius#=-baseradius#
     
    radius#=baseradius#/2.0
     
    SegX# = 2*PI# /segments#
    SegU# = 1.0 / segments#
     
    if top=1 
    for i=0 to segments#
        nxt = i+1
        if ( nxt >= segments# ) then nxt = 0
 
        AddVertex(MeshID, x#    , y#+height#/2.0    ,z#                 , 0 ,1,0, .5,.5,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*i) * (radius#-topradius#)    , y#+height#/2.0    ,z#+CosRad(-SegX#*i) * (radius#-topradius#) , 0 ,1,0, SinRad(-SegX#*i)/2.0+.5,CosRad(SegX#*i)/2.0+.5,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-topradius#)  , y#+height#/2.0    ,z#+CosRad(-SegX#*nxt) * (radius#-topradius#)   , 0 ,1,0, SinRad(-SegX#*(i+1))/2.0+.5,CosRad(SegX#*(i+1))/2.0+.5,Color)
         
 
    next
    endif
 
    for i=0 to segments#
        nxt = i+1
        if ( nxt >= segments# ) then nxt = 0
         
         
        AddVertex(MeshID, x#+SinRad(-SegX#*i)   * (radius#-topradius#)  , y#+height#/2.0    ,z#+CosRad(-SegX#*i)    * (radius#-topradius#), SinRad  (-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,0,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*i)   * (radius#+0)   , y#-height#/2.0    ,z#+CosRad(-SegX#*i)    * (radius#-0)   , SinRad(-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,1,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#+0)   , y#-height#/2.0    ,z#+CosRad(-SegX#*nxt)  * (radius#-0)   , SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),1,Color)
     
        AddVertex(MeshID, x#+SinRad(-SegX#*i)   * (radius#-topradius#)  , y#+height#/2.0    ,z#+CosRad(-SegX#*i)    * (radius#-topradius#), SinRad  (-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,0,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-0)   , y#-height#/2.0    ,z#+CosRad(-SegX#*nxt)  * (radius#-0)   , SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),1,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-topradius#)  , y#+height#/2.0    ,z#+CosRad(-SegX#*nxt)  * (radius#-topradius#)  , SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),0,Color)
 
 
 
 
 
 
 
    next
    if bottom=1
         
    for i=0 to segments#
        nxt = i+1
        if ( nxt >= segments# ) then nxt = 0
 
        AddVertex(MeshID, x#+Sinrad(-SegX#*i) * radius#     , y#-height#/2.0    ,z#+CosRad(-SegX#*i) * radius#  , 0 ,-1,0, SinRad(-SegX#*i)/2.0+.5,CosRad(SegX#*i)/2.0+.5,Color)
        AddVertex(MeshID, x#                                , y#-height#/2.0    ,z#                             , 0 ,-1,0, .5,.5,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * radius#   , y#-height#/2.0    ,z#+CosRad(-SegX#*nxt) * radius#    , 0 ,-1,0, SinRad(-SegX#*(i+1))/2.0+.5,CosRad(SegX#*(i+1))/2.0+.5,Color)
         
 
    next
    endif
     
     
endfunction
function CreateMeshObjectConeWithTexture(height#, segments#, Radius#, Bottom)
     
    color=MakeColor(255,255,255) // doesnt use color but the AddVertex requires it 
    SegX# = 2 * PI# / segments#
 
    for i = 0 to segments#
         
        nxt = i+1
        if (nxt >= segments#) then nxt=0
     
        AddVertex(MeshID, 0                             , height#   ,0                      , 0,1,0, .5,.5,Color)
             
             
        AddVertex(MeshID, SinRad(-SegX#*i)*radius#      ,-height#   ,CosRad(-SegX#*i) * radius#, sinrad( -SegX#*i),abs(radius#)/height#,cosRad(-SegX#*i),SinRad( -SegX# * i ) /2.0 +.5, CosRad(-SegX# * i)/2.0 + .5,Color)
        AddVertex(MeshID, SinRad(-SegX#*nxt)*radius#    ,-height#   ,CosRad(-SegX#*nxt) * radius#, SinRad(-SegX#*nxt),abs(radius#)/height#,CosRad(-SegX# * nxt),SinRad(-SegX# * (i+1) )/2.0 + .5, CosRad(-SegX#*(i+1)) /2.0+.5,Color)
    next
     
     
    if bottom=1 
         
        for i = 0 to segments#
         
            nxt = i+1
            if (nxt >= segments#) then nxt=0
     
            AddVertex(MeshID, SinRad(-SegX#*i)*radius#      ,-height#/2.0   ,CosRad(-SegX#*i) * radius#, 0,-height#,0,SinRad( -SegX#*i) /2.0+.5,CosRad(-SegX#*i)/2.0+.5,Color)
 
            AddVertex(MeshID, 0                             , -height#/2.0  ,0                      , 0,-height#,0, .5,.5,Color)
             
            AddVertex(MeshID, SinRad(-SegX#*nxt)*radius#    ,-height#/2.0   ,CosRad(-SegX#*nxt) * radius#, 0,-height#,0,SinRad(-SegX#*(i+1))/2.0+.5,CosRad(-SegX#*(i+1))/2.0+.5,Color)
        next
    endif
 
endfunction MeshID
  
 // creates a full cube with all the same texture all way round it
  
 function CreateMeshObjectBoxWithTexture(X#, Y#, Z#, Width#, Height#, Depth#)
    Color= MakeColor(255,255,255) // This doesnt use color but AddVertex requires it
     
     
//Front Face    
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 1,0,Color)   
 
// Left
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#       , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 0,1,Color)
     
 
 
// Right
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)      , 0,1,0     , 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#   , 0,1,0 , 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0        , 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0     , 1,0,Color)
     
 
 
//back
    AddVertex(MeshID, (X#-width#/2)             ,(y#    -height#/2)         ,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)    
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0, 0,1,Color)
 
 
// top
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,0,Color)
     
 
 
//bottom
 
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#+width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#+width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,0,Color)
 
endfunction MeshID
 
  
// This uses an Atlas tilemap image
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
  
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex# // the 15.00 is the amount of textures left to right in the Atlas image
    minx# = (maxx#-(100/15.00)/100) // the 15.00 is the amount of textures left to right in the Atlas image
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5) // the 15.00 is the amount of textures left to right in the Atlas image
    bottomminx# = (bottommaxx#-((100/15.00)/100)) // the 15.00 is the amount of textures left to right  in the Atlas image
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey# // the 11.00 is the amount of textures top to bottom in the Atlas image
    miny# = (maxy#-(100/11.00)/100) // the 11.00 is the amount of textures top to bottom in the Atlas image
    halfy# = (maxy#/2 + miny# / 2) 
  
  
// create the cube 
  
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
  
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

/*createMeshObjectTriangleBlock( 0,  0,   0,             10,    -10,    10,     0,10)
createMeshObjectTriangleBlock( 0,  0,   0,             10,    0,    10,    10,10)
createMeshObjectTriangleBlock( 0,  0,   0,             10,   10,    0,     10,10)
createMeshObjectTriangleBlock( 0,  0,   0,              0,   10,    -10,   10,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,   10,    -10,   0,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,   0,     -10,   -10,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,   -10,    0,   -10,10)
 
 
/*createMeshObjectTriangleBlock( 0,  0,   0,             -size#/2,-size#/2,  size#/2,   -size#/2 ,size#)
createMeshObjectTriangleBlock( 0,  0,   0,              size#/2,-size#/2,  size#/2,  size#/2 ,size#)
createMeshObjectTriangleBlock( 0,  0,   0,              size#/2, size#/2, -size#/2,  size#/2 ,size#)
*/
 
 
//createMeshObjectTriangleBlock(10,  0, -10,  10,       0,   0,   0 , 10)
//CreateMeshObjectPlayWithTexture_Shatter(0,0,0,100,100)
 
//SetObjectPosition(faces[0],0,0,0) // front
//SetObjectRotation(faces[1],90,0,0) // top
//SetObjectPosition(faces[2],0,0,0)
 
//createmeshobjectlighthouse(0,0,0,20,10)
 
//function createMeshObjectCylinderWithTexture(x#, y#, z#,height#, baseradius#, topradius#,segments#, top, bottom, color)
//lighgthouse 
//createMeshObjectCylinderWithTexture(0,0,0,30,10,3,10,1,0,MakeColor(255,255,255))
 
//goblet
/*createMeshObjectTriangleChunk( 0,  0,   0,     -20,   20, 0,      0,  20, 0,      0,20,-20)
createMeshObjectTriangleChunk( 0,  0,   0,     20,  20, 0,      0,  20, -20,        0,20,0)

// Cube full of 24 segments
// first layer
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,  size#   , 0,        0,  size#, size#    ,   0,size#,0)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,   size#   , 0,        0,  size#, 0        ,   0,size#,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,   size#   , 0,        size#,  0, size#    ,   size#,0,0)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,   -size#  , 0,        size#,  0, 0        ,   size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,   -size#  , 0,        0,  -size#, size#   ,   0,-size#,0)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,  -size#  , 0,        0,  -size#, 0       ,   0,-size#,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,  -size#  , 0,        -size#,0, size#     ,   -size#,0,0)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,      0   , 0,        -size#,0, size#     ,   -size#,size#,0)
 
 
// 2nd later
createMeshObjectTriangleChunk( 0,  -size#,   size#,     -size#, -size#, 0,      -size#,-size#, size#,  -size#,  0, size#)
createMeshObjectTriangleChunk( 0,  -size#,   size#,      size#, -size#, 0,       size#,  0, size#   ,size#,-size#, size#)
createMeshObjectTriangleChunk( 0,   size#,   size#,      size#,   size#, 0,      size#, size#, size#   ,size#,  0, size#)
createMeshObjectTriangleChunk( 0,   size#,   size#,     -size#,  size#, 0,      -size#,  0, size#,  -size#, size#, size#)
 
// 3rd later
createMeshObjectTriangleChunk( 0,   size#,   size#,     -size#, size#, size#,       -size#,  0, size#,      -size#,size#,size#*2)
createMeshObjectTriangleChunk( 0,   size#,   size#,      size#, size#, size#,        size# , size#,size#*2,     size#,0, size#      )
createMeshObjectTriangleChunk( 0,  -size#,   size#,      size#,  -size#, size#,  size# , 0, size#,      size#,-size#, size#*2       )
createMeshObjectTriangleChunk( 0,  -size#,   size#,     -size#, -size#, size#,  -size#,  -size#,size#*2,        -size#,0,size#)
 
 
// final layer
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,size#, size#*2,     0,  size#, size#*2,     0,size#,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#, size#, size#*2,     0,  size#, size#,   0,size#,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#, size#, size#*2,     size#,  0, size#*2,         size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#, -size#, size#*2,    size#,  0, size#,       size#,0,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#, -size#, size#*2,    0,  -size#, size#*2,    0,-size#,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,    0,  -size#, size#,  0,-size#,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,    -size#,0, size#*2,      -size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,    -size#,0, size#*2,      -size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,  0, size#*2,   -size#,size#, size#*2,      -size#,0,size#)
 
*/
// Cube from blender
//LoadObjectIntoMesh(1,"\media\ico.obj", 0,1) // 1= saves the V/VN/VTs for been able to instance it
// Torus from blender
//LoadObjectIntoMesh(2,"\media\torus.obj", 0,1) // 1= saves the V/VN/VTs for been able to instance it
// andother object from blender
//LoadObjectIntoMesh(3,"\media\test.obj", 0,1) // 1= saves the V/VN/VTs for been able to instance it

/*j=0
for i=-30 to 30
//	for j=-5 to 5
		for k=-30 to 30

// random place an object which was loaded just before
			InstanceMeshObject(0, i*2,j,k*2, MakeColor(0,random(100,200),0))

rand=random(1,10)
			if rand=1 then 			InstanceMeshObject(1, i*2,2,k*2, MakeColor(random(0,255),random(0,255),random(0,255)))
			if rand=2 then 			InstanceMeshObject(2, i*2,2,k*2, MakeColor(random(0,255),random(0,255),random(0,255)))

next
	//next
next

*/

+ Code Snippet

// Project: Mesh Objects
// Created: 2018-08-04
  
// show all errors
SetErrorMode(2)
  
 #constant PI# = 3.14159265359
 #constant screenwidth=1024
 #constant screenheight=768
 #constant fullscreen=0
  
// set window properties
SetWindowTitle( "Mesh Objects" )
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( 0, 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 ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#


// *************************************************
// ** Mesh Memblock Types - please dont upset these variables
// *************************************************
global Cubed, VertexCount, MaxObjects, object, memblock
global peices as integer[]

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


type _vector
	x#
	y#
	z#
	polygon // 1 = yes - 0 = no 
	vindex
	nindex
	tindex
endtype


type _object
	
	v as integer[]        // the actual vertex on the mesh which need to save so can use SetMeshMemblockVertexPosition commands for example at a later time
	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
	faces as _vector[]    // eg f 5//9 21//9 29//9
	textures as _vector[] // eg vt 0.500 1 [0]
	polygon as integer    // 1=Yes , 0 = No
endtype

global objectmesh as _object[10] // upto 10 objects per app

type _meshmemblockvertexes
	id
	vfrom
	vto
endtype
	
global meshmemblockvertexes as _meshmemblockvertexes[] // this will store the true vertex positions on a meshmemblock
// *************************************************
// ** END OF - Mesh Memblock Types - please dont upset these variables
// *************************************************





loadobjects()

buildworld(99,0,99)

setupskyandfog()

setupcamera()



do
	movecamerawithmouse()
	print (maxobjects)
	if GetRawKeyState	(32) // delete and object
		deletemeshobject(random(0,maxobjects),object,meshid)
	endif

	if GetRawKeyState(87) then inc cameray#,.01
	if GetRawKeyState(83) then dec cameray#,.01
	if cameray#<4 then cameray#=4
	

	SetCameraPosition(1,camerax#,cameray#,cameraz#)

	// Debug stuff
	print ("WASD to move camera up or down")
	print ("Press Space to delete an object")
	print("FPS " + str(ScreenFPS()) + "  - Last Key" + str(GetRawLastKey()))
    Sync()
loop

function buildworld(sizex, sizey, sizez)
	c=0
	for x=-sizex to sizex
		for y=-sizey to sizey
			for z=-sizez to sizez
				InstanceMeshObject(0,c , x*2, random(-2,2),z*2, 	1	, MakeColor(0, random(100,200),0))
				inc c
			next
		next
	next
	maxobjects=c-1

	object = CreateObjectFromMeshWithColor(meshid)

	// empties the mesh array - no9t required anymore now built
	emptymesh()

endfunction
function loadobjects()
	LoadObjectIntoMesh(0,"\media\cube.obj", 0,1) // 1= saves the V/VN/VTs for been able to instance it
endfunction

function setupcamera()
	camerax#=0
	cameray#=4
	cameraz#=0
	startx#=screenwidth/2
	starty#=screenheight/2
	SetRawMousePosition(startx#,starty#)
endfunction
function setupskyandfog()
    // setup a skybox
    SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
    SetCameraRange(1,0.1,10000)
     
    
endfunction


function RemoveVertices(id,mesh,vertexfrom,vertextto)

	for i=vertexfrom to vertextto
        SetMemblockFloat(mesh,72+i*36,0)
        SetMemblockFloat(mesh,76+i*36,0)
        SetMemblockFloat(mesh,80+i*36,0)
        SetMemblockFloat(mesh,84+i*36,0)
        SetMemblockFloat(mesh,88+i*36,0)
        SetMemblockFloat(mesh,92+i*36,0)
		SetMemblockFloat(mesh,96+i*36,0)
        SetMemblockFloat(mesh,100+i*36,0)
        SetMemblockInt(mesh,104+i*36,0) //maybe one day or year in 2019 lol
     next
	SetObjectMeshFromMemblock(id,1,memblock)
	
endfunction

// Delete an object from a mesh 
// ID = object to delete
// mesh = is the main meshmemblock that deletes from
function deletemeshobject(id, mesh, m ref as Mesh)

	for i=meshmemblockvertexes[id].vfrom to meshmemblockvertexes[id].vto
        SetMemblockFloat(memblock,72+i*36,0)
        SetMemblockFloat(memblock,76+i*36,0)
        SetMemblockFloat(memblock,80+i*36,0)
        SetMemblockFloat(memblock,84+i*36,0)
        SetMemblockFloat(memblock,88+i*36,0)
        SetMemblockFloat(memblock,92+i*36,0)
		SetMemblockFloat(memblock,96+i*36,0)
        SetMemblockFloat(memblock,100+i*36,0)
        SetMemblockInt(memblock,104+i*36,0) //maybe one day or year in 2019 lol
     next
	SetObjectMeshFromMemblock(mesh,1,memblock)
	
endfunction

function Debug()
	
endfunction
// Instance a loaded object - requires to "save" the data when load an object for this to work
function InstanceMeshObject(id, ObjID, x#, y#, z#, scale#, color)
	mv as _meshmemblockvertexes

	mv.id = ObjID
	mv.vfrom = vertexcount
	indices=0
	if objectmesh[id].polygon=0
		for a=0 to objectmesh[id].faces.length

// calculate the normals		
			nnx#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].x#
			nny#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].y#
			nnz#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].z# * -1
		
		
			length# = sqrt((nnx# * nnx#) + (nny# * nny#) + (nnz# * nnz#)) 
		
			if length#>31 
				length#=1/length#
			else
				nny#=1
				length#=1
			endif
		
			nx# = nnx# * length#
			ny# = nny# * length#
			nz# = nnz# * length#
		
// apply the polygon referencing indexes from the OBJect
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scale#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scale#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scale# ,nx#,ny#,nz#,  0,0,Color)
			inc indices,1
// add the next vertex position so we know which vertexs to change later when using setmeshmemblockvertexposition etc
				
		next	
	else
		//polygon
		// polygon construction
		for a=0 to objectmesh[id].faces.length step 4

//calculate the normals
			nnx#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].x#
			nny#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].y#
			nnz#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].z# * -1
		
		
			length# = sqrt((nnx# * nnx#) + (nny# * nny#) + (nnz# * nnz#)) 
		
			if length#>31 
				length#=1/length#
			else
				nny#=1
				length#=1
			endif
		
			nx# = nnx# * length#
			ny# = nny# * length#
			nz# = nnz# * length#

// apply the polygon referencing indexes from the OBJect
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].z# ,nx#,ny#,nz#,  0,0,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# ,nx#,ny#,nz#,  0,0,color)

			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# ,nx#,ny#,nz#,  0,0,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].z# ,nx#,ny#,nz#,  0,0,color)
			AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,color)
			
// add the next 4 vertex position so we know which vertexs to change later when using setmeshmemblockvertexposition etc
// we need to add 4 of these cause its a polygon structure

//			inc vertexcount,1
			inc indices,6
		next
		
	endif
	
	
	mv.vto = vertexcount + indices-1
	meshmemblockvertexes.insert(mv)
	inc vertexcount,indices


endfunction



// LoadObjectIntoMeshfunction
// filename$ - What is the model name
// debug     - 0 to not have any - 1 to have all the info displayed 
// save      - 0 to not save any Vs/VNs/VTs/Fs in global memory or 1 to keep those in memory to change at a later time in the app if so wish

 
function LoadObjectIntoMesh(id, filename$, debug, save)
	v as _vector		  // create an empty type so can inert data	
	
// with face elements these are index references of the above array indexes
//
// f v1 v2 v3             	// This will be the indexes of the Vertex 1 2 and 3 in the vertex array
// f v1/vt1 v2/vt2 v3/vt3		// This one has texture / UV assigned to the object and the first is the index in the vertex array and the 2nd is the texture array
// f v1/vt1/vn1 v2/vt2/vn2 v3/vt3/vn3		// This one has texture / UV assigned and Normals to the object and the first is the index in the vertex array and the 2nd is the texture array and the index in normals arra
//
// The f data is normally at the end of the OBJ file, so
// What we would have to do first is grab the V into the Vertex array
// then the VNs into the Normal array
// then the VTs into the texture array
// then use the F(aces) data to pick out which vertex to work with the AddVertex command

// firstly empty the mesh for a new object to be loaded

		objectmesh[id].vertex.length=-1
		objectmesh[id].normals.length=-1
		objectmesh[id].faces.length=-1
		objectmesh[id].textures.length=-1
	
	f = OpenToRead(filename$)
	
	vindex=0
	while not FileEOF(f)
		line$=ReadLine(f)
		if (mid(line$,1,2) = "v ") 
			line$=mid(line$,3,len(line$))
			
			v.x# = ValFloat(GetStringToken(line$," ",1))
			v.y#= ValFloat(GetStringToken(line$," ",2))
			v.z#= ValFloat(GetStringToken(line$," ",3)) * -1
	
			objectmesh[id].vertex.insert(v)
			
		endif
		
		if (mid(line$,1,3) = "vn ") 
			line$=mid(line$,4,len(line$))
			v.x# = ValFloat(GetStringToken(line$," ",1))
			v.y#= ValFloat(GetStringToken(line$," ",2))
			v.z#= ValFloat(GetStringToken(line$," ",3)) * -1
		
			objectmesh[id].normals.insert(v)
			
		endif

		if (mid(line$,1,2) = "f ") 
			line$=mid(line$,3,len(line$))
			face1$ = GetStringToken(line$," ",1)
			face2$ = GetStringToken(line$," ",2)
			face3$ = GetStringToken(line$," ",3)
			face4$ = GetStringToken(line$," ",4)

// eg constucted F 1//1 14//1 13//1 = Vertex // Normal VertexIndex//NormalIndex VertexIndex//NormalIndex
// eg constucted F 1//1 14//1 13//1 8//1 = Polygon construction // Normal VertexIndex//NormalIndex VertexIndex//NormalIndex


// X#			
			for a=1 to len(face1$)
				if mid(face1$,a,1)="/" 
					v.vindex=val(mid(face1$,1,a))-1
					v.nindex=val(mid(face1$,a+2,len(face1$)))-1
					objectmesh[id].faces.insert(v)
					a=len(face1$) // get out of the loop
				endif
			next
			
// Y#
			for a=1 to len(face2$)
				if mid(face2$,a,1)="/" 
					v.vindex=val(mid(face2$,1,a))-1
					v.nindex=val(mid(face2$,a+2,len(face2$)))-1
					objectmesh[id].faces.insert(v)
					a=len(face2$) // et out of the loop
				endif

			next
// Z#
			
			for a=1 to len(face3$)
				if mid(face3$,a,1)="/" 
					v.vindex=val(mid(face3$,1,a))-1
					v.nindex=val(mid(face3$,a+2,len(face3$)))-1
					objectmesh[id].faces.insert(v)
					a=len(face3$)
				endif
				
			next

// 4 faces = polygon so needs a polygon - 4 vertices command rather than a addvertex (3 points)
// a polygon will require 6xvertices. 1st/2nd/3rd points is indeed makes the first triangle
// then the other 3 needs to be - 2 x shared vertices from the 2 of the previous and an extra one making the
// final outcome of 4 vertices polygon object


			if len(face4$)>0 
				objectmesh[id].polygon=1
			//poligon required
				for a=1 to len(face4$)
					if mid(face4$,a,1)="/" 
						v.vindex=val(mid(face4$,1,a))-1
						v.nindex=val(mid(face4$,a+2,len(face4$)))-1
						objectmesh[id].faces.insert(v)
						a=len(face4$)
					endif
				
				next
			endif
			


			
		endif
		
	endwhile
	
	if debug=1 
		print(objectmesh[id].Vertex.length)
		for a=0 to objectmesh[id].vertex.length
			print("V " + str(objectmesh[id].vertex[a].x#) + " " + str(objectmesh[id].vertex[a].y#) + " " + str(objectmesh[id].vertex[a].z#))

		next
	
		sync()
		sleep(2000)
	
		print(objectmesh[id].Normals.length)

		for a=0 to objectmesh[id].normals.length
			print("VN " + str(objectmesh[id].normals[a].x#) + " " + str(objectmesh[id].normals[a].y#) + " " + str(objectmesh[id].normals[a].z#))

	
		next

		sync()
		sleep(2000)

			print(objectmesh[id].Faces.length)

		for a=0 to objectmesh[id].faces.length
			print("F " + str(objectmesh[id].faces[a].x#) + " " + str(objectmesh[id].faces[a].y#) + " " + str(objectmesh[id].faces[a].z#))

	
		next
		sync()
	
		sleep(2000)
	endif
	
	
	if debug=1
		sync()
		sleep(1000)
	endif

	
	if save=0
		
		objectmesh[id].vertex.length=-1
		objectmesh[id].normals.length=-1
		objectmesh[id].faces.length=-1
		objectmesh[id].textures.length=-1
	endif
	
	CloseFile(f)
endfunction

 

 
// X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd 
// X4# is the 4th
 
function createMeshObjectTriangleChunk(x#,y#,z#,x2#,y2#,z2#,x3#,y3#,z3#, x4#,y4#,z4#)
    Color=MakeColor(255,255,255)
     
    // bottom
    AddVertex(MeshID, x#, y#, z#            , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x4#, y4#, z4#         , 0 ,1, 0,  0, 1,Color)
    AddVertex(MeshID, x2#, y2#, z2#         , 0 ,1, 0,  0, 0,Color)
 
 
 
    AddVertex(MeshID, x2#, y2#, z2#         , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x4#, y4#, z4#         , 0 ,1, 0,  0, 1,Color)
    AddVertex(MeshID, x3#, y3#, z3#         , 0 ,1, 0,  0, 0,Color)
 
 
    AddVertex(MeshID, x#, y#, z#            , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x3#, y3#, z3#         , 0 ,1, 0,  0, 0,Color)
    AddVertex(MeshID, x4#, y4#, z4#         , 0 ,1, 0,  0, 1,Color)
 
 
    AddVertex(MeshID, x#, y#, z#            , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x2#, y2#, z2#         , 0 ,1, 0,  0, 0,Color)
    AddVertex(MeshID, x3#, y3#, z3#         , 0 ,1, 0,  0, 1,Color)
 
 
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
     
endfunction
 
 function movecamerawithmouse()
       
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
   
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
   
endfunction

 
// X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd 
 
function createMeshObjectTriangleBlock(x#,y#,z#,x2#,z2#,x3#,z3#,height#)
    Color=MakeColor(255,255,255)
     
    // bottom
    AddVertex(MeshID, x#, y#, z#            , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1, 0,  0, 0,Color)
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1, 0,  0, 1,Color)
 
    // top
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,  .5, .5,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,  0, 0,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,  0, 1,Color)
     
     
    // side 1
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       0, 1,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       1, 0,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       0, 0,Color)
 
 
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       1,0,Color)
 
 
 
 
 
    // side 2
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       1,0,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       0,0,Color)
     
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       1,0,Color)
 
 
    // side 3
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       1,0,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       0,0,Color)
     
     
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       1,0,Color)
 
//  AddVertex(MeshID, x#, y#+height#, z3#   , 0 ,1,0, .5,.5,Color)
     
     
     
     
     
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
     
endfunction
 
function createmeshobjectlighthouse(x#, y#, z#, basewidth#, height#)
 
     
    CreateMeshObjectConeWithTexture(height#,50,basewidth#,0)
endfunction
function emptymesh()
    MeshID.VertexList.Length=-1
    MeshID.TriangleList.Length=-1
//	objectmesh.length=-1
	
     
endfunction
 
Function CreateMeshObjectPlayWithTexture_Shatter(x#,y#,z#,width#,depth#)
     
    color=MakeColor(random(0,255),random(0,255),random(0,255))
    pos#=8 // location of the shatter point
     
    AddVertex(MeshID, x#-width#/2               , y#+depth#/2-depth#/2          ,z# , 0 ,1,0, 0,0.5,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#-width#/2               , y#+depth#/2                   ,z# , 0 ,1,0, 0,0,Color)
     
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
 
    AddVertex(MeshID, x#-width#/2               , y#+depth#/2                   ,z# , 0 ,1,0, 0,0,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#-width#/2+(depth#/2)    , y#+depth#/2                   ,z# , 0 ,1,0, .5,0,Color)
 
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
    AddVertex(MeshID, x#-width#/2+(depth#/2)    , y#+depth#/2                   ,z# , 0 ,1,0, .5,0,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#+width#/2               , y#+depth#/2                   ,z# , 0 ,1,0, 1,0,Color)
 
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
    AddVertex(MeshID, x#+width#/2               , y#+depth#/2                   ,z# , 0 ,1,0, 1,0,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#+width#/2               , y#+depth#/2-depth#/2          ,z# , 0 ,1,0, 1,.5,Color)
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
    AddVertex(MeshID, x#+width#/2               , y#+depth#/2-depth#/2          ,z# , 0 ,1,0, 1,.5,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#+width#/2               , y#-depth#/2                   ,z# , 0 ,1,0, 1,1,Color)
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
 
    AddVertex(MeshID, x#+width#/2               , y#-depth#/2                   ,z# , 0 ,1,0, 1,1,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#+width#/2-depth#/2      , y#-depth#/2                   ,z# , 0 ,1,0, .5,1,Color)
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
 
    AddVertex(MeshID, x#+width#/2-depth#/2      , y#-depth#/2                   ,z#, 0 ,1,0, .5,1,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#-width#/2               , y#-depth#/2                   ,z#, 0 ,1,0, 0,1,Color)
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
    AddVertex(MeshID, x#-width#/2               , y#-depth#/2                   ,z# , 0 ,1,0, 0,1,Color)
    AddVertex(MeshID, x#+(width#/2)-depth#/pos# , y#+(depth#/2)-depth#/pos#     ,z# , 0 ,1,0, .5,.5,Color)
    AddVertex(MeshID, x#-width#/2               , y#+depth#/2-depth#/2          ,z# , 0 ,1,0, 0,.5,Color)
    peices.insert(CreateObjectFromMeshWithUVTexturing(MeshID,CubeD))
    emptymesh()
 
 
 
 
 
     
endfunction
function splitmesh(splitamount#)
    length=meshid.VertexList.length
 
    for a=0 to 5
 
        randomvertex = a        
 
        oldx# = MeshID.VertexList[randomvertex].x = MeshID.VertexList[randomvertex].x
        oldy# = MeshID.VertexList[randomvertex].y = MeshID.VertexList[randomvertex].y
        oldz# = MeshID.VertexList[randomvertex].z = MeshID.VertexList[randomvertex].z
 
     
        randomsplit#=random2(1,splitamount#)/100.0
        MeshID.VertexList[randomvertex].x = MeshID.VertexList[randomvertex].x+randomsplit#
 
        randomsplit#=random2(1,splitamount#)/100.0
         MeshID.VertexList[randomvertex].y = MeshID.VertexList[randomvertex].y-randomsplit#
        randomsplit#=random2(1,splitamount#)/100.0
        MeshID.VertexList[randomvertex].z = MeshID.VertexList[randomvertex].z+randomsplit#
 
 
    //  endif
     
    next
 
    deleteobject(object)
    object = CreateObjectFromMeshWithUVTexturing(MeshID,CubeD)
     
     
endfunction
 
 
function createMeshObjectPlaneWithTexture(x#,y#,z#,width#,depth#)
     
    color=MakeColor(255,255,255)
     
    AddVertex(MeshID, x#-width#/2                               , y#    ,z#+depth#/2                        , 0 ,1,0, 0,0,Color)
    AddVertex(MeshID, x#-width#/2                               , y#    ,z#-depth#/2                        , 0 ,1,0, 0,1,Color)
    AddVertex(MeshID, x#+width#/2                               , y#    ,z#+depth#/2                        , 0 ,1,0, 1,0,Color)
     
    AddVertex(MeshID, x#+width#/2                               , y#    ,z#+depth#/2                        , 0 ,1,0, 1,0,Color)
    AddVertex(MeshID, x#-width#/2                               , y#    ,z#-depth#/2                        , 0 ,1,0, 0,1,Color)
    AddVertex(MeshID, x#+width#/2                               , y#    ,z#-depth#/2                        , 0 ,1,0, 1,1,Color)
 
 
endfunction
 
function createMeshObjectCylinderWithTexture(x#, y#, z#,height#, baseradius#, topradius#,segments#, top, bottom, color)
 
    if (segments#<3) then segments#=3
    if (baseradius#<0) then baseradius#=-baseradius#
     
    radius#=baseradius#/2.0
     
    SegX# = 2*PI# /segments#
    SegU# = 1.0 / segments#
     
    if top=1 
    for i=0 to segments#
        nxt = i+1
        if ( nxt >= segments# ) then nxt = 0
 
        AddVertex(MeshID, x#    , y#+height#/2.0    ,z#                 , 0 ,1,0, .5,.5,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*i) * (radius#-topradius#)    , y#+height#/2.0    ,z#+CosRad(-SegX#*i) * (radius#-topradius#) , 0 ,1,0, SinRad(-SegX#*i)/2.0+.5,CosRad(SegX#*i)/2.0+.5,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-topradius#)  , y#+height#/2.0    ,z#+CosRad(-SegX#*nxt) * (radius#-topradius#)   , 0 ,1,0, SinRad(-SegX#*(i+1))/2.0+.5,CosRad(SegX#*(i+1))/2.0+.5,Color)
         
 
    next
    endif
 
    for i=0 to segments#
        nxt = i+1
        if ( nxt >= segments# ) then nxt = 0
         
         
        AddVertex(MeshID, x#+SinRad(-SegX#*i)   * (radius#-topradius#)  , y#+height#/2.0    ,z#+CosRad(-SegX#*i)    * (radius#-topradius#), SinRad  (-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,0,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*i)   * (radius#+0)   , y#-height#/2.0    ,z#+CosRad(-SegX#*i)    * (radius#-0)   , SinRad(-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,1,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#+0)   , y#-height#/2.0    ,z#+CosRad(-SegX#*nxt)  * (radius#-0)   , SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),1,Color)
     
        AddVertex(MeshID, x#+SinRad(-SegX#*i)   * (radius#-topradius#)  , y#+height#/2.0    ,z#+CosRad(-SegX#*i)    * (radius#-topradius#), SinRad  (-SegX#*i) ,0,CosRad(-SegX#*i), SegU#*i,0,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-0)   , y#-height#/2.0    ,z#+CosRad(-SegX#*nxt)  * (radius#-0)   , SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),1,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * (radius#-topradius#)  , y#+height#/2.0    ,z#+CosRad(-SegX#*nxt)  * (radius#-topradius#)  , SinRad(-SegX#*nxt) ,0,CosRad(-SegX#*nxt), SegU#*(i+1),0,Color)
 
 
 
 
 
 
 
    next
    if bottom=1
         
    for i=0 to segments#
        nxt = i+1
        if ( nxt >= segments# ) then nxt = 0
 
        AddVertex(MeshID, x#+Sinrad(-SegX#*i) * radius#     , y#-height#/2.0    ,z#+CosRad(-SegX#*i) * radius#  , 0 ,-1,0, SinRad(-SegX#*i)/2.0+.5,CosRad(SegX#*i)/2.0+.5,Color)
        AddVertex(MeshID, x#                                , y#-height#/2.0    ,z#                             , 0 ,-1,0, .5,.5,Color)
        AddVertex(MeshID, x#+Sinrad(-SegX#*nxt) * radius#   , y#-height#/2.0    ,z#+CosRad(-SegX#*nxt) * radius#    , 0 ,-1,0, SinRad(-SegX#*(i+1))/2.0+.5,CosRad(SegX#*(i+1))/2.0+.5,Color)
         
 
    next
    endif
     
     
endfunction
function CreateMeshObjectConeWithTexture(height#, segments#, Radius#, Bottom)
     
    color=MakeColor(255,255,255) // doesnt use color but the AddVertex requires it 
    SegX# = 2 * PI# / segments#
 
    for i = 0 to segments#
         
        nxt = i+1
        if (nxt >= segments#) then nxt=0
     
        AddVertex(MeshID, 0                             , height#   ,0                      , 0,1,0, .5,.5,Color)
             
             
        AddVertex(MeshID, SinRad(-SegX#*i)*radius#      ,-height#   ,CosRad(-SegX#*i) * radius#, sinrad( -SegX#*i),abs(radius#)/height#,cosRad(-SegX#*i),SinRad( -SegX# * i ) /2.0 +.5, CosRad(-SegX# * i)/2.0 + .5,Color)
        AddVertex(MeshID, SinRad(-SegX#*nxt)*radius#    ,-height#   ,CosRad(-SegX#*nxt) * radius#, SinRad(-SegX#*nxt),abs(radius#)/height#,CosRad(-SegX# * nxt),SinRad(-SegX# * (i+1) )/2.0 + .5, CosRad(-SegX#*(i+1)) /2.0+.5,Color)
    next
     
     
    if bottom=1 
         
        for i = 0 to segments#
         
            nxt = i+1
            if (nxt >= segments#) then nxt=0
     
            AddVertex(MeshID, SinRad(-SegX#*i)*radius#      ,-height#/2.0   ,CosRad(-SegX#*i) * radius#, 0,-height#,0,SinRad( -SegX#*i) /2.0+.5,CosRad(-SegX#*i)/2.0+.5,Color)
 
            AddVertex(MeshID, 0                             , -height#/2.0  ,0                      , 0,-height#,0, .5,.5,Color)
             
            AddVertex(MeshID, SinRad(-SegX#*nxt)*radius#    ,-height#/2.0   ,CosRad(-SegX#*nxt) * radius#, 0,-height#,0,SinRad(-SegX#*(i+1))/2.0+.5,CosRad(-SegX#*(i+1))/2.0+.5,Color)
        next
    endif
 
endfunction MeshID
  
 // creates a full cube with all the same texture all way round it
  
 function CreateMeshObjectBoxWithTexture(X#, Y#, Z#, Width#, Height#, Depth#)
    Color= MakeColor(255,255,255) // This doesnt use color but AddVertex requires it
     
     
//Front Face    
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2), 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2), 0,1,0, 1,0,Color)   
 
// Left
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#       , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 0,1,Color)
     
 
 
// Right
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)      , 0,1,0     , 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#   , 0,1,0 , 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)      , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0        , 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0     , 1,0,Color)
     
 
 
//back
    AddVertex(MeshID, (X#-width#/2)             ,(y#    -height#/2)         ,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#, 0,1,0, 0,0,Color)    
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#, 0,1,0, 0,1,Color)
 
 
// top
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)+height#     ,(Z#-depth#/2)+depth#   , 0,1,0, 1,0,Color)
     
 
 
//bottom
 
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)+width#      ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,0,Color)
    AddVertex(MeshID, (X#+width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,0,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)          , 0,1,0, 0,1,Color)
    AddVertex(MeshID, (X#-width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,1,Color)
    AddVertex(MeshID, (X#+width#/2)             ,(y#-height#/2)             ,(Z#-depth#/2)+depth#       , 0,1,0, 1,0,Color)
 
endfunction MeshID
 
  
// This uses an Atlas tilemap image
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
  
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex# // the 15.00 is the amount of textures left to right in the Atlas image
    minx# = (maxx#-(100/15.00)/100) // the 15.00 is the amount of textures left to right in the Atlas image
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5) // the 15.00 is the amount of textures left to right in the Atlas image
    bottomminx# = (bottommaxx#-((100/15.00)/100)) // the 15.00 is the amount of textures left to right  in the Atlas image
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey# // the 11.00 is the amount of textures top to bottom in the Atlas image
    miny# = (maxy#-(100/11.00)/100) // the 11.00 is the amount of textures top to bottom in the Atlas image
    halfy# = (maxy#/2 + miny# / 2) 
  
  
// create the cube 
  
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
  
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

 
/*createMeshObjectTriangleBlock( 0,  0,   0,             10,    -10,    10,     0,10)
createMeshObjectTriangleBlock( 0,  0,   0,             10,    0,    10,    10,10)
createMeshObjectTriangleBlock( 0,  0,   0,             10,   10,    0,     10,10)
createMeshObjectTriangleBlock( 0,  0,   0,              0,   10,    -10,   10,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,   10,    -10,   0,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,   0,     -10,   -10,10)
createMeshObjectTriangleBlock( 0,  0,   0,            -10,   -10,    0,   -10,10)
 
 
/*createMeshObjectTriangleBlock( 0,  0,   0,             -size#/2,-size#/2,  size#/2,   -size#/2 ,size#)
createMeshObjectTriangleBlock( 0,  0,   0,              size#/2,-size#/2,  size#/2,  size#/2 ,size#)
createMeshObjectTriangleBlock( 0,  0,   0,              size#/2, size#/2, -size#/2,  size#/2 ,size#)
*/
 
 
//createMeshObjectTriangleBlock(10,  0, -10,  10,       0,   0,   0 , 10)
//CreateMeshObjectPlayWithTexture_Shatter(0,0,0,100,100)
 
//SetObjectPosition(faces[0],0,0,0) // front
//SetObjectRotation(faces[1],90,0,0) // top
//SetObjectPosition(faces[2],0,0,0)
 
//createmeshobjectlighthouse(0,0,0,20,10)
 
//function createMeshObjectCylinderWithTexture(x#, y#, z#,height#, baseradius#, topradius#,segments#, top, bottom, color)
//lighgthouse 
//createMeshObjectCylinderWithTexture(0,0,0,30,10,3,10,1,0,MakeColor(255,255,255))
 
//goblet
/*createMeshObjectTriangleChunk( 0,  0,   0,     -20,   20, 0,      0,  20, 0,      0,20,-20)
createMeshObjectTriangleChunk( 0,  0,   0,     20,  20, 0,      0,  20, -20,        0,20,0)




// Cube full of 24 segments
// first layer
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,  size#   , 0,        0,  size#, size#    ,   0,size#,0)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,   size#   , 0,        0,  size#, 0        ,   0,size#,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,   size#   , 0,        size#,  0, size#    ,   size#,0,0)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,   -size#  , 0,        size#,  0, 0        ,   size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     size#,   -size#  , 0,        0,  -size#, size#   ,   0,-size#,0)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,  -size#  , 0,        0,  -size#, 0       ,   0,-size#,size#)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,  -size#  , 0,        -size#,0, size#     ,   -size#,0,0)
createMeshObjectTriangleChunk( 0,  0,   0,     -size#,      0   , 0,        -size#,0, size#     ,   -size#,size#,0)
 
 
// 2nd later
createMeshObjectTriangleChunk( 0,  -size#,   size#,     -size#, -size#, 0,      -size#,-size#, size#,  -size#,  0, size#)
createMeshObjectTriangleChunk( 0,  -size#,   size#,      size#, -size#, 0,       size#,  0, size#   ,size#,-size#, size#)
createMeshObjectTriangleChunk( 0,   size#,   size#,      size#,   size#, 0,      size#, size#, size#   ,size#,  0, size#)
createMeshObjectTriangleChunk( 0,   size#,   size#,     -size#,  size#, 0,      -size#,  0, size#,  -size#, size#, size#)
 
// 3rd later
createMeshObjectTriangleChunk( 0,   size#,   size#,     -size#, size#, size#,       -size#,  0, size#,      -size#,size#,size#*2)
createMeshObjectTriangleChunk( 0,   size#,   size#,      size#, size#, size#,        size# , size#,size#*2,     size#,0, size#      )
createMeshObjectTriangleChunk( 0,  -size#,   size#,      size#,  -size#, size#,  size# , 0, size#,      size#,-size#, size#*2       )
createMeshObjectTriangleChunk( 0,  -size#,   size#,     -size#, -size#, size#,  -size#,  -size#,size#*2,        -size#,0,size#)
 
 
// final layer
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,size#, size#*2,     0,  size#, size#*2,     0,size#,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#, size#, size#*2,     0,  size#, size#,   0,size#,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#, size#, size#*2,     size#,  0, size#*2,         size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#, -size#, size#*2,    size#,  0, size#,       size#,0,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     size#, -size#, size#*2,    0,  -size#, size#*2,    0,-size#,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,    0,  -size#, size#,  0,-size#,size#*2)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,    -size#,0, size#*2,      -size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,-size#, size#*2,    -size#,0, size#*2,      -size#,0,size#)
createMeshObjectTriangleChunk( 0,  0,   size#*2,     -size#,  0, size#*2,   -size#,size#, size#*2,      -size#,0,size#)
 
*/
// Cube from blender
//LoadObjectIntoMesh(1,"\media\ico.obj", 0,1) // 1= saves the V/VN/VTs for been able to instance it
// Torus from blender
//LoadObjectIntoMesh(2,"\media\torus.obj", 0,1) // 1= saves the V/VN/VTs for been able to instance it
// andother object from blender
//LoadObjectIntoMesh(3,"\media\test.obj", 0,1) // 1= saves the V/VN/VTs for been able to instance it



/*j=0
for i=-30 to 30
//	for j=-5 to 5
		for k=-30 to 30

			// random place an object which was loaded just before
			InstanceMeshObject(0, i*2,j,k*2, MakeColor(0,random(100,200),0))


			rand=random(1,10)
			if rand=1 then 			InstanceMeshObject(1, i*2,2,k*2, MakeColor(random(0,255),random(0,255),random(0,255)))
			if rand=2 then 			InstanceMeshObject(2, i*2,2,k*2, MakeColor(random(0,255),random(0,255),random(0,255)))
	


				
		next
	//next
next

*/

Bear with me, i will need to work out to import the texturing/UVs of the OBJ files

This one just uses cube.obj, but can add more to your hearts content

Attachments

Login to view attachments

Back to top

Profile

puzzler2018

User Banned

Posted: 30th Sep 2018 14:52 Edited at: 30th Sep 2018 15:29

Link

Ive added trees, so you can see how its done in the LoadObjects command and BuildWorld command

// Project: Mesh Objects
// Created: 2018-08-04
  
// show all errors
SetErrorMode(2)
  
 #constant PI# = 3.14159265359
 #constant screenwidth=1024
 #constant screenheight=768
 #constant fullscreen=0
  
// set window properties
SetWindowTitle( "Mesh Objects" )
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( 0, 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 ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#

// *************************************************
// ** Mesh Memblock Types - please dont upset these variables
// *************************************************
global Cubed, VertexCount, MaxObjects, object, memblock
global peices as integer[]

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

type _vector
	x#
	y#
	z#
	polygon // 1 = yes - 0 = no 
	vindex
	nindex
	tindex
endtype

type _object
	
	v as integer[]        // the actual vertex on the mesh which need to save so can use SetMeshMemblockVertexPosition commands for example at a later time
	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
	faces as _vector[]    // eg f 5//9 21//9 29//9
	textures as _vector[] // eg vt 0.500 1 [0]
	polygon as integer    // 1=Yes , 0 = No
endtype

global objectmesh as _object[10] // upto 10 objects per app

type _meshmemblockvertexes
	id
	vfrom
	vto
endtype
	
global meshmemblockvertexes as _meshmemblockvertexes[] // this will store the true vertex positions on a meshmemblock
// *************************************************
// ** END OF - Mesh Memblock Types - please dont upset these variables
// *************************************************

loadobjects()

buildworld(40,0,40)

setupskyandfog()

setupcamera()

do
	movecamerawithmouse()
	print (maxobjects)
	if GetRawKeyState	(32) // delete and object
		deletemeshobject(random(0,maxobjects),object,meshid)
	endif

if GetRawKeyState(87) then inc cameray#,.01
	if GetRawKeyState(83) then dec cameray#,.01
	if cameray#<4 then cameray#=4

SetCameraPosition(1,camerax#,cameray#,cameraz#)

// Debug stuff
	print ("WASD to move camera up or down")
	print ("Press Space to delete an object")
	print("FPS " + str(ScreenFPS()) + "  - Last Key" + str(GetRawLastKey()))
    Sync()
loop

function buildworld(sizex, sizey, sizez)
	c=0
	for x=-sizex to sizex
		for y=-sizey to sizey
			for z=-sizez to sizez
				y= random(-2,2)
				// 0 - cube
				InstanceMeshObject(0,c , x*2, y,z*2, 	1	, MakeColor(0, random(100,200),0))
		
				inc c
				// add tree on a cube
				if random(0,100)>90 
					InstanceMeshObject(1,c , x*2, y+2,z*2, 	1	, MakeColor(0, random(100,200),0))
					inc c
				endif
			next
		next
	next
	maxobjects=c-1

object = CreateObjectFromMeshWithColor(meshid)

// empties the mesh array - no9t required anymore now built
	emptymesh()

endfunction
function loadobjects()
	// 0 cube, 1 - tree
	LoadObjectIntoMesh(0,"\media\cube.obj", 0,1) // 1= saves the V/VN/VTs for been able to instance it
	LoadObjectIntoMesh(1,"\media\tree.obj", 0,1) // 1= saves the V/VN/VTs for been able to instance it
endfunction