Sorry your browser is not supported!

// Project: ObjExporter 
// Created: 2018-12-25

// show all errors
SetErrorMode(2)

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

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

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

cube = CreateObjectCylinder(2,2,20)


AGM_SaveObject(cube,1,"Cylinder", "raw:c:\data\test.obj")


do
    
	Print("Saved")
    Print( ScreenFPS() )
    Sync()
loop

Function AGM_SaveObject(objid, meshindex, group$,  filename$)

	memblock=CreateMemblockFromObjectMesh(objID,meshindex)

	VC = GetMemblockInt(memblock,0)
	IC = GetMemblockInt(memblock,4)
	Attributes = GetMemblockInt(memblock,8)
	counter = GetMemblockInt(memblock,12)
	DataOffset = GetMemblockInt(memblock,16)
	IndexOffset = GetMemblockInt(memblock,20)
	PositionData = GetMemblockInt(memblock,24)
	PositionName$ = GetMemblockString(memblock,28,8)
	NormalData = GetMemblockInt(memblock,40)
	NormalName$ = GetMemblockString(memblock,44,8)
	CData = GetMemblockInt(memblock,52)
	CName$ = GetMemblockString(memblock,56,8)
	ColorData = GetMemblockInt(memblock,60)
	ColorName$ = GetMemblockString(memblock,64,8)
		if ColorName$="" 
			colorData=0
			ColorName$="No color Data"
		endif


	print("Vertex Count - " + str(vc))
	print("Index Count - " + str(IC))
	print("Atribute Count - " + str(Attributes))
	print("Data Counter - " + str(counter))
	print("Data Offset - " + str(DataOffset))
	print("Index Offset - " + str(IndexOffset))
	print("Position Data - " + str(PositionData))
	print("Position String " + positionName$)
	print("Normal Data - " + str(NormalData))
	print("Normal String " + NormalName$)
	print("UV Data - " + str(CData))
	print("UV String " + CName$)
	print("Color Data - " + str(ColorData))
	print("Color String " + ColorName$)


	fw = OpenToWrite(filename$)
	WriteLine(fw,"#AGM Object - " + filename$ + ".obj")
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	WriteLine(fw,"mtllib " + group$ + ".mtl")
	WriteLine(fw,"")
	WriteLine(fw,"g " + group$)
	WriteLine(fw,"#Vertices")
	
	facecount=1
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"v " + str(GetMemblockFloat(memblock,dataoffset+v)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+4)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+8))) // Vertex X,Y,Z
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Normals")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vn " + str(GetMemblockFloat(memblock,dataoffset+v+12)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+16)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+20))) // Normal x,y,z
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")

	WriteLine(fw,"#Faces")
	
	for facecount=1 to vc-3
		WriteLine(fw,"f " + str(facecount) + "//" + str(facecount) + " " + str(facecount+1) + "//" + str(facecount+1)+ " " + str(facecount+2) + "//" + str(facecount+2))

	next
	CloseFile(fw)
	DeleteMemblock(memblock)

endfunction 

// Project: ObjExporter 
// Created: 2018-12-25

// show all errors
SetErrorMode(2)

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

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

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

cube = CreateObjectCylinder(2,2,20)
SetObjectColor(cube,200,255,0,255)

