Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

AppGameKit Classic Chat / MeshMemblock Function

Author

Message

puzzler2018

User Banned

Posted: 19th Sep 2018 18:25 Edited at: 19th Sep 2018 18:32

Thanks Furbarpk - your comments greatly received.

Can anyone help in my trying to convert a string float into a float please - I thought Val did it - but that rounding it up / down

v -1.029329 4.293293 1.203920

with

x#= Val(GetStringToken(line$," ",1))
y#= Val(GetStringToken(line$," ",2))
z#= Val(GetStringToken(line$," ",3))

result

x#=1.000000 y#=4.00000 z#=1.00000

Mind gone blank...

EDIT - ValFloat ( ) Doh!

Back to top

Profile

puzzler2018

User Banned

Posted: 19th Sep 2018 19:11

OK here is a little info on how OBJ files are built

We would have to store each vertex (V) into its array and nomals (VN) and Texture UV (VT) and then finally Faces (F)

vertex as float[] // eg v 1.276477 0.200934 -0.387665
normals as float[] // eg vn vn -0.5346 0.3304 -0.7779
faces as float[] // eg f 5//9 21//9 29//9
textures as float[] // eg vt 0.500 1 [0]

// 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 Vs data 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 index that it requires from the above arrays to build the OBJ structure vertex using the AddVertex command

All will be revealed pretty soon with a fully functional object loader

I know we have one "LoadObject()" I know i know, but this will be a bit different cause it all will be ended up into its own mesh array

by doing this, you can "Load objects" onto the same mesh array and then build the final object - which may have say 10 OBJ models on it

All will come clear later in the week

Back to top

Profile

puzzler2018

User Banned

Posted: 19th Sep 2018 22:11

wouldnt be fantastic to have a command like

CreateMeshObectShatter

which works it all out to be able to shatter objects thats loaded onto the mesh

one thing at a time puzzler

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 19th Sep 2018 22:27

Quote: "I thought Val did it - but that rounding it up / down"

x# = ValFloat(GetStringToken(l, ",", 1))

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 19th Sep 2018 22:33 Edited at: 19th Sep 2018 22:34

That just boomed me - I found ValFloat

- an OBJ file is seperated by a space

Back to top

Profile

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 19th Sep 2018 22:38

you could throw all those tables into a type so it's all one neat package, then your function can just return the mesh type or a mesh type array for multiple meshes
type mesh
vertex as float[]
normals as float[]
faces as float[]
textures as float[]
endtype

Back to top

Profile PM

puzzler2018

User Banned

Posted: 19th Sep 2018 22:41

Spot on

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 19th Sep 2018 23:12 Edited at: 19th Sep 2018 23:14

Havent tested but something like this

type vertex
	x as float
	y as float
	z as float
endtype

type normals
	x as float
	y as float
	z as float
endtype

type textures
	x as float
	y as float
endtype

type faces
	x as float
	y as float
	z as float
endtype

type Object 
	vertex[]
	normals[]
	textures[]
	faces[]
endtype

function	LoadObjectData(name as string)
	f as integer
	l as String
	myObject as object
	v as vertex
	n as normals
	t as textures
	
	f = OpenToRead(name)
	l = ReadLine(f)
	while(FileEOF(f) = 0)
		if mid(l,1,2) = "v "
			v.x = ValFloat(GetStringToken(l, " ", 2)) 
			v.y = ValFloat(GetStringToken(l, " ", 3)) 
			v.z = ValFloat(GetStringToken(l, " ", 4)) 
			myObject.vertex.insert(v)
		endif
		l = ReadLine(f)		
	endwhile
    while(FileEOF(f) = 0)
		if mid(l,1,2) = "vn "
			n.x = ValFloat(GetStringToken(l, " ", 2)) 
			n.y = ValFloat(GetStringToken(l, " ", 3)) 
			n.z = ValFloat(GetStringToken(l, " ", 4)) 
			myObject.normals.insert(n)
		endif
		l = ReadLine(f)		
	endwhile
    while(FileEOF(f) = 0)
		if mid(l,1,2) = "vt "
			t.x = ValFloat(GetStringToken(l, " ", 2)) 
			t.y = ValFloat(GetStringToken(l, " ", 3)) 
			myObject.textures.insert(t)
		endif
		l = ReadLine(f)		
	endwhile
    CloseFile(f)

endfunction myObject

type vertex
	x as float
	y as float
	z as float
endtype

type normals
	x as float
	y as float
	z as float
endtype

type textures
	x as float
	y as float
endtype


type faces
	x as float
	y as float
	z as float
endtype

type Object 
	vertex[]
	normals[]
	textures[]
	faces[]
endtype


function	LoadObjectData(name as string)
	f as integer
	l as String
	myObject as object
	v as vertex
	n as normals
	t as textures
	
	f = OpenToRead(name)
	l = ReadLine(f)
	while(FileEOF(f) = 0)
		if mid(l,1,2) = "v "
			v.x = ValFloat(GetStringToken(l, " ", 2)) 
			v.y = ValFloat(GetStringToken(l, " ", 3)) 
			v.z = ValFloat(GetStringToken(l, " ", 4)) 
			myObject.vertex.insert(v)
		endif
		l = ReadLine(f)		
	endwhile
    while(FileEOF(f) = 0)
		if mid(l,1,2) = "vn "
			n.x = ValFloat(GetStringToken(l, " ", 2)) 
			n.y = ValFloat(GetStringToken(l, " ", 3)) 
			n.z = ValFloat(GetStringToken(l, " ", 4)) 
			myObject.normals.insert(n)
		endif
		l = ReadLine(f)		
	endwhile
    while(FileEOF(f) = 0)
		if mid(l,1,2) = "vt "
			t.x = ValFloat(GetStringToken(l, " ", 2)) 
			t.y = ValFloat(GetStringToken(l, " ", 3)) 
			myObject.textures.insert(t)
		endif
		l = ReadLine(f)		
	endwhile
    CloseFile(f)

endfunction myObject

I left out the face data because wasn't sure what "/" was about

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 19th Sep 2018 23:21 Edited at: 19th Sep 2018 23:27

Wow - thanks.

The double \\ seperates each of the F's

f 1,2,3 - no texture or normal

f 1\\1 2\\2 3\\3 - has vertex / normal indexing data

f 1\\1\\1 2\\2\\2 3\\3\\2 - has vertex / normal/UV indexing data

All corresponding to the array thats been loaded

Wow ! Thanks

EDIT forward slashes ////// my apolgies

