limit to 3d objects+physics?? - GameCreators Forum

Author

Message

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 01:11 Edited at: 13th Jan 2019 01:11

Link

Ah sorry man,didnt mean to offend,i will surely give your way a try, and compare with whatever i can conjure up from the other,every help is appreciated fully!

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 01:15

Link

No offense taken - others must beleive in my programmming skills to help you thats all. dammm

Back to top

Profile

puzzler2018

User Banned

Posted: 13th Jan 2019 01:16

Link

Have you tried my last code and texture

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 01:17

Link

well,thank you for your help so far! you defo know more than me!

Hail to the king, baby!

Back to top

Profile PM Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 01:19

Link

not,i actually missed the post..lol..so much entry! let me give it a whirl.... I only saw the screenshot attachment

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 01:21 Edited at: 13th Jan 2019 01:22

Link

Yeah sorry it was - here it is

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

scale=1000

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

CreateObjectFromMeshWithUVTexturing(meshid,1,img)

SetObjectScale(cube,scale,1,scale)

SetObjectUVScale(cube,0,scale,scale)

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
	//                                                                                       Normals, U Vs      , Color
	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	,1	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 1  ,0		, c)

AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 1 ,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,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, 1 ,1	, 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 /sizex#   , 0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0   , 0 /sizex#   , 1  , c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0   , .5 /sizex# , 1  , c)

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

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

AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5 / sizex#  , 1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)		   	, 0,1,0  , 0 / sizex#   , .5  , c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0  , .5 /sizex# , .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

+ Code Snippet



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

scale=1000


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


CreateObjectFromMeshWithUVTexturing(meshid,1,img)


SetObjectScale(cube,scale,1,scale)

SetObjectUVScale(cube,0,scale,scale)


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
	//                                                                                       Normals, U Vs      , Color
	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	,1	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 1  ,0		, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, 1 ,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,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, 1 ,1	, 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 /sizex#   , 0.5, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2) 			, 0,1,0   , 0 /sizex#   , 1  , c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez#	, 0,1,0   , .5 /sizex# , 1  , c)

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



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


	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5 / sizex#  , 1, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)		   	, 0,1,0  , 0 / sizex#   , .5  , c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0  , .5 /sizex# , .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

Its UV wrapped

Attachments

Login to view attachments

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 01:22

Link

I see why you thought now..hehhe..sorry!!

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 01:24

Link

Dont understand why your sorry.

No need to be

Back to top

Profile

puzzler2018

User Banned

Posted: 13th Jan 2019 01:25 Edited at: 13th Jan 2019 01:26

Link

ts never ending Minecraft.. Yipeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee with a bit of chunk greediness

LOL

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 01:26 Edited at: 13th Jan 2019 01:31

Link

okay,tried it, brilliant! thankyou so much! i thought i was moving then but i think the texture scrolls! awesome man

wait no,the cam just rotates,still though..looking good

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 01:30

Link

No worries, If any other quirks you may have with meshes then shoot the query here. and we will work together to resolve.

Remember - its a mesh so collisions will be dfficult

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 01:34

Link

ah i see,so would it be wise to just drop the physics and use ray casting? I already have functions for that

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 01:39

Link

Yes - I would remember each cube minx, miny, minz, maxx,maxy,naxz to ultiimately creating a bounding box for each cube you add and ray cast again those remembered x#,y#,z#

Dang hope that makes sense

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 01:41

Link

err.... damnit i dont want to pee you off again..but.. nope!

Hail to the king, baby!

Back to top

Profile PM Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 01:43 Edited at: 13th Jan 2019 01:44

Link

thanks though,this code is invaluable and i will damn well learn from it for sho'

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 01:47

Link

Its something i strugglng with too... This is the issue with memblock work.

So you have to choose,

- Use 6 planes for a box

- Or memblocks - FPS is nice isnt it.

Which one you like to go for - first option one you can use the AGKs internal raycasting commands quite nicely, the 2nd, will have to thnk

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 01:51

Link

yeh,gotta say fps is nice,a lot more work code wise as i lose the nice character controller, but i don't want crappy fps speeds also! let me see how far i get with the latest code you did!

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 01:53 Edited at: 13th Jan 2019 01:54

Link

No worries, Awesome.. I must sleep now so I will continue in the morning when ever that maybe

PS. we need to work harder to try and reduce the FPS - for an App thats important.

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 01:56

Link

aite man,sleep tight,i dont! not even the friggin mirtazapine knocks me out

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 02:00

Link

Dammm man - look after yourself - a sleep is refreshing unless the ghosts and goolies wake us up at 3am ish

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 02:02

Link

pishshshshsshs, ghosts and goolies,ya speaking to someone who roamed the streets at midnight at 7 years old, and every dark corner i saw,i went into.

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 02:09 Edited at: 13th Jan 2019 02:10

Link

Dammmm Thats not good.....Why would you bring that conversation up - is it important?

At least you remember what you did at the age lol

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 02:10 Edited at: 13th Jan 2019 02:12

Link

nope, in fact.....
back to the codingzzzzz!

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 02:11

Link

Moving on then...

Back to top

Profile

puzzler2018

User Banned

Posted: 13th Jan 2019 02:19

Link

Ok so we have flat bed surface... - would at any point you want to dig holes into that main surface at all?

Back to top

Profile

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 13th Jan 2019 02:21

Link

actually that would be cool yes, more gameplay mechanics the better!

Hail to the king, baby!

Back to top

Profile PM Website

puzzler2018

User Banned

Posted: 13th Jan 2019 02:23

Link

Dang - another Minecraft invention - bring it on.....