AGM_SaveObject(cube,1,"Cylinder", "raw:c:\data\","test.obj","test.mtl")


do
    
	Print("Saved")
    Print( ScreenFPS() )
    Sync()
loop

Function AGM_SaveObject(objid, meshindex, group$, folder$, filename$, material$)

	memblock=CreateMemblockFromObjectMesh(objID,meshindex)

	VC = GetMemblockInt(memblock,0)
	IC = GetMemblockInt(memblock,4)
	Attributes = GetMemblockInt(memblock,8)
	counter = GetMemblockInt(memblock,12)
	DataOffset = GetMemblockInt(memblock,16)
	IndexOffset = GetMemblockInt(memblock,20)
	PositionData = GetMemblockInt(memblock,24)
	PositionName$ = GetMemblockString(memblock,28,8)
	NormalData = GetMemblockInt(memblock,40)
	NormalName$ = GetMemblockString(memblock,44,8)
	CData = GetMemblockInt(memblock,52)
	CName$ = GetMemblockString(memblock,56,8)
	ColorData = GetMemblockInt(memblock,60)
	ColorName$ = GetMemblockString(memblock,64,8)
		if ColorName$="" 
			colorData=0
			ColorName$="No color Data"
		endif


	print("Vertex Count - " + str(vc))
	print("Index Count - " + str(IC))
	print("Atribute Count - " + str(Attributes))
	print("Data Counter - " + str(counter))
	print("Data Offset - " + str(DataOffset))
	print("Index Offset - " + str(IndexOffset))
	print("Position Data - " + str(PositionData))
	print("Position String " + positionName$)
	print("Normal Data - " + str(NormalData))
	print("Normal String " + NormalName$)
	print("UV Data - " + str(CData))
	print("UV String " + CName$)
	print("Color Data - " + str(ColorData))
	print("Color String " + ColorName$)


	fw = OpenToWrite(folder$+filename$)
	WriteLine(fw,"#AGM Object - " + folder$ + filename$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	WriteLine(fw,"mtllib " + material$)
	WriteLine(fw,"")
	WriteLine(fw,"g " + group$)
	WriteLine(fw,"#Vertices")
	
	facecount=1
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"v " + str(GetMemblockFloat(memblock,dataoffset+v)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+4)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+8))) // Vertex X,Y,Z
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Normals")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vn " + str(GetMemblockFloat(memblock,dataoffset+v+12)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+16)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+20))) // Normal x,y,z
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	
	
	WriteLine(fw,"#Faces")
	WriteLine(fw,"usemtl Material")
	
	for facecount=1 to vc-3
		WriteLine(fw,"f " + str(facecount) + "//" + str(facecount) + " " + str(facecount+1) + "//" + str(facecount+1)+ " " + str(facecount+2) + "//" + str(facecount+2))

	next
	CloseFile(fw)
	
	
	
	fw = OpenToWrite(folder$ + material$)
	WriteLine(fw,"#AGM Material - " + material$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	
	red#=GetObjectColorRed(objid)
	green#=GetObjectColorGreen(objid)
	blue#=GetObjectColorBlue(objid)
	
	
	WriteLine(fw,"newmtl Material")
	WriteLine(fw,"Kd " + str(red#/255.0) + " " + str(green#/255.0) + " " + str(blue#/255.0))
	
	CloseFile(fw)
	
	DeleteMemblock(memblock)

endfunction 

	
for facecount=1 to vc
		WriteLine(fw,"f " + str(facecount+2) + "//" + str(facecount+2) + " " + str(facecount+1) + "//" + str(facecount+1)+ " " + str(facecount) + "//" + str(facecount))

next

// Project: ObjExporter 
// Created: 2018-12-25

// show all errors
SetErrorMode(2)

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

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

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

cylinder = CreateObjectCylinder(2,2,20)
SetObjectColor(cylinder,200,0,255,255)

AGM_SaveObject(cylinder,1,"Cylinder", "raw:c:\data\","cylinder.obj","cylinder.mtl", "checkers.png",1)

cone = CreateObjectCone(2,2,20)
SetObjectColor(cone,0,0,255,255)
AGM_SaveObject(cone,1,"Cone", "raw:c:\data\","cone.obj","cone.mtl", "checkers.png",1)


sphere = CreateObjectSphere(2,50,50)
SetObjectColor(sphere,0,0,255,255)
AGM_SaveObject(sphere,1,"Sphere", "raw:c:\data\","sphere.obj","sphere.mtl", "checkers.png",1)


cube = CreateObjectBox(2,2,2)
SetObjectColor(cube,0,0,255,255)
AGM_SaveObject(cube,1,"Cube", "raw:c:\data\","cube.obj","cube.mtl", "checkers.png",1)


plane = CreateObjectPlane(10,10)
SetObjectColor(plane,0,0,255,255)
AGM_SaveObject(plane,1,"plane", "raw:c:\data\","plane.obj","plane.mtl", "checkers.png",1)




do
    
	Print("Saved - look in the area where you saved them")
    Print( ScreenFPS() )
    Sync()
loop

Function AGM_SaveObject(objid, meshindex, group$, folder$, filename$, material$, texture$, debug)

	if texture$<>"" then 		SetObjectImage(objID,LoadImage(folder$+texture$),0)


	memblock=CreateMemblockFromObjectMesh(objID,meshindex)

	VC = GetMemblockInt(memblock,0)
	IC = GetMemblockInt(memblock,4)
	Attributes = GetMemblockInt(memblock,8)
	counter = GetMemblockInt(memblock,12)
	DataOffset = GetMemblockInt(memblock,16)
	IndexOffset = GetMemblockInt(memblock,20)
	PositionData = GetMemblockInt(memblock,24)
	PositionName$ = GetMemblockString(memblock,28,8)
	NormalData = GetMemblockInt(memblock,40)
	NormalName$ = GetMemblockString(memblock,44,8)
	CData = GetMemblockInt(memblock,52)
	CName$ = GetMemblockString(memblock,56,8)
	ColorData = GetMemblockInt(memblock,60)
	ColorName$ = GetMemblockString(memblock,64,8)
		if ColorName$="" 
			colorData=0
			ColorName$="No color Data"
		endif

	if debug=1
		repeat
			print("Object " + group$)
			print("Vertex Count - " + str(vc))
			print("Index Count - " + str(IC))
			print("Atribute Count - " + str(Attributes))
			print("Data Counter - " + str(counter))
			print("Data Offset - " + str(DataOffset))
			print("Index Offset - " + str(IndexOffset))
			print("Position Data - " + str(PositionData))
			print("Position String " + positionName$)
			print("Normal Data - " + str(NormalData))
			print("Normal String " + NormalName$)
			print("UV Data - " + str(CData))
			print("UV String " + CName$)
			print("Color Data - " + str(ColorData))
			print("Color String " + ColorName$)
			print("Press Space to continue")
			sync()
		until GetRawKeyPressed(32)
	endif
	
	fw = OpenToWrite(folder$+filename$)
	WriteLine(fw,"#AGM Object - " + folder$ + filename$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	WriteLine(fw,"mtllib " + material$)
	WriteLine(fw,"")
	WriteLine(fw,"g " + group$)
	WriteLine(fw,"#Vertices")
	
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"v " + str(GetMemblockFloat(memblock,dataoffset+v)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+4)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+8))) // Vertex X,Y,Z
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Normals")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vn " + str(GetMemblockFloat(memblock,dataoffset+v+12)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+16)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+20))) // Normal x,y,z
	next

	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Textures UV's")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vt " + str(GetMemblockFloat(memblock,dataoffset+v+24)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+28)))
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Faces")
	WriteLine(fw,"usemtl Material")
	
	for facecount=1 to vc-3
		WriteLine(fw,"f " + str(facecount) + "/"+str(facecount) + "/" + str(facecount) + " " + str(facecount+1) + "/"+str(facecount+1)+"/" + str(facecount+1)+ " " + str(facecount+2) + "/"+str(facecount+2)+"/" + str(facecount+2))

	next
	CloseFile(fw)
	
	
// write the MTL file	
	fw = OpenToWrite(folder$ + material$)
	WriteLine(fw,"#AGM Material - " + material$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	
	red#=GetObjectColorRed(objid)
	green#=GetObjectColorGreen(objid)
	blue#=GetObjectColorBlue(objid)
	

	WriteLine(fw,"newmtl Material")
	WriteLine(fw,"Kd " + str(red#/255.0) + " " + str(green#/255.0) + " " + str(blue#/255.0))
	
	if texture$<>"" 
		writeLine(fw,"map_Kd "+texture$)
	endif
	CloseFile(fw)
	DeleteObject(objID)
	DeleteMemblock(memblock)
endfunction 

for facecount=1 to vc-2
        WriteLine(fw,"f " + str(facecount+2) + "//" + str(facecount+2) + " " + str(facecount+1) + "//" + str(facecount+1)+ " " + str(facecount) + "//" + str(facecount))
 
next

// Project: ObjExporter 
// Created: 2018-12-25

// show all errors
SetErrorMode(2)

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

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

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


cube = CreateObjectBox(2,2,2)
SetObjectColor(cube,0,0,255,255)
AGM_SaveObject(cube,1,"Cube", "raw:c:\data\","cube.obj","cube.mtl", "checkers.png",1)

sphere = CreateObjectSphere(20,10,10)
SetObjectColor(sphere,0,0,255,255)
AGM_SaveObject(sphere,1,"Sphere", "raw:c:\data\","sphere.obj","sphere.mtl", "checkers.png",1)




cylinder = CreateObjectCylinder(2,2,20)
SetObjectColor(cylinder,200,0,255,255)

AGM_SaveObject(cylinder,1,"Cylinder", "raw:c:\data\","cylinder.obj","cylinder.mtl", "checkers.png",1)

cone = CreateObjectCone(2,2,20)
SetObjectColor(cone,0,0,255,255)
AGM_SaveObject(cone,1,"Cone", "raw:c:\data\","cone.obj","cone.mtl", "checkers.png",1)






plane = CreateObjectPlane(10,10)
SetObjectColor(plane,0,0,255,255)
AGM_SaveObject(plane,1,"plane", "raw:c:\data\","plane.obj","plane.mtl", "checkers.png",1)




do
    
	Print("Saved - look in the area where you saved them")
    Print( ScreenFPS() )
    Sync()
loop

Function AGM_SaveObject(objid, meshindex, group$, folder$, filename$, material$, texture$, debug)

	if texture$<>"" then 		SetObjectImage(objID,LoadImage(folder$+texture$),0)


	memblock=CreateMemblockFromObjectMesh(objID,meshindex)

	VC = GetMemblockInt(memblock,0)
	IC = GetMemblockInt(memblock,4)
	Attributes = GetMemblockInt(memblock,8)
	counter = GetMemblockInt(memblock,12)
	DataOffset = GetMemblockInt(memblock,16)
	IndexOffset = GetMemblockInt(memblock,20)
	PositionData = GetMemblockInt(memblock,24)
	PositionName$ = GetMemblockString(memblock,28,8)
	NormalData = GetMemblockInt(memblock,40)
	NormalName$ = GetMemblockString(memblock,44,8)
	CData = GetMemblockInt(memblock,52)
	CName$ = GetMemblockString(memblock,56,8)
	ColorData = GetMemblockInt(memblock,60)
	ColorName$ = GetMemblockString(memblock,64,8)
		if ColorName$="" 
			colorData=0
			ColorName$="No color Data"
		endif

	if debug=1
		repeat
			print("Object " + group$)
			print("Vertex Count - " + str(vc))
			print("Index Count - " + str(IC))
			print("Atribute Count - " + str(Attributes))
			print("Data Counter - " + str(counter))
			print("Data Offset - " + str(DataOffset))
			print("Index Offset - " + str(IndexOffset))
			print("Position Data - " + str(PositionData))
			print("Position String " + positionName$)
			print("Normal Data - " + str(NormalData))
			print("Normal String " + NormalName$)
			print("UV Data - " + str(CData))
			print("UV String " + CName$)
			print("Color Data - " + str(ColorData))
			print("Color String " + ColorName$)
			print("Press Space to continue")
			print(VC)
			print(IC)
			print(IC/3)
			print(IC/4)


			sync()
		until GetRawKeyPressed(32)
	endif
	
	fw = OpenToWrite(folder$+filename$)
	WriteLine(fw,"#AGM Object - " + folder$ + filename$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	WriteLine(fw,"mtllib " + material$)
	WriteLine(fw,"")
	WriteLine(fw,"g " + group$)
	WriteLine(fw,"#Vertices")
	
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"v " + str(GetMemblockFloat(memblock,dataoffset+v)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+4)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+8))) // Vertex X,Y,Z
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Normals")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vn " + str(GetMemblockFloat(memblock,dataoffset+v+12)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+16)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+20))) // Normal x,y,z
	next

	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Textures UV's")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vt " + str(GetMemblockFloat(memblock,dataoffset+v+24)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+28)))
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Faces")
	WriteLine(fw,"usemtl Material")
	
		if IC<>0  // Index Couner > 0 so this model as index data 
			for i=0 to (IC / 3)-1
				index1=GetMemblockByte(memblock,(indexoffset+(i*12)))+1
				index2=GetMemblockByte(memblock,(indexoffset+(i*12)+4))+1
				index3=GetMemblockByte(memblock,(indexoffset+(i*12)+8))+1
				WriteLine(fw,"f " + str(index1) + "/0/0 " + str(index2) + "/0/0 " + str(index3) + "/0/0")
			next
		else
			for facecount=1 to vc-3
				WriteLine(fw,"f " + str(facecount+1) + "/"+str(facecount+1)+"/" + str(facecount+1) + " " + str(facecount) + "/"+str(facecount)+"/" + str(facecount)+ " " + str(facecount+2) + "/"+str(facecount+2)+"/" + str(facecount+2))
			next
		endif
 
		
	CloseFile(fw)
	
	
// write the MTL file	
	fw = OpenToWrite(folder$ + material$)
	WriteLine(fw,"#AGM Material - " + material$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	
	red#=GetObjectColorRed(objid)
	green#=GetObjectColorGreen(objid)
	blue#=GetObjectColorBlue(objid)
	

	WriteLine(fw,"newmtl Material")
	WriteLine(fw,"Kd " + str(red#/255.0) + " " + str(green#/255.0) + " " + str(blue#/255.0))
	
	if texture$<>"" 
		writeLine(fw,"map_Kd "+texture$)
	endif
	CloseFile(fw)

	sync()
	sleep(1000)
	DeleteObject(objID)
	DeleteMemblock(memblock)
endfunction 

// Project: ObjExporter 
// Created: 2018-12-25

// show all errors
SetErrorMode(2)

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

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

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


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


for x=-10 to 10
	for y=-10 to 10 
		for z=-10 to 10
			red = abs(x*20)
			green = abs(y*20)
			blue = abs(z*20)
			AddVertex(meshid,x+-1,y,z+1,0,1,0,0,0,MakeColor(red,green,blue))
			AddVertex(meshid,x+-1,y,z+-1,0,1,0,0,0,MakeColor(red,green,blue))
			AddVertex(meshid,x+1,y,z+1,0,1,0,0,0,MakeColor(red,green,blue))
			AddVertex(meshid,x+1,y,z+1,0,1,0,0,0,MakeColor(red,green,blue))
			AddVertex(meshid,x+-1,y,z+-1,0,1,0,0,0,MakeColor(red,green,blue))
			AddVertex(meshid,x+1,y,z+-1,0,1,0,0,0,MakeColor(red,green,blue))
		next
	next
next
obj = CreateObjectFromMeshWithColor(meshid)

AGM_SaveObject(obj,1,"Multiple", "raw:c:\data\","multiple.obj","multiple.mtl", "",1)




do
    
	Print("Saved - look in the area where you saved them")
    Print( ScreenFPS() )
    Sync()
loop

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 AGM_SaveObject(objid, meshindex, group$, folder$, filename$, material$, texture$, debug)

	if texture$<>"" then 		SetObjectImage(objID,LoadImage(folder$+texture$),0)


	memblock=CreateMemblockFromObjectMesh(objID,meshindex)

	VC = GetMemblockInt(memblock,0)
	IC = GetMemblockInt(memblock,4)
	Attributes = GetMemblockInt(memblock,8)
	counter = GetMemblockInt(memblock,12)
	DataOffset = GetMemblockInt(memblock,16)
	IndexOffset = GetMemblockInt(memblock,20)
	PositionData = GetMemblockInt(memblock,24)
	PositionName$ = GetMemblockString(memblock,28,8)
	NormalData = GetMemblockInt(memblock,40)
	NormalName$ = GetMemblockString(memblock,44,8)
	CData = GetMemblockInt(memblock,52)
	CName$ = GetMemblockString(memblock,56,8)
	ColorData = GetMemblockInt(memblock,60)
	ColorName$ = GetMemblockString(memblock,64,8)
		if ColorName$="" 
			colorData=0
			ColorName$="No color Data"
		endif

	if debug=1
		repeat
			print("Object " + group$)
			print("Vertex Count - " + str(vc))
			print("Index Count - " + str(IC))
			print("Atribute Count - " + str(Attributes))
			print("Data Counter - " + str(counter))
			print("Data Offset - " + str(DataOffset))
			print("Index Offset - " + str(IndexOffset))
			print("Position Data - " + str(PositionData))
			print("Position String " + positionName$)
			print("Normal Data - " + str(NormalData))
			print("Normal String " + NormalName$)
			print("UV Data - " + str(CData))
			print("UV String " + CName$)
			print("Color Data - " + str(ColorData))
			print("Color String " + ColorName$)
			print("Press Space to continue")
			print(VC)
			print(IC)
			print(IC/3)
			print(IC/4)


			sync()
		until GetRawKeyPressed(32)
	endif
	
	fw = OpenToWrite(folder$+filename$)
	WriteLine(fw,"#AGM Object - " + folder$ + filename$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	WriteLine(fw,"mtllib " + material$)
	WriteLine(fw,"")
	WriteLine(fw,"g " + group$)
	WriteLine(fw,"#Vertices")
	
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"v " + str(GetMemblockFloat(memblock,dataoffset+v)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+4)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+8))) // Vertex X,Y,Z
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Normals")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vn " + str(GetMemblockFloat(memblock,dataoffset+v+12)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+16)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+20))) // Normal x,y,z
	next

	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Textures UV's")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vt " + str(GetMemblockFloat(memblock,dataoffset+v+24)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+28)))
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Faces")
	WriteLine(fw,"usemtl Material")

	
		if IC<>0  // Index Couner > 0 so this model as index data at the end to work out the order of faces
			for i=0 to (IC / 3)-1
				index1=GetMemblockByte(memblock,(indexoffset+(i*12)))+1
				index2=GetMemblockByte(memblock,(indexoffset+(i*12)+4))+1
				index3=GetMemblockByte(memblock,(indexoffset+(i*12)+8))+1
				WriteLine(fw,"f " + str(index1) + "/0/0 " + str(index2) + "/0/0 " + str(index3) + "/0/0")
			next
			print(i)
			sync()
			sleep(1000)
		else
			for facecount=1 to vc-3 // VC Vertex Count and no Index count - so the Vertices are straight as is.
				WriteLine(fw,"f " + str(facecount+1) + "/"+str(facecount+1)+"/" + str(facecount+1) + " " + str(facecount) + "/"+str(facecount)+"/" + str(facecount)+ " " + str(facecount+2) + "/"+str(facecount+2)+"/" + str(facecount+2))
			next
		endif
 
		
	CloseFile(fw)
	
	
// write the MTL file	
	fw = OpenToWrite(folder$ + material$)
	WriteLine(fw,"#AGM Material - " + material$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	
	red#=GetObjectColorRed(objid)
	green#=GetObjectColorGreen(objid)
	blue#=GetObjectColorBlue(objid)
	

	WriteLine(fw,"newmtl Material")
	WriteLine(fw,"Kd " + str(red#/255.0) + " " + str(green#/255.0) + " " + str(blue#/255.0))
	
	if texture$<>"" 
		writeLine(fw,"map_Kd "+texture$)
	endif
	CloseFile(fw)

	sync()
	sleep(1000)
	DeleteObject(objID)
	DeleteMemblock(memblock)
endfunction 



Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
      
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id

// Project: ObjExporter 
// Created: 2018-12-25

// show all errors
SetErrorMode(2)

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

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

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


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

size=4
y=0
	for x=-10 to 10 step size
		for z=-10 to 10 step size
			red = 255
			green = 255
			blue = 255
			AddVertex(meshid,(x+-1)*size,y,(z+ 1) * size , 0,1,0  ,0,0, MakeColor(red,green,blue))
			AddVertex(meshid,(x+-1)*size,y,(z+-1) * size , 0,1,0  ,0,1, MakeColor(red,green,blue))
			AddVertex(meshid,(x+ 1)*size,y,(z+ 1) * size , 0,1,0  ,1,0, MakeColor(red,green,blue))
			
			AddVertex(meshid,(x+ 1)*size,y,(z+ 1) * size , 0,1,0  ,1,0, MakeColor(red,green,blue))
			AddVertex(meshid,(x+-1)*size,y,(z+-1) * size , 0,1,0  ,0,1, MakeColor(red,green,blue))
			AddVertex(meshid,(x+ 1)*size,y,(z+-1) * size , 0,1,0  ,1,1, MakeColor(red,green,blue))
		next
	next
obj = CreateObjectFromMeshWithUVTexturing(meshid,LoadImage("raw:c:\data\checkers.png"))


AGM_SaveObject(obj,1,"Multiple", "raw:c:\data\","multiple.obj","multiple.mtl", "checkers.png",1)




do
    
	Print("Saved - look in the area where you saved them")
    Print( ScreenFPS() )
    Sync()
loop

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 AGM_SaveObject(objid, meshindex, group$, folder$, filename$, material$, texture$, debug)

	if texture$<>"" then 		SetObjectImage(objID,LoadImage(folder$+texture$),0)


	memblock=CreateMemblockFromObjectMesh(objID,meshindex)

	VC = GetMemblockInt(memblock,0)
	IC = GetMemblockInt(memblock,4)
	Attributes = GetMemblockInt(memblock,8)
	counter = GetMemblockInt(memblock,12)
	DataOffset = GetMemblockInt(memblock,16)
	IndexOffset = GetMemblockInt(memblock,20)
	PositionData = GetMemblockInt(memblock,24)
	PositionName$ = GetMemblockString(memblock,28,8)
	NormalData = GetMemblockInt(memblock,40)
	NormalName$ = GetMemblockString(memblock,44,8)
	CData = GetMemblockInt(memblock,52)
	CName$ = GetMemblockString(memblock,56,8)
	ColorData = GetMemblockInt(memblock,60)
	ColorName$ = GetMemblockString(memblock,64,8)
		if ColorName$="" 
			colorData=0
			ColorName$="No color Data"
		endif

	if debug=1
		repeat
			print("Object " + group$)
			print("Vertex Count - " + str(vc))
			print("Index Count - " + str(IC))
			print("Atribute Count - " + str(Attributes))
			print("Data Counter - " + str(counter))
			print("Data Offset - " + str(DataOffset))
			print("Index Offset - " + str(IndexOffset))
			print("Position Data - " + str(PositionData))
			print("Position String " + positionName$)
			print("Normal Data - " + str(NormalData))
			print("Normal String " + NormalName$)
			print("UV Data - " + str(CData))
			print("UV String " + CName$)
			print("Color Data - " + str(ColorData))
			print("Color String " + ColorName$)
			print("Press Space to continue")
			print(VC)
			print(IC)
			print(IC/3)
			print(IC/4)


			sync()
		until GetRawKeyPressed(32)
	endif
	
	fw = OpenToWrite(folder$+filename$)
	WriteLine(fw,"#AGM Object - " + folder$ + filename$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	WriteLine(fw,"mtllib " + material$)
	WriteLine(fw,"")
	WriteLine(fw,"g " + group$)
	WriteLine(fw,"#Vertices")
	
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"v " + str(GetMemblockFloat(memblock,dataoffset+v)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+4)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+8))) // Vertex X,Y,Z
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Normals")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vn " + str(GetMemblockFloat(memblock,dataoffset+v+12)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+16)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+20))) // Normal x,y,z
	next

	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Textures UV's")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vt " + str(GetMemblockFloat(memblock,dataoffset+v+24)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+28)))
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Faces")
	WriteLine(fw,"usemtl Material")

	
		if IC<>0  // Index Couner > 0 so this model as index data at the end to work out the order of faces
			for i=0 to (IC / 3)-1
				index1=GetMemblockByte(memblock,(indexoffset+(i*12)))+1
				index2=GetMemblockByte(memblock,(indexoffset+(i*12)+4))+1
				index3=GetMemblockByte(memblock,(indexoffset+(i*12)+8))+1
//				WriteLine(fw,"f " + str(index1) + "/0/0 " + str(index2) + "/0/0 " + str(index3) + "/0/0")
				WriteLine(fw,"f " + str(index1) + "/" + str(facecount+1) + "/" + str(facecount+1) +" " + str(index2) + "/" + str(facecount) + "/" + str(facecount) + " " + str(index3) + "/" + str(facecount+2) +"/" + str(facecount+2))
			next
			print(i)
			sync()
			sleep(1000)
		else
			for facecount=1 to vc-2 step 3// VC Vertex Count and no Index count - so the Vertices are straight as is.
				WriteLine(fw,"f " + str(facecount) + "/"+str(facecount)+"/" + str(facecount) + " " + str(facecount+1) + "/"+str(facecount+1)+"/" + str(facecount+1)+ " " + str(facecount+2) + "/"+str(facecount+2)+"/" + str(facecount+2))
			next
		endif
 
		
	CloseFile(fw)
	
	
// write the MTL file	
	fw = OpenToWrite(folder$ + material$)
	WriteLine(fw,"#AGM Material - " + material$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	
	red#=GetObjectColorRed(objid)
	green#=GetObjectColorGreen(objid)
	blue#=GetObjectColorBlue(objid)
	

	WriteLine(fw,"newmtl Material")
	WriteLine(fw,"Kd " + str(red#/255.0) + " " + str(green#/255.0) + " " + str(blue#/255.0))
	
	if texture$<>"" 
		writeLine(fw,"map_Kd "+texture$)
	endif
	CloseFile(fw)

	sync()
	sleep(1000)
	DeleteObject(objID)
	DeleteMemblock(memblock)
endfunction 



Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
      
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    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)
    next
       
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
     
        meshmemory = memblock
endfunction id

// Project: ObjExporter 
// Created: 2018-12-25

// show all errors
SetErrorMode(2)

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

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

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


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

size=4
y=0
red=255:green=255:blue=255
a=0
oldy=0
for z#=0 to 1000
	r=random2(-2,2)
	inc y,r
		
		for x#=-size to size
			AddVertex(meshid,(x#+-1)*size,y,(z#+ 1) * size , 0,1,0  ,0,0, MakeColor(red,green,blue))
			AddVertex(meshid,(x#+-1)*size,oldy,(z#+-1) * size , 0,1,0  ,0,1, MakeColor(red,green,blue))
			AddVertex(meshid,(x#+ 1)*size,y,(z#+ 1) * size , 0,1,0  ,1,0, MakeColor(red,green,blue))
			
			AddVertex(meshid,(x#+ 1)*size,y,(z#+ 1) * size , 0,1,0  ,1,0, MakeColor(red,green,blue))
			AddVertex(meshid,(x#+-1)*size,oldy,(z#+-1) * size , 0,1,0  ,0,1, MakeColor(red,green,blue))
			AddVertex(meshid,(x#+ 1)*size,oldy,(z#+-1) * size , 0,1,0  ,1,1, MakeColor(red,green,blue))
	next
	oldy = y - r
next
obj = CreateObjectFromMeshWithUVTexturing(meshid,LoadImage("raw:c:\data\checkers.png"))


AGM_SaveObject(obj,1,"Multiple", "raw:c:\data\","multiple.obj","multiple.mtl", "checkers.png",1)




do
    
	Print("Saved - look in the area where you saved them")
    Print( ScreenFPS() )
    Sync()
loop

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 AGM_SaveObject(objid, meshindex, group$, folder$, filename$, material$, texture$, debug)

	if texture$<>"" then 		SetObjectImage(objID,LoadImage(folder$+texture$),0)


	memblock=CreateMemblockFromObjectMesh(objID,meshindex)

	VC = GetMemblockInt(memblock,0)
	IC = GetMemblockInt(memblock,4)
	Attributes = GetMemblockInt(memblock,8)
	counter = GetMemblockInt(memblock,12)
	DataOffset = GetMemblockInt(memblock,16)
	IndexOffset = GetMemblockInt(memblock,20)
	PositionData = GetMemblockInt(memblock,24)
	PositionName$ = GetMemblockString(memblock,28,8)
	NormalData = GetMemblockInt(memblock,40)
	NormalName$ = GetMemblockString(memblock,44,8)
	CData = GetMemblockInt(memblock,52)
	CName$ = GetMemblockString(memblock,56,8)
	ColorData = GetMemblockInt(memblock,60)
	ColorName$ = GetMemblockString(memblock,64,8)
		if ColorName$="" 
			colorData=0
			ColorName$="No color Data"
		endif

	if debug=1
		repeat
			print("Object " + group$)
			print("Vertex Count - " + str(vc))
			print("Index Count - " + str(IC))
			print("Atribute Count - " + str(Attributes))
			print("Data Counter - " + str(counter))
			print("Data Offset - " + str(DataOffset))
			print("Index Offset - " + str(IndexOffset))
			print("Position Data - " + str(PositionData))
			print("Position String " + positionName$)
			print("Normal Data - " + str(NormalData))
			print("Normal String " + NormalName$)
			print("UV Data - " + str(CData))
			print("UV String " + CName$)
			print("Color Data - " + str(ColorData))
			print("Color String " + ColorName$)
			print("Press Space to continue")
			print(VC)
			print(IC)
			print(IC/3)
			print(IC/4)


			sync()
		until GetRawKeyPressed(32)
	endif
	
	fw = OpenToWrite(folder$+filename$)
	WriteLine(fw,"#AGM Object - " + folder$ + filename$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	WriteLine(fw,"mtllib " + material$)
	WriteLine(fw,"")
	WriteLine(fw,"g " + group$)
	WriteLine(fw,"#Vertices")
	
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"v " + str(GetMemblockFloat(memblock,dataoffset+v)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+4)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+8))) // Vertex X,Y,Z
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Normals")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vn " + str(GetMemblockFloat(memblock,dataoffset+v+12)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+16)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+20))) // Normal x,y,z
	next

	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Textures UV's")
	for v=0 to vc * counter-1 step counter
		WriteLine(fw,"vt " + str(GetMemblockFloat(memblock,dataoffset+v+24)) + " " + str(GetMemblockFloat(memblock,dataoffset+v+28)))
	next
	
	WriteLine(fw,"")
	WriteLine(fw,"")
	WriteLine(fw,"#Faces")
	WriteLine(fw,"usemtl Material")

	
		if IC<>0  // Index Couner > 0 so this model as index data at the end to work out the order of faces
			for i=0 to (IC / 3)-1
				index1=GetMemblockByte(memblock,(indexoffset+(i*12)))+1
				index2=GetMemblockByte(memblock,(indexoffset+(i*12)+4))+1
				index3=GetMemblockByte(memblock,(indexoffset+(i*12)+8))+1
//				WriteLine(fw,"f " + str(index1) + "/0/0 " + str(index2) + "/0/0 " + str(index3) + "/0/0")
				WriteLine(fw,"f " + str(index1) + "/" + str(facecount+1) + "/" + str(facecount+1) +" " + str(index2) + "/" + str(facecount) + "/" + str(facecount) + " " + str(index3) + "/" + str(facecount+2) +"/" + str(facecount+2))
			next
			print(i)
			sync()
			sleep(1000)
		else
			for facecount=1 to vc-2 step 3// VC Vertex Count and no Index count - so the Vertices are straight as is.
				WriteLine(fw,"f " + str(facecount) + "/"+str(facecount)+"/" + str(facecount) + " " + str(facecount+1) + "/"+str(facecount+1)+"/" + str(facecount+1)+ " " + str(facecount+2) + "/"+str(facecount+2)+"/" + str(facecount+2))
			next
		endif
 
		
	CloseFile(fw)
	
	
// write the MTL file	
	fw = OpenToWrite(folder$ + material$)
	WriteLine(fw,"#AGM Material - " + material$)
	WriteLine(fw,"#Exported with AppGameKit")
	WriteLine(fw,"")
	
	red#=GetObjectColorRed(objid)
	green#=GetObjectColorGreen(objid)
	blue#=GetObjectColorBlue(objid)
	

	WriteLine(fw,"newmtl Material")
	WriteLine(fw,"Kd " + str(red#/255.0) + " " + str(green#/255.0) + " " + str(blue#/255.0))
	
	if texture$<>"" 
		writeLine(fw,"map_Kd "+texture$)
	endif
	CloseFile(fw)

	sync()
	sleep(1000)
	DeleteObject(objID)
	DeleteMemblock(memblock)
endfunction 



Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
      
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    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)
    next
       
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
     
        meshmemory = memblock
endfunction id

function createmap()
	
	// 0 = empty world
	// 1 = starting grid
	// 2 = dirt track - flat surface like a thin box
	// 3 = off road track - height level+0 perhaps like a wooden look and feel cylinder
	// 4 = off road track - height level+1 perhaps like a wooden look and feel cylinder
	// 5 = off road track - height level+2 perhaps like a wooden look and feel cylinder
	// 6 = off road track - height level+3 perhaps like a wooden look and feel cylinder
	// 7 = off road track - height level+4 perhaps like a wooden look and feel cylinder
	// 8 = checkpoint - overhead banner
	// 9 = barrier - side road barrer and collisioner
	// A = light curve left
	// B = light curve right
	// C =  sharpe curve left
	// D = sharp curve right
	// E = 
	map$ as string[20]

	map$[0] ="00009999999999000"
	map$[1] ="0009B34576543B900"
	map$[2] ="00919999999999190"
	map$[3] ="09190000000009190"
	map$[4] ="9B900000000009190"
	map$[5] ="92900000000009190"
	map$[6] ="98900000000009190"
	map$[7] ="91900000000009190"
	map$[8] ="91900000000009190"
	map$[9] ="9B900000000009B90"
	map$[10]="09190000000009190"
	map$[11]="009B345676543B900"
	map$[11]="00099999999999000"
	
	
endfunction

// Project: 3d editor test 
// Created: 2019-01-09

// show all errors
SetErrorMode(2)

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

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

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Type Vertex
      
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype

type _2DVector
	x#
	y#
endtype
	
global MeshID as Mesh
global VectorPoints as _2DVector[]


buildAGKCubeIntoMesh(0,0,0,4,4,4,MakeColor(255,0,0))

buildAGKCubeIntoMesh(-10,0,0,4,4,4,MakeColor(255,0,0))

buildAGKCubeIntoMesh(10,0,0,4,4,4,MakeColor(255,0,0))

obj = CreateObjectFromMeshWithColor(meshid)



do
    
    for v = 0 to VectorPoints.length
		
		DrawEllipse(VectorPoints[v].x#,VectorPoints[v].y#,3,3,MakeColor(255,255,0),MakeColor(255,255,0),1)
	next
	
    
    
	Render2DBack()
    Print( ScreenFPS() )
    Sync()
loop

function buildAGKCubeIntoMesh(x#,y#,z#,sx#,sy#,sz#,c)
vector as _2DVector

cube = CreateObjectBox(sx#,sy#,sz#)

mesh = CreateMemblockFromObjectMesh(cube,1)
verts=GetMemblockInt(mesh,0)
for v=0 to verts-1 step 4
	
	vx1# = GetMeshMemblockVertexX(mesh,v) + x# 
	vy1# = GetMeshMemblockVertexY(mesh,v) + y# 
	vz1# = GetMeshMemblockVertexZ(mesh,v) + z# 

	px#=GetScreenXFrom3D(vx1#,vy1#,vz1#)
	py#=GetScreenYFrom3D(vx1#,vy1#,vz1#)
	vector.x# = px#
	vector.y# = py#
	
	vectorpoints.insert(vector)

	
	vnx1# = GetMeshMemblockVertexNormalX(mesh,v) 
	vny1# = GetMeshMemblockVertexNormalY(mesh,v) 
	vnz1# = GetMeshMemblockVertexNormalZ(mesh,v) 	
	
	vx2# = GetMeshMemblockVertexX(mesh,v+1) + x#  
	vy2# = GetMeshMemblockVertexY(mesh,v+1) + y# 
	vz2# = GetMeshMemblockVertexZ(mesh,v+1) + z# 

	px#=GetScreenXFrom3D(vx2#,vy2#,vz2#)
	py#=GetScreenYFrom3D(vx2#,vy2#,vz2#)
	vector.x# = px#
	vector.y# = py#
	
	vectorpoints.insert(vector)

	vnx2# = GetMeshMemblockVertexNormalX(mesh,v+1) 
	vny2# = GetMeshMemblockVertexNormalY(mesh,v+1) 
	vnz2# = GetMeshMemblockVertexNormalZ(mesh,v+1) 	
	
	vx3# = GetMeshMemblockVertexX(mesh,v+2) + x# 
	vy3# = GetMeshMemblockVertexY(mesh,v+2) + y# 
	vz3# = GetMeshMemblockVertexZ(mesh,v+2) + z# 
	px#=GetScreenXFrom3D(vx3#,vy3#,vz3#)
	py#=GetScreenYFrom3D(vx3#,vy3#,vz3#)
	vector.x# = px#
	vector.y# = py#
	
	vectorpoints.insert(vector)
	
	vnx3# = GetMeshMemblockVertexNormalX(mesh,v+2) 
	vny3# = GetMeshMemblockVertexNormalY(mesh,v+2) 
	vnz3# = GetMeshMemblockVertexNormalZ(mesh,v+2) 	

	vx4# = GetMeshMemblockVertexX(mesh,v+3) + x# 
	vy4# = GetMeshMemblockVertexY(mesh,v+3) + y# 
	vz4# = GetMeshMemblockVertexZ(mesh,v+3) + z# 
	px#=GetScreenXFrom3D(vx4#,vy4#,vz4#)
	py#=GetScreenYFrom3D(vx4#,vy4#,vz4#)
	vector.x# = px#
	vector.y# = py#
	
	vectorpoints.insert(vector)
	
	vnx4# = GetMeshMemblockVertexNormalX(mesh,v+3) 
	vny4# = GetMeshMemblockVertexNormalY(mesh,v+3) 
	vnz4# = GetMeshMemblockVertexNormalZ(mesh,v+3) 	

	AddVertex(meshid,vx1#,vy1#,vz1#,vnx1#,vny1#,vnz1#,0,0,c)
	AddVertex(meshid,vx2#,vy2#,vz2#,vnx2#,vny2#,vnz2#,0,0,c)
	AddVertex(meshid,vx3#,vy3#,vz3#,vnx3#,vny3#,vnz3#,0,0,c)


	AddVertex(meshid,vx3#,vy3#,vz3#,vnx3#,vny3#,vnz3#,0,0,c)
	AddVertex(meshid,vx2#,vy2#,vz2#,vnx2#,vny2#,vnz2#,0,0,c)
	AddVertex(meshid,vx4#,vy4#,vz4#,vnx4#,vny4#,vnz4#,0,0,c)	

	
	
next



deleteobject (cube)
endfunction



Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
  
endfunction
  
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
  
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
      
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id