# Blender v2.79 (sub 0) OBJ File: ''
# www.blender.org
mtllib ico.mtl
o Icosphere
v 1.000089 -1.246286 0.462984
v 1.723696 -0.693505 0.988709
v 0.723701 -0.693505 1.313633
v 0.105663 -0.693501 0.462984
v 0.723701 -0.693505 -0.387665
v 1.723696 -0.693505 -0.062741
v 1.276477 0.200934 1.313633
v 0.276482 0.200934 0.988709
v 0.276482 0.200934 -0.062741
v 1.276477 0.200934 -0.387665
v 1.894515 0.200930 0.462984
v 1.000089 0.753714 0.462984
v 0.837633 -1.096940 0.962979
v 1.425411 -1.096940 0.771995
v 1.262958 -0.772023 1.271996
v 1.850737 -0.772021 0.462984
v 1.425411 -1.096940 0.153973
v 0.474359 -1.096937 0.462984
v 0.311899 -0.772022 0.962981
v 0.837633 -1.096940 -0.037011
v 0.311899 -0.772022 -0.037013
v 1.262958 -0.772023 -0.346028
v 1.951147 -0.246286 0.771996
v 1.951147 -0.246286 0.153971
v 1.000089 -0.246286 1.462984
v 1.587874 -0.246286 1.272001
v 0.049031 -0.246286 0.771996
v 0.412303 -0.246286 1.272001
v 0.412303 -0.246286 -0.346033
v 0.049031 -0.246286 0.153971
v 1.587874 -0.246286 -0.346033
v 1.000089 -0.246286 -0.537016
v 1.688278 0.279451 0.962981
v 0.737220 0.279452 1.271996
v 0.149441 0.279450 0.462984
v 0.737220 0.279452 -0.346028
v 1.688278 0.279451 -0.037013
v 1.162544 0.604369 0.962979
v 1.525819 0.604366 0.462984
v 0.574766 0.604369 0.771995
v 0.574766 0.604369 0.153973
v 1.162544 0.604369 -0.037011
vn 0.1024 -0.9435 0.3151
vn 0.7002 -0.6617 0.2680
vn -0.2680 -0.9435 0.1947
vn -0.2680 -0.9435 -0.1947
vn 0.1024 -0.9435 -0.3151
vn 0.9050 -0.3304 0.2680
vn 0.0247 -0.3304 0.9435
vn -0.8897 -0.3304 0.3151
vn -0.5746 -0.3304 -0.7488
vn 0.5346 -0.3304 -0.7779
vn 0.8026 -0.1256 0.5831
vn -0.3066 -0.1256 0.9435
vn -0.9921 -0.1256 0.0000
vn -0.3066 -0.1256 -0.9435
vn 0.8026 -0.1256 -0.5831
vn 0.4089 0.6617 0.6284
vn -0.4713 0.6617 0.5831
vn -0.7002 0.6617 -0.2680
vn 0.0385 0.6617 -0.7488
vn 0.7240 0.6617 -0.1947
vn 0.2680 0.9435 -0.1947
vn 0.4911 0.7947 -0.3568
vn 0.4089 0.6617 -0.6284
vn -0.1024 0.9435 -0.3151
vn -0.1876 0.7947 -0.5773
vn -0.4713 0.6617 -0.5831
vn -0.3313 0.9435 0.0000
vn -0.6071 0.7947 0.0000
vn -0.7002 0.6617 0.2680
vn -0.1024 0.9435 0.3151
vn -0.1876 0.7947 0.5773
vn 0.0385 0.6617 0.7488
vn 0.2680 0.9435 0.1947
vn 0.4911 0.7947 0.3568
vn 0.7240 0.6617 0.1947
vn 0.8897 0.3304 -0.3151
vn 0.7947 0.1876 -0.5773
vn 0.5746 0.3304 -0.7488
vn -0.0247 0.3304 -0.9435
vn -0.3035 0.1876 -0.9342
vn -0.5346 0.3304 -0.7779
vn -0.9050 0.3304 -0.2680
vn -0.9822 0.1876 0.0000
vn -0.9050 0.3304 0.2680
vn -0.5346 0.3304 0.7779
vn -0.3035 0.1876 0.9342
vn -0.0247 0.3304 0.9435
vn 0.5746 0.3304 0.7488
vn 0.7947 0.1876 0.5773
vn 0.8897 0.3304 0.3151
vn 0.3066 0.1256 -0.9435
vn 0.3035 -0.1876 -0.9342
vn 0.0247 -0.3304 -0.9435
vn -0.8026 0.1256 -0.5831
vn -0.7947 -0.1876 -0.5773
vn -0.8897 -0.3304 -0.3151
vn -0.8026 0.1256 0.5831
vn -0.7947 -0.1876 0.5773
vn -0.5746 -0.3304 0.7488
vn 0.3066 0.1256 0.9435
vn 0.3035 -0.1876 0.9342
vn 0.5346 -0.3304 0.7779
vn 0.9921 0.1256 0.0000
vn 0.9822 -0.1876 0.0000
vn 0.9050 -0.3304 -0.2680
vn 0.4713 -0.6617 -0.5831
vn 0.1876 -0.7947 -0.5773
vn -0.0385 -0.6617 -0.7488
vn -0.4089 -0.6617 -0.6284
vn -0.4911 -0.7947 -0.3568
vn -0.7240 -0.6617 -0.1947
vn -0.7240 -0.6617 0.1947
vn -0.4911 -0.7947 0.3568
vn -0.4089 -0.6617 0.6284
vn 0.7002 -0.6617 -0.2680
vn 0.6071 -0.7947 0.0000
vn 0.3313 -0.9435 0.0000
vn -0.0385 -0.6617 0.7488
vn 0.1876 -0.7947 0.5773
vn 0.4713 -0.6617 0.5831
usemtl None
s off
f 1//1 14//1 13//1
f 2//2 14//2 16//2
f 1//3 13//3 18//3
f 1//4 18//4 20//4
f 1//5 20//5 17//5
f 2//6 16//6 23//6
f 3//7 15//7 25//7
f 4//8 19//8 27//8
f 5//9 21//9 29//9
f 6//10 22//10 31//10
f 2//11 23//11 26//11
f 3//12 25//12 28//12
f 4//13 27//13 30//13
f 5//14 29//14 32//14
f 6//15 31//15 24//15
f 7//16 33//16 38//16
f 8//17 34//17 40//17
f 9//18 35//18 41//18
f 10//19 36//19 42//19
f 11//20 37//20 39//20
f 39//21 42//21 12//21
f 39//22 37//22 42//22
f 37//23 10//23 42//23
f 42//24 41//24 12//24
f 42//25 36//25 41//25
f 36//26 9//26 41//26
f 41//27 40//27 12//27
f 41//28 35//28 40//28
f 35//29 8//29 40//29
f 40//30 38//30 12//30
f 40//31 34//31 38//31
f 34//32 7//32 38//32
f 38//33 39//33 12//33
f 38//34 33//34 39//34
f 33//35 11//35 39//35
f 24//36 37//36 11//36
f 24//37 31//37 37//37
f 31//38 10//38 37//38
f 32//39 36//39 10//39
f 32//40 29//40 36//40
f 29//41 9//41 36//41
f 30//42 35//42 9//42
f 30//43 27//43 35//43
f 27//44 8//44 35//44
f 28//45 34//45 8//45
f 28//46 25//46 34//46
f 25//47 7//47 34//47
f 26//48 33//48 7//48
f 26//49 23//49 33//49
f 23//50 11//50 33//50
f 31//51 32//51 10//51
f 31//52 22//52 32//52
f 22//53 5//53 32//53
f 29//54 30//54 9//54
f 29//55 21//55 30//55
f 21//56 4//56 30//56
f 27//57 28//57 8//57
f 27//58 19//58 28//58
f 19//59 3//59 28//59
f 25//60 26//60 7//60
f 25//61 15//61 26//61
f 15//62 2//62 26//62
f 23//63 24//63 11//63
f 23//64 16//64 24//64
f 16//65 6//65 24//65
f 17//66 22//66 6//66
f 17//67 20//67 22//67
f 20//68 5//68 22//68
f 20//69 21//69 5//69
f 20//70 18//70 21//70
f 18//71 4//71 21//71
f 18//72 19//72 4//72
f 18//73 13//73 19//73
f 13//74 3//74 19//74
f 16//75 17//75 6//75
f 16//76 14//76 17//76
f 14//77 1//77 17//77
f 13//78 15//78 3//78
f 13//79 14//79 15//79
f 14//80 2//80 15//80

