Lego Bricks - GameCreators Forum

Author

Message

puzzler2018

User Banned

Posted: 3rd Feb 2019 12:00

Link

Hello

Anyone thought about Lego

// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

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

// set window properties
SetWindowTitle( "lego" )
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 nobblecount=0
global nobbles as integer[]

block1 = createlegopeice(10,1,0,0,255)
SetObjectPosition(block1,-5,0,0)

block2 = createlegopeice(5,5,255,255,0)
SetObjectPosition(block2,5,0,0)

block3 = createlegopeice(8,8,255,255,255)
SetObjectPosition(block3,5,0,10)

block4 = createlegopeice(5,2,255,0,255)
SetObjectPosition(block4,-5,0,10)

do
    RotateObjectLocalY(block1,.1)

Print( ScreenFPS() )
    Sync()
loop

function createlegopeice(x#,z#,r,g,b)
	
	peice = CreateObjectBox(x#,1,z#)
	
	posx=floor(x#/2)
	posz=floor(z#/2)
	
	
	for xx#=1 to x#
		for zz#=1 to z#
			nobbles.insert(CreateObjectCylinder(1,.5,12))
			
			SetObjectPosition(nobbles[nobblecount],-(x#/2)+xx#-.5,.2,-(z#/2)+zz#-.5)
			
			FixObjectToObject(nobbles[nobblecount],peice)
			SetObjectColor(nobbles[nobblecount],r,g,b,255)
			inc nobblecount
		next
	next
	
	SetObjectColor(peice,r,g,b,255)

endfunction peice

+ Code Snippet



// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

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

// set window properties
SetWindowTitle( "lego" )
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 nobblecount=0
global nobbles as integer[]

block1 = createlegopeice(10,1,0,0,255)
SetObjectPosition(block1,-5,0,0)

block2 = createlegopeice(5,5,255,255,0)
SetObjectPosition(block2,5,0,0)


block3 = createlegopeice(8,8,255,255,255)
SetObjectPosition(block3,5,0,10)


block4 = createlegopeice(5,2,255,0,255)
SetObjectPosition(block4,-5,0,10)




do
    RotateObjectLocalY(block1,.1)

    Print( ScreenFPS() )
    Sync()
loop

function createlegopeice(x#,z#,r,g,b)
	
	peice = CreateObjectBox(x#,1,z#)
	
	posx=floor(x#/2)
	posz=floor(z#/2)
	
	
	for xx#=1 to x#
		for zz#=1 to z#
			nobbles.insert(CreateObjectCylinder(1,.5,12))
			
			SetObjectPosition(nobbles[nobblecount],-(x#/2)+xx#-.5,.2,-(z#/2)+zz#-.5)
			
			FixObjectToObject(nobbles[nobblecount],peice)
			SetObjectColor(nobbles[nobblecount],r,g,b,255)
			inc nobblecount
		next
	next
	
	SetObjectColor(peice,r,g,b,255)

endfunction peice

Back to top

Profile

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Feb 2019 12:29

Link

Hey ... that looks really nice ...could be a good chanllenge

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 3rd Feb 2019 12:54 Edited at: 3rd Feb 2019 12:54

Link

Thanks

Yeah would be a good challange one month

// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

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

// set window properties
SetWindowTitle( "lego" )
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 nobblecount=0
global nobbles as integer[]
global land as integer[]
global peices as integer[]

size=10

landid=0
for x=-3 to 3
	for z=-3 to 3
		land.insert(createlegopeice(size,size,0,0,255))
		SetObjectPosition(land[landid],x * size, 0, z * size)
		inc landid
	next
next

peicesid=0
for x=-3 to 3
	for z=-3 to 3
		peices.insert(createlegopeice(random(1,5),random(1,5),random(0,255),random(0,255),random(0,255)))
		SetObjectPosition(peices[peicesid],random2(-size*2,size*2),2,random2(-size*2,size*2))
		inc peicesid
	next
next

/*block2 = createlegopeice(5,5,255,255,0)
SetObjectPosition(block2,5,0,0)

block3 = createlegopeice(1,8,255,255,255)
SetObjectPosition(block3,5,0,10)

block4 = createlegopeice(5,2,255,0,255)
SetObjectPosition(block4,-5,0,10)
*/

do

Print( ScreenFPS() )
    Sync()
loop

function createlegopeice(x#,z#,r,g,b)
	
	peice = CreateObjectBox(x#,1,z#)
	
	for xx#=1 to x#
		for zz#=1 to z#
			nobbles.insert(CreateObjectCylinder(1,.5,12))
			
			SetObjectPosition(nobbles[nobblecount],-(x#/2)+xx#-.5,.2,-(z#/2)+zz#-.5)
			
			FixObjectToObject(nobbles[nobblecount],peice)
			SetObjectColor(nobbles[nobblecount],r,g,b,255)
			inc nobblecount
		next
	next
	
	SetObjectColor(peice,r,g,b,255)

endfunction peice

+ Code Snippet



// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

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

// set window properties
SetWindowTitle( "lego" )
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 nobblecount=0
global nobbles as integer[]
global land as integer[]
global peices as integer[]

size=10

landid=0
for x=-3 to 3
	for z=-3 to 3
		land.insert(createlegopeice(size,size,0,0,255))
		SetObjectPosition(land[landid],x * size, 0, z * size)
		inc landid
	next
next

peicesid=0
for x=-3 to 3
	for z=-3 to 3
		peices.insert(createlegopeice(random(1,5),random(1,5),random(0,255),random(0,255),random(0,255)))
		SetObjectPosition(peices[peicesid],random2(-size*2,size*2),2,random2(-size*2,size*2))
		inc peicesid
	next
next


/*block2 = createlegopeice(5,5,255,255,0)
SetObjectPosition(block2,5,0,0)


block3 = createlegopeice(1,8,255,255,255)
SetObjectPosition(block3,5,0,10)


block4 = createlegopeice(5,2,255,0,255)
SetObjectPosition(block4,-5,0,10)
*/



do

    Print( ScreenFPS() )
    Sync()
loop

function createlegopeice(x#,z#,r,g,b)
	
	peice = CreateObjectBox(x#,1,z#)
	
	for xx#=1 to x#
		for zz#=1 to z#
			nobbles.insert(CreateObjectCylinder(1,.5,12))
			
			SetObjectPosition(nobbles[nobblecount],-(x#/2)+xx#-.5,.2,-(z#/2)+zz#-.5)
			
			FixObjectToObject(nobbles[nobblecount],peice)
			SetObjectColor(nobbles[nobblecount],r,g,b,255)
			inc nobblecount
		next
	next
	
	SetObjectColor(peice,r,g,b,255)

endfunction peice

They will need to be converted to meshmemblocks though but should be ok to do

Catch up soon with this months challenge

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 3rd Feb 2019 16:29

Link

looks good

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 3rd Feb 2019 18:15 Edited at: 3rd Feb 2019 18:17

Link

would be very good for your own version of Minecraft,

Not sure if you want to go down that path but if you convert to obj
i could load into blender and remove duplicate and close vertices
for you, saving on vertice count.

Easily enough done if you would prefer to do your own blending lol (see what i did there)
load into blender select object go into edit mode make sure all
vertices selected and click remove doubles in the box menu on
the left of screen and select an ammount ie .5 or perhaps .1 and
tap enter key the top of the windows title it shows you how many
vertices it has removed. Place 0 back in the box if you want to restore

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 3rd Feb 2019 18:36

Link

Hi

Thanks - I was just loading YouTube and saw advert on Lego Movie 2 - and thought YEP! would be interesting..

And this could be for one of the months.

Yeah the conversion into a Minecrafty style app would be interesting enough - but will need to be its own App but built on a Minecraft world engine style

And thanks for your help in the blender works - my skills with anything like that is very basic - thats why i prefer to inbuild the objects.. the parts are all different shapes and sizes, plus hollow too But can work on that later.
and export the final constructed lego brick into an OBJ which shouldnt be too much of an issue either as we have learnt how to this now.

Thanks for your help.

Would be good to have someone nearby to give an helping hand from time to time.

Back to top

Profile

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Feb 2019 18:50 Edited at: 3rd Feb 2019 18:54

Link

Quote: "Would be good to have someone nearby to give an helping hand from time to time."

Somehow we are all here trying to help when necesary in our free time

Edit.
I spend one our trying to do my best . What I did instead of fixing object to object, was just ...
AddObjectMeshFromMemblock(obj,mesh) and
SetMeshMemblockVertexPosition(mesh,i, x#+xx#,y#+yy#,z#+zz#)

But somehow the next mesh we add have a different x/y/z that we need to guess

I'm not a grumpy grandpa

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 3rd Feb 2019 18:52

Link

Quote: "And thanks for your help in the blender works "

no worries i dont use it much so im always googling how to do stuff, just was thinking even if you
only save a couple of vertices a brick that would work out allot when you consider the ammount
of blocks in a minecraft world. And most the work done for the minecraft engine to get the basic
setup with lego blocks so might be cool to see as it would be your own variant

Quote: "Would be good to have someone nearby to give an helping hand from time to time."

Think we all could do with that at times because we never stop learning. I still havent got the c
version setup proper or ide convert what i have to that. Atm when i try i have to keep changing
the template to the code i want to compile and no idea how im supposed to get that to a mobile
app yet. but all in time and havent figured out the broadcast ability to my phone yet. lol

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 3rd Feb 2019 19:13

Link

Thanks Guys much appreciated.

Have we done the OBJ to meshmemblock yet. I just cannot remember.

As it would be useful if create a plane full of these things, say a 500x500 plane but of lego structure, and this would be the land to start building on.

Back to top

Profile

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Feb 2019 19:42

Link

Quote: "Have we done the OBJ to meshmemblock yet. I just cannot remember."

I'm not sure either . I think you can design the pieces first and then some algorithm for the creation and placement of the objects ....remember...pieces must plug one to another

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 3rd Feb 2019 20:09 Edited at: 3rd Feb 2019 20:11

Link

Yeah - will have to do a SNAP code or some description which im sure is not too difficult

Ill think about doing a multiple FixObjectToObject object to go into an OBJ and then bring back into a mesh memblock (for bigger world / constructions)

EDIT

Just seen your addobjecttomeshmemblock idea - interesting and worth a checkout

Back to top

Profile

puzzler2018

User Banned

Posted: 3rd Feb 2019 21:16

Link

I think we be ok with this. but FPS is rubbish.

// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

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

// set window properties
SetWindowTitle( "lego" )
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 nobblecount=0
global nobbles as integer[]
global land as integer[]
global peices as integer[]

size#=180
land.insert(createlegopeice(size#,size#,random(200,255),random(200,255),random(200,255)))

do

Print( ScreenFPS() )
    Sync()
loop

function createlegopeice(x#,z#,r,g,b)
	
	peice = CreateObjectBox(x#,1,z#)
	
	for xx#=1 to x#
		for zz#=1 to z#
			nobbles.insert(CreateObjectCylinder(1,.5,12))
			
			SetObjectPosition(nobbles[nobblecount],-(x#/2)+xx#-.5,.2,-(z#/2)+zz#-.5)
			
			FixObjectToObject(nobbles[nobblecount],peice)
			SetObjectColor(nobbles[nobblecount],r,g,b,255)
			inc nobblecount
		next
	next
	
	SetObjectColor(peice,r,g,b,255)

endfunction peice

+ Code Snippet



// Project: lego 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

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

// set window properties
SetWindowTitle( "lego" )
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 nobblecount=0
global nobbles as integer[]
global land as integer[]
global peices as integer[]


size#=180
land.insert(createlegopeice(size#,size#,random(200,255),random(200,255),random(200,255)))


do

    Print( ScreenFPS() )
    Sync()
loop

function createlegopeice(x#,z#,r,g,b)
	
	peice = CreateObjectBox(x#,1,z#)
	
	for xx#=1 to x#
		for zz#=1 to z#
			nobbles.insert(CreateObjectCylinder(1,.5,12))
			
			SetObjectPosition(nobbles[nobblecount],-(x#/2)+xx#-.5,.2,-(z#/2)+zz#-.5)
			
			FixObjectToObject(nobbles[nobblecount],peice)
			SetObjectColor(nobbles[nobblecount],r,g,b,255)
			inc nobblecount
		next
	next
	
	SetObjectColor(peice,r,g,b,255)

endfunction peice

Meshmemblocking on the way

Back to top

Profile

puzzler2018

User Banned

Posted: 3rd Feb 2019 21:17

Link

Must admit it is a bit like minecraft but with a nobble on top - Amazing - didnt think of it sooner

Back to top

Profile

Rick Nasher

6

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 3rd Feb 2019 21:30

Link

Looking good indeed.

I love Lego since the 70's so have collected a fair bit of bricks.
Been out of it for while, last thing built was Millennium Falcon for/with my nephew. Was hard to let him keep it though.

Apparently Lego Minecraft is/was a thing(nephew loved it). https://www.lego.com/en-us/themes/minecraft
But I do not see any Lego Mincraft games here: https://www.lego.com/en-us/kids/games

So you guys might be on to something, unless Minecraft is heavily copyrighted? I believe Lego lost it's own years ago.
Perhaps call it BrickCraft?

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 3rd Feb 2019 21:38

Link

Thank you

Thought it maybe interesting to follow up on a nice little project.

Back to top

Profile

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Feb 2019 21:48

Link

Hi there

Quote: "Thought it maybe interesting to follow up on a nice little project."

I agree, but sometimes little project are like a pain in the neck . I been thinking for a couple of ours about an engine for lego and I'm with a cloudy mind

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 3rd Feb 2019 21:49 Edited at: 3rd Feb 2019 21:52

Link

Maybe an OBJ like a plane of x=1, z=1 with a cylinder top in middle would do as an OBJ then can we make the front, back, left, right as simple single sinded planes

That would help

This way adjoining legos / blocks can be occluded as normal

Just a top with a cylinder top needed

EDIT

We can develop the engine like minecraft

Double EDIT - ok, this could turn into a long project - nothing is simple

Treble EDIT - How long did Rockstar develop Red Dead Redemption

Back to top

Profile

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Feb 2019 21:52 Edited at: 3rd Feb 2019 21:53

Link

You are going to have much more vertex with five planes than a complete box ..... a box has in total 24 vertex ...a plane has 12 vertex

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 3rd Feb 2019 21:53

Link

A single plane would be 6 - 12 is a double one.

Back to top

Profile

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Feb 2019 22:01

Link

I didn't know we could make planes with six vertex....if we export to Obj we can even make planes with just four vertex

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 3rd Feb 2019 22:04

Link

A plane is a rectangle - we need to work in triangles with shared vertices.

triangle 1

topleft vertex 1
topright vertex 2
bottomleft vertex 3

triangle 2
bottomleft vertex 4 (shared)
topright vertex 5 (shared)
bottom right vertex 6

AGK plane is double sided

We have to create this using meshmemblocks - ill show you in a bit how

Back to top

Profile

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Feb 2019 22:10 Edited at: 3rd Feb 2019 22:16

Link

Quote: "A plane is a rectangle - we need to work in triangles with shared vertices."

Yes I know....that is how I made the icoshedron, using just the first three vertex of a plane and forgeting the rest

Edit.
We just need the vertex position to export to .Obj we just need to use the vertex we need .

Edit2

Exporting planes with just 4 vertex

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "cubo nuevo" )
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( 30, 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

createobjectbox(1,40,2,40)
setobjectcolor(1,100,80,0,0)
SetObjectTransparency(1,1)
SetObjectAlpha(1,80)
createobjectbox(2,2,15,2)
setobjectposition(2,15,7,15)
fixobjectpivot(2)
createobjectbox(3,8,8,8)
setobjectrotation(3,0,45,0)
setobjectposition(3,-5,4,-5)
fixobjectpivot(3)
for a= 4 to 10
	createobjectbox(a,3,3,3)
	setobjectrotation(a,random(0,180),random(0,180),random(0,180))
	setobjectposition(a,-50+random(0,100),5+random(0,10),-50+random(0,100))
	fixobjectpivot(a)
next
v=1000
mesh = CreateMemblockFromObjectMesh(1,1)
`get obj verts
verts= GetMemblockInt( mesh, 0 )
for i= 0 to 15
	 if i=4 then i=12
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 inc v
	 createobjectsphere(v,1,10,10)
	 setobjectcolor(v,255,0,0,0)
	 setobjectposition(v,x#,y#,z#)
	createtext(v,str(v-1000))
    settextsize(v,20)
 next i
DeleteMemblock(1)
 //fixing mesh
SetObjectMeshFromMemblock(1,1,mesh)

gosub save

loadobject(1000,"cubo.obj")
setobjectposition(1000,20,15,0)
//setobjectcullmode(1000,0)
loadimage(1,"kja.png")
setobjectimage(1000,1,0)
SetObjectLightMode(1000,0)

SetAmbientColor(10,10,10)
SetSunActive(0)
createpointlight(1,0,0,0,400,0,255,0)

setcameraposition(1,-50,50,-50)
SetCameraLookAt(1,0,0,0,0)
do
   for i= 1001 to 1008
	x#=getobjectx(i)
	y#=getobjecty(i)
	z#=getobjectz(i)
	px = GetScreenXFrom3D( x#,y#,z#)
    py = GetScreenYFrom3D( x#,y#,z#) 
 	settextposition(i,px,py) 
next 
    gosub camara
    SetPointLightPosition(1,getcamerax(1),getcameray(1),getcameraz(1))
    Print( ScreenFPS() )
    Sync()
loop

save:

OpenToWrite ( 1, "raw:d:\agk2\cubo nuevo\media\cubo.obj", 0 )
n=0
for t= 1 to 10
mesh = CreateMemblockFromObjectMesh(t,1)
`get obj verts
verts= GetMemblockInt( mesh, 0 )
v=1000
writeline(1,"g ") 
for i= 0 to 15
	 if i=4 then i=12
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
     inc v
	 setobjectposition(v,x#,y#,z#)
 next i
 
 `VERTEX     just eight vertex
 for i= 1001 to 1008
	 x#=getobjectx(i)
	 y#=getobjecty(i)
	 z#=getobjectz(i)
     Writeline ( 1, " v " + str(x#)+ " "+str(y#)+ " "+str(-z#))
 next i
 
for j= 1 to 2
  Writeline ( 1, " vt " + str(0.0)+ " "+str(0.0))
  Writeline ( 1, " vt " + str(0.0)+ " "+str(1.0))
  Writeline ( 1, " vt " + str(1.0)+ " "+str(0.0))
  Writeline ( 1, " vt " + str(1.0)+ " "+str(1.0))
next

`normals
Writeline ( 1, " vn " + str(0.0)+ " "+str(0.0)+" "+str(-1.0))
Writeline ( 1, " vn " + str(1.0)+ " "+str(0.0)+" "+str(0.0)) 
Writeline ( 1, " vn " + str(-0.0)+ " "+str(-0.0)+" "+str(1.0)) 
Writeline ( 1, " vn " + str(-1.0)+ " "+str(-0.0)+" "+str(-0.0))
Writeline ( 1, " vn " + str(0.0)+ " "+str(-1.0)+" "+str(0.0))
Writeline ( 1, " vn " + str(0.0)+ " "+str(1.0)+" "+str(0.0))
Writeline ( 1, " vn " + str(0.0)+ " "+str(0.0)+" "+str(-1.0))
Writeline ( 1, " vn " + str(1.0)+ " "+str(0.0)+" "+str(0.0))  
 
 `six faces of four vertex
Writeline ( 1, " f " + str(4+n)+"/"+str(4+n)+"/"+str(1)+ " "+str(3+n)+"/"+str(3+n)+"/"+str(1)+ " "+str(1+n)+"/"+str(1+n)+"/"+str(1)+" "+str(2+n)+"/"+str(2+n)+"/"+str(1))
Writeline ( 1, " f " + str(6+n)+"/"+str(6+n)+"/"+str(2)+ " "+str(5+n)+"/"+str(5+n)+"/"+str(2)+ " "+str(3+n)+"/"+str(3+n)+"/"+str(2)+" "+str(4+n)+"/"+str(4+n)+"/"+str(2))
Writeline ( 1, " f " + str(8+n)+"/"+str(8+n)+"/"+str(3)+ " "+str(7+n)+"/"+str(7+n)+"/"+str(3)+ " "+str(5+n)+"/"+str(5+n)+"/"+str(3)+" "+str(6+n)+"/"+str(6+n)+"/"+str(3))
Writeline ( 1, " f " + str(2+n)+"/"+str(2+n)+"/"+str(4)+ " "+str(1+n)+"/"+str(1+n)+"/"+str(4)+ " "+str(7+n)+"/"+str(7+n)+"/"+str(4)+" "+str(8+n)+"/"+str(8+n)+"/"+str(4))
Writeline ( 1, " f " + str(3+n)+"/"+str(3+n)+"/"+str(5)+ " "+str(5+n)+"/"+str(5+n)+"/"+str(5)+ " "+str(7+n)+"/"+str(7+n)+"/"+str(5)+" "+str(1+n)+"/"+str(1+n)+"/"+str(5))
Writeline ( 1, " f " + str(4+n)+"/"+str(4+n)+"/"+str(6)+ " "+str(2+n)+"/"+str(2+n)+"/"+str(6)+ " "+str(8+n)+"/"+str(8+n)+"/"+str(6)+" "+str(6+n)+"/"+str(6+n)+"/"+str(6))
n=n+8

DeleteMemblock(1)
next

CloseFile ( 1 )

return

camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) 
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) 
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )

if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

+ Code Snippet

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "cubo nuevo" )
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( 30, 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

createobjectbox(1,40,2,40)
setobjectcolor(1,100,80,0,0)
SetObjectTransparency(1,1)
SetObjectAlpha(1,80)
createobjectbox(2,2,15,2)
setobjectposition(2,15,7,15)
fixobjectpivot(2)
createobjectbox(3,8,8,8)
setobjectrotation(3,0,45,0)
setobjectposition(3,-5,4,-5)
fixobjectpivot(3)
for a= 4 to 10
	createobjectbox(a,3,3,3)
	setobjectrotation(a,random(0,180),random(0,180),random(0,180))
	setobjectposition(a,-50+random(0,100),5+random(0,10),-50+random(0,100))
	fixobjectpivot(a)
next
v=1000
mesh = CreateMemblockFromObjectMesh(1,1)
`get obj verts
verts= GetMemblockInt( mesh, 0 )
for i= 0 to 15
	 if i=4 then i=12
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 inc v
	 createobjectsphere(v,1,10,10)
	 setobjectcolor(v,255,0,0,0)
	 setobjectposition(v,x#,y#,z#)
	createtext(v,str(v-1000))
    settextsize(v,20)
 next i
DeleteMemblock(1)
 //fixing mesh
SetObjectMeshFromMemblock(1,1,mesh)

gosub save

loadobject(1000,"cubo.obj")
setobjectposition(1000,20,15,0)
//setobjectcullmode(1000,0)
loadimage(1,"kja.png")
setobjectimage(1000,1,0)
SetObjectLightMode(1000,0)

SetAmbientColor(10,10,10)
SetSunActive(0)
createpointlight(1,0,0,0,400,0,255,0)

setcameraposition(1,-50,50,-50)
SetCameraLookAt(1,0,0,0,0)
do
   for i= 1001 to 1008
	x#=getobjectx(i)
	y#=getobjecty(i)
	z#=getobjectz(i)
	px = GetScreenXFrom3D( x#,y#,z#)
    py = GetScreenYFrom3D( x#,y#,z#) 
 	settextposition(i,px,py) 
next 
    gosub camara
    SetPointLightPosition(1,getcamerax(1),getcameray(1),getcameraz(1))
    Print( ScreenFPS() )
    Sync()
loop

save:

OpenToWrite ( 1, "raw:d:\agk2\cubo nuevo\media\cubo.obj", 0 )
n=0
for t= 1 to 10
mesh = CreateMemblockFromObjectMesh(t,1)
`get obj verts
verts= GetMemblockInt( mesh, 0 )
v=1000
writeline(1,"g ") 
for i= 0 to 15
	 if i=4 then i=12
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
     inc v
	 setobjectposition(v,x#,y#,z#)
 next i
 
 `VERTEX     just eight vertex
 for i= 1001 to 1008
	 x#=getobjectx(i)
	 y#=getobjecty(i)
	 z#=getobjectz(i)
     Writeline ( 1, " v " + str(x#)+ " "+str(y#)+ " "+str(-z#))
 next i
 
for j= 1 to 2
  Writeline ( 1, " vt " + str(0.0)+ " "+str(0.0))
  Writeline ( 1, " vt " + str(0.0)+ " "+str(1.0))
  Writeline ( 1, " vt " + str(1.0)+ " "+str(0.0))
  Writeline ( 1, " vt " + str(1.0)+ " "+str(1.0))
next

`normals
Writeline ( 1, " vn " + str(0.0)+ " "+str(0.0)+" "+str(-1.0))
Writeline ( 1, " vn " + str(1.0)+ " "+str(0.0)+" "+str(0.0)) 
Writeline ( 1, " vn " + str(-0.0)+ " "+str(-0.0)+" "+str(1.0)) 
Writeline ( 1, " vn " + str(-1.0)+ " "+str(-0.0)+" "+str(-0.0))
Writeline ( 1, " vn " + str(0.0)+ " "+str(-1.0)+" "+str(0.0))
Writeline ( 1, " vn " + str(0.0)+ " "+str(1.0)+" "+str(0.0))
Writeline ( 1, " vn " + str(0.0)+ " "+str(0.0)+" "+str(-1.0))
Writeline ( 1, " vn " + str(1.0)+ " "+str(0.0)+" "+str(0.0))  
 
 `six faces of four vertex
Writeline ( 1, " f " + str(4+n)+"/"+str(4+n)+"/"+str(1)+ " "+str(3+n)+"/"+str(3+n)+"/"+str(1)+ " "+str(1+n)+"/"+str(1+n)+"/"+str(1)+" "+str(2+n)+"/"+str(2+n)+"/"+str(1))
Writeline ( 1, " f " + str(6+n)+"/"+str(6+n)+"/"+str(2)+ " "+str(5+n)+"/"+str(5+n)+"/"+str(2)+ " "+str(3+n)+"/"+str(3+n)+"/"+str(2)+" "+str(4+n)+"/"+str(4+n)+"/"+str(2))
Writeline ( 1, " f " + str(8+n)+"/"+str(8+n)+"/"+str(3)+ " "+str(7+n)+"/"+str(7+n)+"/"+str(3)+ " "+str(5+n)+"/"+str(5+n)+"/"+str(3)+" "+str(6+n)+"/"+str(6+n)+"/"+str(3))
Writeline ( 1, " f " + str(2+n)+"/"+str(2+n)+"/"+str(4)+ " "+str(1+n)+"/"+str(1+n)+"/"+str(4)+ " "+str(7+n)+"/"+str(7+n)+"/"+str(4)+" "+str(8+n)+"/"+str(8+n)+"/"+str(4))
Writeline ( 1, " f " + str(3+n)+"/"+str(3+n)+"/"+str(5)+ " "+str(5+n)+"/"+str(5+n)+"/"+str(5)+ " "+str(7+n)+"/"+str(7+n)+"/"+str(5)+" "+str(1+n)+"/"+str(1+n)+"/"+str(5))
Writeline ( 1, " f " + str(4+n)+"/"+str(4+n)+"/"+str(6)+ " "+str(2+n)+"/"+str(2+n)+"/"+str(6)+ " "+str(8+n)+"/"+str(8+n)+"/"+str(6)+" "+str(6+n)+"/"+str(6+n)+"/"+str(6))
n=n+8

 
DeleteMemblock(1)
next

  CloseFile ( 1 )





return


camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) 
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) 
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 3rd Feb 2019 22:15

Link

Single plane

/// Project: Mesh Template
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant size=32  // Size of the chunk in X and Z direction - make this small so the chunk can be quickly rebuilt in processing
#constant renderdistance=0 // how many chunks surrounding each other - call it render distance variable

// set window properties
SetWindowTitle( "Mesh Template" )
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,collisioncoordx,collisioncoordz,collisioncoordy
global numofchunks, numofcubes,chunk
global img,camerax#,cameray#,cameraz#,centrespr, minx,miny,minz,maxx,maxy,maxz, actualverts
global vertexcounter=0

// meshmemblock types
Type Vertex
    air as integer  
    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

x#=0
y#=0
z#=0
sizex#=10

sizez#=10
c=1

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

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

obj=CreateObjectFromMeshWithUVTexturing(meshid,1,0)

startx#=screenwidth/2
starty#=screenheight/2
do
	print(GetPolygonsDrawn())
	movecamera()
    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)
	
	
	// do adjacent culling check
	cx = floor(x#)
	cy = floor(y#)
	cz = floor(z#)
	
	
	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, air 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.air = air
    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
			
		if m.VertexList[i].air = 1 // has a block there
			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)
		endif
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
//    DeleteAllObjects()
	DeleteObject(1)

CreateObjectFromMeshMemblock(1,chunkmesh)
    SetObjectImage(1,texture,0)
	SetObjectColor(1,255,255,255,10)
endfunction 1

+ Code Snippet

/// Project: Mesh Template
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant size=32  // Size of the chunk in X and Z direction - make this small so the chunk can be quickly rebuilt in processing
#constant renderdistance=0 // how many chunks surrounding each other - call it render distance variable

// set window properties
SetWindowTitle( "Mesh Template" )
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,collisioncoordx,collisioncoordz,collisioncoordy
global numofchunks, numofcubes,chunk
global img,camerax#,cameray#,cameraz#,centrespr, minx,miny,minz,maxx,maxy,maxz, actualverts
global vertexcounter=0


// meshmemblock types
Type Vertex
    air as integer  
    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

x#=0
y#=0
z#=0
sizex#=10

sizez#=10
c=1



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

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



obj=CreateObjectFromMeshWithUVTexturing(meshid,1,0)

startx#=screenwidth/2
starty#=screenheight/2
do
	print(GetPolygonsDrawn())
	movecamera()
    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)
	
	
	// do adjacent culling check
	cx = floor(x#)
	cy = floor(y#)
	cz = floor(z#)
	
	
	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, air 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.air = air
    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
			
		if m.VertexList[i].air = 1 // has a block there
			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)
		endif
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
//    DeleteAllObjects()
	DeleteObject(1)

    CreateObjectFromMeshMemblock(1,chunkmesh)
    SetObjectImage(1,texture,0)
	SetObjectColor(1,255,255,255,10)
endfunction 1

Back to top

Profile

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Feb 2019 22:17

Link

Ok ....I will study this thanks

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 3rd Feb 2019 22:17

Link

Im sure we will work it out

Back to top

Profile

puzzler2018

User Banned

Posted: 3rd Feb 2019 22:28

Link

Added polies and triangles drawn

/// Project: Mesh Template
// Created: 2019-01-12

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
#constant size=32  // Size of the chunk in X and Z direction - make this small so the chunk can be quickly rebuilt in processing
#constant renderdistance=0 // how many chunks surrounding each other - call it render distance variable

// set window properties
SetWindowTitle( "Mesh Template" )
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,collisioncoordx,collisioncoordz,collisioncoordy
global numofchunks, numofcubes,chunk
global img,camerax#,cameray#,cameraz#,centrespr, minx,miny,minz,maxx,maxy,maxz, actualverts
global vertexcounter=0

// meshmemblock types
Type Vertex
    air as integer  
    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

x#=0
y#=0
z#=0
sizex#=10

sizez#=10
c=1

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

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

obj=CreateObjectFromMeshWithUVTexturing(meshid,1,0)

startx#=screenwidth/2
starty#=screenheight/2
do
	print("Polies "+ str(GetPolygonsDrawn()))
	print("Tiangles"+ str(GetPolygonsDrawn()*3))
	movecamera()
    Print( ScreenFPS() )
    Sync()
loop