Sorry your browser is not supported!

// Project: test 
// Created: 2019-01-08

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "test" )
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
Create3DPhysicsWorld()
set3DPhysicsGravity(0,-3,0)
for n=1 to 1100
	objid=createobjectsphere(20,32,32)
	Create3DPhysicsStaticBody(objid)
SetObjectShapesphere(objid)
setobjectposition(objid,random(-100,100),random(-100,100),random(-100,100))
next n

do
    
Step3DPhysicsWorld()
    Print( ScreenFPS() )
    Sync()
loop

for n=1 to 1100
    objid=createobjectsphere(20,32,32)
    Create3DPhysicsStaticBody(objid)
SetObjectShapesphere(objid)
setobjectposition(objid,random(-100,100),random(-100,100),random(-100,100))
next n

for n=1 to 1100
    objid=createobjectsphere(20,32,32)
    setobjectposition(objid,random(-100,100),random(-100,100),random(-100,100))
    Create3DPhysicsStaticBody(objid)
   SetObjectShapesphere(objid)
next n

SetImageWrapU( im , 1 )
SetImageWrapV( im , 1 )

SetObjectUVScale(obj,0,1*sx#,1*sz#)

SetObjectUVScale(obj, 0, 1.0/sx#, 1.0/sz#)

// Project: test 
// Created: 2019-01-08

// show all errors
SetErrorMode(2)

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

si = LoadImage("map.png")
SetImageWrapU( si , 1 )
SetImageWrapV( si , 1 )

so = LoadObject("cube.obj")
SetObjectImage(so, si, 0)
SetObjectScale(so, 4, 4, 4)
SetObjectUVScale(so,0,4,4)
do
	
    Print( str(ScreenFPS()))
    Sync()
loop

		SetObjectMeshImage(obj,2,im,0)
		mem=CreateMemblockFromObjectMesh(obj,1)
		SetMeshMemblockVertexUV(mem,3,1,1)
		SetMeshMemblockVertexUV(mem,4,1,1)
		SetMeshMemblockVertexUV(mem,5,1,1)
		setObjectMeshFromMemblock(obj,1,mem)

# Wavefront OBJ file
# num_vertices: 8
# num_vertex_normals: 8
# num_uvs: 36
# num_faces: 12
# num_groups: 1

mtllib box.mtl

v 5.000000 5.000000 5.000000
v 5.000000 5.000000 -5.000000
v 5.000000 -5.000000 -5.000000
v 5.000000 -5.000000 5.000000
v -5.000000 5.000000 -5.000000
v -5.000000 -5.000000 -5.000000
v -5.000000 5.000000 5.000000
v -5.000000 -5.000000 5.000000
# num_vertices: 8

vn 0.577350 0.577350 0.577350
vn 0.577350 0.577350 -0.577350
vn 0.577350 -0.577350 -0.577350
vn 0.577350 -0.577350 0.577350
vn -0.577350 0.577350 -0.577350
vn -0.577350 -0.577350 -0.577350
vn -0.577350 0.577350 0.577350
vn -0.577350 -0.577350 0.577350
# num_vertex_normals: 8

vt 0.337134 0.831433
vt 0.662866 0.505700
vt 0.662866 0.831433
vt 0.337134 0.505700
vt 0.662866 0.505700
vt 0.337134 0.831433
vt 0.674267 0.168567
vt 1.000000 0.494300
vt 0.674267 0.494300
vt 1.000000 0.168567
vt 1.000000 0.494300
vt 0.674267 0.168567
vt 0.674267 0.505700
vt 1.000000 0.831433
vt 0.674267 0.831433
vt 1.000000 0.505700
vt 1.000000 0.831433
vt 0.674267 0.505700
vt 0.337134 0.168567
vt 0.662866 0.168567
vt 0.662866 0.494300
vt 0.337134 0.494300
vt 0.337134 0.168567
vt 0.662866 0.494300
vt 0.325733 0.505700
vt -0.000000 0.831433
vt -0.000000 0.505700
vt 0.325733 0.505700
vt 0.325733 0.831433
vt -0.000000 0.831433
vt 0.325733 0.494300
vt -0.000000 0.494300
vt -0.000000 0.168567
vt 0.325733 0.494300
vt -0.000000 0.168567
vt 0.325733 0.168567
# num_uvs: 36

g Default

usemtl Cube
f 2/1/2 6/2/6 5/3/5 
f 3/4/3 6/5/6 2/6/2 
f 6/7/6 4/8/4 8/9/8 
f 3/10/3 4/11/4 6/12/6 
f 6/13/6 7/14/7 5/15/5 
f 8/16/8 7/17/7 6/18/6 
f 7/19/7 1/20/1 2/21/2 
f 5/22/5 7/23/7 2/24/2 
f 4/25/4 7/26/7 8/27/8 
f 4/28/4 1/29/1 7/30/7 
f 2/31/2 1/32/1 4/33/4 
f 2/34/2 4/35/4 3/36/3 
# num_faces: 12

// Project: multitexturedcube 
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

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

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

// meshmemblock types
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

// meshmemblock types


AddCubeToMesh(1,1,1)


cube = CreateObjectFromMeshWithUVTexturing(meshid,LoadImage("\media\texture.png"))

SetObjectScale(cube,3,3,3)

do
    if GetRawMouseLeftState()
		RotateObjectLocalX(cube,.05)
		RotateObjectLocalY(cube,.05)
		RotateObjectLocalZ(cube,.05)
	endif
    Print( ScreenFPS() )
    Sync()
loop


function addCubeToMesh(sizex,sizey,sizez)
	c=MakeColor(255,255,255)
	
	// TOP face - top left corner texture
	//                               U Vs here
	AddVertex(meshid, 0,0,0 , 0,1,0, 0,0, c)
	AddVertex(meshid, 0,0,-1, 0,1,0, 0,0.5, c)
	AddVertex(meshid, 1,0,0 , 0,1,0, 0.5,0, c)

	AddVertex(meshid, 1,0,0 , 0,1,0, 0.5,0, c)
	AddVertex(meshid, 0,0,-1, 0,1,0, 0,0.5, c)
	AddVertex(meshid, 1,0,-1 , 0,1,0, 0.5,0.5, c)


	// BOTTOM face - top right corner texture
	AddVertex(meshid, 0,-1,0 , 0,1,0, 0.5,0  , c)
	AddVertex(meshid, 1,-1,0 , 0,1,0, 1,0, c)
	AddVertex(meshid, 0,-1,-1, 0,1,0, 0.5,0.5, c)

	AddVertex(meshid, 1,-1,0 , 0,1,0, 1,0, c)
	AddVertex(meshid, 1,-1,-1 ,0,1,0, 1,0.5, c)
	AddVertex(meshid, 0,-1,-1, 0,1,0, 0.5,0.5, c)

	// Left Side - bottom left corner texture
	AddVertex(meshid, 0,0,0 , 0,1,0, 0,0.5, c)
	AddVertex(meshid, 1,0,0 , 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, 0,-1,0, 0,1,0, 0,1, c)

	AddVertex(meshid, 1,0,0 , 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, 1,-1,0 , 0,1,0, 0.5,1, c)
	AddVertex(meshid, 0,-1,0, 0,1,0, 0,1, c)

	// Right Side - bottom left corner texture
	AddVertex(meshid, 0,0,-1 , 0,1,0, 0,0.5, c)
	AddVertex(meshid, 0,-1,-1, 0,1,0, 0,1, c)
	AddVertex(meshid, 1,0,-1 , 0,1,0, 0.5,0.5, c)

	AddVertex(meshid, 1,0,-1 , 0,1,0, 0.5,0.5, c)
	AddVertex(meshid, 0,-1,-1, 0,1,0, 0,1, c)
	AddVertex(meshid, 1,-1,-1 , 0,1,0, 0.5,1, c)


	// Front Side - bottom left corner texture
	AddVertex(meshid, 0,0,0  , 0,1,0   , 0    , 0.5, c)
	AddVertex(meshid, 0,-1,0 , 0,1,0   , 0    , 1  , c)
	AddVertex(meshid, 0,-1,-1, 0,1,0   , 0.5  , 1  , c)

	AddVertex(meshid, 0,-1,-1 , 0,1,0  , 0.5  , 1, c)
	AddVertex(meshid, 0,0,-1  , 0,1,0  , 0.5  , .5  , c)
	AddVertex(meshid, 0,0,0   , 0,1,0  , 0    , .5  , c)



	// Back Side - bottom left corner texture
	AddVertex(meshid, 1,0,0  , 0,1,0   , 0    , 0.5, c)
	AddVertex(meshid, 1,-1,-1, 0,1,0   , 0.5  , 1  , c)
	AddVertex(meshid, 1,-1,0 , 0,1,0   , 0    , 1  , c)

	AddVertex(meshid, 1,-1,-1 , 0,1,0  , 0.5  , 1, c)
	AddVertex(meshid, 1,0,0   , 0,1,0  , 0    , .5  , c)
	AddVertex(meshid, 1,0,-1  , 0,1,0  , 0.5  , .5  , c)






	
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 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

// Project: multitexturedcube 
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

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

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

// meshmemblock types
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

// meshmemblock types

img=LoadImage("\media\texture.png")


SetImageWrapU(img,1)
SetImageWrapV(img,0)

AddCubeToMesh(0,0,0,1,1,1)


cube = CreateObjectFromMeshWithUVTexturing(meshid,img)

SetObjectScale(cube,10,5,5)
SetObjectUVScale(cube,0,1,1)

do
    if GetRawMouseLeftState()
	//	RotateObjectLocalX(cube,.1)
		RotateObjectLocalY(cube,.1)
	//	RotateObjectLocalZ(cube,.1)
	endif
    Print( ScreenFPS() )
    Sync()
loop


function addCubeToMesh(x#,y#,z#,sizex#,sizey#,sizez#)
	c=MakeColor(255,255,255)
	
	// TOP face - top left corner texture
	//                               U Vs here
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0,0, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0, c)

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


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

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


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


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



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

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



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

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



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


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







	
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 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

// Project: multitexturedcube 
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

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

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

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

global angx#,angy#,startx#,starty#,cube

// meshmemblock types
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
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
endtype
  
global MeshID as Mesh

type _meshcubedata
	vertexstart

endtype
global meshcubedata as _meshcubedata[]
mcd as _meshcubedata

// meshmemblock types

img=LoadImage("\media\texture.png")


SetImageWrapU(img,1)
SetImageWrapV(img,1)
SetImageMagFilter(img,0)
SetImageMinFilter(img,0)

AddCubeToMesh(0,0,0,1,1,1)


CreateObjectFromMeshWithUVTexturing(meshid,1,img)

scale=10

SetObjectScale(cube,scale,1,1)

SetObjectUVScale(cube,0,scale,1)


startx#=screenwidth/2
starty#=screenheight/2
camerax#=0
cameray#=5
cameraz#=-10
SetRawMousePosition(startx#,starty#)

do
	
	
	movecamera()
	
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
    Print( ScreenFPS() )
    Sync()
loop


function movecamera()
	fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
	
endfunction
function addCubeToMesh(x#,y#,z#,sizex#,sizey#,sizez#)
	c=MakeColor(255,255,255)
	
	// TOP face - top left corner texture
	//                               U Vs here
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0,0, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0, c)

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


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

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


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


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



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

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



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

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



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


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







	
endfunction

function emptymesh()
	meshid.VertexList.length=-1
endfunction

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

// Project: multitexturedcube 
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

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

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

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

global angx#,angy#,startx#,starty#,cube

// meshmemblock types
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
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
endtype
  
global MeshID as Mesh

type _meshcubedata
	vertexstart

endtype
global meshcubedata as _meshcubedata[]
mcd as _meshcubedata

// meshmemblock types

img=LoadImage("\media\texture.png")


SetImageWrapU(img,1)
SetImageWrapV(img,0)
SetImageMagFilter(img,0)
SetImageMinFilter(img,0)

scale=5


AddCubeToMesh(0,0,0,1,1,1,scale)


CreateObjectFromMeshWithUVTexturing(meshid,1,img)


SetObjectScale(cube,scale,1,1)

SetObjectUVScale(cube,0,scale,1)


startx#=screenwidth/2
starty#=screenheight/2
camerax#=0
cameray#=5
cameraz#=-10
SetRawMousePosition(startx#,starty#)

do
	
	RotateObjectLocalY(cube,.05)
	movecamera()
	
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
    Print( ScreenFPS() )
    Sync()
loop


function movecamera()
	fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
	
endfunction
function addCubeToMesh(x#,y#,z#,sizex#,sizey#,sizez#,scale#)
	c=MakeColor(255,255,255)
	
	// TOP face - top left corner texture
	//                               U Vs here
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0,0, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0,0.5, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 0.5,0, c)

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


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

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


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


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



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

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



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

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



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


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







	
endfunction

function emptymesh()
	meshid.VertexList.length=-1
endfunction

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

// Project: multi 
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

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

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

swap()
DrawBox(0,0,32,32,MakeColor(255,0,0),MakeColor(255,0,0),MakeColor(255,0,0),MakeColor(255,0,0),1)
render()
img1 = GetImage(0,0,32,32)

swap()
DrawBox(0,0,32,32,MakeColor(255,255,0),MakeColor(255,255,0),MakeColor(255,255,0),MakeColor(255,255,0),1)
render()
img2 = GetImage(0,0,32,32)


cube1 = CreateObjectPlane(1,1)
SetObjectPosition(cube1,0,0,0)
SetObjectColor(cube1,255,0,0,255)

cube2 = CreateObjectPlane(1,1)
SetObjectPosition(cube2,2,0,0)
SetObjectColor(cube2,255,255,0,255)
mesh = CreateMemblockFromObjectMesh(cube2,1)
AddObjectMeshFromMemblock(cube1,mesh)


cube3 = CreateObjectPlane(1,1)
SetObjectPosition(cube3,3,0,0)
SetObjectColor(cube3,255,255,255,255)
mesh = CreateMemblockFromObjectMesh(cube3,1)
AddObjectMeshFromMemblock(cube1,mesh)


cube4 = CreateObjectPlane(1,1)
SetObjectPosition(cube4,4,0,0)
SetObjectColor(cube4,255,0,255,255)
mesh = CreateMemblockFromObjectMesh(cube4,1)
AddObjectMeshFromMemblock(cube1,mesh)










do
    
	print("Number of Meshes in 1 object" + str(GetObjectNumMeshes(cube1)))
    Print( ScreenFPS() )
    Sync()
loop

function control()
if getrawkeyreleased(KEY_SPACE)
		obj=cloneobject(asset[assetpointer].AssetID)
		SetObjectScalePermanent(obj,sx#,sy#,sz#)
		setobjectposition(obj,cx#,cy#,cz#)
		SetObjectTransparency(obj,transparent)
		setobjectimage(obj,im,0)		
		SetObjectRotation(obj,rotx,roty,rotz)
		setobjectcolor(obj,red,green,blue,255)
		Project_texture(obj,1)
//................blahblah
endif
endfunction
function Project_texture(objid,n)
     SetObjectUVOffset(objid,0,0.5,0.5)
     mesh = CreateMemblockFromObjectMesh(objid,n)
     verts= GetMemblockInt( mesh, 0 )
     for i= 0 to verts-1
         u#=GetMeshMemblockVertexX(mesh,i)/35      `values to play with
         v#=GetMeshMemblockVertexz(mesh,i)/30
         SetMeshMemblockVertexuv(mesh,i,u#,-v#)
     next i
     DeleteMemblock(1)
     SetObjectMeshFromMemblock(objid,n,mesh)
endfunction

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

function buildAGKCubeIntoMesh(x#,y#,z#,c)


cube = CreateObjectBox(1,1,1)
SetObjectPosition(cube,x#,y#,z#)


mesh=1 
CreateMemblockFromObjectMesh(mesh,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#
      
    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#
  
    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#
      
    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#
      
    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)
DeleteMemblock(mesh)
endfunction


function emptymesh()
    MeshID.VertexList.Length=-1
    MeshID.TriangleList.Length=-1
      
       
endfunction
    
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
    
endfunction


Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
  
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
      
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
  
  
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
      
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
  
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id