# Blender v2.79 (sub 0) OBJ File: ''
# www.blender.org
mtllib ico.mtl
o Icosphere
v 1.000089 -1.246286 0.462984
v 1.723696 -0.693505 0.988709
v 0.723701 -0.693505 1.313633
v 0.105663 -0.693501 0.462984
v 0.723701 -0.693505 -0.387665
v 1.723696 -0.693505 -0.062741
v 1.276477 0.200934 1.313633
v 0.276482 0.200934 0.988709
v 0.276482 0.200934 -0.062741
v 1.276477 0.200934 -0.387665
v 1.894515 0.200930 0.462984
v 1.000089 0.753714 0.462984
v 0.837633 -1.096940 0.962979
v 1.425411 -1.096940 0.771995
v 1.262958 -0.772023 1.271996
v 1.850737 -0.772021 0.462984
v 1.425411 -1.096940 0.153973
v 0.474359 -1.096937 0.462984
v 0.311899 -0.772022 0.962981
v 0.837633 -1.096940 -0.037011
v 0.311899 -0.772022 -0.037013
v 1.262958 -0.772023 -0.346028
v 1.951147 -0.246286 0.771996
v 1.951147 -0.246286 0.153971
v 1.000089 -0.246286 1.462984
v 1.587874 -0.246286 1.272001
v 0.049031 -0.246286 0.771996
v 0.412303 -0.246286 1.272001
v 0.412303 -0.246286 -0.346033
v 0.049031 -0.246286 0.153971
v 1.587874 -0.246286 -0.346033
v 1.000089 -0.246286 -0.537016
v 1.688278 0.279451 0.962981
v 0.737220 0.279452 1.271996
v 0.149441 0.279450 0.462984
v 0.737220 0.279452 -0.346028
v 1.688278 0.279451 -0.037013
v 1.162544 0.604369 0.962979
v 1.525819 0.604366 0.462984
v 0.574766 0.604369 0.771995
v 0.574766 0.604369 0.153973
v 1.162544 0.604369 -0.037011
vn 0.1024 -0.9435 0.3151
vn 0.7002 -0.6617 0.2680
vn -0.2680 -0.9435 0.1947
vn -0.2680 -0.9435 -0.1947
vn 0.1024 -0.9435 -0.3151
vn 0.9050 -0.3304 0.2680
vn 0.0247 -0.3304 0.9435
vn -0.8897 -0.3304 0.3151
vn -0.5746 -0.3304 -0.7488
vn 0.5346 -0.3304 -0.7779
vn 0.8026 -0.1256 0.5831
vn -0.3066 -0.1256 0.9435
vn -0.9921 -0.1256 0.0000
vn -0.3066 -0.1256 -0.9435
vn 0.8026 -0.1256 -0.5831
vn 0.4089 0.6617 0.6284
vn -0.4713 0.6617 0.5831
vn -0.7002 0.6617 -0.2680
vn 0.0385 0.6617 -0.7488
vn 0.7240 0.6617 -0.1947
vn 0.2680 0.9435 -0.1947
vn 0.4911 0.7947 -0.3568
vn 0.4089 0.6617 -0.6284
vn -0.1024 0.9435 -0.3151
vn -0.1876 0.7947 -0.5773
vn -0.4713 0.6617 -0.5831
vn -0.3313 0.9435 0.0000
vn -0.6071 0.7947 0.0000
vn -0.7002 0.6617 0.2680
vn -0.1024 0.9435 0.3151
vn -0.1876 0.7947 0.5773
vn 0.0385 0.6617 0.7488
vn 0.2680 0.9435 0.1947
vn 0.4911 0.7947 0.3568
vn 0.7240 0.6617 0.1947
vn 0.8897 0.3304 -0.3151
vn 0.7947 0.1876 -0.5773
vn 0.5746 0.3304 -0.7488
vn -0.0247 0.3304 -0.9435
vn -0.3035 0.1876 -0.9342
vn -0.5346 0.3304 -0.7779
vn -0.9050 0.3304 -0.2680
vn -0.9822 0.1876 0.0000
vn -0.9050 0.3304 0.2680
vn -0.5346 0.3304 0.7779
vn -0.3035 0.1876 0.9342
vn -0.0247 0.3304 0.9435
vn 0.5746 0.3304 0.7488
vn 0.7947 0.1876 0.5773
vn 0.8897 0.3304 0.3151
vn 0.3066 0.1256 -0.9435
vn 0.3035 -0.1876 -0.9342
vn 0.0247 -0.3304 -0.9435
vn -0.8026 0.1256 -0.5831
vn -0.7947 -0.1876 -0.5773
vn -0.8897 -0.3304 -0.3151
vn -0.8026 0.1256 0.5831
vn -0.7947 -0.1876 0.5773
vn -0.5746 -0.3304 0.7488
vn 0.3066 0.1256 0.9435
vn 0.3035 -0.1876 0.9342
vn 0.5346 -0.3304 0.7779
vn 0.9921 0.1256 0.0000
vn 0.9822 -0.1876 0.0000
vn 0.9050 -0.3304 -0.2680
vn 0.4713 -0.6617 -0.5831
vn 0.1876 -0.7947 -0.5773
vn -0.0385 -0.6617 -0.7488
vn -0.4089 -0.6617 -0.6284
vn -0.4911 -0.7947 -0.3568
vn -0.7240 -0.6617 -0.1947
vn -0.7240 -0.6617 0.1947
vn -0.4911 -0.7947 0.3568
vn -0.4089 -0.6617 0.6284
vn 0.7002 -0.6617 -0.2680
vn 0.6071 -0.7947 0.0000
vn 0.3313 -0.9435 0.0000
vn -0.0385 -0.6617 0.7488
vn 0.1876 -0.7947 0.5773
vn 0.4713 -0.6617 0.5831
usemtl None
s off
f 1//1 14//1 13//1
f 2//2 14//2 16//2
f 1//3 13//3 18//3
f 1//4 18//4 20//4
f 1//5 20//5 17//5
f 2//6 16//6 23//6
f 3//7 15//7 25//7
f 4//8 19//8 27//8
f 5//9 21//9 29//9
f 6//10 22//10 31//10
f 2//11 23//11 26//11
f 3//12 25//12 28//12
f 4//13 27//13 30//13
f 5//14 29//14 32//14
f 6//15 31//15 24//15
f 7//16 33//16 38//16
f 8//17 34//17 40//17
f 9//18 35//18 41//18
f 10//19 36//19 42//19
f 11//20 37//20 39//20
f 39//21 42//21 12//21
f 39//22 37//22 42//22
f 37//23 10//23 42//23
f 42//24 41//24 12//24
f 42//25 36//25 41//25
f 36//26 9//26 41//26
f 41//27 40//27 12//27
f 41//28 35//28 40//28
f 35//29 8//29 40//29
f 40//30 38//30 12//30
f 40//31 34//31 38//31
f 34//32 7//32 38//32
f 38//33 39//33 12//33
f 38//34 33//34 39//34
f 33//35 11//35 39//35
f 24//36 37//36 11//36
f 24//37 31//37 37//37
f 31//38 10//38 37//38
f 32//39 36//39 10//39
f 32//40 29//40 36//40
f 29//41 9//41 36//41
f 30//42 35//42 9//42
f 30//43 27//43 35//43
f 27//44 8//44 35//44
f 28//45 34//45 8//45
f 28//46 25//46 34//46
f 25//47 7//47 34//47
f 26//48 33//48 7//48
f 26//49 23//49 33//49
f 23//50 11//50 33//50
f 31//51 32//51 10//51
f 31//52 22//52 32//52
f 22//53 5//53 32//53
f 29//54 30//54 9//54
f 29//55 21//55 30//55
f 21//56 4//56 30//56
f 27//57 28//57 8//57
f 27//58 19//58 28//58
f 19//59 3//59 28//59
f 25//60 26//60 7//60
f 25//61 15//61 26//61
f 15//62 2//62 26//62
f 23//63 24//63 11//63
f 23//64 16//64 24//64
f 16//65 6//65 24//65
f 17//66 22//66 6//66
f 17//67 20//67 22//67
f 20//68 5//68 22//68
f 20//69 21//69 5//69
f 20//70 18//70 21//70
f 18//71 4//71 21//71
f 18//72 19//72 4//72
f 18//73 13//73 19//73
f 13//74 3//74 19//74
f 16//75 17//75 6//75
f 16//76 14//76 17//76
f 14//77 1//77 17//77
f 13//78 15//78 3//78
f 13//79 14//79 15//79
f 14//80 2//80 15//80

Ico-sphere here

Back to top

Profile

Bengismo

6

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 19th Sep 2018 23:27 Edited at: 19th Sep 2018 23:31

What are you trying to actually do??

You can load any obj file you like using loadobject()

...then create a mesh memblock from it using CreateMemblockFromObjectMesh()

then in that memblock you have

All the vertices - Use GetMeshMemblockVertex....
All the normals - Use GetMeshMemblockVertexNormal....
All the texture coords - Use GetMeshMemblockVertex....
And all the faces - Use GetMemblockInt (use the index offset- every 3 indices is a face)

You could just copy all this data easily into your type structure if you wanted....

or, not even bother to copy to a structure and just edit data in place....which would be quicker to work with anyways due to the fact that agk's arrays are really linked lists internally.

So if your just wanting to learn from doing this...then ok cool, no probs. Go for it.... If its so you can more esily understand the structure of the 3d info then ....sure ...fair enough....go for it
I actually did this for .ms3d and .x files so i could auto load textures and assign them to meshes so it can be useful.