Ill post some code as to how that is done tomorrow. Is 2.30am here. and need a few hours

Back to top

Profile

puzzler2018

User Banned

Posted: 13th Jan 2019 10:55

Link

Here is a meshblock version - creates individual cubes to create ground,floor,sides

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

size=60
for x=-size to size
	for z=-size to size	
		//create a floor
		AddCubeToMesh(x,random(0,0),z,1,1,1)

// create a roof
		AddCubeToMesh(x,10,z,1,1,1)

// create a few blocks on the ground
		if random(0,10)<2 then AddCubeToMesh(random2(-size+1,size-1),1,random2(-size+1,size-1),1,1,1)

// create a wall out outside
		if (z=-size or z=size) or (x=-size or x=size)
			for c=0 to 10
				AddCubeToMesh(x,c,z,1,1,1)
			next
			
		endif
		
		
	next
next

CreateObjectFromMeshWithUVTexturing(meshid,1,img)

//SetObjectScale(cube,scale,1,scale)

//SetObjectUVScale(cube,0,scale,scale)

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

do
	
//	RotateObjectLocalY(cube,.05)
	movecamera()
	
	if GetRawKeyState(37) then inc camerax#,.05
	if GetRawKeyState(39) then dec camerax#,.05
	if GetRawKeyState(38) then inc cameraz#,.05
	if GetRawKeyState(40) then dec cameraz#,.05
	if GetRawKeyState(83) then dec cameray#,.05
	if GetRawKeyState(87) then inc cameray#,.05
	
	
	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
	//                                                                                       Normals, U Vs      , Color
	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	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5  ,0		, c)

AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5 ,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, .5 ,.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   , .5 , 1  , c)

AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5  , 1, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#  	, 0,1,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   , .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  , .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  , .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

+ Code Snippet


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


size=60
for x=-size to size
	for z=-size to size	
		//create a floor
		AddCubeToMesh(x,random(0,0),z,1,1,1)

		// create a roof
		AddCubeToMesh(x,10,z,1,1,1)

		// create a few blocks on the ground
		if random(0,10)<2 then AddCubeToMesh(random2(-size+1,size-1),1,random2(-size+1,size-1),1,1,1)


		// create a wall out outside
		if (z=-size or z=size) or (x=-size or x=size)
			for c=0 to 10
				AddCubeToMesh(x,c,z,1,1,1)
			next
			
		endif
		
		
	next
next


CreateObjectFromMeshWithUVTexturing(meshid,1,img)


//SetObjectScale(cube,scale,1,scale)

//SetObjectUVScale(cube,0,scale,scale)


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

do
	
//	RotateObjectLocalY(cube,.05)
	movecamera()
	
	if GetRawKeyState(37) then inc camerax#,.05
	if GetRawKeyState(39) then dec camerax#,.05
	if GetRawKeyState(38) then inc cameraz#,.05
	if GetRawKeyState(40) then dec cameraz#,.05
	if GetRawKeyState(83) then dec cameray#,.05
	if GetRawKeyState(87) then inc cameray#,.05
	
	
	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
	//                                                                                       Normals, U Vs      , Color
	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	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5  ,0		, c)

	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2) 			, 0,1,0, .5 ,0		, c)
	AddVertex(meshid, x#-(sizex#/2)  		,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#	, 0,1,0, 0	,.5	, c)
	AddVertex(meshid, x#-(sizex#/2)+sizex#	,y#+(sizey#/2)			,z#+(sizez#/2)-sizez# 	, 0,1,0, .5 ,.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   , .5 , 1  , c)

	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)-sizey#	,z#+(sizez#/2)-sizez# 	, 0,1,0  , .5  , 1, c)
	AddVertex(meshid, x#-(sizex#/2)			,y#+(sizey#/2)			,z#+(sizez#/2)-sizez#  	, 0,1,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   , .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  , .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  , .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

Just need to nip out for a bit.

Later, Will do the same version but with AppGameKit objects/clone objects - but using the memblock function above to create a multitextured cube

Attachments

Login to view attachments

Back to top

Profile

puzzler2018

User Banned

Posted: 13th Jan 2019 12:32 Edited at: 13th Jan 2019 12:34

Link

This version is creating a multi-texture cube using the texture from previous post

At least now can use AppGameKit collisioning system with Ray Casts etc

// 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)
cube = CreateObjectFromMeshWithUVTexturing(meshid,1,img)

size=50
for x=-size to size
	for z=-size to size	
		//create a floor
		box = InstanceObject(cube)
		SetObjectPosition(box,x,0,z)
		
		
		// create a roof
		box = InstanceObject(cube)
		SetObjectPosition(box,x,10,z)

// create a few blocks on the ground
		if random(0,10)<2 
			
			box = InstanceObject(cube)
			SetObjectPosition(box,x,10,z)
		endif

// create a wall out outside
		if (z=-size or z=size) or (x=-size or x=size)
			for c=0 to 10
				box = InstanceObject(cube)
				SetObjectPosition(box,x,c,z)
			next
			
		endif
		
		
	next
next

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

do

cubehit = checkcollisions()

movecamera()
	
	
	if GetRawKeyState(37) then inc camerax#,.05
	if GetRawKeyState(39) then dec camerax#,.05
	if GetRawKeyState(38) then inc cameraz#,.05
	if GetRawKeyState(40) then dec cameraz#,.05
	if GetRawKeyState(83) then dec cameray#,.05
	if GetRawKeyState(87) then inc cameray#,.05
	
	
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
    Print( ScreenFPS() )
    Sync()
loop

function checkcollisions()
	
endfunction 1