function saveMesh(id as integer,filename as string )
t as integer:mesh as integer:n as integer: s as integer:verts as integer:i as integer
x# as float:y# as float:z# as float:end$ as string:b$ as string:name as string
nx# as float:ny# as float:nz# as float:u# as float:v# as float


name = "raw:"+GetReadPath()+"media/"+filename
print("Creating : "+name)
//OpenToWrite ( 1, "raw:"+GetReadPath()+"media\20cajas.x", 0 )
OpenToWrite(1,name,0)
writeline( 1,"xof 0303txt 0032")
writeline(1,"")  `space
writeline(1,"#Save boxes to .x by Chafari ")
writeline(1,"#Made in AGK2 December 2018")
writeline(1,"")  `space
//for t= 1 to 370      `No hay tantos objetos, pero hacemos un rastreo largo por ver si el objeto existe
t=id
	n=0
	s=0
  if GetObjectExists(t)
		mesh = CreateMemblockFromObjectMesh(t,1)
		`number of vertex
		verts= GetMemblockInt( mesh, 0 )

		`VERTICES
		writeline(1,"Mesh {")
		writeline(1, str(verts) + ";")
		 for i= 0 to verts-1
			 x#=GetMeshMemblockVertexX(mesh,i)
			 y#=GetMeshMemblockVertexy(mesh,i)
			 z#=GetMeshMemblockVertexz(mesh,i)
			
			`vertex
			 if i < verts - 1 then end$ = ";," else end$ = ";;"
			 writeline( 1, str(x#, 6) + ";" + str(y#, 6) + ";" + str(z#, 6) + end$)
		 next i
		 
		`FACES 
		writeline(1,"12;") 
		for i= 0 to 18

			inc s
			if s=3
			   writeline(1,str(3)+";"+str(n+2)+","+str(n+1)+","+str(n)+";,")
				if i<16 then b$=";," else b$=";;"
			   writeline(1,str(3)+";"+str(n+3)+","+str(n+1)+","+str(n+2)+b$)
			   n=n+1
			   s=0
			   n=n+3
			endif
		next
		n=0 `reset n
		`----------------------------------------------------------------------------
		`NORMALES
		writeline(1,"MeshNormals {")
		writeline(1, str(verts) + ";")
		 for i= 0 to verts-1
			 nx#=GetMeshMemblockVertexNormalX(mesh,i)
			 ny#=GetMeshMemblockVertexNormaly(mesh,i)
			 nz#=GetMeshMemblockVertexNormalz(mesh,i)
			
			`Normals
			 if i < verts - 1 then end$ = ";," else end$ = ";;"
			 writeline( 1, str(nx#, 6) + ";" + str(ny#, 6) + ";" + str(nz#, 6) + end$)
		 next i
		 
		writeline(1,"12;") 
		for i= 0 to 18
			
			inc s
			if s=3
			   writeline(1,str(3)+";"+str(n+2)+","+str(n+1)+","+str(n)+";,")
			   if i<16 then b$=";," else b$=";;"
			   writeline(1,str(3)+";"+str(n+3)+","+str(n+1)+","+str(n+2)+b$)
			   n=n+1
			   s=0
			   n=n+3
			endif
		next
		writeline(1,"}")


		`COORDENADAS DE TEXTURA
		writeline(1,"MeshTextureCoords {")
		writeline(1, str(verts) + ";")
		 for i= 0 to verts-1
			 U#=GetMeshMemblockVertexU(mesh,i)
			 V#=GetMeshMemblockVertexV(mesh,i)
			`UV
			 if i < verts - 1 then end$ = ";," else end$ = ";;"
			 writeline( 1, str(U#, 6) + ";" + str(V#, 6) + end$)
		 next
		 
		writeline(1,"}")

		 writeline(1," MeshMaterialList { ")
		 writeline(1,"    1;")
		 writeline(1,"    1;")
		 writeline(1,"    0;;")
		 writeline(1,"    Material Material {")
		 writeline(1,"    0.640000; 0.640000; 0.640000; 1.000000;;")
		 writeline(1,"    96.078431;")
		 writeline(1,"    0.500000; 0.500000; 0.500000;;")
		 writeline(1,"    0.000000; 0.000000; 0.000000;;")
		 //writeline(1,"    TextureFilename {" + chr(34)+ str(t)+".png" + chr(34)+ ";}")  `different texture per limb...  1.png,  2.png  3.png   etc etc.
		            `to import all meshes (limbs) in AGK , as AGK will cosider all meshes with same texture as the same mesh (limb)
		 writeline(1,"    TextureFilename {" + chr(34)+"test.png" + chr(34)+ ";}")  `saving a texture for the whole object
		 writeline(1,"       }")
		 writeline(1,"    }")
		 writeline(1,"}")
		 writeline(1,"//------------------new mesh -------------------------")

		   DeleteMemblock(t)
   endif
// next
   CloseFile ( 1 )

endfunction

function fixobjectnormals(msblk as integer)


if getobjectexists(msblk)=1
if getmemblockexists(50)=1 then deletememblock(50)
CreateMemblockFromObjectMesh(50,msblk,1)
// Start by getting the relevant info
NumVertices = GetMemblockInt( 50, 0)
NumIndices = GetMemblockInt( 50, 4)
NumTriangles = NumIndices/3 
//NumAttributes = GetMemblockInt( msblk, 8) // number if attributes ( should be 3 for a heightmap)
//VertexSize = GetMemblockInt( msblk, 12) // Bytes per vertex (should be 32)
//VertexOffset = GetMemblockInt( msblk, 16 ) // (Normally 60)
IndicesOffset = GetMemblockInt( 50, 20 )

// How to generate surface normals the proper way
//1) Normal vectors must all be zero before start!!
//2) Iterate through the triangles and get the normal on each triangle then ADD that to each of the 3 vertices normal. Other triangles will add to these values if they share indices.
//3) Loop through all the vertices and normalize the normals

// Fill all the vertex normals with 0,0,0
for ind =0 to NumVertices-1
SetMeshMemblockVertexNormal(50, ind, 0 , 0 , 0)
next ind



// loop through all the triangles
Offset = IndicesOffset
for it = 0 to NumTriangles-1

// Get the indices 
inda = GetMemblockInt(50, Offset)
indb = GetMemblockInt(50, Offset+4)
indc = GetMemblockInt(50, Offset+8)

// Get the first vector (P2-P1)
Vx# = GetMeshMemblockVertexX(50,indb) - GetMeshMemblockVertexX(50,inda)
Vy# = GetMeshMemblockVertexY(50,indb) - GetMeshMemblockVertexY(50,inda)
Vz# = GetMeshMemblockVertexZ(50,indb) - GetMeshMemblockVertexZ(50,inda)

// Get the second vector (P3-P1)
Wx# = GetMeshMemblockVertexX(50,indc) - GetMeshMemblockVertexX(50,indb)
Wy# = GetMeshMemblockVertexY(50,indc) - GetMeshMemblockVertexY(50,indb)
Wz# = GetMeshMemblockVertexZ(50,indc) - GetMeshMemblockVertexZ(50,indb)

// Cross product them to get the normal
Nx#=(Vz#*Wy#)-(Vy#*Wz#)
Ny#=(Vx#*Wz#)-(Vz#*Wx#)
Nz#=(Vy#*Wx#)-(Vx#*Wy#)

// add the calculated normal to each of the vertices in this triangle
px# = GetMeshMemblockVertexNormalX(50, inda)
py# = GetMeshMemblockVertexNormalY(50, inda)
pz# = GetMeshMemblockVertexNormalZ(50, inda)
SetMeshMemblockVertexNormal(50, inda, px# + Nx#, py# + Ny#, pz# + Nz#)

px# = GetMeshMemblockVertexNormalX(50, indb)
py# = GetMeshMemblockVertexNormalY(50, indb)
pz# = GetMeshMemblockVertexNormalZ(50, indb)
SetMeshMemblockVertexNormal(50, indb, px# + Nx#, py# + Ny#, pz# + Nz#)

px# = GetMeshMemblockVertexNormalX(50, indc)
py# = GetMeshMemblockVertexNormalY(50, indc)
pz# = GetMeshMemblockVertexNormalZ(50, indc)
SetMeshMemblockVertexNormal(50, indc, px# + Nx#, py# + Ny#, pz# + Nz#)

// Move the offset to the next triangle
Offset = Offset + 12

next it

// Normalise all the vertex normals 
for ind =0 to NumVertices-1
// Get the normal
nx# = GetMeshMemblockVertexNormalX(50, ind)
ny# = GetMeshMemblockVertexNormalY(50, ind)
nz# = GetMeshMemblockVertexNormalZ(50, ind)

// normalise the normal
len# = sqrt((nx#*nx#) + (ny#*ny#) + (nz#*nz#))
nx# = nx#/len#
ny# = ny#/len#
nz# = nz#/len#

// Set the new normal
SetMeshMemblockVertexNormal( 50, ind, nx#, ny#, nz# )
next ind
SetObjectMeshFromMemblock(msblk,1,50)
deletememblock(50)
endif 
endfunction