....but writing a loader/parser isnt needed as AppGameKit will load obj (text and binary versions of files) as well as LOADS of other 3d formats too and give you the data with about 2/3 lines of code?? Plus there are built in functions to acces al the vertex, texture data etc....

Im just curious as to why the need to parse when AppGameKit will do it? Im not trying to be negative...just unsure as to if there is a need?

Anyway...good luck

Back to top

Profile PM

puzzler2018

User Banned

Posted: 19th Sep 2018 23:31 Edited at: 19th Sep 2018 23:34

we could do that

its a bonus if know how how OBJ file format is made.

Your idea will be a different functions whether the need of them

Thanks for you input and certainly wont go be dismissed

Cheers

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 19th Sep 2018 23:34

your welcome

I believe when it is understood and the data manipulated this way it would be very easy to write our own obj files which at present is on TGC's todo list
Which would be fantastic for Minecraft as one program could create the world and another would just load an object file(well your mesh that you create
for the world) This would improve loadtimes immensely and maybe even make it suitable for a mobile device. Even if you had to have your own variation
of the saved obj file this would be leaps and bounds ahead. (getting excited again here lol)

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 19th Sep 2018 23:38

I agree - load one object - saved in array to be able be cloned as such. one load - 100 added to a mesh at different locations via that 1st objects, excellent

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 19th Sep 2018 23:38 Edited at: 19th Sep 2018 23:45

Quote: "What are you trying to actually do??"

It could come in very handy for moving faces without using memblocks
which with some work could send all faces in all directions randomly ideally a great object explosion
especially if each face could be made into its own obj. Im sure there is much more it can do but that's what I see atm

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 19th Sep 2018 23:45 Edited at: 19th Sep 2018 23:51

AGK LoadObject() loads single objects and memory infuriating as we have found

My version be able to load obect directly onto to a mesh with x#, y#, z# eventually as it primary position on that mesh

Just incase some are confused

EDIT - Furbark You will have to recreate the mesh object. So this will be better with Static objects like buildings etc or use Setobjectvericesx / y/ z just at that location

Rebuilding an object of maybe a vast size will be very slow.

Unless you just have ordinary objects thats made up of individual objects in the render distance you have,

Back to top

Profile

Bengismo

6

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 19th Sep 2018 23:49 Edited at: 19th Sep 2018 23:56

If you want to move faces or add them then a memblock is the only way.....just changing values or adding to your type structure still requires you to move them into a memblock to view or use them or display them anyway.

Plus...dont for get you can just save the memblock very quickly then reload it later at lightning speed....and create your 3d object again with about 2 commands instead of loads of lines of parsing. The memblock file is also much more compact then a text obj file too so smaller and quicker too.

if you want to set an objects location offset from zero then use set object pivot...it will allow you to move all the vertices by a set amount. So a mesh loaded and its x,y,z offset using 3 lines off code.

It is definately quicker to load obj files then add them into a mesh one at a time with the inbuilt functions then hand parse it in interpreted basic.

Combining one mesh into another really is just acase of copying the vertices and indices into a larger memblock....its what i did on a thread with the agk loaded as voxels...one easy function. I'll post it up if wanted....but im sure you would learn from doing it too so nevermind.

Im not trying to be harsh in anyway....just wanting to point out that this is all doable at present with almost no effort. I guess being to have a data structure is nice but im kind of nt seeing the need to parse?

Anyway...cool....have fun. Great work

Back to top

Profile PM

puzzler2018

User Banned

Posted: 19th Sep 2018 23:54

Your cool bengismo - you bring lots of ideas / draw backs - and thats the idea of a community

Thanks for your input - most welcoming

Back to top

Profile

puzzler2018

User Banned

Posted: 20th Sep 2018 00:10 Edited at: 20th Sep 2018 00:14

So, if

f 1 5 6

then with my command would be

addvertex ( vertex[1].x#, vertex[1].y#, vertex[1].z#,vertex[1].z, normals[1].x#, normals[1].y#, normals[1].y#,textures[1].u#,textures[1].v#,color)
addvertex ( vertex[1].x#, vertex[1].y#, vertex[5].z#,vertex[1].z, normals[5].x#, normals[5].y#, normals[5].y#,textures[5].u#,textures[5].v#,color)
addvertex ( vertex[1].x#, vertex[1].y#, vertex[6].z#,vertex[1].z, normals[6].x#, normals[6].y#, normals[6].y#,textures[6].u#,textures[6].v#,color)

easy peasy (i hope)

Back to top

Profile

puzzler2018

User Banned

Posted: 20th Sep 2018 00:23 Edited at: 20th Sep 2018 00:25

So, if

v 1 5 6
fn 2 7 8
ft 2 1 2
f 3 1 2

then with my command would be

f3 - addvertex ( vertex[1].x#, vertex[1].y#, vertex[1].z#,vertex[1].z, normals[2].x#, normals[2].y#, normals[2].y#,textures[2].u#,textures[2].v#,color)
f1 - addvertex ( vertex[5].x#, vertex[5].y#, vertex[5].z#,vertex[1].z, normals[7].x#, normals[7].y#, normals[7].y#,textures[1].u#,textures[1].v#,color)
f2 - addvertex ( vertex[6].x#, vertex[6].y#, vertex[6].z#,vertex[1].z, normals[8].x#, normals[8].y#, normals[8].y#,textures[2].u#,textures[2].v#,color)

Anyway - sleep

Back to top

Profile

puzzler2018

User Banned

Posted: 20th Sep 2018 00:49

explosions with this will need some working out - hopefully by weekend i will have this built

but really not sure how we going to do explosions - needs some thinking

Back to top

Profile

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 20th Sep 2018 01:33 Edited at: 20th Sep 2018 03:03

edit

Back to top

Profile PM

puzzler2018

User Banned

Posted: 20th Sep 2018 07:18 Edited at: 20th Sep 2018 07:25

Ive had a thought on explosions

We could add a Piece[] type variable too

type _Peices
    x#, y#, z# \\ position of the object on the mesh
    rx#, ry#, rz# \\rotation angle that the object is currently at
    vertex[]
    normals[]
    textures[]
    faces[]
endtype

Object as _Peices[]

Then can have either 1 whole OBJect in the 1st peice [0]. or multiple of chopped up peices making up that single object to start with. [0] [1] [2] .....

Then can use the normal setobjectposition/ rotation on the peices instead. so that will look like the peices of that 1 object is come apart

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 20th Sep 2018 08:27 Edited at: 20th Sep 2018 08:40

if your not going to use physics pieces pieces may need

xInc#,yInc#,zInc# //(negative or positive values allowed)
xAngInc#,yAngInc#,zAngInc#
time# //time kept so as you can delete them after a period of time

That way you just set the direction ammounts in each direction and angle rotations both of which might range from -1.0 to 1.0 for example
and in your explosion of bits you just do something like

 
SetObjectPosition(piece,GetObjectWorldX(piece)+xInc#,GetObjectWorldY(piece)+yInc#,GetObjectWorldZ(piece)+zInc#)
SetObjectRotation(piece,GetObjectAngleX(piece)+xAngInc#,GetObjectAngleY(piece)+yAngInc#,GetObjectAngleZ(piece)+zAngInc#)

if you did it that way you could have a loop of pieces moving at different speeds and rotations not so sure if you would need the current location
or current rotation angle but if you wanted to put the pieces back after for some reason you may need the original positions but don't think you need
the original piece location and angle as that can be got from other elements of type object.

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 20th Sep 2018 10:04

Thanks - some good useful idea here

We can make a few loadobject functions to work with either the Peices if one so wanted to and indeed one for the use with the normal standard way that AGKs physics uses.

Back to top

Profile

puzzler2018

User Banned

Posted: 21st Sep 2018 18:24 Edited at: 21st Sep 2018 18:24

My first version of this object loader

// 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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#
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#
	vindex
	nindex
	tindex
endtype

global peices as integer[]
Global cubed

text1 = CreateText("Mesh Version") : SetTextSize(text1,40)
text2 = CreateText("AGKs Version") : SetTextSize(text2,40)

cubed = loadimage("\media\cube.png")

// Memblock Version
LoadObjectIntoMesh("\media\ico.obj")
object = CreateObjectFromMeshWithColor(meshid)
SetObjectPosition(object,-10,0,0)

// AGKs
AGK = LoadObject("\media\ico.obj")
SetObjectPosition(AGK,10,0,0)
 
 
do
	SetTextPosition(text1,100,50)
	SetTextPosition(text2,700,50)
	
	RotateObjectLocalX(object,.05)
	RotateObjectLocalY(object,.05)
	RotateObjectLocalZ(object,.05)

RotateObjectLocalX(AGK,.05)
	RotateObjectLocalY(AGK,.05)
	RotateObjectLocalZ(AGK,.05)

print(ScreenFPS())
    Sync()
loop

function LoadObjectIntoMesh(filename$)
	v as _vector		  // create an empty type so can inert data	
	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]
	pieces as _vector[]
	
// 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

color=MakeColor(255,255,255)
	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))
	
			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))
		
			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)
//			v.tindex = Val(GetStringToken(line$,"//",3))-1

// eg constucted F 1//1 14//1 13//1 = Vertex // 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
					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
					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
					faces.insert(v)
					a=len(face3$)
				endif
				
			next

endif
		
	endwhile

for a=0 to vertex.length
		print("V " + str(vertex[a].x#) + " " + str(vertex[a].y#) + " " + str(vertex[a].z#))

next
	
	sync()
	sleep(2000)

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

next

sync()
	sleep(2000)

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

next
	sync()
	
	sleep(2000)

fi=0
	for a=0 to faces.length
		
		nx# = normals[faces[a].nindex].x#
		ny# = normals[faces[a].nindex].y#
		nz# = normals[faces[a].nindex].z# * -1
	
		length# = sqrt(nx#*nx# + ny#*ny# + nz#*nz#)

if ( length# > 31 ) 
			length# = 1 / length#
		else
			ny#=1
			length#=1
		endif

nx#= nx# * length#
		ny#= ny# * length#
		nz#= nz# * length#
		
		AddVertex(MeshID, vertex[faces[a].vindex].x#, vertex[faces[a].vindex].y#, vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,Color)

next
	sync()
	sleep(1000)

vertex.length=-1
	normals.length=-1
	faces.length=-1
	textures.length=-1
	
	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#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.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
     
     
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)

// 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#)
 
*/


// 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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#
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#
	vindex
	nindex
	tindex
endtype


global peices as integer[]
Global cubed

text1 = CreateText("Mesh Version") : SetTextSize(text1,40)
text2 = CreateText("AGKs Version") : SetTextSize(text2,40)

cubed = loadimage("\media\cube.png")

// Memblock Version
LoadObjectIntoMesh("\media\ico.obj")
object = CreateObjectFromMeshWithColor(meshid)
SetObjectPosition(object,-10,0,0)

// AGKs
AGK = LoadObject("\media\ico.obj")
SetObjectPosition(AGK,10,0,0)
 
 
do
	SetTextPosition(text1,100,50)
	SetTextPosition(text2,700,50)
	
	RotateObjectLocalX(object,.05)
	RotateObjectLocalY(object,.05)
	RotateObjectLocalZ(object,.05)

	RotateObjectLocalX(AGK,.05)
	RotateObjectLocalY(AGK,.05)
	RotateObjectLocalZ(AGK,.05)

	print(ScreenFPS())
    Sync()
loop


function LoadObjectIntoMesh(filename$)
	v as _vector		  // create an empty type so can inert data	
	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]
	pieces as _vector[]
	
// 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

	
	color=MakeColor(255,255,255)
	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))
	
			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))
		
			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)
//			v.tindex = Val(GetStringToken(line$,"//",3))-1

// eg constucted F 1//1 14//1 13//1 = Vertex // 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
					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
					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
					faces.insert(v)
					a=len(face3$)
				endif
				
			next
			

			
		endif
		
	endwhile
	

	for a=0 to vertex.length
		print("V " + str(vertex[a].x#) + " " + str(vertex[a].y#) + " " + str(vertex[a].z#))

	next
	
	sync()
	sleep(2000)


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

	
	next

	sync()
	sleep(2000)


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

	
	next
	sync()
	
	sleep(2000)

	fi=0
	for a=0 to faces.length
		
		nx# = normals[faces[a].nindex].x#
		ny# = normals[faces[a].nindex].y#
		nz# = normals[faces[a].nindex].z# * -1
	
		length# = sqrt(nx#*nx# + ny#*ny# + nz#*nz#)

		
		if ( length# > 31 ) 
			length# = 1 / length#
		else
			ny#=1
			length#=1
		endif

		nx#= nx# * length#
		ny#= ny# * length#
		nz#= nz# * length#
		
		AddVertex(MeshID, vertex[faces[a].vindex].x#, vertex[faces[a].vindex].y#, vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,Color)

	next
	sync()
	sleep(1000)


	
	
	vertex.length=-1
	normals.length=-1
	faces.length=-1
	textures.length=-1
	
	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#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.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
     
     
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)




// 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#)
 
*/

Please use the ICO.OBJ into the media folder - could be any OBJ but that would require testing, im sure it will load ok but Normals is way off! at the moment!

Attachments

Login to view attachments

Back to top

Profile

puzzler2018

User Banned

Posted: 21st Sep 2018 19:21 Edited at: 21st Sep 2018 19:35

Maybe better with this "free" obj to identify any normal issues or maybe perhaps something else ive forgotten

EDIT - Ignore this object - after checling this has polygon structure - with 4 sections on a face

eg of the Faces - this has 4 equaling a polygon

f 24461//24460 19888//19887 21868//21867 21871//21870 
f 19888//19887 24461//24460 19890//19889 19886//19885 
f 21862//21861 19842//19841 19840//19839 19845//19844 
f 21869//21868 21868//21867 19888//19887 19887//19886 
# 24459 polygons

This capability will come later once sussed out whats gone wrong with the previous post

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: 21st Sep 2018 22:24

Well done just tested it with your ico.obj object and looks fine to me

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 21st Sep 2018 22:29

AGKs vesion compared to mine -- looks like the normals or something for lighting is not the same

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 21st Sep 2018 22:52

Have you tried moving your created mesh object near the agk object
perhaps with keyboard and you will then know if its just the positioning

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 21st Sep 2018 23:03

Yes and still the same - one half of the icosphere OBJ looks perfect and the other half goes dark gray cause normals are not right - perfect on AppGameKit object

Cant you see that too

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 21st Sep 2018 23:05

hahahah looks fine without my glasses

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 21st Sep 2018 23:06

Bless you

Back to top

Profile

puzzler2018

User Banned

Posted: 21st Sep 2018 23:38

can anyone else see a difference

Back to top

Profile

puzzler2018

User Banned

Posted: 22nd Sep 2018 00:07 Edited at: 22nd Sep 2018 00:14

There is a reason why im doing this - this is to be able to add OBJects to a single mesh and what ever location you like - hundreds of times onto a mesh. So my work is will be good for world 3d games

Jusr incase your wondering what is this feller going on about with these functions.

Hope you beginners find them useful to make bigger world games

EDIT - Memblock programming is the way forward

I loved - LBA 2 anyone remember that beast

Back to top

Profile

puzzler2018

User Banned

Posted: 22nd Sep 2018 00:45

Here is what I have at moment

// 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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#
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#
	vindex
	nindex
	tindex
endtype

global	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
global	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
global	faces as _vector[]    // eg f 5//9 21//9 29//9
global	textures as _vector[] // eg vt 0.500 1 [0]
global	pieces as _vector[]
global peices as integer[]
Global cubed

cubed = loadimage("\media\cube.png")

// Memblock Version
LoadObjectIntoMesh(0,0,0,"\media\ico.obj", 0,0)
object = CreateObjectFromMeshWithColor(meshid)
SetObjectPosition(object,10,0,0)

// AGKs
AGK = LoadObject("\media\ico.obj")
SetObjectPosition(AGK,10,0,0)
 
 
 /*
 
 color=MakeColor(255,255,255)
AddVertex(MeshID,   0,  0,  0,    0,1,0,  0,0,Color) // point 1
AddVertex(MeshID, -10,  0, 10,    0,1,0,  0,0,Color) // point 2
AddVertex(MeshID, -10,  0,  0,    0,1,0,  0,0,Color) // point 3

AddVertex(MeshID, 0,0,0,    0,1,0,  0,0,Color)
AddVertex(MeshID, 10,0,10,    0,1,0,  0,0,Color)
AddVertex(MeshID, -10,  0, -10,    0,1,0,  0,0,Color) // point 4

*/

text1 = CreateText("Mesh Version") : SetTextSize(text1,40)
text2 = CreateText("AGKs Version") : SetTextSize(text2,40)
 
do
	SetTextPosition(text1,100,50)
	SetTextPosition(text2,700,50)
	
	RotateObjectLocalX(object,.05)
	RotateObjectLocalY(object,.05)
	RotateObjectLocalZ(object,.05)

RotateObjectLocalX(AGK,.05)
	RotateObjectLocalY(AGK,.05)
	RotateObjectLocalZ(AGK,.05)

print(ScreenFPS())
    Sync()
loop

// LoadObjectIntoMeshfunction
// x#,y#,z# - Where on the mesh you like it to be positioned at
// 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(x#, y#, z#, 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

color=MakeColor(255,255,255)
	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))
	
			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))
		
			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)
//			v.tindex = Val(GetStringToken(line$,"//",3))-1

// eg constucted F 1//1 14//1 13//1 = Vertex // 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
					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
					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
					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

/*			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
					faces.insert(v)
					a=len(face4$)
				endif
				
			next
			
*/

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

next
	
		sync()
		sleep(2000)
	
		print(Normals.length)

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

next

sync()
		sleep(2000)

print(Faces.length)

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

next
		sync()
	
		sleep(2000)
	endif
	
	for a=0 to faces.length
		
		nx# = normals[faces[a].nindex].x# 
		ny# = normals[faces[a].nindex].y# 
		nz# = normals[faces[a].nindex].z# * -1
		
		
				length# = sqrt(nx#*nx# + ny#*ny# + nz#*nz#)

if ( length# > 0x000001f ) 
			length# = 1 / length#
		else
			ny#=1
			length#=1
		endif

nx#= (nx# * length#)
		ny#= (ny# * length#)
		nz#= (nz# * length#)
		
		AddVertex(MeshID, vertex[faces[a].vindex].x#, vertex[faces[a].vindex].y#, vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,Color)

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

if save=0
		
		vertex.length=-1
		normals.length=-1
		faces.length=-1
		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#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.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
     
     
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)

// 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#)
 
*/

// 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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#
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#
	vindex
	nindex
	tindex
endtype


global	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
global	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
global	faces as _vector[]    // eg f 5//9 21//9 29//9
global	textures as _vector[] // eg vt 0.500 1 [0]
global	pieces as _vector[]
global peices as integer[]
Global cubed


cubed = loadimage("\media\cube.png")

// Memblock Version
LoadObjectIntoMesh(0,0,0,"\media\ico.obj", 0,0)
object = CreateObjectFromMeshWithColor(meshid)
SetObjectPosition(object,10,0,0)

// AGKs
AGK = LoadObject("\media\ico.obj")
SetObjectPosition(AGK,10,0,0)
 
 
 /*
 
 color=MakeColor(255,255,255)
AddVertex(MeshID,   0,  0,  0,    0,1,0,  0,0,Color) // point 1
AddVertex(MeshID, -10,  0, 10,    0,1,0,  0,0,Color) // point 2
AddVertex(MeshID, -10,  0,  0,    0,1,0,  0,0,Color) // point 3

AddVertex(MeshID, 0,0,0,    0,1,0,  0,0,Color)
AddVertex(MeshID, 10,0,10,    0,1,0,  0,0,Color)
AddVertex(MeshID, -10,  0, -10,    0,1,0,  0,0,Color) // point 4

*/
 

text1 = CreateText("Mesh Version") : SetTextSize(text1,40)
text2 = CreateText("AGKs Version") : SetTextSize(text2,40)
 
do
	SetTextPosition(text1,100,50)
	SetTextPosition(text2,700,50)
	
	RotateObjectLocalX(object,.05)
	RotateObjectLocalY(object,.05)
	RotateObjectLocalZ(object,.05)

	RotateObjectLocalX(AGK,.05)
	RotateObjectLocalY(AGK,.05)
	RotateObjectLocalZ(AGK,.05)


	print(ScreenFPS())
    Sync()
loop

// LoadObjectIntoMeshfunction
// x#,y#,z# - Where on the mesh you like it to be positioned at
// 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(x#, y#, z#, 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

	
	color=MakeColor(255,255,255)
	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))
	
			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))
		
			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)
//			v.tindex = Val(GetStringToken(line$,"//",3))-1

// eg constucted F 1//1 14//1 13//1 = Vertex // 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
					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
					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
					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


/*			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
					faces.insert(v)
					a=len(face4$)
				endif
				
			next
			
*/

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

		next
	
		sync()
		sleep(2000)
	
		print(Normals.length)

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

	
		next

		sync()
		sleep(2000)

			print(Faces.length)

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

	
		next
		sync()
	
		sleep(2000)
	endif
	
	for a=0 to faces.length
		
		nx# = normals[faces[a].nindex].x# 
		ny# = normals[faces[a].nindex].y# 
		nz# = normals[faces[a].nindex].z# * -1
		
		
				length# = sqrt(nx#*nx# + ny#*ny# + nz#*nz#)

		
		if ( length# > 0x000001f ) 
			length# = 1 / length#
		else
			ny#=1
			length#=1
		endif

		nx#= (nx# * length#)
		ny#= (ny# * length#)
		nz#= (nz# * length#)
		
		AddVertex(MeshID, vertex[faces[a].vindex].x#, vertex[faces[a].vindex].y#, vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,Color)

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

	
	if save=0
		
		vertex.length=-1
		normals.length=-1
		faces.length=-1
		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#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.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
     
     
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)




// 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#)
 
*/

Normals needs figuring out im not happy with it

Back to top

Profile

puzzler2018

User Banned

Posted: 22nd Sep 2018 01:00 Edited at: 22nd Sep 2018 01:02

I really do need to take my hat off and bow to Paul in his knowledge - its 2nd to none

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 22nd Sep 2018 03:23 Edited at: 22nd Sep 2018 03:25

perhaps you need to SetObjectCullMode( objID, 0) mode 0=both front and back drawn

oh forget that I see what you've done you've moved the object lol and I thought for a sec it wasn't showing

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 22nd Sep 2018 03:48 Edited at: 22nd Sep 2018 03:51

We got the wrong end of the stick. nothing to do with culling, i just got my code wrong

Could Someone please help/explain whats wrong with my normals/code.

Back to top

Profile

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 22nd Sep 2018 04:41 Edited at: 22nd Sep 2018 04:43

I tried the code and see the basic form of the model seems to be there but can't really tell if the normals are messed up, some faces are missing entirely or the scale of the faces is off.

Maybe try a more basic model. I knocked out a very simple model and tested with it and your code threw an error so that might be a clue to something not sure really.

Anyway, the very simple model and corresponding texture map is attached if you want to test with them and see if it helps to track it down.

My Projects Most With Full Source...
[Attack of the Crows] [Christmas Command 2016]
[Simple Sprite Shaders Example] [Old School Style 3D FPS]
[Playable 2D Shmup Template] [2D Single Screen Platformer]
[FixSpriteToSprite System & Demo]
[Mutant Invaders 3D Shmup] [Unity - Atlantic Crisis]
[Unity - Treasures of Ali-Gar] [My YouTube Videos] [Twitter]
[AppGameKit BASIC Extended API]

Attachments

Login to view attachments

Back to top

Profile PM

puzzler2018

User Banned

Posted: 22nd Sep 2018 04:44

Thanks -Ill give things a try in the morning

Back to top

Profile

puzzler2018

User Banned

Posted: 24th Sep 2018 17:57 Edited at: 24th Sep 2018 17:59

Im still fighting with the normals - it will not beat me..

Created a proper instance command (which will populate the true data loaded from the V/VNs/VTs instead of a pointer

Here is an example of the code in action

// 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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#
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#
	vindex
	nindex
	tindex
endtype

global	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
global	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
global	faces as _vector[]    // eg f 5//9 21//9 29//9
global	textures as _vector[] // eg vt 0.500 1 [0]
global	pieces as _vector[]
global peices as integer[]
Global cubed

cubed = loadimage("\media\cube.png")

// Memblock Version
LoadObjectIntoMesh(-10,0,0,"\media\ico.obj", 0,1) // 1= saves the V/VN/VTs

for i=-10 to 10
	for j=-10 to 10
		for k=-10 to 10
			InstanceMeshObject(i*7,j*7,k*7)
		next
	next
next

object = CreateObjectFromMeshWithColor(meshid)
emptymesh()

do
	
	RotateObjectLocalX(object,.05)
	RotateObjectLocalY(object,.05)
	RotateObjectLocalZ(object,.05)

print(ScreenFPS())
    Sync()
loop

// Instance a loaded object - requires to "save" the data for this to work
function InstanceMeshObject(x#, y#, z#)
	
	color = MakeColor(255,255,255)
	for a=0 to faces.length
		
		nx# = abs((normals[faces[a].nindex].y# * normals[faces[a].nindex].z#) - (normals[faces[a].nindex].z# * normals[faces[a].nindex].y#) *-1 )
		ny# = abs((normals[faces[a].nindex].z# * normals[faces[a].nindex].x#) - (normals[faces[a].nindex].x# * normals[faces[a].nindex].z#))
		nz# = abs((normals[faces[a].nindex].x# * normals[faces[a].nindex].y#) - (normals[faces[a].nindex].y# * normals[faces[a].nindex].x#) * -1)
		
		
		AddVertex(MeshID, x#+vertex[faces[a].vindex].x#, y#+vertex[faces[a].vindex].y#, z#+vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,Color)

next
	
endfunction

// LoadObjectIntoMeshfunction
// x#,y#,z# - Where on the mesh you like it to be positioned at
// 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(x#, y#, z#, 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
		vertex.length=-1
		normals.length=-1
		faces.length=-1
		textures.length=-1
	
	color=MakeColor(255,255,255)
	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))
	
			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))
		
			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)
//			v.tindex = Val(GetStringToken(line$,"//",3))-1

// eg constucted F 1//1 14//1 13//1 = Vertex // 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
					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
					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
					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

/*			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
					faces.insert(v)
					a=len(face4$)
				endif
				
			next
			
*/

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

next
	
		sync()
		sleep(2000)
	
		print(Normals.length)

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

next

sync()
		sleep(2000)

print(Faces.length)

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

next
		sync()
	
		sleep(2000)
	endif
	
	
	color=MakeColor(255,255,255)
	for a=0 to faces.length
		
		nx# = abs((normals[faces[a].nindex].y# * normals[faces[a].nindex].z#) - (normals[faces[a].nindex].z# * normals[faces[a].nindex].y#) *-1 )
		ny# = abs((normals[faces[a].nindex].z# * normals[faces[a].nindex].x#) - (normals[faces[a].nindex].x# * normals[faces[a].nindex].z#))
		nz# = abs((normals[faces[a].nindex].x# * normals[faces[a].nindex].y#) - (normals[faces[a].nindex].y# * normals[faces[a].nindex].x#) * -1)
		
		
		AddVertex(MeshID, x#+vertex[faces[a].vindex].x#, y#+vertex[faces[a].vindex].y#, z#+vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,color)

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

if save=0
		
		vertex.length=-1
		normals.length=-1
		faces.length=-1
		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#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.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
     
     
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)

// 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#)
 
*/


// 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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#
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#
	vindex
	nindex
	tindex
endtype


global	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
global	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
global	faces as _vector[]    // eg f 5//9 21//9 29//9
global	textures as _vector[] // eg vt 0.500 1 [0]
global	pieces as _vector[]
global peices as integer[]
Global cubed


cubed = loadimage("\media\cube.png")

// Memblock Version
LoadObjectIntoMesh(-10,0,0,"\media\ico.obj", 0,1) // 1= saves the V/VN/VTs

for i=-10 to 10
	for j=-10 to 10
		for k=-10 to 10
			InstanceMeshObject(i*7,j*7,k*7)
		next
	next
next


object = CreateObjectFromMeshWithColor(meshid)
emptymesh()

 
do
	
	RotateObjectLocalX(object,.05)
	RotateObjectLocalY(object,.05)
	RotateObjectLocalZ(object,.05)

	print(ScreenFPS())
    Sync()
loop


// Instance a loaded object - requires to "save" the data for this to work
function InstanceMeshObject(x#, y#, z#)
	
	color = MakeColor(255,255,255)
	for a=0 to faces.length
		
		nx# = abs((normals[faces[a].nindex].y# * normals[faces[a].nindex].z#) - (normals[faces[a].nindex].z# * normals[faces[a].nindex].y#) *-1 )
		ny# = abs((normals[faces[a].nindex].z# * normals[faces[a].nindex].x#) - (normals[faces[a].nindex].x# * normals[faces[a].nindex].z#))
		nz# = abs((normals[faces[a].nindex].x# * normals[faces[a].nindex].y#) - (normals[faces[a].nindex].y# * normals[faces[a].nindex].x#) * -1)
		
		
		AddVertex(MeshID, x#+vertex[faces[a].vindex].x#, y#+vertex[faces[a].vindex].y#, z#+vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,Color)

	next
	
endfunction



// LoadObjectIntoMeshfunction
// x#,y#,z# - Where on the mesh you like it to be positioned at
// 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(x#, y#, z#, 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
		vertex.length=-1
		normals.length=-1
		faces.length=-1
		textures.length=-1
	
	color=MakeColor(255,255,255)
	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))
	
			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))
		
			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)
//			v.tindex = Val(GetStringToken(line$,"//",3))-1

// eg constucted F 1//1 14//1 13//1 = Vertex // 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
					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
					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
					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


/*			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
					faces.insert(v)
					a=len(face4$)
				endif
				
			next
			
*/

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

		next
	
		sync()
		sleep(2000)
	
		print(Normals.length)

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

	
		next

		sync()
		sleep(2000)

			print(Faces.length)

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

	
		next
		sync()
	
		sleep(2000)
	endif
	
	
	color=MakeColor(255,255,255)
	for a=0 to faces.length
		
		nx# = abs((normals[faces[a].nindex].y# * normals[faces[a].nindex].z#) - (normals[faces[a].nindex].z# * normals[faces[a].nindex].y#) *-1 )
		ny# = abs((normals[faces[a].nindex].z# * normals[faces[a].nindex].x#) - (normals[faces[a].nindex].x# * normals[faces[a].nindex].z#))
		nz# = abs((normals[faces[a].nindex].x# * normals[faces[a].nindex].y#) - (normals[faces[a].nindex].y# * normals[faces[a].nindex].x#) * -1)
		
		
		AddVertex(MeshID, x#+vertex[faces[a].vindex].x#, y#+vertex[faces[a].vindex].y#, z#+vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,color)

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

	
	if save=0
		
		vertex.length=-1
		normals.length=-1
		faces.length=-1
		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#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.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
     
     
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)




// 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#)
 
*/

Attachments

Login to view attachments

Back to top

Profile

puzzler2018

User Banned

Posted: 24th Sep 2018 18:56 Edited at: 24th Sep 2018 18:59

Must admit - I like this one

// 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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#
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#
	vindex
	nindex
	tindex
endtype

global	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
global	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
global	faces as _vector[]    // eg f 5//9 21//9 29//9
global	textures as _vector[] // eg vt 0.500 1 [0]
global	pieces as _vector[]
global peices as integer[]
global Cubed = 0

// Memblock Version
LoadObjectIntoMesh(-10,0,0,"\media\ico.obj", 0,1) // 1= saves the V/VN/VTs

for i=-30 to 30
//	for j=-10 to 10
		for k=-30 to 30
			InstanceMeshObject(i*2,0,k*2, MakeColor(random(0,255),random(0,255),random(0,255)))
		next
//	next
next

object = CreateObjectFromMeshWithColor(meshid)
emptymesh()

do
	
	RotateObjectLocalX(object,.02)
	RotateObjectLocalY(object,.02)
	RotateObjectLocalZ(object,.02)

print(ScreenFPS())
    Sync()
loop

// Instance a loaded object - requires to "save" the data for this to work
function InstanceMeshObject(x#, y#, z#, color)
	
	for a=0 to faces.length
		
		nx# = abs((normals[faces[a].nindex].y# * normals[faces[a].nindex].z#) - (normals[faces[a].nindex].z# * normals[faces[a].nindex].y#) *-1 )
		ny# = abs((normals[faces[a].nindex].z# * normals[faces[a].nindex].x#) - (normals[faces[a].nindex].x# * normals[faces[a].nindex].z#))
		nz# = abs((normals[faces[a].nindex].x# * normals[faces[a].nindex].y#) - (normals[faces[a].nindex].y# * normals[faces[a].nindex].x#) * -1)
		
		
		AddVertex(MeshID, x#+vertex[faces[a].vindex].x#, y#+vertex[faces[a].vindex].y#, z#+vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,Color)

next
	
endfunction

// LoadObjectIntoMeshfunction
// x#,y#,z# - Where on the mesh you like it to be positioned at
// 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(x#, y#, z#, 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
		vertex.length=-1
		normals.length=-1
		faces.length=-1
		textures.length=-1
	
	color=MakeColor(255,255,255)
	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))
	
			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))
		
			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)
//			v.tindex = Val(GetStringToken(line$,"//",3))-1

// eg constucted F 1//1 14//1 13//1 = Vertex // 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
					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
					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
					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

/*			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
					faces.insert(v)
					a=len(face4$)
				endif
				
			next
			
*/

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

next
	
		sync()
		sleep(2000)
	
		print(Normals.length)

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

next

sync()
		sleep(2000)

print(Faces.length)

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

next
		sync()
	
		sleep(2000)
	endif
	
	
	color=MakeColor(255,255,255)
	for a=0 to faces.length
		
		nx# = abs((normals[faces[a].nindex].y# * normals[faces[a].nindex].z#) - (normals[faces[a].nindex].z# * normals[faces[a].nindex].y#) *-1 )
		ny# = abs((normals[faces[a].nindex].z# * normals[faces[a].nindex].x#) - (normals[faces[a].nindex].x# * normals[faces[a].nindex].z#))
		nz# = abs((normals[faces[a].nindex].x# * normals[faces[a].nindex].y#) - (normals[faces[a].nindex].y# * normals[faces[a].nindex].x#) * -1)
		
		
		AddVertex(MeshID, x#+vertex[faces[a].vindex].x#, y#+vertex[faces[a].vindex].y#, z#+vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,color)

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

if save=0
		
		vertex.length=-1
		normals.length=-1
		faces.length=-1
		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#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.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
     
     
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)

// 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#)
 
*/

// 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
  
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#
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#
	vindex
	nindex
	tindex
endtype


global	vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
global	normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
global	faces as _vector[]    // eg f 5//9 21//9 29//9
global	textures as _vector[] // eg vt 0.500 1 [0]
global	pieces as _vector[]
global peices as integer[]
global Cubed = 0



// Memblock Version
LoadObjectIntoMesh(-10,0,0,"\media\ico.obj", 0,1) // 1= saves the V/VN/VTs

for i=-30 to 30
//	for j=-10 to 10
		for k=-30 to 30
			InstanceMeshObject(i*2,0,k*2, MakeColor(random(0,255),random(0,255),random(0,255)))
		next
//	next
next


object = CreateObjectFromMeshWithColor(meshid)
emptymesh()

 
do
	
	RotateObjectLocalX(object,.02)
	RotateObjectLocalY(object,.02)
	RotateObjectLocalZ(object,.02)

	print(ScreenFPS())
    Sync()
loop


// Instance a loaded object - requires to "save" the data for this to work
function InstanceMeshObject(x#, y#, z#, color)
	
	for a=0 to faces.length
		
		nx# = abs((normals[faces[a].nindex].y# * normals[faces[a].nindex].z#) - (normals[faces[a].nindex].z# * normals[faces[a].nindex].y#) *-1 )
		ny# = abs((normals[faces[a].nindex].z# * normals[faces[a].nindex].x#) - (normals[faces[a].nindex].x# * normals[faces[a].nindex].z#))
		nz# = abs((normals[faces[a].nindex].x# * normals[faces[a].nindex].y#) - (normals[faces[a].nindex].y# * normals[faces[a].nindex].x#) * -1)
		
		
		AddVertex(MeshID, x#+vertex[faces[a].vindex].x#, y#+vertex[faces[a].vindex].y#, z#+vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,Color)

	next
	
endfunction



// LoadObjectIntoMeshfunction
// x#,y#,z# - Where on the mesh you like it to be positioned at
// 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(x#, y#, z#, 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
		vertex.length=-1
		normals.length=-1
		faces.length=-1
		textures.length=-1
	
	color=MakeColor(255,255,255)
	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))
	
			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))
		
			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)
//			v.tindex = Val(GetStringToken(line$,"//",3))-1

// eg constucted F 1//1 14//1 13//1 = Vertex // 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
					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
					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
					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


/*			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
					faces.insert(v)
					a=len(face4$)
				endif
				
			next
			
*/

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

		next
	
		sync()
		sleep(2000)
	
		print(Normals.length)

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

	
		next

		sync()
		sleep(2000)

			print(Faces.length)

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

	
		next
		sync()
	
		sleep(2000)
	endif
	
	
	color=MakeColor(255,255,255)
	for a=0 to faces.length
		
		nx# = abs((normals[faces[a].nindex].y# * normals[faces[a].nindex].z#) - (normals[faces[a].nindex].z# * normals[faces[a].nindex].y#) *-1 )
		ny# = abs((normals[faces[a].nindex].z# * normals[faces[a].nindex].x#) - (normals[faces[a].nindex].x# * normals[faces[a].nindex].z#))
		nz# = abs((normals[faces[a].nindex].x# * normals[faces[a].nindex].y#) - (normals[faces[a].nindex].y# * normals[faces[a].nindex].x#) * -1)
		
		
		AddVertex(MeshID, x#+vertex[faces[a].vindex].x#, y#+vertex[faces[a].vindex].y#, z#+vertex[faces[a].vindex].z# ,nx#,ny#,nz#,  0,0,color)

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

	
	if save=0
		
		vertex.length=-1
		normals.length=-1
		faces.length=-1
		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#)/1.0
    fDiffY# = (GetPointerY() - starty#)/1.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
     
     
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)




// 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#)
 
*/

Again use that ICO.OBJ to work

Catch up later on in week for more

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 24th Sep 2018 21:09

Looks good

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 24th Sep 2018 21:26

Cheers - now you will have eventually the option to import your OBJ files to a certain location on a mesh instead of just the basic AppGameKit primitives

I havent seen this functionality AppGameKit Tier 1 so thought id develop something to do this

Back to top

Profile

puzzler2018

User Banned

Posted: 24th Sep 2018 21:40

There is a method in my madness to devvelop all this - promise

Back to top

Profile

puzzler2018

User Banned

Posted: 25th Sep 2018 20:02 Edited at: 25th Sep 2018 20:13

On that last example it seem to took forever to load and not many objects to be fair.

I shall try and make use of the copymemblock function to see if this speeds up true instancing - as the built in AppGameKit commands are C++ which is a zillion times faster in processing anyway

Catch up around weekend for this one

EDIT -

and I would like to convert what we have already into

type _vector
	x#
	y#
	z#
	vindex
	nindex
	tindex
endtype

type _object
         id as string
	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]
endtype

global objectmesh as _object[]

So objectmesh is an array of potential many different models that can be reused over and over

objectmesh[1].id = box
objectmesh[2].id = cube
objectmesh[3].id = man
..
..
..

becareful of your high poly counts on your models though

Back to top

Profile

puzzler2018

User Banned

Posted: 27th Sep 2018 23:30

Have I upset anyone

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 27th Sep 2018 23:48

not that I know of

Just waiting to see whats next !!!

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 27th Sep 2018 23:51

great- catch up on weekend

Back to top

Profile

puzzler2018

User Banned

Posted: 28th Sep 2018 00:01 Edited at: 28th Sep 2018 00:03

Any one else other than me fubarpk - i know you would answer as best you can. its more to others

Back to top

Profile

Back to top

Login to post a reply

Server time is: 2024-04-28 01:53:03
Your offset time is: 2024-04-28 01:53:03