Testing Planet Defense - GameCreators Forum

Author

Message

puzzler2018

User Banned

Posted: 29th Aug 2018 12:43

How about creating a heli-pad. which you start on, collect the bricks and when your heli gets full, then you have to go back to heli-pad to empty and then reload with more.

The bricks then gets automatically transformed into something different which creates upgrades to your helicopter.

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 29th Aug 2018 15:13 Edited at: 29th Aug 2018 16:26

Link

oh yes I like the idea of a heli-pad

hows this for a helipad

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 29th Aug 2018 17:38

Link

Thats looks good

Maybe change the outskirts of colour of the HeliPad - through the colours RED->orange->yellow->green depending on the Fuel of the helicopter - when it gets to orange->red then you have to get to it and land to get fuel

otherwise you crash into the sphere

Back to top

Profile

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 29th Aug 2018 17:44 Edited at: 29th Aug 2018 17:44

Link

Nice! You are building a very interesting game here. Look forward to the next update!

And puzzler has some good gameplay ideas.

My Projects Most With Full Source...
[Attack of the Crows] [Christmas Command 2016]
[Simple Sprite Shaders Example] [Old School Style 3D FPS]
[Playable 2D Shmup Template] [2D Single Screen Platformer]
[FixSpriteToSprite System & Demo]
[Mutant Invaders 3D Shmup] [Unity - Atlantic Crisis]
[Unity - Treasures of Ali-Gar] [My YouTube Videos] [Twitter]

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 29th Aug 2018 18:02 Edited at: 7th Sep 2018 13:24

Link

Starting to come together now

Edited video removed please see further down

You now can run out of fuel the blue barrels are fuel the hearts give extra lives and ofcoures the yellow blocks are your pickups
you take back to the helipad. The raycasting aint perfected yet and I still get objects placed over other objects which causes
pickup issues but its now coming together and beginning to look like something. Wasn't sure weather to stick with green but I
think adding tiny bits of colour is nicer but keeping to like primary colors. What do others think ?

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: 29th Aug 2018 18:29 Edited at: 29th Aug 2018 18:37

Link

Quote: "Maybe change the outskirts of colour of the HeliPad - through the colours RED->orange->yellow->green depending on the Fuel of the helicopter"

That could work I may be able to use a shader to do that best where a second transparent texture with the color I want to add

This shader should work for that

lightsShader=LoadShader( "neon.vs", "neon.ps" )
SetShaderConstantByName(lightsShader,"lightint",1.0,0.0,0.0,0.0) // I can just change the 1 here to a float between 1 and 0
SetShaderConstantByName(lightsShader,"lightson",1.0,0.0,0.0,0.0)

neon.vs

+ Code Snippet

attribute highp vec3 position;
attribute mediump vec3 normal;
attribute mediump vec2 uv;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec2 uvVarying;
varying mediump vec3 lightVarying;
uniform highp mat3 agk_WorldNormal;
uniform highp mat4 agk_World;
uniform highp mat4 agk_ViewProj;
uniform mediump vec4 uvBounds0;
mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );
void main()
{
    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;
    highp vec4 pos = agk_World * vec4(position,1.0);
    gl_Position = agk_ViewProj * pos;
    mediump vec3 norm = normalize(agk_WorldNormal * normal);
    posVarying = pos.xyz;
    normalVarying = norm;
    lightVarying = GetVSLighting( norm, posVarying );
}

neon.ps

+ Code Snippet

uniform sampler2D texture0;
uniform sampler2D texture1;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec2 uvVarying;
varying mediump vec3 lightVarying;
mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );
mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );
uniform vec4 myColor;
uniform mediump vec4 agk_MeshDiffuse;
mediump vec4 colorResult;
uniform float lightint;
uniform float lightson;
void main()
{
	mediump vec3 norm = normalize(normalVarying);
	mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );
	vec4 colorA = texture2D(texture0, uvVarying);
	vec4 colorB = texture2D(texture1, uvVarying);
	if (lightson < 1.0) {
		colorResult = vec4(colorA * vec4(light,1.0))*lightint;
 	} else {
		if (colorB.a > 0.0) {
			colorResult = vec4 ((colorA * vec4(light,1.0))*lightint) + (colorB*colorB.a);
		} else {
			colorResult =vec4(colorA * vec4(light,1.0))*lightint;
		}
	}
gl_FragColor = colorResult;
}

for example this method I could have a second texture green in parts but a percentage factor of green depending on the amount of fuel
Il try it and see what you think

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: 29th Aug 2018 19:29 Edited at: 7th Sep 2018 13:25

Link

how about something like this Puzzler showing the fuel on the helipad

Edited video removed please see further down

Kinda starts as a pale red kinda yellowish for a bit then finally bright red shows out of fuel

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 29th Aug 2018 19:55

Link

Looks great to me

But what if the heli pad is on the other side of the globe. So maybe a flash of red light every second that extruding out from it - the player will see those flashes red of which alarms the player to then fly back to the pad as quickly as possible to recoup fuel.

Looking really good though:-

Keep up good work

Back to top

Profile

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 29th Aug 2018 21:56

Link

I think if you change with the camera angle you can really open up the play field. (sorry about the crappy video)

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 29th Aug 2018 22:02

Link

thanks

You only drop blocks at the heli pad to fill up you have to pick up one of the blue fuel cells spread out across globe
but I guess while your dopping off the blocks there is a need to know the fuel level theres also the F: text up top

There will prob be some kinda animation as the blocks are droppped at the helipad probably just gradually lowering
onto the helipad one at a time and perhaps a blink effect as each one lands on the pad

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: 29th Aug 2018 22:04 Edited at: 7th Sep 2018 13:25

Link

Quote: "I think if you change with the camera angle you can really open up the play field"

That's a good idea

Do you think these angles and positions are better ?

Edited video removed please see further down

I also been have been toying with the idea of changing the color of the heli to show you need fuel
but this time just using a white texture and setting colors (no shader needed this way)

at 50 percent the heli turns yellow and 20 percent red I tried with a percentage factor but with AppGameKit there don't seem to be a way of
changing the brightness of the color applied to it.

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 30th Aug 2018 03:08

Link

Yes that looks good. If you change the angle so it looks more toward the top of the sphere you get more of the gameplay area.
Mostly the chopper has to be at the bottom of the screen. I know this cuts out the boxes attached to the chopper but I thought maybe i could change the chopper to a shape where the boxes could be incorporated
into its body. You would be limited to 8 boxes in total though.
What do you think?

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 30th Aug 2018 03:35 Edited at: 30th Aug 2018 03:49

Link

Quote: "I thought maybe i could change the chopper to a shape where the boxes could be incorporated
into its body. You would be limited to 8 boxes in total though."

That might work not sure how they would sit. Are you thinking have 4 left and 4 to the right when I attach them

Whats your opinion on the helipad I converted from a primitive ?
and the touches of color

Here is the latest code I just emailed the latest media rar its only 895k this time but has the changes to the media
keeping you uptodate

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

#constant KEY_LEFT    = 37  //the left arrow key scancode
#constant KEY_UP      = 38  //the up arrow key scancode
#constant KEY_RIGHT   = 39  //the right arrow key scancode
#constant KEY_DOWN    = 40  //the down arrow key scancode
#constant KEY_SPACE	  = 32  //the space bar
#constant bulletLife   = 1.5
//images and textures
#constant boxTextureD =1
#constant treeD		  =2	
#constant heliD	 	  =3	
#constant fuelD       =4
#constant medsD       =5  
#constant turretD     =6
#constant planetD	  =7	
#constant planetN     =8
#constant baseD       =9
#constant missileImg  =10
#constant missileImg2 =11
#constant explosionImg=12
#constant smokeImg    =13
#constant frameImg    =14
#constant helipadD    =15 
#constant heliA       =16 
   
//3d Objects
#constant heliObj	  =1	 
#constant heliBladesObj=2
#constant heliTailObj =3 
#constant missileObj  =4
#constant fuelObj     =5
#constant medsObj     =6
#constant baseObj	  =7 	
#constant turretObj   =8
#constant boxObj   	  =9
#constant treeObj     =10
#constant worldObj    =11
#constant helipadObj  =12
#constant helipad2Obj =13

//text
#constant titleTxt    =1
#constant holdingTxt  =2
#constant rescuedTxt  =3
#constant fuelTxt  	  =4
#constant altTxt	  =5
#constant livesTxt	  =6

//Sprites
#constant explosionSpr=1
#constant frameSpr	  =2

//Shaders
//#constant addShader  =1
//Variables
#constant Depth#=10

type _boxes
	id
	x#
	y#
	z#
	lastFiredTime#
	pickedup as integer
endtype

type vertex
	x as float
	y as float
	z as float
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype

type explosion
	ID as integer
endtype

global turrets as _boxes[]
global bases as _boxes[]
global blocks as _boxes[]
global trees as _boxes[]
global meds as _boxes[]
global fuel as _boxes[]
global verts as vertex[]
global empty as _boxes
global planetMissile as bullet[0]
global playerBomb as bullet[0]
global missileCount=0 
global box,boxnumber

loadImagesAndObjects()
createWorld()
lives=5:missileCount=0:state=0:pickedupCounter=0:basesDestroyed=0:rescued=0:fuel#=100
createSpritesandText()
create3DPhysicsWorld()
Set3DPhysicsGravity( 0, 0, 0 ) 
SetObjectPosition(heliObj,0,12 ,-22)

do 
	RotateObjectGlobalY(heliBladesObj,20)
	RotateObjectGlobalZ(heliTailObj,15)
	
	if GetRawKeyState(KEY_UP)
		SetObjectRotation(heliObj,0,90,-50)
		moveWorld(box,-1,0,0)
	endif
	if GetRawKeyState(KEY_DOWN)
		SetObjectRotation(heliObj,0,90,-50)
		moveWorld(box,2,0,0)
	endif
	if GetRawKeyState(KEY_LEFT)
		SetObjectRotation(heliObj,-25,90,-50)
		moveWorld(box,0,0,-1)
	endif
	if GetRawKeyState(KEY_RIGHT)
		SetObjectRotation(heliObj,25,90,-50)
		moveWorld(box,0,0,1)
	endif
	if GetrawkeyPressed(KEY_SPACE)
		dropBomb(heliObj,worldObj, 20.0, 10.0)
	endif
	
	numBombs=playerBomb.length

for num2= boxnumber-1 to 1 step-1
		for num= numBombs to 1 step-1
			if numBombs>0
			if GetObjectVisible(turrets[num2].id) and objectraycast(turrets[num2].id,getObjectX(playerBomb[num].ID)-1.0,getObjectY(playerBomb[num].ID)-1.0,getObjectZ(playerBomb[num].ID)-1.0,getObjectX(playerBomb[num].ID)+1.0,getObjectY(playerBomb[num].ID)+1.0,getObjectZ(playerBomb[num].ID)+1.0) 
				SetObjectVisible(turrets[num2].id,0)
				part2ID=Create3DParticles( getObjectX(playerBomb[num].ID),getObjectY(playerBomb[num].ID),getObjectZ(playerBomb[num].ID) ) 
				Set3DParticlesDirection( part2ID, 0,2, 0, 0 ) 
				Set3DParticlesDirectionRange( part2ID,275,45  ) 
				Set3DParticlesFrequency( part2ID, 100 )
				Set3DParticlesImage(part2ID,smokeImg)
				Set3DParticlesSize(part2ID,1)
				Set3DParticlesLife(part2ID,.25)
				Set3DParticlesVelocityRange(part2ID,1,10)
				Set3DParticlesMax(part2ID,150)
				inc basesDestroyed
				exit
			endif
			endif
		next num
	next num2 
	
	//clean up bombs
	numBombs=playerBomb.length
	for num= numBombs to 0 step-1
		if timer()>playerBomb[num].time+bulletLife
			DeleteObject(playerBomb[num].ID)
			playerBomb.remove(num)
		endif
	next
	
	for num =0 to boxnumber-1
		//shoot at plane if in range
		towerNum=num
		if timer()>turrets[towerNum].lastFiredTime#+.75 and GetObjectVisible(turrets[towerNum].id) and getDistance(turrets[towerNum].id,heliObj)<6 
			//ang# = get2DAngle(getObjectX(turrets[towerNum].id),getObjectZ(turrets[towerNum].id),getObjectX(heliObj),getObjectZ(heliObj))
			//RotateObjectLocalY(turrets[towerNum].id,ang#)
			turrets[towerNum].lastFiredTime#=timer()
			shootMissile( turrets[towerNum].id,heliObj, 30.0, 50.0)
		endif
	next num
	
	missileNum=missileCount  //check if the heli has been shot
	for num=missileNum to 1 step -1
		if state=0 and objectraycast(heliObj,getObjectX(planetMissile[num].ID)-0.25,getObjectY(planetMissile[num].ID)-0.25,getObjectZ(planetMissile[num].ID)-22,getObjectX(planetMissile[num].ID)+0.25,getObjectY(planetMissile[num].ID)+0.25,getObjectZ(planetMissile[num].ID)) 
			dec lives:state=1
		endif
		//remove old bullets
		if (planetMissile[num].time)+bulletLife<timer() 
			DeleteObject(planetMissile[num].ID)
			planetMissile.remove(num)
			dec missileCount	
		endif
	next num
	
	pickupNum=blocks.length //pick up blocks and move them 
	for num =pickupNum to 1 step-1
		if blocks[num].pickedup=0 and objectraycast(blocks[num].id,getObjectX(heliObj)-0.5,getObjectY(heliObj)-1.5,getObjectZ(heliObj)-0.5,getObjectX(heliObj)+0.5,getObjectY(heliObj)+0.5,getObjectZ(heliObj)+10) 
			inc pickedupCounter:blocks[num].pickedup=pickedupCounter
			FixObjectToObject(blocks[num].id,0)
			//SetObjectPosition(blocks[num].id,(1.2*pickedupCounter)+1.25,0,0)
			SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(heliObj)-(0.75*pickedupCounter)-1.25,getObjectZ(heliObj))
			SetObjectRotation(blocks[num].id,0,0,0)
			//FixObjectToObject(blocks[num].id,shipBlock)
		endif
		if blocks[num].pickedup>0
			if GetObjectAngleX(heliObj)<0
				SetObjectPosition(blocks[num].id,getObjectX(heliObj)-((blocks[num].pickedup)*.15)+.75,getObjectY(blocks[num].id),getObjectZ(blocks[num].id))
			elseif GetObjectAngleX(heliObj)>0
				SetObjectPosition(blocks[num].id,getObjectX(heliObj)+((blocks[num].pickedup)*.15)-.75,getObjectY(blocks[num].id),getObjectZ(blocks[num].id))
			else
				SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(blocks[num].id),getObjectZ(blocks[num].id))				
			endif	 
		endif
	next num	
	
	//drop blocks off at helipad
	if objectraycast(helipadObj,getObjectX(heliObj)-0.5,getObjectY(heliObj)-1.5,getObjectZ(heliObj)-0.5,getObjectX(heliObj)+0.5,getObjectY(heliObj)+0.5,getObjectZ(heliObj)+10) or objectraycast(helipad2Obj,getObjectX(heliObj)-0.5,getObjectY(heliObj)-1.5,getObjectZ(heliObj)-0.5,getObjectX(heliObj)+0.5,getObjectY(heliObj)+0.5,getObjectZ(heliObj)+10)
		for num =pickupNum to 1 step-1
			if blocks[num].pickedup>0
				blocks[num].pickedup=0
				SetObjectVisible(blocks[num].id,0)
				Dec pickedupCounter: inc rescued
			endif
		next num
	endif
	
	//pickup health
	for num =meds.length to 1 step-1
		if GetObjectVisible(meds[num].id) and objectraycast(meds[num].id,getObjectX(heliObj)-0.5,getObjectY(heliObj)-1.5,getObjectZ(heliObj)-0.5,getObjectX(heliObj)+0.5,getObjectY(heliObj)+0.5,getObjectZ(heliObj)+10) 
			inc lives
			SetObjectVisible(meds[num].id,0)
		endif
	next num	
	
	for num =fuel.length to 1 step-1
		if GetObjectVisible(fuel[num].id) and objectraycast(fuel[num].id,getObjectX(heliObj)-0.5,getObjectY(heliObj)-1.5,getObjectZ(heliObj)-0.5,getObjectX(heliObj)+0.5,getObjectY(heliObj)+0.5,getObjectZ(heliObj)+10) 
			fuel#=fuel#+25
			SetObjectVisible(fuel[num].id,0)
		endif
	next num	
	
	if state=1
		if Get3DParticlesExists(partID) then Delete3DParticles(partID)
		partID=Create3DParticles( getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj) ) 
		Set3DParticlesDirection( partID, 0,2, 0, 0 ) 
		Set3DParticlesDirectionRange( partID,275,45  ) 
		Set3DParticlesFrequency( partID, 75 )
		Set3DParticlesImage(partID,smokeImg)
		Set3DParticlesSize(partID,1)
		Set3DParticlesLife(partID,1.0)
		Set3DParticlesVelocityRange(partID,1,10)
		Set3DParticlesMax(partID,275)
		SetObjectColor(heliObj,255,0,0,255)	
		SetObjectColor(heliBladesObj,255,0,0,255)	
		SetObjectColor(heliTailObj,255,0,0,255)
		state=2
	endif	
	pickupNum=blocks.length
	if state=2 
		if getObjectZ(heliObj)<-12
			SetObjectPosition(heliObj,getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj)+.1)
			if GetParticlesExists(partID) then Set3DParticlesPosition(partID,getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj)) 
			for num =pickupNum to 1 step-1
				if blocks[num].pickedup>0 then SetObjectPosition(blocks[num].id,getObjectX(blocks[num].id),getObjectY(blocks[num].id),getObjectZ(blocks[num].id)+.1)
			next num
		else 
			state=3	
		endif
		
		if getObjectZ(heliObj)>=-14 and GetSpritePlaying(explosionSpr)=0
			SetSpriteVisible(explosionSpr,1)
			playSprite(explosionSpr,10,0)
			inc rescued 
		endif
		
	endif
	
	if state=3 and GetSpritePlaying(explosionSpr)=0
		SetSpriteVisible(explosionSpr,0)
		SetObjectPosition(heliObj,0,12 ,-22)
		state=0:fuel#=100
		for num =pickupNum to 1 step-1
			if blocks[num].pickedup>0 then SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(blocks[num].id),getObjectZ(heliObj))
		next num	
	endif
	
	SetTextString(holdingTxt,"H:"+Str(pickedupCounter))
	SetTextString(rescuedTxt,"R:"+Str(rescued))
	SetTextString(livesTxt,"L:"+Str(lives))
	SetTextString(fuelTxt,"F:"+Str(Trunc(fuel#)))
	SetTextString(altTxt,"Alt:"+Str(Trunc(ABS(GetObjectZ(heliObj))-12)))
    Step3DPhysicsWorld()
    fuel#=fuel#-.025:if fuel#<0 then fuel#=0:if fuel#=0 and state=0 then state=2
	if state=0
	if fuel#<=50 and fuel#>10
		SetTextColor(fuelTxt,255,255,0,255)
		SetObjectColor(heliObj,255,255,0,255)
		SetObjectColor(heliBladesObj,255,255,0,255)
		SetObjectColor(heliTailObj,255,255,0,255)
	elseif fuel#<=10
		SetTextColor(fuelTxt,255,0,0,255)
		SetObjectColor(heliObj,255,0,0,255)	
		SetObjectColor(heliBladesObj,255,0,0,255)	
		SetObjectColor(heliTailObj,255,0,0,255)
	else
		SetTextColor(fuelTxt,0,255,0,255)
		SetObjectColor(heliObj,0,255,0,255)		
		SetObjectColor(heliBladesObj,0,255,0,255)		
		SetObjectColor(heliTailObj,0,255,0,255)
	endif
	endif			
    Sync()
loop

function moveWorld(objID as integer,ax#,ay#,az#)
	RotateObjectGlobalX(objID,ax#)
	RotateObjectGlobalY(objID,ay#)
	RotateObjectGlobalZ(objID,az#)	
endfunction

function shootMissile(objectId as integer,objectID2 as integer,initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(objectId),GetObjectWorldY(objectId),GetObjectWorldZ(objectId)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
     
    //setobjectrotation(projectiledirbox,-55.0,GetObjectAngleY(objectId),270.0)
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(objectId),GetObjectWorldAngleY(objectId),GetObjectWorldAngleZ(objectId))
    //SetObjectLookAt(projectiledirbox,GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2),0) 
    MoveObjectLocalZ( projectileDirBox, -1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    //DeleteObject( projectileDirBox )
    missile as integer    
    missile = CreateObjectSphere(.4,5,5)
   
    //bullet = CreateObjectSphere(.45,.45,.45 )
    //missile=InstanceObject(worldObj) 
    //SetObjectImage(missile,planetD,0)
    SetObjectColor(missile, 0, 255,0,255 )
    SetObjectLightMode(missile,0)

SetObjectPosition(missile, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(missile,GetObjectAngleX(projectileDirBox),GetObjectAngleY(projectileDirBox),GetObjectAngleZ(projectileDirBox)+180)
    //RotateObjectLocalZ(missile,90)
    DeleteObject( projectileDirBox )
    //3D Physics code
    Create3DPhysicsDynamicBody(missile)
    //SetObjectShapeSphere( bullet )
    SetObject3DPhysicsMass(missile, mass )
    SetObject3DPhysicsLinearVelocity(missile, projectileDirVec, initialSpeed )
    
    myItem as bullet
    myItem.ID = missile //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	planetMissile.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc missileCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function dropBomb(objectId as integer,objectID2 as integer,initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(objectId),GetObjectWorldY(objectId),GetObjectWorldZ(objectId)+4) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
     
    //setobjectrotation(projectiledirbox,GetObjectWorldAngleX(objectId),GetObjectWorldAngleY(objectId),GetObjectWorldAngleZ(objectId))
    //SetObjectLookAt(projectiledirbox,GetObjectX(objectId),GetObjectY(objectId),GetObjectZ(objectId)+5,0) 
    setobjectrotation(projectiledirbox,315,0.0,0.0) //270 x rot is straight ahead
    if GetObjectAngleX(objectId)< 0 then MoveObjectLocalX( projectileDirBox, -0.55 )
    if GetObjectAngleX(objectId)> 0 then MoveObjectLocalX( projectileDirBox, 0.55 )
    //RotateObjectLocalX(projectileDirBox,(GetObjectAngleX(objectId)))
    
    MoveObjectLocalY( projectileDirBox,-0.50 )
    MoveObjectLocalZ( projectileDirBox,1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    //DeleteObject( projectileDirBox )
    bomb as integer    
    bomb = CreateObjectSphere(.4,5,5)
    //bomb=InstanceObject(worldObj) 
    
    //SetObjectImage(bomb,planetD,0) 
	
	SetObjectColor(bomb, 0, 255,0,255 )
    
	SetObjectScale(bomb,1,1,1)
    SetObjectLightMode(bomb,0)
	//SetObjectTransparency(missileObj,1)

SetObjectPosition(bomb, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //RotateObjectLocalX(bomb,180)
    RotateObjectLocalY(bomb,270)
    
    DeleteObject( projectileDirBox )
    //3D Physics code
    Create3DPhysicsDynamicBody( bomb )
    //SetObjectShapeSphere( bullet )
    SetObject3DPhysicsMass(bomb, mass )
    SetObject3DPhysicsLinearVelocity(bomb, projectileDirVec, initialSpeed )
    
    myItem as bullet
    myItem.ID = bomb //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	playerBomb.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	//inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function getDistance(objectID as integer,objectID2 as integer)
	distance as float
	vec1=CreateVector3(GetObjectWorldX(objectID),GetObjectWorldY(objectID),GetObjectWorldZ(objectID))
	vec2=CreateVector3(GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2))
	distance=GetVector3Distance(vec1,vec2 ) 
	DeleteVector3(vec1)
	DeleteVector3(vec2)
endfunction distance

function get2DAngle(x1#, y1#, x2#, y2#)
    //result# = ATanFull(x1# - x2#, y1# - y2#)
	result# = ATan2(x1# - x2#,y1# - y2#)
endfunction result#

function wrapvalue(num as float)
    while num<0
		num=num+360
	endwhile
    while num>360
        num=num-360
    endwhile
endfunction num

function	LoadVertex(name as string)
	f as integer
	l as String
	v as vertex
	
	
	f = OpenToRead(name)
	
	l = ReadLine(f)
	
	while(FileEOF(f) = 0)
		if mid(l,1,2) = "v "
			v.x = ValFloat(GetStringToken(l, " ", 2)) * 39
			v.y = ValFloat(GetStringToken(l, " ", 3)) * 39
			v.z = ValFloat(GetStringToken(l, " ", 4)) * 39
			verts.insert(v)
		endif
		
		l = ReadLine(f)		
	endwhile

endfunction

function loadImagesAndObjects()
	SetGenerateMipmaps( 1 )

//load images
	LoadImage(boxTextureD,"box2.png")
	loadImage(treeD,"firtree_2D.png")
	LoadImage(heliD,"chopper7W.png")
	LoadImage(planetD,"sphere1.png")
	LoadImage(fuelD,"fuel2.png")
	LoadImage(medsD,"heartD.png")
	LoadImage(baseD,"base.png")
	LoadImage(turretD,"turret.png")
	LoadImage(frameImg,"frame.png")
	LoadImage(explosionImg,"explosionG.png")
	LoadImage(smokeImg,"smokeG.png")
	LoadImage(helipadD,"helipadD.png")

box=CreateObjectBox(1,1,1) //create a box to place at the centre of the planet 
	SetObjectVisible(box,0)

LoadObject(fuelObj,"fuel.3ds")
	LoadObject(medsObj,"heart.obj")
	LoadObject(baseObj,"base.3ds")
	LoadObject(turretObj,"turret.3ds")
	LoadObject(boxObj,"box.3ds")
	LoadObject(treeObj,"firtree2.x")
	LoadObject(heliObj,"chopper.3ds")
	loadObject(heliBladesObj,"blades.3ds")
	loadObject(heliTailObj,"tail.3ds")
	LoadObject(worldObj,"sphere1.obj")
	LoadObject(helipadObj,"helipad.obj")

SetObjectVisible(fuelObj,0)
	SetObjectVisible(medsObj,0)
	SetObjectVisible(baseObj,0)
	SetObjectVisible(turretObj,0)
	SetObjectVisible(boxObj,0)
	SetObjectVisible(treeObj,0)

SetObjectImage(helipadObj,helipadD,0)
	SetObjectPosition(helipadObj,0,19.5,0)
	FixObjectToObject(helipadObj,box)

InstanceObject(helipad2Obj,helipadObj)
	SetObjectImage(helipad2Obj,helipadD,0)
	SetObjectPosition(helipad2Obj,0,-19.5,0)
	SetObjectRotation(helipad2Obj,0, 0, 180 )
	FixObjectToObject(helipad2Obj,box)

SetObjectImage(heliObj,heliD,0)
	SetObjectImage(heliBladesObj,heliD,0)
	SetObjectImage(heliTailObj,heliD,0)
	SetObjectLightMode(heliObj,0)
	SetObjectLightMode(heliBladesObj,0)
	SetObjectLightMode(heliTailObj,0)

FixObjectToObject(heliBladesObj,heliObj)
	SetObjectPOsition(heliTailObj,1.5,.3,.1)
	FixObjectToObject(heliTailObj,heliObj)
	SetObjectDepthWrite(heliBladesObj, 1 ) 
	SetObjectCullMode(heliBladesObj, 0)  
	SetObjectDepthWrite(heliTailObj, 1 ) 
	SetObjectCullMode(heliTailObj, 0)  
	SetObjectRotation(heliObj,0,90,-50)
	SetObjectCollisionMode(heliObj,1)
endfunction

function createWorld()
boxnumber=0:a=0:b=0
loadvertex("sphere1.obj") //used to place the objects at the vertices
for i=0 to verts.length
	x#=verts[i].x
	y#=verts[i].y
	z#=verts[i].z
	//if x# > maxx# then maxx#=x#
	//if y# > maxy# then maxy#=y#
	//if z# > maxz# then maxz#=z#
	//if x# < minx# then minx#=x#
	//if y# < miny# then miny#=y#
	//if z# < minz# then minz#=z#
	if objectraycast(0,x#-2,y#-2,z#-2,x#+2,y#+2,z#+2) =0
		empty.x#=x#
		empty.y#=y#
		empty.z#=z#
		//empty.fired=0
		a=random(1,25)
		if a>15
			empty.id = InstanceObject(baseObj)
			bases.insert(empty)
			SetObjectImage(empty.id,baseD,0)
			SetObjectLightMode(empty.id,0)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 )
			RotateObjectLocalX(empty.id,275)
			FixObjectToObject(empty.id,box)
			SetObjectVisible(empty.id,1)
			b=random(1,10)
			if b>5
				empty.id = InstanceObject(turretObj)
				empty.lastFiredTime#=0
				SetObjectImage(empty.id,turretD,0)
				SetObjectLightMode(empty.id,0)
				SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
				SetObjectLookAt(empty.id, 0, 0, 0, 0 )
				RotateObjectLocalX(empty.id,275)
				FixObjectToObject(empty.id,box)
				SetObjectVisible(empty.id,1)
				turrets.insert(empty)
				inc boxnumber
			elseif b>2
				empty.id = InstanceObject(fuelObj)
				fuel.insert(empty)
				SetObjectImage(empty.id,fuelD,0)
				SetObjectLightMode(empty.id,0)
				SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
				SetObjectLookAt(empty.id, 0, 0, 0, 0 )
				RotateObjectLocalX(empty.id,275)
				FixObjectToObject(empty.id,box)
				SetObjectVisible(empty.id,1)
			else
				empty.id = InstanceObject(medsObj)
				meds.insert(empty)
				SetObjectImage(empty.id,medsD,0)
				SetObjectLightMode(empty.id,0)
				SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
				SetObjectLookAt(empty.id, 0, 0, 0, 0 )
				RotateObjectLocalX(empty.id,275)
				FixObjectToObject(empty.id,box)
				SetObjectVisible(empty.id,1)
			endif
		elseif a>10
				empty.id = InstanceObject(treeObj)
				SetObjectScale(empty.id,.04,.04,.04)
				SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
				SetObjectImage(empty.id,treeD,0)			
				SetObjectLightMode(empty.id,0)
				SetObjectColor(empty.id,0,150,0,255)
				SetObjectLookAt(empty.id, 0, 0, 0, 0 ) 
				RotateObjectLocalX(empty.id,-90) 			
				FixObjectToObject(empty.id,box)
			    SetObjectVisible(empty.id,1)
				trees.insert(empty) 
		else
				empty.id = InstanceObject(boxObj)
				empty.pickedup=0
				setObjectImage(empty.id,boxTextureD,0)
				SetObjectLightMode(empty.id,0)
				SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
				SetObjectLookAt(empty.id, 0, 0, 0, 0 ) 
				blocks.insert(empty)
				SetObjectVisible(empty.id,1)
				FixObjectToObject(empty.id,box)
		endif
	endif

next
//	next

SetObjectScale(worldObj,39,39,39)
SetObjectImage(worldObj,planetD,0)
FixObjectToObject(worldObj,box)
endfunction

function createSpritesandText()
	CreateSprite(explosionSpr,explosionImg)
	SetSpriteImage(explosionSpr,explosionImg)
	SetSpriteAnimation(explosionSpr,256,256,25)
	SetSpriteSize(explosionSpr,256,256)
	SetCameraPosition(1,0,15,-30)
	SetCameraRotation(1,15,0,0 )
	SetSpritePositionByOffset(explosionSpr,512+GetObjectX(heliObj),384-GetObjectY(heliObj))
	SetSpriteVisible(explosionSpr,0)			
	CreateSprite(frameSpr,frameImg)
	
	CreateText(titleTxt,"Block-Lifter")
	SetTextPosition(titleTxt,412,0)
	SetTextColor(titleTxt,0,255,0,255)
	SetTextSize(titleTxt,50)
	CreateText(altTxt,"Alt:0")
	SetTextPosition(altTxt,352,40)
	SetTextColor(altTxt,0,255,0,255)
	SetTextSize(altTxt,30)
	CreateText(fuelTxt,"F:100")
	SetTextPosition(fuelTxt,452,40)
	SetTextColor(fuelTxt,0,255,0,255)
	SetTextSize(fuelTxt,30)
	CreateText(holdingTxt,"H:0")
	SetTextPosition(holdingTxt,552,40)
	SetTextColor(holdingTxt,0,255,0,255)
	SetTextSize(holdingTxt,30)
	CreateText(rescuedTxt,"R:0")
	SetTextPosition(rescuedTxt,652,40)
	SetTextColor(rescuedTxt,0,255,0,255)
	SetTextSize(rescuedTxt,30)
	CreateText(livesTxt,"L:0")
	SetTextPosition(livesTxt,752,40)
	SetTextColor(livesTxt,0,255,0,255)
	SetTextSize(livesTxt,30)
endfunction

+ Code Snippet

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

#constant KEY_LEFT    = 37  //the left arrow key scancode
#constant KEY_UP      = 38  //the up arrow key scancode
#constant KEY_RIGHT   = 39  //the right arrow key scancode
#constant KEY_DOWN    = 40  //the down arrow key scancode
#constant KEY_SPACE	  = 32  //the space bar
#constant bulletLife   = 1.5
//images and textures
#constant boxTextureD =1
#constant treeD		  =2	
#constant heliD	 	  =3	
#constant fuelD       =4
#constant medsD       =5  
#constant turretD     =6
#constant planetD	  =7	
#constant planetN     =8
#constant baseD       =9
#constant missileImg  =10
#constant missileImg2 =11
#constant explosionImg=12
#constant smokeImg    =13
#constant frameImg    =14
#constant helipadD    =15 
#constant heliA       =16 
   
//3d Objects
#constant heliObj	  =1	 
#constant heliBladesObj=2
#constant heliTailObj =3 
#constant missileObj  =4
#constant fuelObj     =5
#constant medsObj     =6
#constant baseObj	  =7 	
#constant turretObj   =8
#constant boxObj   	  =9
#constant treeObj     =10
#constant worldObj    =11
#constant helipadObj  =12
#constant helipad2Obj =13

//text
#constant titleTxt    =1
#constant holdingTxt  =2
#constant rescuedTxt  =3
#constant fuelTxt  	  =4
#constant altTxt	  =5
#constant livesTxt	  =6

//Sprites
#constant explosionSpr=1
#constant frameSpr	  =2

//Shaders
//#constant addShader  =1
//Variables
#constant Depth#=10

type _boxes
	id
	x#
	y#
	z#
	lastFiredTime#
	pickedup as integer
endtype

type vertex
	x as float
	y as float
	z as float
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype

type explosion
	ID as integer
endtype

global turrets as _boxes[]
global bases as _boxes[]
global blocks as _boxes[]
global trees as _boxes[]
global meds as _boxes[]
global fuel as _boxes[]
global verts as vertex[]
global empty as _boxes
global planetMissile as bullet[0]
global playerBomb as bullet[0]
global missileCount=0 
global box,boxnumber


loadImagesAndObjects()
createWorld()
lives=5:missileCount=0:state=0:pickedupCounter=0:basesDestroyed=0:rescued=0:fuel#=100
createSpritesandText()
create3DPhysicsWorld()
Set3DPhysicsGravity( 0, 0, 0 ) 
SetObjectPosition(heliObj,0,12 ,-22)

do 
	RotateObjectGlobalY(heliBladesObj,20)
	RotateObjectGlobalZ(heliTailObj,15)
	
	if GetRawKeyState(KEY_UP)
		SetObjectRotation(heliObj,0,90,-50)
		moveWorld(box,-1,0,0)
	endif
	if GetRawKeyState(KEY_DOWN)
		SetObjectRotation(heliObj,0,90,-50)
		moveWorld(box,2,0,0)
	endif
	if GetRawKeyState(KEY_LEFT)
		SetObjectRotation(heliObj,-25,90,-50)
		moveWorld(box,0,0,-1)
	endif
	if GetRawKeyState(KEY_RIGHT)
		SetObjectRotation(heliObj,25,90,-50)
		moveWorld(box,0,0,1)
	endif
	if GetrawkeyPressed(KEY_SPACE)
		dropBomb(heliObj,worldObj, 20.0, 10.0)
	endif
	
	numBombs=playerBomb.length

	for num2= boxnumber-1 to 1 step-1
		for num= numBombs to 1 step-1
			if numBombs>0
			if GetObjectVisible(turrets[num2].id) and objectraycast(turrets[num2].id,getObjectX(playerBomb[num].ID)-1.0,getObjectY(playerBomb[num].ID)-1.0,getObjectZ(playerBomb[num].ID)-1.0,getObjectX(playerBomb[num].ID)+1.0,getObjectY(playerBomb[num].ID)+1.0,getObjectZ(playerBomb[num].ID)+1.0) 
				SetObjectVisible(turrets[num2].id,0)
				part2ID=Create3DParticles( getObjectX(playerBomb[num].ID),getObjectY(playerBomb[num].ID),getObjectZ(playerBomb[num].ID) ) 
				Set3DParticlesDirection( part2ID, 0,2, 0, 0 ) 
				Set3DParticlesDirectionRange( part2ID,275,45  ) 
				Set3DParticlesFrequency( part2ID, 100 )
				Set3DParticlesImage(part2ID,smokeImg)
				Set3DParticlesSize(part2ID,1)
				Set3DParticlesLife(part2ID,.25)
				Set3DParticlesVelocityRange(part2ID,1,10)
				Set3DParticlesMax(part2ID,150)
				inc basesDestroyed
				exit
			endif
			endif
		next num
	next num2 
	
	//clean up bombs
	numBombs=playerBomb.length
	for num= numBombs to 0 step-1
		if timer()>playerBomb[num].time+bulletLife
			DeleteObject(playerBomb[num].ID)
			playerBomb.remove(num)
		endif
	next
	
	for num =0 to boxnumber-1
		//shoot at plane if in range
		towerNum=num
		if timer()>turrets[towerNum].lastFiredTime#+.75 and GetObjectVisible(turrets[towerNum].id) and getDistance(turrets[towerNum].id,heliObj)<6 
			//ang# = get2DAngle(getObjectX(turrets[towerNum].id),getObjectZ(turrets[towerNum].id),getObjectX(heliObj),getObjectZ(heliObj))
			//RotateObjectLocalY(turrets[towerNum].id,ang#)
			turrets[towerNum].lastFiredTime#=timer()
			shootMissile( turrets[towerNum].id,heliObj, 30.0, 50.0)
		endif
	next num
	
	missileNum=missileCount  //check if the heli has been shot
	for num=missileNum to 1 step -1
		if state=0 and objectraycast(heliObj,getObjectX(planetMissile[num].ID)-0.25,getObjectY(planetMissile[num].ID)-0.25,getObjectZ(planetMissile[num].ID)-22,getObjectX(planetMissile[num].ID)+0.25,getObjectY(planetMissile[num].ID)+0.25,getObjectZ(planetMissile[num].ID)) 
			dec lives:state=1
		endif
		//remove old bullets
		if (planetMissile[num].time)+bulletLife<timer() 
			DeleteObject(planetMissile[num].ID)
			planetMissile.remove(num)
			dec missileCount	
		endif
	next num
	
	pickupNum=blocks.length //pick up blocks and move them 
	for num =pickupNum to 1 step-1
		if blocks[num].pickedup=0 and objectraycast(blocks[num].id,getObjectX(heliObj)-0.5,getObjectY(heliObj)-1.5,getObjectZ(heliObj)-0.5,getObjectX(heliObj)+0.5,getObjectY(heliObj)+0.5,getObjectZ(heliObj)+10) 
			inc pickedupCounter:blocks[num].pickedup=pickedupCounter
			FixObjectToObject(blocks[num].id,0)
			//SetObjectPosition(blocks[num].id,(1.2*pickedupCounter)+1.25,0,0)
			SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(heliObj)-(0.75*pickedupCounter)-1.25,getObjectZ(heliObj))
			SetObjectRotation(blocks[num].id,0,0,0)
			//FixObjectToObject(blocks[num].id,shipBlock)
		endif
		if blocks[num].pickedup>0
			if GetObjectAngleX(heliObj)<0
				SetObjectPosition(blocks[num].id,getObjectX(heliObj)-((blocks[num].pickedup)*.15)+.75,getObjectY(blocks[num].id),getObjectZ(blocks[num].id))
			elseif GetObjectAngleX(heliObj)>0
				SetObjectPosition(blocks[num].id,getObjectX(heliObj)+((blocks[num].pickedup)*.15)-.75,getObjectY(blocks[num].id),getObjectZ(blocks[num].id))
			else
				SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(blocks[num].id),getObjectZ(blocks[num].id))				
			endif	 
		endif
	next num	
	
	//drop blocks off at helipad
	if objectraycast(helipadObj,getObjectX(heliObj)-0.5,getObjectY(heliObj)-1.5,getObjectZ(heliObj)-0.5,getObjectX(heliObj)+0.5,getObjectY(heliObj)+0.5,getObjectZ(heliObj)+10) or objectraycast(helipad2Obj,getObjectX(heliObj)-0.5,getObjectY(heliObj)-1.5,getObjectZ(heliObj)-0.5,getObjectX(heliObj)+0.5,getObjectY(heliObj)+0.5,getObjectZ(heliObj)+10)
		for num =pickupNum to 1 step-1
			if blocks[num].pickedup>0
				blocks[num].pickedup=0
				SetObjectVisible(blocks[num].id,0)
				Dec pickedupCounter: inc rescued
			endif
		next num
	endif
	
	//pickup health
	for num =meds.length to 1 step-1
		if GetObjectVisible(meds[num].id) and objectraycast(meds[num].id,getObjectX(heliObj)-0.5,getObjectY(heliObj)-1.5,getObjectZ(heliObj)-0.5,getObjectX(heliObj)+0.5,getObjectY(heliObj)+0.5,getObjectZ(heliObj)+10) 
			inc lives
			SetObjectVisible(meds[num].id,0)
		endif
	next num	
	
	for num =fuel.length to 1 step-1
		if GetObjectVisible(fuel[num].id) and objectraycast(fuel[num].id,getObjectX(heliObj)-0.5,getObjectY(heliObj)-1.5,getObjectZ(heliObj)-0.5,getObjectX(heliObj)+0.5,getObjectY(heliObj)+0.5,getObjectZ(heliObj)+10) 
			fuel#=fuel#+25
			SetObjectVisible(fuel[num].id,0)
		endif
	next num	
	
	if state=1
		if Get3DParticlesExists(partID) then Delete3DParticles(partID)
		partID=Create3DParticles( getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj) ) 
		Set3DParticlesDirection( partID, 0,2, 0, 0 ) 
		Set3DParticlesDirectionRange( partID,275,45  ) 
		Set3DParticlesFrequency( partID, 75 )
		Set3DParticlesImage(partID,smokeImg)
		Set3DParticlesSize(partID,1)
		Set3DParticlesLife(partID,1.0)
		Set3DParticlesVelocityRange(partID,1,10)
		Set3DParticlesMax(partID,275)
		SetObjectColor(heliObj,255,0,0,255)	
		SetObjectColor(heliBladesObj,255,0,0,255)	
		SetObjectColor(heliTailObj,255,0,0,255)
		state=2
	endif	
	pickupNum=blocks.length
	if state=2 
		if getObjectZ(heliObj)<-12
			SetObjectPosition(heliObj,getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj)+.1)
			if GetParticlesExists(partID) then Set3DParticlesPosition(partID,getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj)) 
			for num =pickupNum to 1 step-1
				if blocks[num].pickedup>0 then SetObjectPosition(blocks[num].id,getObjectX(blocks[num].id),getObjectY(blocks[num].id),getObjectZ(blocks[num].id)+.1)
			next num
		else 
			state=3	
		endif
		
		if getObjectZ(heliObj)>=-14 and GetSpritePlaying(explosionSpr)=0
			SetSpriteVisible(explosionSpr,1)
			playSprite(explosionSpr,10,0)
			inc rescued 
		endif
		
	endif
	
	if state=3 and GetSpritePlaying(explosionSpr)=0
		SetSpriteVisible(explosionSpr,0)
		SetObjectPosition(heliObj,0,12 ,-22)
		state=0:fuel#=100
		for num =pickupNum to 1 step-1
			if blocks[num].pickedup>0 then SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(blocks[num].id),getObjectZ(heliObj))
		next num	
	endif
	
	SetTextString(holdingTxt,"H:"+Str(pickedupCounter))
	SetTextString(rescuedTxt,"R:"+Str(rescued))
	SetTextString(livesTxt,"L:"+Str(lives))
	SetTextString(fuelTxt,"F:"+Str(Trunc(fuel#)))
	SetTextString(altTxt,"Alt:"+Str(Trunc(ABS(GetObjectZ(heliObj))-12)))
    Step3DPhysicsWorld()
    fuel#=fuel#-.025:if fuel#<0 then fuel#=0:if fuel#=0 and state=0 then state=2
	if state=0
	if fuel#<=50 and fuel#>10
		SetTextColor(fuelTxt,255,255,0,255)
		SetObjectColor(heliObj,255,255,0,255)
		SetObjectColor(heliBladesObj,255,255,0,255)
		SetObjectColor(heliTailObj,255,255,0,255)
	elseif fuel#<=10
		SetTextColor(fuelTxt,255,0,0,255)
		SetObjectColor(heliObj,255,0,0,255)	
		SetObjectColor(heliBladesObj,255,0,0,255)	
		SetObjectColor(heliTailObj,255,0,0,255)
	else
		SetTextColor(fuelTxt,0,255,0,255)
		SetObjectColor(heliObj,0,255,0,255)		
		SetObjectColor(heliBladesObj,0,255,0,255)		
		SetObjectColor(heliTailObj,0,255,0,255)
	endif
	endif			
    Sync()
loop

function moveWorld(objID as integer,ax#,ay#,az#)
	RotateObjectGlobalX(objID,ax#)
	RotateObjectGlobalY(objID,ay#)
	RotateObjectGlobalZ(objID,az#)	
endfunction


function shootMissile(objectId as integer,objectID2 as integer,initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(objectId),GetObjectWorldY(objectId),GetObjectWorldZ(objectId)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
     
    //setobjectrotation(projectiledirbox,-55.0,GetObjectAngleY(objectId),270.0)
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(objectId),GetObjectWorldAngleY(objectId),GetObjectWorldAngleZ(objectId))
    //SetObjectLookAt(projectiledirbox,GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2),0) 
    MoveObjectLocalZ( projectileDirBox, -1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    //DeleteObject( projectileDirBox )
    missile as integer    
    missile = CreateObjectSphere(.4,5,5)
   
    //bullet = CreateObjectSphere(.45,.45,.45 )
    //missile=InstanceObject(worldObj) 
    //SetObjectImage(missile,planetD,0)
    SetObjectColor(missile, 0, 255,0,255 )
    SetObjectLightMode(missile,0)

    SetObjectPosition(missile, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(missile,GetObjectAngleX(projectileDirBox),GetObjectAngleY(projectileDirBox),GetObjectAngleZ(projectileDirBox)+180)
    //RotateObjectLocalZ(missile,90)
    DeleteObject( projectileDirBox )
    //3D Physics code
    Create3DPhysicsDynamicBody(missile)
    //SetObjectShapeSphere( bullet )
    SetObject3DPhysicsMass(missile, mass )
    SetObject3DPhysicsLinearVelocity(missile, projectileDirVec, initialSpeed )
    
    myItem as bullet
    myItem.ID = missile //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	planetMissile.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc missileCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function dropBomb(objectId as integer,objectID2 as integer,initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(objectId),GetObjectWorldY(objectId),GetObjectWorldZ(objectId)+4) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
     
    //setobjectrotation(projectiledirbox,GetObjectWorldAngleX(objectId),GetObjectWorldAngleY(objectId),GetObjectWorldAngleZ(objectId))
    //SetObjectLookAt(projectiledirbox,GetObjectX(objectId),GetObjectY(objectId),GetObjectZ(objectId)+5,0) 
    setobjectrotation(projectiledirbox,315,0.0,0.0) //270 x rot is straight ahead
    if GetObjectAngleX(objectId)< 0 then MoveObjectLocalX( projectileDirBox, -0.55 )
    if GetObjectAngleX(objectId)> 0 then MoveObjectLocalX( projectileDirBox, 0.55 )
    //RotateObjectLocalX(projectileDirBox,(GetObjectAngleX(objectId)))
    
    MoveObjectLocalY( projectileDirBox,-0.50 )
    MoveObjectLocalZ( projectileDirBox,1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    //DeleteObject( projectileDirBox )
    bomb as integer    
    bomb = CreateObjectSphere(.4,5,5)
    //bomb=InstanceObject(worldObj) 
    
    //SetObjectImage(bomb,planetD,0) 
	
	SetObjectColor(bomb, 0, 255,0,255 )
    
	SetObjectScale(bomb,1,1,1)
    SetObjectLightMode(bomb,0)
	//SetObjectTransparency(missileObj,1) 

    SetObjectPosition(bomb, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //RotateObjectLocalX(bomb,180)
    RotateObjectLocalY(bomb,270)
    
    DeleteObject( projectileDirBox )
    //3D Physics code
    Create3DPhysicsDynamicBody( bomb )
    //SetObjectShapeSphere( bullet )
    SetObject3DPhysicsMass(bomb, mass )
    SetObject3DPhysicsLinearVelocity(bomb, projectileDirVec, initialSpeed )
    
    myItem as bullet
    myItem.ID = bomb //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	playerBomb.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	//inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction


function getDistance(objectID as integer,objectID2 as integer)
	distance as float
	vec1=CreateVector3(GetObjectWorldX(objectID),GetObjectWorldY(objectID),GetObjectWorldZ(objectID))
	vec2=CreateVector3(GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2))
	distance=GetVector3Distance(vec1,vec2 ) 
	DeleteVector3(vec1)
	DeleteVector3(vec2)
endfunction distance

function get2DAngle(x1#, y1#, x2#, y2#)
    //result# = ATanFull(x1# - x2#, y1# - y2#)
	result# = ATan2(x1# - x2#,y1# - y2#)
endfunction result#

function wrapvalue(num as float)
    while num<0
		num=num+360
	endwhile
    while num>360
        num=num-360
    endwhile
endfunction num

function	LoadVertex(name as string)
	f as integer
	l as String
	v as vertex
	
	
	f = OpenToRead(name)
	
	l = ReadLine(f)
	
	while(FileEOF(f) = 0)
		if mid(l,1,2) = "v "
			v.x = ValFloat(GetStringToken(l, " ", 2)) * 39
			v.y = ValFloat(GetStringToken(l, " ", 3)) * 39
			v.z = ValFloat(GetStringToken(l, " ", 4)) * 39
			verts.insert(v)
		endif
		
		l = ReadLine(f)		
	endwhile

endfunction

function loadImagesAndObjects()
	SetGenerateMipmaps( 1 )

	//load images
	LoadImage(boxTextureD,"box2.png")
	loadImage(treeD,"firtree_2D.png")
	LoadImage(heliD,"chopper7W.png")
	LoadImage(planetD,"sphere1.png")
	LoadImage(fuelD,"fuel2.png")
	LoadImage(medsD,"heartD.png")
	LoadImage(baseD,"base.png")
	LoadImage(turretD,"turret.png")
	LoadImage(frameImg,"frame.png")
	LoadImage(explosionImg,"explosionG.png")
	LoadImage(smokeImg,"smokeG.png")
	LoadImage(helipadD,"helipadD.png")

	box=CreateObjectBox(1,1,1) //create a box to place at the centre of the planet 
	SetObjectVisible(box,0)

	LoadObject(fuelObj,"fuel.3ds")
	LoadObject(medsObj,"heart.obj")
	LoadObject(baseObj,"base.3ds")
	LoadObject(turretObj,"turret.3ds")
	LoadObject(boxObj,"box.3ds")
	LoadObject(treeObj,"firtree2.x")
	LoadObject(heliObj,"chopper.3ds")
	loadObject(heliBladesObj,"blades.3ds")
	loadObject(heliTailObj,"tail.3ds")
	LoadObject(worldObj,"sphere1.obj")
	LoadObject(helipadObj,"helipad.obj")

	SetObjectVisible(fuelObj,0)
	SetObjectVisible(medsObj,0)
	SetObjectVisible(baseObj,0)
	SetObjectVisible(turretObj,0)
	SetObjectVisible(boxObj,0)
	SetObjectVisible(treeObj,0)

	SetObjectImage(helipadObj,helipadD,0)
	SetObjectPosition(helipadObj,0,19.5,0)
	FixObjectToObject(helipadObj,box)

	InstanceObject(helipad2Obj,helipadObj)
	SetObjectImage(helipad2Obj,helipadD,0)
	SetObjectPosition(helipad2Obj,0,-19.5,0)
	SetObjectRotation(helipad2Obj,0, 0, 180 )
	FixObjectToObject(helipad2Obj,box)

	SetObjectImage(heliObj,heliD,0)
	SetObjectImage(heliBladesObj,heliD,0)
	SetObjectImage(heliTailObj,heliD,0)
	SetObjectLightMode(heliObj,0)
	SetObjectLightMode(heliBladesObj,0)
	SetObjectLightMode(heliTailObj,0)

	FixObjectToObject(heliBladesObj,heliObj)
	SetObjectPOsition(heliTailObj,1.5,.3,.1)
	FixObjectToObject(heliTailObj,heliObj)
	SetObjectDepthWrite(heliBladesObj, 1 ) 
	SetObjectCullMode(heliBladesObj, 0)  
	SetObjectDepthWrite(heliTailObj, 1 ) 
	SetObjectCullMode(heliTailObj, 0)  
	SetObjectRotation(heliObj,0,90,-50)
	SetObjectCollisionMode(heliObj,1)
endfunction

function createWorld()
boxnumber=0:a=0:b=0
loadvertex("sphere1.obj") //used to place the objects at the vertices
for i=0 to verts.length
	x#=verts[i].x
	y#=verts[i].y
	z#=verts[i].z
	//if x# > maxx# then maxx#=x#
	//if y# > maxy# then maxy#=y#
	//if z# > maxz# then maxz#=z#
	//if x# < minx# then minx#=x#
	//if y# < miny# then miny#=y#
	//if z# < minz# then minz#=z#
	if objectraycast(0,x#-2,y#-2,z#-2,x#+2,y#+2,z#+2) =0
		empty.x#=x#
		empty.y#=y#
		empty.z#=z#
		//empty.fired=0
		a=random(1,25)
		if a>15
			empty.id = InstanceObject(baseObj)
			bases.insert(empty)
			SetObjectImage(empty.id,baseD,0)
			SetObjectLightMode(empty.id,0)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 )
			RotateObjectLocalX(empty.id,275)
			FixObjectToObject(empty.id,box)
			SetObjectVisible(empty.id,1)
			b=random(1,10)
			if b>5
				empty.id = InstanceObject(turretObj)
				empty.lastFiredTime#=0
				SetObjectImage(empty.id,turretD,0)
				SetObjectLightMode(empty.id,0)
				SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
				SetObjectLookAt(empty.id, 0, 0, 0, 0 )
				RotateObjectLocalX(empty.id,275)
				FixObjectToObject(empty.id,box)
				SetObjectVisible(empty.id,1)
				turrets.insert(empty)
				inc boxnumber
			elseif b>2
				empty.id = InstanceObject(fuelObj)
				fuel.insert(empty)
				SetObjectImage(empty.id,fuelD,0)
				SetObjectLightMode(empty.id,0)
				SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
				SetObjectLookAt(empty.id, 0, 0, 0, 0 )
				RotateObjectLocalX(empty.id,275)
				FixObjectToObject(empty.id,box)
				SetObjectVisible(empty.id,1)
			else
				empty.id = InstanceObject(medsObj)
				meds.insert(empty)
				SetObjectImage(empty.id,medsD,0)
				SetObjectLightMode(empty.id,0)
				SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
				SetObjectLookAt(empty.id, 0, 0, 0, 0 )
				RotateObjectLocalX(empty.id,275)
				FixObjectToObject(empty.id,box)
				SetObjectVisible(empty.id,1)
			endif
		elseif a>10
				empty.id = InstanceObject(treeObj)
				SetObjectScale(empty.id,.04,.04,.04)
				SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
				SetObjectImage(empty.id,treeD,0)			
				SetObjectLightMode(empty.id,0)
				SetObjectColor(empty.id,0,150,0,255)
				SetObjectLookAt(empty.id, 0, 0, 0, 0 ) 
				RotateObjectLocalX(empty.id,-90) 			
				FixObjectToObject(empty.id,box)
			    SetObjectVisible(empty.id,1)
				trees.insert(empty) 
		else
				empty.id = InstanceObject(boxObj)
				empty.pickedup=0
				setObjectImage(empty.id,boxTextureD,0)
				SetObjectLightMode(empty.id,0)
				SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
				SetObjectLookAt(empty.id, 0, 0, 0, 0 ) 
				blocks.insert(empty)
				SetObjectVisible(empty.id,1)
				FixObjectToObject(empty.id,box)
		endif
	endif

next
//	next


SetObjectScale(worldObj,39,39,39)
SetObjectImage(worldObj,planetD,0)
FixObjectToObject(worldObj,box)
endfunction

function createSpritesandText()
	CreateSprite(explosionSpr,explosionImg)
	SetSpriteImage(explosionSpr,explosionImg)
	SetSpriteAnimation(explosionSpr,256,256,25)
	SetSpriteSize(explosionSpr,256,256)
	SetCameraPosition(1,0,15,-30)
	SetCameraRotation(1,15,0,0 )
	SetSpritePositionByOffset(explosionSpr,512+GetObjectX(heliObj),384-GetObjectY(heliObj))
	SetSpriteVisible(explosionSpr,0)			
	CreateSprite(frameSpr,frameImg)
	
	CreateText(titleTxt,"Block-Lifter")
	SetTextPosition(titleTxt,412,0)
	SetTextColor(titleTxt,0,255,0,255)
	SetTextSize(titleTxt,50)
	CreateText(altTxt,"Alt:0")
	SetTextPosition(altTxt,352,40)
	SetTextColor(altTxt,0,255,0,255)
	SetTextSize(altTxt,30)
	CreateText(fuelTxt,"F:100")
	SetTextPosition(fuelTxt,452,40)
	SetTextColor(fuelTxt,0,255,0,255)
	SetTextSize(fuelTxt,30)
	CreateText(holdingTxt,"H:0")
	SetTextPosition(holdingTxt,552,40)
	SetTextColor(holdingTxt,0,255,0,255)
	SetTextSize(holdingTxt,30)
	CreateText(rescuedTxt,"R:0")
	SetTextPosition(rescuedTxt,652,40)
	SetTextColor(rescuedTxt,0,255,0,255)
	SetTextSize(rescuedTxt,30)
	CreateText(livesTxt,"L:0")
	SetTextPosition(livesTxt,752,40)
	SetTextColor(livesTxt,0,255,0,255)
	SetTextSize(livesTxt,30)
endfunction

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 30th Aug 2018 04:18 Edited at: 30th Aug 2018 04:19

Link

This is what i was thinking of.
I don't have a lot of time ATM. I have a very big project on right now but i get a few minutes every now and then

this is what it would look like in game (roughly)

Attachments

Login to view attachments

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 30th Aug 2018 05:09 Edited at: 30th Aug 2018 05:21

Link

That would work, would I rotate the props the same way apologies for late reply been in and out myself today

and more suitable for picking up of blocks

could possibly still use the chopper as air planet defence or perhaps to the sides accompanying
me as a sort of auto shoot partner in crime. Yes I think that would be good to helis by my side one to the left and one to the right accompanying
me shooting attached to my ship which would be the new one you have designed that way you just concentrate on picking up blocks and not
running out of fuel

Thanks for all your help

fubar

Back to top

Profile PM Email Website

Cliff Mellangard 3DEGS

Developer

18

Years of Service

User Offline

Joined: 20th Feb 2006

Location: Sweden

Posted: 30th Aug 2018 09:01

Link

Looks super cool fubpark….

Blink your models are great..
Loved that textured chopper

My space on goggle play ... https://play.google.com/store/apps/developer?id=Play8Bitar+Osterlen
Play8Bitars channel ... https://www.youtube.com/channel/UC_TbzZmDzj0axBZsbfRnDCQ
Think i know it channel ... https://www.youtube.com/channel/UCEJY7tJ5_HBQxi06BGsnoQg
SlideDb space ... http://www.slidedb.com/members/play8bitars-osterlen
Itch io space ... https://play8bitars.itch.io

Back to top

Profile PM Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 30th Aug 2018 12:26 Edited at: 31st Aug 2018 00:25

Link

Thanks cliff, and yes the models are great blink0k is such a talented modeller
I found raycasting just wasn't cutting it for the duplicate entries so I added this function creating a new array and removing old verts array
will also be better when I recreate everything for level increases (not so sure the round function is needed here but I definitely needed to
use the round function when I did something similar with pixelated labrynth)

+ Code Snippet

function removeDuplicateVerts()
	v as vertex
	v.x = verts[0].x
	v.y = verts[0].y
	v.z = verts[0].z
	myVerts.insert(v)	
	for i=0 to verts.length
		x#=verts[i].x
		y#=verts[i].y
		z#=verts[i].z
		flag=0 //flag = 1 for duplicate
		for num = 0 to myVerts.length //add non duplicate entries to myVerts
			if round(x#)=round(myVerts[num].x) and round(y#)=round(myVerts[num].y) and round(z#)=round(myVerts[num].z) then flag =1
		next
		if x#=0 and round(y#)=round(19.5) and z#=0 then flag=1 //leave free for helipads
		if x#=0 and round(y#)=round(-19.5) and z#=0 then flag=1 //leave free for helipads

		if flag = 0
			v.x = verts[i].x
			v.y = verts[i].y
			v.z = verts[i].z
			myVerts.insert(v)
		endif
	next i
	//delete verts array elements as its nolonger needed
	length=verts.length
	for num = length to 0 step -1
		verts.remove(num)
	next num
endfunction

complete source so far

// Project: BlockLifter 
// Created: 2018-08-28

// show all errors
SetErrorMode(2)

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

#constant KEY_LEFT    = 37  //the left arrow key scancode
#constant KEY_UP      = 38  //the up arrow key scancode
#constant KEY_RIGHT   = 39  //the right arrow key scancode
#constant KEY_DOWN    = 40  //the down arrow key scancode
#constant KEY_SPACE	  = 32  //the space bar
#constant bulletLife   = 1.5
//images and textures
#constant boxTextureD =1
#constant treeD		  =2	
#constant heliD	 	  =3	
#constant fuelD       =4
#constant medsD       =5  
#constant turretD     =6
#constant planetD	  =7	
#constant planetN     =8
#constant baseD       =9
#constant missileImg  =10
#constant missileImg2 =11
#constant explosionImg=12
#constant smokeImg    =13
#constant frameImg    =14
#constant helipadD    =15 
#constant heliA       =16 
   
//3d Objects
#constant heliObj	  =1	 
#constant heliBladesObj=2
#constant heliTailObj =3 
#constant missileObj  =4
#constant fuelObj     =5
#constant medsObj     =6
#constant baseObj	  =7 	
#constant turretObj   =8
#constant boxObj   	  =9
#constant treeObj     =10
#constant worldObj    =11
#constant helipadObj  =12
#constant helipad2Obj =13

//text
#constant titleTxt    =1
#constant holdingTxt  =2
#constant rescuedTxt  =3
#constant fuelTxt  	  =4
#constant altTxt	  =5
#constant livesTxt	  =6

//Sprites
#constant explosionSpr=1
#constant frameSpr	  =2

//sounds
#constant heliSnd	  =1
#constant heliMissSnd =2
#constant worldMissSnd=3
#constant baseExpSnd  =4
#constant heliExpSnd  =5
#constant lifeSnd     =6
#constant fuelSnd     =7
#constant blockSnd    =8
#constant blockSnd2   =9

//Shaders
//#constant addShader  =1
//Variables
#constant Depth#=10

type _boxes
	id
	x#
	y#
	z#
	lastFiredTime#
	pickedup as integer
endtype

type vertex
	x as float
	y as float
	z as float
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype

global turrets as _boxes[]
global bases as _boxes[]
global blocks as _boxes[]
global trees as _boxes[]
global meds as _boxes[]
global fuel as _boxes[]
global verts as vertex[]
global myVerts as vertex[]  //no repeats

global empty as _boxes
global planetMissile as bullet[0]
global playerBomb as bullet[0]
global missileCount=0 
global box,boxnumber

loadMedia()
loadvertex("sphere1.obj") //used to place the objects at the vertices
removeDuplicateVerts()
createWorld()
lives=5:missileCount=0:state=0:pickedupCounter=0:basesDestroyed=0:rescued=0:fuel#=100
lastShotFired=0
createSpritesandText()
create3DPhysicsWorld()
Set3DPhysicsGravity( 0, 0, 0 ) 
SetObjectPosition(heliObj,0,12 ,-22)
PlaySound(heliSnd,100,1) 
do 
	RotateObjectGlobalY(heliBladesObj,20)
	RotateObjectGlobalZ(heliTailObj,15)
	
	if GetRawKeyState(KEY_UP)
		//SetObjectRotation(heliObj,0,90,-50)
		if GetObjectWorldAngleX(heliObj) <0 then RotateObjectGlobalZ(heliObj,-.25)
		if GetObjectWorldAngleX(heliObj) >0 then RotateObjectGlobalZ(heliObj,.25)
		//RotateObjectGlobalX(heli,2)
		RotateObjectGlobalX(box,-1)
		//moveWorld(box,-1,0,0)
	endif
	if GetRawKeyState(KEY_DOWN)
		//SetObjectRotation(heliObj,0,90,-50)
		//RotateObjectGlobalX(heliObj,2)
		if GetObjectWorldAngleX(heliObj) <0 then RotateObjectGlobalZ(heliObj,-.25)
		if GetObjectWorldAngleX(heliObj) >0 then RotateObjectGlobalZ(heliObj,.25)
		RotateObjectGlobalX(box,2)
		//moveWorld(box,2,0,0)
	endif
	if GetRawKeyState(KEY_LEFT)
		//SetObjectRotation(heliObj,-25,90,-50)
		if GetObjectWorldAngleX(heliObj) >-30 then 	RotateObjectGlobalZ(heliObj,1)		
		RotateObjectGlobalZ(box,-1)		
		//moveWorld(box,0,0,-1)
	endif
	if GetRawKeyState(KEY_RIGHT)
		//SetObjectRotation(heliObj,25,90,-50)
		if GetObjectWorldAngleX(heliObj) <30 then 	RotateObjectGlobalZ(heliObj,-1)		
		RotateObjectGlobalZ(box,1)		
		//moveWorld(box,0,0,1)
	endif
	//if GetrawkeyPressed(KEY_SPACE)
		//PlaySound(heliMissSnd) 
		if timer()>lastShotFired+.5
			if  GetSoundInstancePlaying(heliMissSnd)=0 then PlaySound(heliMissSnd) 
			dropBomb(heliObj, 20.0, 10.0)
			lastShotFired=timer()
		endif
	//endif
	
	numBombs=playerBomb.length

for num2= boxnumber-1 to 1 step-1
		for num= numBombs to 1 step-1
			if numBombs>0
			if GetObjectVisible(turrets[num2].id) and objectraycast(turrets[num2].id,getObjectX(playerBomb[num].ID)-1.0,getObjectY(playerBomb[num].ID)-1.0,getObjectZ(playerBomb[num].ID)-1.0,getObjectX(playerBomb[num].ID)+1.0,getObjectY(playerBomb[num].ID)+1.0,getObjectZ(playerBomb[num].ID)+1.0) 
				SetObjectVisible(turrets[num2].id,0)
				part2ID=Create3DParticles( getObjectX(playerBomb[num].ID),getObjectY(playerBomb[num].ID),getObjectZ(playerBomb[num].ID) ) 
				Set3DParticlesDirection( part2ID, 0,2, 0, 0 ) 
				Set3DParticlesDirectionRange( part2ID,275,45  ) 
				Set3DParticlesFrequency( part2ID, 100 )
				Set3DParticlesImage(part2ID,smokeImg)
				Set3DParticlesSize(part2ID,1)
				Set3DParticlesLife(part2ID,.25)
				Set3DParticlesVelocityRange(part2ID,1,10)
				Set3DParticlesMax(part2ID,150)
				inc basesDestroyed
				exit
			endif
			endif
		next num
	next num2 
	
	//clean up bombs
	numBombs=playerBomb.length
	for num= numBombs to 0 step-1
		if timer()>playerBomb[num].time+bulletLife
			DeleteObject(playerBomb[num].ID)
			playerBomb.remove(num)
		endif
	next
	
	for num =0 to boxnumber-1
		//shoot at plane if in range
		towerNum=num
		if timer()>turrets[towerNum].lastFiredTime#+.75 and GetObjectVisible(turrets[towerNum].id) and getDistance(turrets[towerNum].id,heliObj)<10 
			//ang# = get2DAngle(getObjectX(turrets[towerNum].id),getObjectZ(turrets[towerNum].id),getObjectX(heliObj),getObjectZ(heliObj))
			//RotateObjectLocalY(turrets[towerNum].id,ang#)
			PlaySound(worldMissSnd)
			turrets[towerNum].lastFiredTime#=timer()
			shootMissile( turrets[towerNum].id, 30.0, 50.0)
		endif
	next num
	
	missileNum=missileCount  //check if the heli has been shot
	for num=missileNum to 1 step -1
		if state=0 and objectraycast(heliObj,getObjectX(planetMissile[num].ID)-0.75,getObjectY(planetMissile[num].ID)-0.3,getObjectZ(planetMissile[num].ID)-22,getObjectX(planetMissile[num].ID)+0.75,getObjectY(planetMissile[num].ID)+0.3,getObjectZ(planetMissile[num].ID)) 
			dec lives:state=1
		endif
		//remove old bullets
		if (planetMissile[num].time)+bulletLife<timer() 
			DeleteObject(planetMissile[num].ID)
			planetMissile.remove(num)
			dec missileCount	
		endif
	next num
	
	pickupNum=blocks.length //pick up blocks and move them 
	for num =pickupNum to 1 step-1
		if blocks[num].pickedup=0 and objectraycast(blocks[num].id,getObjectX(heliObj)-1.570011,getObjectY(heliObj)-.603414,getObjectZ(heliObj)-.559599,getObjectX(heliObj)+1.570011,getObjectY(heliObj)+.603414,getObjectZ(heliObj)+15) 
			PlaySound(blockSnd) 
			inc pickedupCounter:blocks[num].pickedup=pickedupCounter
			FixObjectToObject(blocks[num].id,0)
			//SetObjectPosition(blocks[num].id,(1.2*pickedupCounter)+1.25,0,0)
			SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(heliObj)-(0.75*pickedupCounter)-1.25,getObjectZ(heliObj))
			SetObjectRotation(blocks[num].id,0,0,0)
			//FixObjectToObject(blocks[num].id,shipBlock)
		endif
		if blocks[num].pickedup>0
			if GetObjectAngleX(heliObj)<0
				SetObjectPosition(blocks[num].id,getObjectX(heliObj)-((blocks[num].pickedup)*.15)+.75,getObjectY(blocks[num].id),getObjectZ(blocks[num].id))
			elseif GetObjectAngleX(heliObj)>0
				SetObjectPosition(blocks[num].id,getObjectX(heliObj)+((blocks[num].pickedup)*.15)-.75,getObjectY(blocks[num].id),getObjectZ(blocks[num].id))
			else
				SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(blocks[num].id),getObjectZ(blocks[num].id))				
			endif	 
		endif
	next num	
	
	//drop blocks off at helipad
	if objectraycast(helipadObj,getObjectX(heliObj)-1.570011,getObjectY(heliObj)-.603414,getObjectZ(heliObj)-.559599,getObjectX(heliObj)+1.57001,getObjectY(heliObj)+.603414,getObjectZ(heliObj)+15) or objectraycast(helipad2Obj,getObjectX(heliObj)-1.570011,getObjectY(heliObj)-.603414,getObjectZ(heliObj)-.559599,getObjectX(heliObj)+1.570011,getObjectY(heliObj)+.603414,getObjectZ(heliObj)+15)
		for num =pickupNum to 1 step-1
			flag=0
			if blocks[num].pickedup>0
				if  GetSoundInstancePlaying(blockSnd2)=0 and flag=0 then PlaySound(blockSnd2) 
				blocks[num].pickedup=0:flag=1
				SetObjectVisible(blocks[num].id,0)
				Dec pickedupCounter: inc rescued
			endif
		next num
	endif
	
	//pickup health
	for num =meds.length to 1 step-1
		if GetObjectVisible(meds[num].id) and objectraycast(meds[num].id,getObjectX(heliObj)-1.570011,getObjectY(heliObj)-.603414,getObjectZ(heliObj)-.559599,getObjectX(heliObj)+1.570011,getObjectY(heliObj)+.603414,getObjectZ(heliObj)+12.5) 
			PlaySound(lifeSnd) 
			inc lives
			SetObjectVisible(meds[num].id,0)
		endif
	next num	
	//pickup fuel
	for num =fuel.length to 1 step-1
		if GetObjectVisible(fuel[num].id) and objectraycast(fuel[num].id,getObjectX(heliObj)-1.570011,getObjectY(heliObj)-.603414,getObjectZ(heliObj)-.559599,getObjectX(heliObj)+1.570011,getObjectY(heliObj)+.603414,getObjectZ(heliObj)+14.5) 
			PlaySound(fuelSnd) 
			fuel#=fuel#+25
			SetObjectVisible(fuel[num].id,0)
		endif
	next num	
	
	if state=1
		if Get3DParticlesExists(partID) then Delete3DParticles(partID)
		partID=Create3DParticles( getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj) ) 
		Set3DParticlesDirection( partID, 0,2, 0, 0 ) 
		Set3DParticlesDirectionRange( partID,275,45  ) 
		Set3DParticlesFrequency( partID, 75 )
		Set3DParticlesImage(partID,smokeImg)
		Set3DParticlesSize(partID,1)
		Set3DParticlesLife(partID,1.0)
		Set3DParticlesVelocityRange(partID,1,10)
		Set3DParticlesMax(partID,275)
		SetObjectColor(heliObj,255,0,0,255)	
		SetObjectColor(heliBladesObj,255,0,0,255)	
		SetObjectColor(heliTailObj,255,0,0,255)
		state=2
	endif	
	pickupNum=blocks.length
	if state=2 
		if getObjectZ(heliObj)<-12
			SetObjectPosition(heliObj,getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj)+.1)
			if GetParticlesExists(partID) then Set3DParticlesPosition(partID,getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj)) 
			for num =pickupNum to 1 step-1
				if blocks[num].pickedup>0 then SetObjectPosition(blocks[num].id,getObjectX(blocks[num].id),getObjectY(blocks[num].id),getObjectZ(blocks[num].id)+.1)
			next num
		else 
			state=3	
		endif
		
		if getObjectZ(heliObj)>=-14 and GetSpritePlaying(explosionSpr)=0
			SetSpriteVisible(explosionSpr,1)
			playSprite(explosionSpr,10,0)
			PlaySound(heliExpSnd) 
		endif
		
	endif
	
	if state=3 and GetSpritePlaying(explosionSpr)=0
		SetSpriteVisible(explosionSpr,0)
		SetObjectPosition(heliObj,0,12 ,-22)
		state=0:fuel#=100
		for num =pickupNum to 1 step-1
			if blocks[num].pickedup>0 then SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(blocks[num].id),getObjectZ(heliObj))
		next num	
	endif
	
	SetTextString(holdingTxt,"H:"+Str(pickedupCounter))
	SetTextString(rescuedTxt,"R:"+Str(rescued))
	SetTextString(livesTxt,"L:"+Str(lives))
	SetTextString(fuelTxt,"F:"+Str(Trunc(fuel#)))
	SetTextString(altTxt,"Alt:"+Str(Trunc(ABS(GetObjectZ(heliObj))-12)))
    Step3DPhysicsWorld()
    fuel#=fuel#-.025:if fuel#<0 then fuel#=0:if fuel#=0 and state=0 then state=2
	if state=0
	if fuel#<=50 and fuel#>10
		SetTextColor(fuelTxt,255,255,0,255)
		SetObjectColor(heliObj,255,255,0,255)
		SetObjectColor(heliBladesObj,255,255,0,255)
		SetObjectColor(heliTailObj,255,255,0,255)
	elseif fuel#<=10
		SetTextColor(fuelTxt,255,0,0,255)
		SetObjectColor(heliObj,255,0,0,255)	
		SetObjectColor(heliBladesObj,255,0,0,255)	
		SetObjectColor(heliTailObj,255,0,0,255)
	else
		SetTextColor(fuelTxt,0,255,0,255)
		SetObjectColor(heliObj,0,255,0,255)		
		SetObjectColor(heliBladesObj,0,255,0,255)		
		SetObjectColor(heliTailObj,0,255,0,255)
	endif
	endif	
	//print (GetObjectWorldAngleX(heliObj) )		
    Sync()
loop

function moveWorld(objID as integer,ax#,ay#,az#)
	RotateObjectGlobalX(objID,ax#)
	RotateObjectGlobalY(objID,ay#)
	RotateObjectGlobalZ(objID,az#)	
endfunction

function shootMissile(objectId as integer,initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(objectId),GetObjectWorldY(objectId),GetObjectWorldZ(objectId)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
     
    //setobjectrotation(projectiledirbox,-55.0,GetObjectAngleY(objectId),270.0)
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(objectId),GetObjectWorldAngleY(objectId),GetObjectWorldAngleZ(objectId))
    //SetObjectLookAt(projectiledirbox,GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2),0) 
    MoveObjectLocalZ( projectileDirBox, -1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    //DeleteObject( projectileDirBox )
    missile as integer    
    missile = CreateObjectSphere(.4,5,5)
   
    //bullet = CreateObjectSphere(.45,.45,.45 )
    //missile=InstanceObject(worldObj) 
    //SetObjectImage(missile,planetD,0)
    SetObjectColor(missile, 255,0,0,255 )
    SetObjectLightMode(missile,0)

SetObjectPosition(missile, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(missile,GetObjectAngleX(projectileDirBox),GetObjectAngleY(projectileDirBox),GetObjectAngleZ(projectileDirBox)+180)
    //RotateObjectLocalZ(missile,90)
    DeleteObject( projectileDirBox )
    //3D Physics code
    Create3DPhysicsDynamicBody(missile)
    //SetObjectShapeSphere( bullet )
    SetObject3DPhysicsMass(missile, mass )
    SetObject3DPhysicsLinearVelocity(missile, projectileDirVec, initialSpeed )
    
    myItem as bullet
    myItem.ID = missile //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	planetMissile.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc missileCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function dropBomb(objectId as integer,initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(objectId),GetObjectWorldY(objectId),GetObjectWorldZ(objectId)+4) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
     
    //setobjectrotation(projectiledirbox,GetObjectWorldAngleX(objectId),GetObjectWorldAngleY(objectId),GetObjectWorldAngleZ(objectId))
    //SetObjectLookAt(projectiledirbox,GetObjectX(objectId),GetObjectY(objectId),GetObjectZ(objectId)+5,0) 
    setobjectrotation(projectiledirbox,315,0.0,GetObjectWorldAngleX(objectId)) //270 x rot is straight ahead
    //if GetObjectAngleX(objectId)< 0 then MoveObjectLocalX( projectileDirBox, -0.55 )
    //if GetObjectAngleX(objectId)> 0 then MoveObjectLocalX( projectileDirBox, 0.55 )
    //RotateObjectLocalX(projectileDirBox,(GetObjectAngleX(objectId)))
    
    MoveObjectLocalY( projectileDirBox,-0.50 )
    MoveObjectLocalZ( projectileDirBox,1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    //DeleteObject( projectileDirBox )
    bomb as integer    
    bomb = CreateObjectSphere(.4,5,5)
    //bomb=InstanceObject(worldObj) 
    
    //SetObjectImage(bomb,planetD,0) 
	
	SetObjectColor(bomb, 0, 255,0,255 )
    
	SetObjectScale(bomb,1,1,1)
    SetObjectLightMode(bomb,0)
	//SetObjectTransparency(missileObj,1)

SetObjectPosition(bomb, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //RotateObjectLocalX(bomb,180)
    RotateObjectLocalY(bomb,270)
    
    DeleteObject( projectileDirBox )
    //3D Physics code
    Create3DPhysicsDynamicBody( bomb )
    //SetObjectShapeSphere( bullet )
    SetObject3DPhysicsMass(bomb, mass )
    SetObject3DPhysicsLinearVelocity(bomb, projectileDirVec, initialSpeed )
    
    myItem as bullet
    myItem.ID = bomb //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	playerBomb.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	//inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function getDistance(objectID as integer,objectID2 as integer)
	distance as float
	vec1=CreateVector3(GetObjectWorldX(objectID),GetObjectWorldY(objectID),GetObjectWorldZ(objectID))
	vec2=CreateVector3(GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2))
	distance=GetVector3Distance(vec1,vec2 ) 
	DeleteVector3(vec1)
	DeleteVector3(vec2)
endfunction distance

function get2DAngle(x1#, y1#, x2#, y2#)
    //result# = ATanFull(x1# - x2#, y1# - y2#)
	result# = ATan2(x1# - x2#,y1# - y2#)
endfunction result#

function wrapvalue(num as float)
    while num<0
		num=num+360
	endwhile
    while num>360
        num=num-360
    endwhile
endfunction num

function	LoadVertex(name as string)
	f as integer
	l as String
	v as vertex
	
	f = OpenToRead(name)
	
	l = ReadLine(f)
	
	while(FileEOF(f) = 0)
		if mid(l,1,2) = "v "
			v.x = ValFloat(GetStringToken(l, " ", 2)) * 39
			v.y = ValFloat(GetStringToken(l, " ", 3)) * 39
			v.z = ValFloat(GetStringToken(l, " ", 4)) * 39
			verts.insert(v)
		endif
		
		l = ReadLine(f)		
	endwhile

endfunction

function loadMedia()
	SetGenerateMipmaps( 1 )

//load images
	LoadImage(boxTextureD,"box2.png")
	loadImage(treeD,"firtree_2D.png")
	LoadImage(heliD,"chopper7W.png")
	LoadImage(planetD,"sphere1.png")
	LoadImage(fuelD,"fuel2.png")
	LoadImage(medsD,"heartD.png")
	LoadImage(baseD,"base.png")
	LoadImage(turretD,"turret.png")
	LoadImage(frameImg,"frame.png")
	LoadImage(explosionImg,"explosionG.png")
	LoadImage(smokeImg,"smokeG.png")
	LoadImage(helipadD,"helipadD.png")

box=CreateObjectBox(1,1,1) //create a box to place at the centre of the planet 
	SetObjectVisible(box,0)

LoadObject(fuelObj,"fuel.3ds")
	LoadObject(medsObj,"heart.obj")
	LoadObject(baseObj,"base.3ds")
	LoadObject(turretObj,"turret.3ds")
	LoadObject(boxObj,"box.3ds")
	LoadObject(treeObj,"firtree2.x")
	LoadObject(heliObj,"chopper.3ds")
	loadObject(heliBladesObj,"blades.3ds")
	loadObject(heliTailObj,"tail.3ds")
	LoadObject(worldObj,"sphere1.obj")
	LoadObject(helipadObj,"helipad.obj")

LoadSound(heliSnd,"Helicopter.wav")
	LoadSound(worldMissSnd,"WorldMissile.wav")
	//LoadSound(baseExpSnd,"")
	LoadSound(heliExpSnd,"HeliExplosion.wav")
	LoadSound(heliMissSnd,"HeliMissile.wav")
	LoadSound(lifeSnd,"Life.wav")
	LoadSound(fuelSnd,"Fuel.wav")
	LoadSound(blockSnd,"Block.wav")
	LoadSound(blockSnd2,"Block2.wav")
	
	
	SetObjectVisible(fuelObj,0)
	SetObjectVisible(medsObj,0)
	SetObjectVisible(baseObj,0)
	SetObjectVisible(turretObj,0)
	SetObjectVisible(boxObj,0)
	SetObjectVisible(treeObj,0)

SetObjectImage(helipadObj,helipadD,0)
	SetObjectPosition(helipadObj,0,19.5,0)
	FixObjectToObject(helipadObj,box)

InstanceObject(helipad2Obj,helipadObj)
	SetObjectImage(helipad2Obj,helipadD,0)
	SetObjectPosition(helipad2Obj,0,-19.5,0)
	SetObjectRotation(helipad2Obj,0, 0, 180 )
	FixObjectToObject(helipad2Obj,box)

SetObjectImage(heliObj,heliD,0)
	SetObjectImage(heliBladesObj,heliD,0)
	SetObjectImage(heliTailObj,heliD,0)
	SetObjectLightMode(heliObj,0)
	SetObjectLightMode(heliBladesObj,0)
	SetObjectLightMode(heliTailObj,0)

FixObjectToObject(heliBladesObj,heliObj)
	SetObjectPOsition(heliTailObj,1.5,.3,.1)
	FixObjectToObject(heliTailObj,heliObj)
	SetObjectDepthWrite(heliBladesObj, 1 ) 
	SetObjectCullMode(heliBladesObj, 0)  
	SetObjectDepthWrite(heliTailObj, 1 ) 
	SetObjectCullMode(heliTailObj, 0)  
	SetObjectRotation(heliObj,0,90,-50)
	SetObjectCollisionMode(heliObj,1)
endfunction

function createWorld()
boxnumber=0:a=0:b=0
for i=0 to myVerts.length
	empty.x#=myVerts[i].x
	empty.y#=myVerts[i].y
	empty.z#=myVerts[i].z
		//empty.fired=0
	a=random(1,25)
	if a>15
		empty.id = InstanceObject(baseObj)
		bases.insert(empty)
		SetObjectImage(empty.id,baseD,0)
		SetObjectLightMode(empty.id,0)
		SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
		SetObjectLookAt(empty.id, 0, 0, 0, 0 )
		RotateObjectLocalX(empty.id,275)
		FixObjectToObject(empty.id,box)
		SetObjectVisible(empty.id,1)
		b=random(1,30)
		if b>10
			empty.id = InstanceObject(turretObj)
			empty.lastFiredTime#=0
			SetObjectImage(empty.id,turretD,0)
			SetObjectLightMode(empty.id,0)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 )
			RotateObjectLocalX(empty.id,275)
			FixObjectToObject(empty.id,box)
			SetObjectVisible(empty.id,1)
			turrets.insert(empty)
			inc boxnumber
		elseif b>2
			empty.id = InstanceObject(fuelObj)
			fuel.insert(empty)
			SetObjectImage(empty.id,fuelD,0)
			SetObjectLightMode(empty.id,0)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 )
			RotateObjectLocalX(empty.id,275)
			FixObjectToObject(empty.id,box)
			SetObjectVisible(empty.id,1)
		else
			empty.id = InstanceObject(medsObj)
			meds.insert(empty)
			SetObjectImage(empty.id,medsD,0)
			SetObjectLightMode(empty.id,0)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 )
			RotateObjectLocalX(empty.id,275)
			FixObjectToObject(empty.id,box)
			SetObjectVisible(empty.id,1)
		endif
	elseif a>10
			empty.id = InstanceObject(treeObj)
			SetObjectScale(empty.id,.04,.04,.04)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectImage(empty.id,treeD,0)			
			SetObjectLightMode(empty.id,0)
			SetObjectColor(empty.id,0,150,0,255)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 ) 
			RotateObjectLocalX(empty.id,-90) 			
			FixObjectToObject(empty.id,box)
		    SetObjectVisible(empty.id,1)
			trees.insert(empty) 
	else
			empty.id = InstanceObject(boxObj)
			empty.pickedup=0
			setObjectImage(empty.id,boxTextureD,0)
			SetObjectLightMode(empty.id,0)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 ) 
			blocks.insert(empty)
			SetObjectVisible(empty.id,1)
			FixObjectToObject(empty.id,box)
	endif
next

SetObjectScale(worldObj,39,39,39)
SetObjectImage(worldObj,planetD,0)
FixObjectToObject(worldObj,box)
endfunction

function removeDuplicateVerts()
	v as vertex
	v.x = verts[0].x
	v.y = verts[0].y
	v.z = verts[0].z
	myVerts.insert(v)	
	for i=0 to verts.length
		x#=verts[i].x
		y#=verts[i].y
		z#=verts[i].z
		flag=0 //flag = 1 for duplicate
		for num = 0 to myVerts.length //add non duplicate entries to myVerts
			if round(x#)=round(myVerts[num].x) and round(y#)=round(myVerts[num].y) and round(z#)=round(myVerts[num].z) then flag =1
		next
		if x#=0 and round(y#)=round(19.5) and z#=0 then flag=1 //leave free for helipads
		if x#=0 and round(y#)=round(-19.5) and z#=0 then flag=1 //leave free for helipads

if flag = 0
			v.x = verts[i].x
			v.y = verts[i].y
			v.z = verts[i].z
			myVerts.insert(v)
		endif
	next i
	//delete verts array elements as its nolonger needed
	length=verts.length
	for num = length to 0 step -1
		verts.remove(num)
	next num
endfunction

function createSpritesandText()
	CreateSprite(explosionSpr,explosionImg)
	SetSpriteImage(explosionSpr,explosionImg)
	SetSpriteAnimation(explosionSpr,256,256,25)
	SetSpriteSize(explosionSpr,256,256)
	SetCameraPosition(1,0,15,-30)
	SetCameraRotation(1,15,0,0 )
	SetSpritePositionByOffset(explosionSpr,512+GetObjectX(heliObj),384-GetObjectY(heliObj))
	SetSpriteVisible(explosionSpr,0)			
	CreateSprite(frameSpr,frameImg)
	
	CreateText(titleTxt,"Block-Lifter")
	SetTextPosition(titleTxt,412,0)
	SetTextColor(titleTxt,0,255,0,255)
	SetTextSize(titleTxt,50)
	CreateText(altTxt,"Alt:0")
	SetTextPosition(altTxt,352,40)
	SetTextColor(altTxt,0,255,0,255)
	SetTextSize(altTxt,30)
	CreateText(fuelTxt,"F:100")
	SetTextPosition(fuelTxt,452,40)
	SetTextColor(fuelTxt,0,255,0,255)
	SetTextSize(fuelTxt,30)
	CreateText(holdingTxt,"H:0")
	SetTextPosition(holdingTxt,552,40)
	SetTextColor(holdingTxt,0,255,0,255)
	SetTextSize(holdingTxt,30)
	CreateText(rescuedTxt,"R:0")
	SetTextPosition(rescuedTxt,652,40)
	SetTextColor(rescuedTxt,0,255,0,255)
	SetTextSize(rescuedTxt,30)
	CreateText(livesTxt,"L:0")
	SetTextPosition(livesTxt,752,40)
	SetTextColor(livesTxt,0,255,0,255)
	SetTextSize(livesTxt,30)
endfunction

+ Code Snippet

// Project: BlockLifter 
// Created: 2018-08-28

// show all errors
SetErrorMode(2)

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

#constant KEY_LEFT    = 37  //the left arrow key scancode
#constant KEY_UP      = 38  //the up arrow key scancode
#constant KEY_RIGHT   = 39  //the right arrow key scancode
#constant KEY_DOWN    = 40  //the down arrow key scancode
#constant KEY_SPACE	  = 32  //the space bar
#constant bulletLife   = 1.5
//images and textures
#constant boxTextureD =1
#constant treeD		  =2	
#constant heliD	 	  =3	
#constant fuelD       =4
#constant medsD       =5  
#constant turretD     =6
#constant planetD	  =7	
#constant planetN     =8
#constant baseD       =9
#constant missileImg  =10
#constant missileImg2 =11
#constant explosionImg=12
#constant smokeImg    =13
#constant frameImg    =14
#constant helipadD    =15 
#constant heliA       =16 
   
//3d Objects
#constant heliObj	  =1	 
#constant heliBladesObj=2
#constant heliTailObj =3 
#constant missileObj  =4
#constant fuelObj     =5
#constant medsObj     =6
#constant baseObj	  =7 	
#constant turretObj   =8
#constant boxObj   	  =9
#constant treeObj     =10
#constant worldObj    =11
#constant helipadObj  =12
#constant helipad2Obj =13

//text
#constant titleTxt    =1
#constant holdingTxt  =2
#constant rescuedTxt  =3
#constant fuelTxt  	  =4
#constant altTxt	  =5
#constant livesTxt	  =6

//Sprites
#constant explosionSpr=1
#constant frameSpr	  =2

//sounds
#constant heliSnd	  =1
#constant heliMissSnd =2
#constant worldMissSnd=3
#constant baseExpSnd  =4
#constant heliExpSnd  =5
#constant lifeSnd     =6
#constant fuelSnd     =7
#constant blockSnd    =8
#constant blockSnd2   =9

//Shaders
//#constant addShader  =1
//Variables
#constant Depth#=10

type _boxes
	id
	x#
	y#
	z#
	lastFiredTime#
	pickedup as integer
endtype

type vertex
	x as float
	y as float
	z as float
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype

global turrets as _boxes[]
global bases as _boxes[]
global blocks as _boxes[]
global trees as _boxes[]
global meds as _boxes[]
global fuel as _boxes[]
global verts as vertex[]
global myVerts as vertex[]  //no repeats


global empty as _boxes
global planetMissile as bullet[0]
global playerBomb as bullet[0]
global missileCount=0 
global box,boxnumber


loadMedia()
loadvertex("sphere1.obj") //used to place the objects at the vertices
removeDuplicateVerts()
createWorld()
lives=5:missileCount=0:state=0:pickedupCounter=0:basesDestroyed=0:rescued=0:fuel#=100
lastShotFired=0
createSpritesandText()
create3DPhysicsWorld()
Set3DPhysicsGravity( 0, 0, 0 ) 
SetObjectPosition(heliObj,0,12 ,-22)
PlaySound(heliSnd,100,1) 
do 
	RotateObjectGlobalY(heliBladesObj,20)
	RotateObjectGlobalZ(heliTailObj,15)
	
	if GetRawKeyState(KEY_UP)
		//SetObjectRotation(heliObj,0,90,-50)
		if GetObjectWorldAngleX(heliObj) <0 then RotateObjectGlobalZ(heliObj,-.25)
		if GetObjectWorldAngleX(heliObj) >0 then RotateObjectGlobalZ(heliObj,.25)
		//RotateObjectGlobalX(heli,2)
		RotateObjectGlobalX(box,-1)
		//moveWorld(box,-1,0,0)
	endif
	if GetRawKeyState(KEY_DOWN)
		//SetObjectRotation(heliObj,0,90,-50)
		//RotateObjectGlobalX(heliObj,2)
		if GetObjectWorldAngleX(heliObj) <0 then RotateObjectGlobalZ(heliObj,-.25)
		if GetObjectWorldAngleX(heliObj) >0 then RotateObjectGlobalZ(heliObj,.25)
		RotateObjectGlobalX(box,2)
		//moveWorld(box,2,0,0)
	endif
	if GetRawKeyState(KEY_LEFT)
		//SetObjectRotation(heliObj,-25,90,-50)
		if GetObjectWorldAngleX(heliObj) >-30 then 	RotateObjectGlobalZ(heliObj,1)		
		RotateObjectGlobalZ(box,-1)		
		//moveWorld(box,0,0,-1)
	endif
	if GetRawKeyState(KEY_RIGHT)
		//SetObjectRotation(heliObj,25,90,-50)
		if GetObjectWorldAngleX(heliObj) <30 then 	RotateObjectGlobalZ(heliObj,-1)		
		RotateObjectGlobalZ(box,1)		
		//moveWorld(box,0,0,1)
	endif
	//if GetrawkeyPressed(KEY_SPACE)
		//PlaySound(heliMissSnd) 
		if timer()>lastShotFired+.5
			if  GetSoundInstancePlaying(heliMissSnd)=0 then PlaySound(heliMissSnd) 
			dropBomb(heliObj, 20.0, 10.0)
			lastShotFired=timer()
		endif
	//endif
	
	numBombs=playerBomb.length

	for num2= boxnumber-1 to 1 step-1
		for num= numBombs to 1 step-1
			if numBombs>0
			if GetObjectVisible(turrets[num2].id) and objectraycast(turrets[num2].id,getObjectX(playerBomb[num].ID)-1.0,getObjectY(playerBomb[num].ID)-1.0,getObjectZ(playerBomb[num].ID)-1.0,getObjectX(playerBomb[num].ID)+1.0,getObjectY(playerBomb[num].ID)+1.0,getObjectZ(playerBomb[num].ID)+1.0) 
				SetObjectVisible(turrets[num2].id,0)
				part2ID=Create3DParticles( getObjectX(playerBomb[num].ID),getObjectY(playerBomb[num].ID),getObjectZ(playerBomb[num].ID) ) 
				Set3DParticlesDirection( part2ID, 0,2, 0, 0 ) 
				Set3DParticlesDirectionRange( part2ID,275,45  ) 
				Set3DParticlesFrequency( part2ID, 100 )
				Set3DParticlesImage(part2ID,smokeImg)
				Set3DParticlesSize(part2ID,1)
				Set3DParticlesLife(part2ID,.25)
				Set3DParticlesVelocityRange(part2ID,1,10)
				Set3DParticlesMax(part2ID,150)
				inc basesDestroyed
				exit
			endif
			endif
		next num
	next num2 
	
	//clean up bombs
	numBombs=playerBomb.length
	for num= numBombs to 0 step-1
		if timer()>playerBomb[num].time+bulletLife
			DeleteObject(playerBomb[num].ID)
			playerBomb.remove(num)
		endif
	next
	
	for num =0 to boxnumber-1
		//shoot at plane if in range
		towerNum=num
		if timer()>turrets[towerNum].lastFiredTime#+.75 and GetObjectVisible(turrets[towerNum].id) and getDistance(turrets[towerNum].id,heliObj)<10 
			//ang# = get2DAngle(getObjectX(turrets[towerNum].id),getObjectZ(turrets[towerNum].id),getObjectX(heliObj),getObjectZ(heliObj))
			//RotateObjectLocalY(turrets[towerNum].id,ang#)
			PlaySound(worldMissSnd)
			turrets[towerNum].lastFiredTime#=timer()
			shootMissile( turrets[towerNum].id, 30.0, 50.0)
		endif
	next num
	
	missileNum=missileCount  //check if the heli has been shot
	for num=missileNum to 1 step -1
		if state=0 and objectraycast(heliObj,getObjectX(planetMissile[num].ID)-0.75,getObjectY(planetMissile[num].ID)-0.3,getObjectZ(planetMissile[num].ID)-22,getObjectX(planetMissile[num].ID)+0.75,getObjectY(planetMissile[num].ID)+0.3,getObjectZ(planetMissile[num].ID)) 
			dec lives:state=1
		endif
		//remove old bullets
		if (planetMissile[num].time)+bulletLife<timer() 
			DeleteObject(planetMissile[num].ID)
			planetMissile.remove(num)
			dec missileCount	
		endif
	next num
	
	pickupNum=blocks.length //pick up blocks and move them 
	for num =pickupNum to 1 step-1
		if blocks[num].pickedup=0 and objectraycast(blocks[num].id,getObjectX(heliObj)-1.570011,getObjectY(heliObj)-.603414,getObjectZ(heliObj)-.559599,getObjectX(heliObj)+1.570011,getObjectY(heliObj)+.603414,getObjectZ(heliObj)+15) 
			PlaySound(blockSnd) 
			inc pickedupCounter:blocks[num].pickedup=pickedupCounter
			FixObjectToObject(blocks[num].id,0)
			//SetObjectPosition(blocks[num].id,(1.2*pickedupCounter)+1.25,0,0)
			SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(heliObj)-(0.75*pickedupCounter)-1.25,getObjectZ(heliObj))
			SetObjectRotation(blocks[num].id,0,0,0)
			//FixObjectToObject(blocks[num].id,shipBlock)
		endif
		if blocks[num].pickedup>0
			if GetObjectAngleX(heliObj)<0
				SetObjectPosition(blocks[num].id,getObjectX(heliObj)-((blocks[num].pickedup)*.15)+.75,getObjectY(blocks[num].id),getObjectZ(blocks[num].id))
			elseif GetObjectAngleX(heliObj)>0
				SetObjectPosition(blocks[num].id,getObjectX(heliObj)+((blocks[num].pickedup)*.15)-.75,getObjectY(blocks[num].id),getObjectZ(blocks[num].id))
			else
				SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(blocks[num].id),getObjectZ(blocks[num].id))				
			endif	 
		endif
	next num	
	
	//drop blocks off at helipad
	if objectraycast(helipadObj,getObjectX(heliObj)-1.570011,getObjectY(heliObj)-.603414,getObjectZ(heliObj)-.559599,getObjectX(heliObj)+1.57001,getObjectY(heliObj)+.603414,getObjectZ(heliObj)+15) or objectraycast(helipad2Obj,getObjectX(heliObj)-1.570011,getObjectY(heliObj)-.603414,getObjectZ(heliObj)-.559599,getObjectX(heliObj)+1.570011,getObjectY(heliObj)+.603414,getObjectZ(heliObj)+15)
		for num =pickupNum to 1 step-1
			flag=0
			if blocks[num].pickedup>0
				if  GetSoundInstancePlaying(blockSnd2)=0 and flag=0 then PlaySound(blockSnd2) 
				blocks[num].pickedup=0:flag=1
				SetObjectVisible(blocks[num].id,0)
				Dec pickedupCounter: inc rescued
			endif
		next num
	endif
	
	//pickup health
	for num =meds.length to 1 step-1
		if GetObjectVisible(meds[num].id) and objectraycast(meds[num].id,getObjectX(heliObj)-1.570011,getObjectY(heliObj)-.603414,getObjectZ(heliObj)-.559599,getObjectX(heliObj)+1.570011,getObjectY(heliObj)+.603414,getObjectZ(heliObj)+12.5) 
			PlaySound(lifeSnd) 
			inc lives
			SetObjectVisible(meds[num].id,0)
		endif
	next num	
	//pickup fuel
	for num =fuel.length to 1 step-1
		if GetObjectVisible(fuel[num].id) and objectraycast(fuel[num].id,getObjectX(heliObj)-1.570011,getObjectY(heliObj)-.603414,getObjectZ(heliObj)-.559599,getObjectX(heliObj)+1.570011,getObjectY(heliObj)+.603414,getObjectZ(heliObj)+14.5) 
			PlaySound(fuelSnd) 
			fuel#=fuel#+25
			SetObjectVisible(fuel[num].id,0)
		endif
	next num	
	
	if state=1
		if Get3DParticlesExists(partID) then Delete3DParticles(partID)
		partID=Create3DParticles( getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj) ) 
		Set3DParticlesDirection( partID, 0,2, 0, 0 ) 
		Set3DParticlesDirectionRange( partID,275,45  ) 
		Set3DParticlesFrequency( partID, 75 )
		Set3DParticlesImage(partID,smokeImg)
		Set3DParticlesSize(partID,1)
		Set3DParticlesLife(partID,1.0)
		Set3DParticlesVelocityRange(partID,1,10)
		Set3DParticlesMax(partID,275)
		SetObjectColor(heliObj,255,0,0,255)	
		SetObjectColor(heliBladesObj,255,0,0,255)	
		SetObjectColor(heliTailObj,255,0,0,255)
		state=2
	endif	
	pickupNum=blocks.length
	if state=2 
		if getObjectZ(heliObj)<-12
			SetObjectPosition(heliObj,getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj)+.1)
			if GetParticlesExists(partID) then Set3DParticlesPosition(partID,getObjectX(heliObj),getObjectY(heliObj),getObjectZ(heliObj)) 
			for num =pickupNum to 1 step-1
				if blocks[num].pickedup>0 then SetObjectPosition(blocks[num].id,getObjectX(blocks[num].id),getObjectY(blocks[num].id),getObjectZ(blocks[num].id)+.1)
			next num
		else 
			state=3	
		endif
		
		if getObjectZ(heliObj)>=-14 and GetSpritePlaying(explosionSpr)=0
			SetSpriteVisible(explosionSpr,1)
			playSprite(explosionSpr,10,0)
			PlaySound(heliExpSnd) 
		endif
		
	endif
	
	if state=3 and GetSpritePlaying(explosionSpr)=0
		SetSpriteVisible(explosionSpr,0)
		SetObjectPosition(heliObj,0,12 ,-22)
		state=0:fuel#=100
		for num =pickupNum to 1 step-1
			if blocks[num].pickedup>0 then SetObjectPosition(blocks[num].id,getObjectX(heliObj),getObjectY(blocks[num].id),getObjectZ(heliObj))
		next num	
	endif
	
	SetTextString(holdingTxt,"H:"+Str(pickedupCounter))
	SetTextString(rescuedTxt,"R:"+Str(rescued))
	SetTextString(livesTxt,"L:"+Str(lives))
	SetTextString(fuelTxt,"F:"+Str(Trunc(fuel#)))
	SetTextString(altTxt,"Alt:"+Str(Trunc(ABS(GetObjectZ(heliObj))-12)))
    Step3DPhysicsWorld()
    fuel#=fuel#-.025:if fuel#<0 then fuel#=0:if fuel#=0 and state=0 then state=2
	if state=0
	if fuel#<=50 and fuel#>10
		SetTextColor(fuelTxt,255,255,0,255)
		SetObjectColor(heliObj,255,255,0,255)
		SetObjectColor(heliBladesObj,255,255,0,255)
		SetObjectColor(heliTailObj,255,255,0,255)
	elseif fuel#<=10
		SetTextColor(fuelTxt,255,0,0,255)
		SetObjectColor(heliObj,255,0,0,255)	
		SetObjectColor(heliBladesObj,255,0,0,255)	
		SetObjectColor(heliTailObj,255,0,0,255)
	else
		SetTextColor(fuelTxt,0,255,0,255)
		SetObjectColor(heliObj,0,255,0,255)		
		SetObjectColor(heliBladesObj,0,255,0,255)		
		SetObjectColor(heliTailObj,0,255,0,255)
	endif
	endif	
	//print (GetObjectWorldAngleX(heliObj) )		
    Sync()
loop

function moveWorld(objID as integer,ax#,ay#,az#)
	RotateObjectGlobalX(objID,ax#)
	RotateObjectGlobalY(objID,ay#)
	RotateObjectGlobalZ(objID,az#)	
endfunction


function shootMissile(objectId as integer,initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(objectId),GetObjectWorldY(objectId),GetObjectWorldZ(objectId)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
     
    //setobjectrotation(projectiledirbox,-55.0,GetObjectAngleY(objectId),270.0)
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(objectId),GetObjectWorldAngleY(objectId),GetObjectWorldAngleZ(objectId))
    //SetObjectLookAt(projectiledirbox,GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2),0) 
    MoveObjectLocalZ( projectileDirBox, -1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    //DeleteObject( projectileDirBox )
    missile as integer    
    missile = CreateObjectSphere(.4,5,5)
   
    //bullet = CreateObjectSphere(.45,.45,.45 )
    //missile=InstanceObject(worldObj) 
    //SetObjectImage(missile,planetD,0)
    SetObjectColor(missile, 255,0,0,255 )
    SetObjectLightMode(missile,0)

    SetObjectPosition(missile, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(missile,GetObjectAngleX(projectileDirBox),GetObjectAngleY(projectileDirBox),GetObjectAngleZ(projectileDirBox)+180)
    //RotateObjectLocalZ(missile,90)
    DeleteObject( projectileDirBox )
    //3D Physics code
    Create3DPhysicsDynamicBody(missile)
    //SetObjectShapeSphere( bullet )
    SetObject3DPhysicsMass(missile, mass )
    SetObject3DPhysicsLinearVelocity(missile, projectileDirVec, initialSpeed )
    
    myItem as bullet
    myItem.ID = missile //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	planetMissile.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc missileCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function dropBomb(objectId as integer,initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(objectId),GetObjectWorldY(objectId),GetObjectWorldZ(objectId)+4) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
     
    //setobjectrotation(projectiledirbox,GetObjectWorldAngleX(objectId),GetObjectWorldAngleY(objectId),GetObjectWorldAngleZ(objectId))
    //SetObjectLookAt(projectiledirbox,GetObjectX(objectId),GetObjectY(objectId),GetObjectZ(objectId)+5,0) 
    setobjectrotation(projectiledirbox,315,0.0,GetObjectWorldAngleX(objectId)) //270 x rot is straight ahead
    //if GetObjectAngleX(objectId)< 0 then MoveObjectLocalX( projectileDirBox, -0.55 )
    //if GetObjectAngleX(objectId)> 0 then MoveObjectLocalX( projectileDirBox, 0.55 )
    //RotateObjectLocalX(projectileDirBox,(GetObjectAngleX(objectId)))
    
    MoveObjectLocalY( projectileDirBox,-0.50 )
    MoveObjectLocalZ( projectileDirBox,1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    //DeleteObject( projectileDirBox )
    bomb as integer    
    bomb = CreateObjectSphere(.4,5,5)
    //bomb=InstanceObject(worldObj) 
    
    //SetObjectImage(bomb,planetD,0) 
	
	SetObjectColor(bomb, 0, 255,0,255 )
    
	SetObjectScale(bomb,1,1,1)
    SetObjectLightMode(bomb,0)
	//SetObjectTransparency(missileObj,1) 

    SetObjectPosition(bomb, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //RotateObjectLocalX(bomb,180)
    RotateObjectLocalY(bomb,270)
    
    DeleteObject( projectileDirBox )
    //3D Physics code
    Create3DPhysicsDynamicBody( bomb )
    //SetObjectShapeSphere( bullet )
    SetObject3DPhysicsMass(bomb, mass )
    SetObject3DPhysicsLinearVelocity(bomb, projectileDirVec, initialSpeed )
    
    myItem as bullet
    myItem.ID = bomb //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	playerBomb.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	//inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction


function getDistance(objectID as integer,objectID2 as integer)
	distance as float
	vec1=CreateVector3(GetObjectWorldX(objectID),GetObjectWorldY(objectID),GetObjectWorldZ(objectID))
	vec2=CreateVector3(GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2))
	distance=GetVector3Distance(vec1,vec2 ) 
	DeleteVector3(vec1)
	DeleteVector3(vec2)
endfunction distance

function get2DAngle(x1#, y1#, x2#, y2#)
    //result# = ATanFull(x1# - x2#, y1# - y2#)
	result# = ATan2(x1# - x2#,y1# - y2#)
endfunction result#

function wrapvalue(num as float)
    while num<0
		num=num+360
	endwhile
    while num>360
        num=num-360
    endwhile
endfunction num

function	LoadVertex(name as string)
	f as integer
	l as String
	v as vertex
	
	f = OpenToRead(name)
	
	l = ReadLine(f)
	
	while(FileEOF(f) = 0)
		if mid(l,1,2) = "v "
			v.x = ValFloat(GetStringToken(l, " ", 2)) * 39
			v.y = ValFloat(GetStringToken(l, " ", 3)) * 39
			v.z = ValFloat(GetStringToken(l, " ", 4)) * 39
			verts.insert(v)
		endif
		
		l = ReadLine(f)		
	endwhile

endfunction

function loadMedia()
	SetGenerateMipmaps( 1 )

	//load images
	LoadImage(boxTextureD,"box2.png")
	loadImage(treeD,"firtree_2D.png")
	LoadImage(heliD,"chopper7W.png")
	LoadImage(planetD,"sphere1.png")
	LoadImage(fuelD,"fuel2.png")
	LoadImage(medsD,"heartD.png")
	LoadImage(baseD,"base.png")
	LoadImage(turretD,"turret.png")
	LoadImage(frameImg,"frame.png")
	LoadImage(explosionImg,"explosionG.png")
	LoadImage(smokeImg,"smokeG.png")
	LoadImage(helipadD,"helipadD.png")

	box=CreateObjectBox(1,1,1) //create a box to place at the centre of the planet 
	SetObjectVisible(box,0)

	LoadObject(fuelObj,"fuel.3ds")
	LoadObject(medsObj,"heart.obj")
	LoadObject(baseObj,"base.3ds")
	LoadObject(turretObj,"turret.3ds")
	LoadObject(boxObj,"box.3ds")
	LoadObject(treeObj,"firtree2.x")
	LoadObject(heliObj,"chopper.3ds")
	loadObject(heliBladesObj,"blades.3ds")
	loadObject(heliTailObj,"tail.3ds")
	LoadObject(worldObj,"sphere1.obj")
	LoadObject(helipadObj,"helipad.obj")

	LoadSound(heliSnd,"Helicopter.wav")
	LoadSound(worldMissSnd,"WorldMissile.wav")
	//LoadSound(baseExpSnd,"")
	LoadSound(heliExpSnd,"HeliExplosion.wav")
	LoadSound(heliMissSnd,"HeliMissile.wav")
	LoadSound(lifeSnd,"Life.wav")
	LoadSound(fuelSnd,"Fuel.wav")
	LoadSound(blockSnd,"Block.wav")
	LoadSound(blockSnd2,"Block2.wav")
	
	
	SetObjectVisible(fuelObj,0)
	SetObjectVisible(medsObj,0)
	SetObjectVisible(baseObj,0)
	SetObjectVisible(turretObj,0)
	SetObjectVisible(boxObj,0)
	SetObjectVisible(treeObj,0)

	SetObjectImage(helipadObj,helipadD,0)
	SetObjectPosition(helipadObj,0,19.5,0)
	FixObjectToObject(helipadObj,box)

	InstanceObject(helipad2Obj,helipadObj)
	SetObjectImage(helipad2Obj,helipadD,0)
	SetObjectPosition(helipad2Obj,0,-19.5,0)
	SetObjectRotation(helipad2Obj,0, 0, 180 )
	FixObjectToObject(helipad2Obj,box)

	SetObjectImage(heliObj,heliD,0)
	SetObjectImage(heliBladesObj,heliD,0)
	SetObjectImage(heliTailObj,heliD,0)
	SetObjectLightMode(heliObj,0)
	SetObjectLightMode(heliBladesObj,0)
	SetObjectLightMode(heliTailObj,0)

	FixObjectToObject(heliBladesObj,heliObj)
	SetObjectPOsition(heliTailObj,1.5,.3,.1)
	FixObjectToObject(heliTailObj,heliObj)
	SetObjectDepthWrite(heliBladesObj, 1 ) 
	SetObjectCullMode(heliBladesObj, 0)  
	SetObjectDepthWrite(heliTailObj, 1 ) 
	SetObjectCullMode(heliTailObj, 0)  
	SetObjectRotation(heliObj,0,90,-50)
	SetObjectCollisionMode(heliObj,1)
endfunction

function createWorld()
boxnumber=0:a=0:b=0
for i=0 to myVerts.length
	empty.x#=myVerts[i].x
	empty.y#=myVerts[i].y
	empty.z#=myVerts[i].z
		//empty.fired=0
	a=random(1,25)
	if a>15
		empty.id = InstanceObject(baseObj)
		bases.insert(empty)
		SetObjectImage(empty.id,baseD,0)
		SetObjectLightMode(empty.id,0)
		SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
		SetObjectLookAt(empty.id, 0, 0, 0, 0 )
		RotateObjectLocalX(empty.id,275)
		FixObjectToObject(empty.id,box)
		SetObjectVisible(empty.id,1)
		b=random(1,30)
		if b>10
			empty.id = InstanceObject(turretObj)
			empty.lastFiredTime#=0
			SetObjectImage(empty.id,turretD,0)
			SetObjectLightMode(empty.id,0)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 )
			RotateObjectLocalX(empty.id,275)
			FixObjectToObject(empty.id,box)
			SetObjectVisible(empty.id,1)
			turrets.insert(empty)
			inc boxnumber
		elseif b>2
			empty.id = InstanceObject(fuelObj)
			fuel.insert(empty)
			SetObjectImage(empty.id,fuelD,0)
			SetObjectLightMode(empty.id,0)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 )
			RotateObjectLocalX(empty.id,275)
			FixObjectToObject(empty.id,box)
			SetObjectVisible(empty.id,1)
		else
			empty.id = InstanceObject(medsObj)
			meds.insert(empty)
			SetObjectImage(empty.id,medsD,0)
			SetObjectLightMode(empty.id,0)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 )
			RotateObjectLocalX(empty.id,275)
			FixObjectToObject(empty.id,box)
			SetObjectVisible(empty.id,1)
		endif
	elseif a>10
			empty.id = InstanceObject(treeObj)
			SetObjectScale(empty.id,.04,.04,.04)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectImage(empty.id,treeD,0)			
			SetObjectLightMode(empty.id,0)
			SetObjectColor(empty.id,0,150,0,255)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 ) 
			RotateObjectLocalX(empty.id,-90) 			
			FixObjectToObject(empty.id,box)
		    SetObjectVisible(empty.id,1)
			trees.insert(empty) 
	else
			empty.id = InstanceObject(boxObj)
			empty.pickedup=0
			setObjectImage(empty.id,boxTextureD,0)
			SetObjectLightMode(empty.id,0)
			SetObjectPosition(empty.id,empty.x#,empty.y#,empty.z#)
			SetObjectLookAt(empty.id, 0, 0, 0, 0 ) 
			blocks.insert(empty)
			SetObjectVisible(empty.id,1)
			FixObjectToObject(empty.id,box)
	endif
next

SetObjectScale(worldObj,39,39,39)
SetObjectImage(worldObj,planetD,0)
FixObjectToObject(worldObj,box)
endfunction

function removeDuplicateVerts()
	v as vertex
	v.x = verts[0].x
	v.y = verts[0].y
	v.z = verts[0].z
	myVerts.insert(v)	
	for i=0 to verts.length
		x#=verts[i].x
		y#=verts[i].y
		z#=verts[i].z
		flag=0 //flag = 1 for duplicate
		for num = 0 to myVerts.length //add non duplicate entries to myVerts
			if round(x#)=round(myVerts[num].x) and round(y#)=round(myVerts[num].y) and round(z#)=round(myVerts[num].z) then flag =1
		next
		if x#=0 and round(y#)=round(19.5) and z#=0 then flag=1 //leave free for helipads
		if x#=0 and round(y#)=round(-19.5) and z#=0 then flag=1 //leave free for helipads

		if flag = 0
			v.x = verts[i].x
			v.y = verts[i].y
			v.z = verts[i].z
			myVerts.insert(v)
		endif
	next i
	//delete verts array elements as its nolonger needed
	length=verts.length
	for num = length to 0 step -1
		verts.remove(num)
	next num
endfunction 

function createSpritesandText()
	CreateSprite(explosionSpr,explosionImg)
	SetSpriteImage(explosionSpr,explosionImg)
	SetSpriteAnimation(explosionSpr,256,256,25)
	SetSpriteSize(explosionSpr,256,256)
	SetCameraPosition(1,0,15,-30)
	SetCameraRotation(1,15,0,0 )
	SetSpritePositionByOffset(explosionSpr,512+GetObjectX(heliObj),384-GetObjectY(heliObj))
	SetSpriteVisible(explosionSpr,0)			
	CreateSprite(frameSpr,frameImg)
	
	CreateText(titleTxt,"Block-Lifter")
	SetTextPosition(titleTxt,412,0)
	SetTextColor(titleTxt,0,255,0,255)
	SetTextSize(titleTxt,50)
	CreateText(altTxt,"Alt:0")
	SetTextPosition(altTxt,352,40)
	SetTextColor(altTxt,0,255,0,255)
	SetTextSize(altTxt,30)
	CreateText(fuelTxt,"F:100")
	SetTextPosition(fuelTxt,452,40)
	SetTextColor(fuelTxt,0,255,0,255)
	SetTextSize(fuelTxt,30)
	CreateText(holdingTxt,"H:0")
	SetTextPosition(holdingTxt,552,40)
	SetTextColor(holdingTxt,0,255,0,255)
	SetTextSize(holdingTxt,30)
	CreateText(rescuedTxt,"R:0")
	SetTextPosition(rescuedTxt,652,40)
	SetTextColor(rescuedTxt,0,255,0,255)
	SetTextSize(rescuedTxt,30)
	CreateText(livesTxt,"L:0")
	SetTextPosition(livesTxt,752,40)
	SetTextColor(livesTxt,0,255,0,255)
	SetTextSize(livesTxt,30)
endfunction

The blocks/fuel/lives pickups raycasting does work but needs improving but I think il leave it as changing the positions of
the heli and different models all seem to have an effect

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: 30th Aug 2018 13:00 Edited at: 7th Sep 2018 13:26

Link

Too many things happening lately so not allot of progress but theres always tomorrow
Added sounds and increased the range they shoot from. Think now I may have to use a percentage health based system
but its allot better seeing more enemy fire. I use three colors for the heli green good yellow running low of fuel and red
shot or very little fuel. If I go the percentage way of taking shots it will show yellow when not so healthy. There are two
helipads one at the NorthPole and one at the SouthPole but may add them West and East to make them easier to find.
Also fixed the angles on the heli and it now rotates around the globe relative to the angle I always get a bit confused
when you have to swap the x and z angles. The heli also auto fires making it more mobile friendly

Also added the latest heli model courtesy of blink0k

Edited video removed please see further down

PS ive deleted allot of the older videos my youtube had so many lol but this one shows
that the overlapping models nolonger exists and the picking up of fuel/lives/blocks working

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: 1st Sep 2018 09:55 Edited at: 7th Sep 2018 13:26

Link

ok this is where its at new models courtesy of blink and extra carnage
the new model can hold up to 12 crates in its hud The blocks have changed and you will notice the turrets have too that's work in
progress but if in range those turrets aim at the heli the bullets are just simple dots red for enemy and green for your own shots atm

Edited video removed please see further down

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 1st Sep 2018 10:10

Link

Wow - you achieving amazing results every single day

Keep up good work

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 1st Sep 2018 10:32 Edited at: 1st Sep 2018 21:35

Link

Thanks blinks got some great ideas too like a clever trick I didn't know about obj files are text files and you can easily subtract
the vertex data from them that's how the planets loaded now that way with the vertexs you can position better on the texture
map see previous code snippet but hes also suggested a method that you can subtract the faces to build a model so in effect
I could have an array of faces for a model that could be used for an explosion kinda similar to my vertex explosion with memblocks
but this way less overheads and moves faces of a model not vertexs. I love the new models loved the old ones but this one very
original and perfect for such a game The turrets aim at heli now bengismo pointed me in the right direction for that. the issue
was I couldn't do it with a front facing model it needed to be top facing atm its just a rectangle but that's all that's needed just
textured better.

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 2nd Sep 2018 01:19

Link

Looks good!
I think if you made the chopper move using acceleration/velocity/friction so it had a bit of momentum it might feel a bit more realistic.

Back to top

Profile PM

JLMoondog

Moderator

15

Years of Service

User Offline

Joined: 18th Jan 2009

Location: Paradox

Posted: 2nd Sep 2018 02:41 Edited at: 2nd Sep 2018 02:46

Link

Looking pretty good you guys! May I make one suggestion to make the game more fair? Have some kind of visual warning (visual UI cue) before a turret fires, it than fires three shots before it goes into a "reloading" cooldown. I think this would make the gameplay more fun.

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: 2nd Sep 2018 04:05 Edited at: 7th Sep 2018 13:26

Link

good suggestions lots of visuals still to do but the guns shoot on a time now, didnt think they should shutdown for
overheating but thats not a bad idea

as for blinks suggestion ive been working on the acceleration/friction so far its two directional and looks like this

Edited video removed please see further down

And you now start at a helipad and theres a home function to return you there for level changes when I do them lol
and it drops the boxes off one at a time gradually moving them to the helipad so it is possible to fly off with still half
a load and get more and come back

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: 2nd Sep 2018 05:25 Edited at: 2nd Sep 2018 05:52

Link

a change from code thought ide look at title screens. Lets see here who recognises the font from the forums lol
need to rotate it I think but I do think it is very suitable as a title screen. Just wish the font could be exported as a
model or even a memblock that could be later converted to a model. Il leave it here and see what puzzler thinks
as it was created with his post of code in the Minecraft thread.

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 2nd Sep 2018 07:38

Link

Looks nice and fluid fubar! Sweet splash screen too.
Note: It's looks odd that one of the ribs appears to be in front of hover blades in the splash screen.
Send me the font and i'll make it a 3D model if you want

Back to top

Profile PM

puzzler2018

User Banned

Posted: 2nd Sep 2018 09:48

Link

Its no ordinary TTF font as you might expect..

Its a primitive built one from code

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 2nd Sep 2018 10:16

Link

Quote: "Its no ordinary TTF font as you might expect.."

Yep and I spent quite some time figuring how I could convert the vertex data to xyz vertices
but prob is you get vertices but no faces and the xyz data just has to be written xvalue yvalue zvalue newline like that in a text file
and loaded into a program like meshlab the prob is I didn't find any documentation of such in my efforts but meshlab will load the
vertices I guess that's a learning curve lol

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 2nd Sep 2018 10:25 Edited at: 2nd Sep 2018 10:30

Link

If you get any vertexes with no faces then reverse the code.

Say

Triangle 1 with no face

Vertex 1 - 0 , 0 , 0
Vertex 2 - 10 , 0 , 0
Vertex 3 - 0 , 0 , 10

Reverse Vertex 2 and 3

Vertex 1 - 0 , 0 , 0
Vertex 3 - 0 , 0 , 10
Vertex 2 - 10 , 0 , 0

Should create a triangle with a face by reversing 2nd and 3rd vertices

Always think in 3s

Back to top

Profile

puzzler2018

User Banned

Posted: 2nd Sep 2018 10:42

Link

For example

No Faces

// Project: ascii 
// Created: 2018-09-02

// show all errors
SetErrorMode(2)

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

Type Vertex
	
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype

global MeshID as Mesh

AddVertex(MeshID, 0,0,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 0,10,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 10,10,0, 0,1,0, 0,0,MakeColor(255,255,255))

object = CreateObjectFromMeshWithColor(MeshID)

do
	//RotateObjectLocalX(object,1)
	
    Print( ScreenFPS() )
    Sync()
loop

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2)

// create the cube

AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))

endfunction

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)

endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

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

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

if mode=1 // creates the world or it creates for other small things - like explosion blocks
		// we need to keep the world chunk in memory so we can keep updating the vertices
		meshmemory = memblock
	endif
	
//	DeleteMemblock(memblock)
endfunction id

+ Code Snippet


// Project: ascii 
// Created: 2018-09-02

// show all errors
SetErrorMode(2)

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

Type Vertex
	
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype

global MeshID as Mesh

AddVertex(MeshID, 0,0,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 0,10,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 10,10,0, 0,1,0, 0,0,MakeColor(255,255,255))

object = CreateObjectFromMeshWithColor(MeshID)

do
	//RotateObjectLocalX(object,1)
	
    Print( ScreenFPS() )
    Sync()
loop


function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2) 


// create the cube 

	AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))

endfunction

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)

endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

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


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

	if mode=1 // creates the world or it creates for other small things - like explosion blocks
		// we need to keep the world chunk in memory so we can keep updating the vertices
		meshmemory = memblock
	endif
	
//	DeleteMemblock(memblock)
endfunction id

With a face

// Project: ascii 
// Created: 2018-09-02

// show all errors
SetErrorMode(2)

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

Type Vertex
	
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype

global MeshID as Mesh

AddVertex(MeshID, 0,0,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 10,10,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 0,10,0, 0,1,0, 0,0,MakeColor(255,255,255))

object = CreateObjectFromMeshWithColor(MeshID)

do
	//RotateObjectLocalX(object,1)
	
    Print( ScreenFPS() )
    Sync()
loop

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2)

// create the cube

AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))

endfunction

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)

endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

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

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

if mode=1 // creates the world or it creates for other small things - like explosion blocks
		// we need to keep the world chunk in memory so we can keep updating the vertices
		meshmemory = memblock
	endif
	
//	DeleteMemblock(memblock)
endfunction id

+ Code Snippet


// Project: ascii 
// Created: 2018-09-02

// show all errors
SetErrorMode(2)

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

Type Vertex
	
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype

global MeshID as Mesh

AddVertex(MeshID, 0,0,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 10,10,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 0,10,0, 0,1,0, 0,0,MakeColor(255,255,255))

object = CreateObjectFromMeshWithColor(MeshID)

do
	//RotateObjectLocalX(object,1)
	
    Print( ScreenFPS() )
    Sync()
loop


function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2) 


// create the cube 

	AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))

endfunction

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)

endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

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


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

	if mode=1 // creates the world or it creates for other small things - like explosion blocks
		// we need to keep the world chunk in memory so we can keep updating the vertices
		meshmemory = memblock
	endif
	
//	DeleteMemblock(memblock)
endfunction id

Notice the swap on the AddVertex commands

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 2nd Sep 2018 11:04

Link

I still don't get how I can convert a cube with

+ Code Snippet

AddVertex(MeshID, 0,0,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 10,10,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 0,10,0, 0,1,0, 0,0,MakeColor(255,255,255))

Im trying to convert your 3D Letters this is what I have so far just not sure about the above bit mentioned

// Project: 3D Letters 
// Created: 2018-08-04

// show all errors
SetErrorMode(2)

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

type _letters
	pivot
	id as integer[5,5]
	code$ as string[5]
endtype

Type Vertex
	
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype

global MeshID as Mesh
cubeD=loadimage("cube.png")

global letters as _letters[12] // Creates - Craft - A - Lite
letters[1].code$[1] = "11111"
letters[1].code$[2] = "11011"
letters[1].code$[3] = "11110"
letters[1].code$[4] = "11011"
letters[1].code$[5] = "11111"

letters[2].code$[1] = "11000"
letters[2].code$[2] = "11000"
letters[2].code$[3] = "11000"
letters[2].code$[4] = "11000"
letters[2].code$[5] = "11111"

letters[3].code$[1] = "11111"
letters[3].code$[2] = "11011"
letters[3].code$[3] = "11011"
letters[3].code$[4] = "11011"
letters[3].code$[5] = "11111"

letters[4].code$[1] = "11111"
letters[4].code$[2] = "11000"
letters[4].code$[3] = "11000"
letters[4].code$[4] = "11000"
letters[4].code$[5] = "11111"

letters[5].code$[1] = "11011"
letters[5].code$[2] = "11011"
letters[5].code$[3] = "11110"
letters[5].code$[4] = "11011"
letters[5].code$[5] = "11011"

letters[6].code$[1] = "11000"
letters[6].code$[2] = "11000"
letters[6].code$[3] = "11000"
letters[6].code$[4] = "11000"
letters[6].code$[5] = "11111"

letters[7].code$[1] = "11111"
letters[7].code$[2] = "00100"
letters[7].code$[3] = "00100"
letters[7].code$[4] = "00100"
letters[7].code$[5] = "11111"

letters[8].code$[1] = "11111"
letters[8].code$[2] = "11000"
letters[8].code$[3] = "11111"
letters[8].code$[4] = "11000"
letters[8].code$[5] = "11000"

letters[9].code$[1] = "11111"
letters[9].code$[2] = "00100"
letters[9].code$[3] = "00100"
letters[9].code$[4] = "00100"
letters[9].code$[5] = "00100"

letters[10].code$[1] = "11111"
letters[10].code$[2] = "11000"
letters[10].code$[3] = "1110"
letters[10].code$[4] = "11000"
letters[10].code$[5] = "11111"

letters[11].code$[1] = "11111"
letters[11].code$[2] = "11011"
letters[11].code$[3] = "11110"
letters[11].code$[4] = "11011"
letters[11].code$[5] = "11011"

letters[12].code$[1] = "00000"
letters[12].code$[2] = "00000"
letters[12].code$[3] = "00000"
letters[12].code$[4] = "00000"
letters[12].code$[5] = "00000"

pos=0
for letter=1 to 12
	inc pos,5
	letters[letter].pivot = CreateObjectBox(.01,.01,.01)
for x=1 to 5

for y=1 to 7
			if mid(letters[letter].code$[x],y,1)="1"
				
				letters[letter].id[x,y] = CreateObjectBox(1,1,2)
				SetObjectColor(letters[letter].id[x,y],0,200,0,255)
				SetObjectPosition(letters[letter].id[x,y],x,y ,0)
				
				FixObjectToObject(letters[letter].id[x,y],letters[letter].pivot)
				
			
			endif
		next
	next
next

for letter = 1 to 12
	SetObjectPosition(letters[letter].pivot,-40 + (letter * 6),0,40)
	SetObjectColor(letters[letter].pivot,0,0,0,255)
	SetObjectRotation(letters[letter].pivot,50,0,270)
next

do

Print( ScreenFPS() )
    Sync()
loop

AddVertex(MeshID, 0,0,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 10,10,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 0,10,0, 0,1,0, 0,0,MakeColor(255,255,255))

object = CreateObjectFromMeshWithColor(MeshID)

do
	//RotateObjectLocalX(object,1)
	
    Print( ScreenFPS() )
    Sync()
loop

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2)

// create the cube

AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))

endfunction

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)

endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

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

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

if mode=1 // creates the world or it creates for other small things - like explosion blocks
		// we need to keep the world chunk in memory so we can keep updating the vertices
		meshmemory = memblock
	endif
	
//	DeleteMemblock(memblock)
endfunction id

+ Code Snippet


// Project: 3D Letters 
// Created: 2018-08-04

// show all errors
SetErrorMode(2)

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

type _letters
	pivot
	id as integer[5,5]
	code$ as string[5]
endtype

Type Vertex
	
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype

global MeshID as Mesh
cubeD=loadimage("cube.png")

global letters as _letters[12] // Creates - Craft - A - Lite
letters[1].code$[1] = "11111"
letters[1].code$[2] = "11011"
letters[1].code$[3] = "11110"
letters[1].code$[4] = "11011"
letters[1].code$[5] = "11111"


letters[2].code$[1] = "11000"
letters[2].code$[2] = "11000"
letters[2].code$[3] = "11000"
letters[2].code$[4] = "11000"
letters[2].code$[5] = "11111"


letters[3].code$[1] = "11111"
letters[3].code$[2] = "11011"
letters[3].code$[3] = "11011"
letters[3].code$[4] = "11011"
letters[3].code$[5] = "11111"

letters[4].code$[1] = "11111"
letters[4].code$[2] = "11000"
letters[4].code$[3] = "11000"
letters[4].code$[4] = "11000"
letters[4].code$[5] = "11111"


letters[5].code$[1] = "11011"
letters[5].code$[2] = "11011"
letters[5].code$[3] = "11110"
letters[5].code$[4] = "11011"
letters[5].code$[5] = "11011"

letters[6].code$[1] = "11000"
letters[6].code$[2] = "11000"
letters[6].code$[3] = "11000"
letters[6].code$[4] = "11000"
letters[6].code$[5] = "11111"


letters[7].code$[1] = "11111"
letters[7].code$[2] = "00100"
letters[7].code$[3] = "00100"
letters[7].code$[4] = "00100"
letters[7].code$[5] = "11111"


letters[8].code$[1] = "11111"
letters[8].code$[2] = "11000"
letters[8].code$[3] = "11111"
letters[8].code$[4] = "11000"
letters[8].code$[5] = "11000"

letters[9].code$[1] = "11111"
letters[9].code$[2] = "00100"
letters[9].code$[3] = "00100"
letters[9].code$[4] = "00100"
letters[9].code$[5] = "00100"


letters[10].code$[1] = "11111"
letters[10].code$[2] = "11000"
letters[10].code$[3] = "1110"
letters[10].code$[4] = "11000"
letters[10].code$[5] = "11111"

letters[11].code$[1] = "11111"
letters[11].code$[2] = "11011"
letters[11].code$[3] = "11110"
letters[11].code$[4] = "11011"
letters[11].code$[5] = "11011"

letters[12].code$[1] = "00000"
letters[12].code$[2] = "00000"
letters[12].code$[3] = "00000"
letters[12].code$[4] = "00000"
letters[12].code$[5] = "00000"


pos=0
for letter=1 to 12
	inc pos,5
	letters[letter].pivot = CreateObjectBox(.01,.01,.01)
for x=1 to 5
	
	

		for y=1 to 7
			if mid(letters[letter].code$[x],y,1)="1"
				
				letters[letter].id[x,y] = CreateObjectBox(1,1,2)
				SetObjectColor(letters[letter].id[x,y],0,200,0,255)
				SetObjectPosition(letters[letter].id[x,y],x,y ,0)
				
				FixObjectToObject(letters[letter].id[x,y],letters[letter].pivot)
				
			
			endif
		next
	next
next


for letter = 1 to 12
	SetObjectPosition(letters[letter].pivot,-40 + (letter * 6),0,40)
	SetObjectColor(letters[letter].pivot,0,0,0,255)
	SetObjectRotation(letters[letter].pivot,50,0,270)
next


do

    Print( ScreenFPS() )
    Sync()
loop



AddVertex(MeshID, 0,0,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 10,10,0, 0,1,0, 0,0,MakeColor(255,255,255))
AddVertex(MeshID, 0,10,0, 0,1,0, 0,0,MakeColor(255,255,255))

object = CreateObjectFromMeshWithColor(MeshID)

do
	//RotateObjectLocalX(object,1)
	
    Print( ScreenFPS() )
    Sync()
loop


function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)

// calculate the UVs  - YIKES here we go
	cubex#=((tilenumberx-1) * .5) + tilenumberx // 
	cubey#=(tilenumbery * 0.5)+ 0.5
	maxx# = ((100/15.00)/100) * cubex#
	minx# = (maxx#-(100/15.00)/100)
	halfx# = (maxx#/2 + minx# / 2) 
	bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
	bottomminx# = (bottommaxx#-((100/15.00)/100))
	bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
	maxy# = ((100/11.00)/100) * cubey#
	miny# = (maxy#-(100/11.00)/100) 
	halfy# = (maxy#/2 + miny# / 2) 


// create the cube 

	AddVertex(meshID,x# ,y#,z#						,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#,z#				,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#,z#				,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#		,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#		,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#		,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#  			,0,1,0		,maxx#	,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#				,0,1,0		,maxx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#	,0,1,0		,halfx#	,miny#,MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#	,0,1,0		,halfx#	,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#  			,0,1,0		,bottommaxx#,halfy#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#  			,0,1,0		,bottomhalfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,bottommaxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,bottomhalfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#  	,0,1,0		,maxx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#,z#+-cubesize#  	,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#			,z#+-cubesize#  	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize# 		 	,0,1,0		,maxx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z# 		 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#  					,0,1,0		,halfx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#			 			,0,1,0		,halfx#	,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#			,z#+-cubesize#  			,0,1,0		,maxx#	, halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#,y#+cubesize#	,z#+-cubesize#  			,0,1,0		,maxx#	, miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#  			,0,1,0		,minx#,miny#,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#	,halfy#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#+cubesize#,y#+cubesize#			,z#+-cubesize#  	,0,1,0		,halfx#,miny#	,	MakeColor(255,0,0))
	AddVertex(meshID,x#			,y#+cubesize#			,z#  			,0,1,0		,minx#,halfy#	,	MakeColor(255,0,0))

endfunction

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)

endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

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


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

	if mode=1 // creates the world or it creates for other small things - like explosion blocks
		// we need to keep the world chunk in memory so we can keep updating the vertices
		meshmemory = memblock
	endif
	
//	DeleteMemblock(memblock)
endfunction id

the plan is to make one mesh from it lower overheads

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 2nd Sep 2018 11:27 Edited at: 2nd Sep 2018 11:35

Link

You have to add more Vertexes - only 3makes a triangle, you need 2 triangles to make a face and you have 6 faces - so thats about 36 addvertexcommands

Try this

// Project: MeshTemplate
// Created: 2018-09-02

// show all errors
SetErrorMode(2)

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

Type Vertex
	
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype

global MeshID as Mesh

object = CreateObjectFromMeshWithColor( CreateMeshObjectBoxWithColor(1,1,1,MakeColor(255,255,255)))

do
	RotateObjectLocalX(object,1)
	RotateObjectLocalY(object,1)
//	RotateObjectLocalZ(object,1)
	
    Print( ScreenFPS() )
    Sync()
loop

function CreateMeshObjectBoxWithColor(Width#, Height#, Depth#, Color)
	
//Front Face	
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)

// Left
	AddVertex(MeshID, 0			,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#		, 0,1,0, 0,0,Color)

// Right
	AddVertex(MeshID, width#	,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#	, 0,1,0, 0,0,Color)

//back
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, width#	,0			,-depth#, 0,1,0, 0,0,Color)

//top
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)

// bottom
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)

endfunction MeshID

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)

endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

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

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

if mode=1 // creates the world or it creates for other small things - like explosion blocks
		// we need to keep the world chunk in memory so we can keep updating the vertices
		meshmemory = memblock
	endif
	
//	DeleteMemblock(memblock)
endfunction id

+ Code Snippet


// Project: MeshTemplate
// Created: 2018-09-02

// show all errors
SetErrorMode(2)

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

Type Vertex
	
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype

global MeshID as Mesh


object = CreateObjectFromMeshWithColor( CreateMeshObjectBoxWithColor(1,1,1,MakeColor(255,255,255)))

do
	RotateObjectLocalX(object,1)
	RotateObjectLocalY(object,1)
//	RotateObjectLocalZ(object,1)
	
    Print( ScreenFPS() )
    Sync()
loop

function CreateMeshObjectBoxWithColor(Width#, Height#, Depth#, Color)
	
//Front Face	
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)	

// Left
	AddVertex(MeshID, 0			,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#		, 0,1,0, 0,0,Color)

// Right
	AddVertex(MeshID, width#	,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#	, 0,1,0, 0,0,Color)

//back
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, width#	,0			,-depth#, 0,1,0, 0,0,Color)

//top
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)

// bottom
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	


endfunction MeshID


Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)

endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

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


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

	if mode=1 // creates the world or it creates for other small things - like explosion blocks
		// we need to keep the world chunk in memory so we can keep updating the vertices
		meshmemory = memblock
	endif
	
//	DeleteMemblock(memblock)
endfunction id

EDIT
Apologies the Bottom was showing no faces so reversed it

function CreateMeshObjectBoxWithColor(Width#, Height#, Depth#, Color)
	
//Front Face	
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)

// Left
	AddVertex(MeshID, 0			,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#		, 0,1,0, 0,0,Color)

// Right
	AddVertex(MeshID, width#	,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#		, 0,1,0, 0,0,Color)
AddVertex(MeshID, width#	,height#	,-depth#	, 0,1,0, 0,0,Color)
	
//back
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, width#	,0			,-depth#, 0,1,0, 0,0,Color)

//top
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)

// bottom
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,-depth#	, 0,1,0, 0,0,Color)

endfunction MeshID

+ Code Snippet

function CreateMeshObjectBoxWithColor(Width#, Height#, Depth#, Color)
	
//Front Face	
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)	

// Left
	AddVertex(MeshID, 0			,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#		, 0,1,0, 0,0,Color)

// Right
	AddVertex(MeshID, width#	,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#		, 0,1,0, 0,0,Color)
AddVertex(MeshID, width#	,height#	,-depth#	, 0,1,0, 0,0,Color)
	
//back
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, width#	,0			,-depth#, 0,1,0, 0,0,Color)

//top
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)

// bottom
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,-depth#	, 0,1,0, 0,0,Color)
	



endfunction MeshID

Back to top

Profile

puzzler2018

User Banned

Posted: 2nd Sep 2018 11:45 Edited at: 2nd Sep 2018 11:50

Link

This is what you looking for - the letters are now in a mesh

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
type _letters
    pivot
    id as integer[5,5]
    code$ as string[5]
endtype
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
//cubeD=loadimage("cube.png")
 
global letters as _letters[12] // Creates - Craft - A - Lite
letters[1].code$[1] = "11111"
letters[1].code$[2] = "11011"
letters[1].code$[3] = "11110"
letters[1].code$[4] = "11011"
letters[1].code$[5] = "11111"
 
 
letters[2].code$[1] = "11000"
letters[2].code$[2] = "11000"
letters[2].code$[3] = "11000"
letters[2].code$[4] = "11000"
letters[2].code$[5] = "11111"
 
 
letters[3].code$[1] = "11111"
letters[3].code$[2] = "11011"
letters[3].code$[3] = "11011"
letters[3].code$[4] = "11011"
letters[3].code$[5] = "11111"
 
letters[4].code$[1] = "11111"
letters[4].code$[2] = "11000"
letters[4].code$[3] = "11000"
letters[4].code$[4] = "11000"
letters[4].code$[5] = "11111"
 
 
letters[5].code$[1] = "11011"
letters[5].code$[2] = "11011"
letters[5].code$[3] = "11110"
letters[5].code$[4] = "11011"
letters[5].code$[5] = "11011"
 
letters[6].code$[1] = "11000"
letters[6].code$[2] = "11000"
letters[6].code$[3] = "11000"
letters[6].code$[4] = "11000"
letters[6].code$[5] = "11111"
 
 
letters[7].code$[1] = "11111"
letters[7].code$[2] = "00100"
letters[7].code$[3] = "00100"
letters[7].code$[4] = "00100"
letters[7].code$[5] = "11111"
 
 
letters[8].code$[1] = "11111"
letters[8].code$[2] = "11000"
letters[8].code$[3] = "11111"
letters[8].code$[4] = "11000"
letters[8].code$[5] = "11000"
 
letters[9].code$[1] = "11111"
letters[9].code$[2] = "00100"
letters[9].code$[3] = "00100"
letters[9].code$[4] = "00100"
letters[9].code$[5] = "00100"
 
 
letters[10].code$[1] = "11111"
letters[10].code$[2] = "11000"
letters[10].code$[3] = "1110"
letters[10].code$[4] = "11000"
letters[10].code$[5] = "11111"
 
letters[11].code$[1] = "11111"
letters[11].code$[2] = "11011"
letters[11].code$[3] = "11110"
letters[11].code$[4] = "11011"
letters[11].code$[5] = "11011"
 
letters[12].code$[1] = "00000"
letters[12].code$[2] = "00000"
letters[12].code$[3] = "00000"
letters[12].code$[4] = "00000"
letters[12].code$[5] = "00000"
 
 
pos=0
for letter=1 to 12
    inc pos,5
    letters[letter].pivot = CreateObjectBox(.01,.01,.01)
for x=1 to 5
     
     
 
        for y=1 to 7
            if mid(letters[letter].code$[x],y,1)="1"
                
                CreateMeshObjectBoxWithColor(1,1,2,MakeColor(0,255,0))
                
                letters[letter].id[x,y] = CreateObjectFromMeshWithColor(MeshID)
                SetObjectColor(letters[letter].id[x,y],0,200,0,255)
                SetObjectPosition(letters[letter].id[x,y],x,y ,0)
                 
                FixObjectToObject(letters[letter].id[x,y],letters[letter].pivot)
                 
             
            endif
        next
    next
next
 
 
for letter = 1 to 12
    SetObjectPosition(letters[letter].pivot,-40 + (letter * 6),0,40)
    SetObjectColor(letters[letter].pivot,0,0,0,255)
    SetObjectRotation(letters[letter].pivot,50,0,270)
next
 
 
 
 
 
 
do
    //RotateObjectLocalX(object,1)
     
    Print( ScreenFPS() )
    Sync()
loop
 
 function CreateMeshObjectBoxWithColor(Width#, Height#, Depth#, Color)
	
	MeshID.TriangleList.length=-1
	MeshID.VertexList.length=-1
	
//Front Face	
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)

// Left
	AddVertex(MeshID, 0			,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#		, 0,1,0, 0,0,Color)

// Right
	AddVertex(MeshID, width#	,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#		, 0,1,0, 0,0,Color)
AddVertex(MeshID, width#	,height#	,-depth#	, 0,1,0, 0,0,Color)
	
//back
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, width#	,0			,-depth#, 0,1,0, 0,0,Color)

//top
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)

// bottom
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,-depth#	, 0,1,0, 0,0,Color)

endfunction MeshID

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, mode)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
 
    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
    endif
     
//  DeleteMemblock(memblock)
endfunction id

+ Code Snippet

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
type _letters
    pivot
    id as integer[5,5]
    code$ as string[5]
endtype
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
//cubeD=loadimage("cube.png")
 
global letters as _letters[12] // Creates - Craft - A - Lite
letters[1].code$[1] = "11111"
letters[1].code$[2] = "11011"
letters[1].code$[3] = "11110"
letters[1].code$[4] = "11011"
letters[1].code$[5] = "11111"
 
 
letters[2].code$[1] = "11000"
letters[2].code$[2] = "11000"
letters[2].code$[3] = "11000"
letters[2].code$[4] = "11000"
letters[2].code$[5] = "11111"
 
 
letters[3].code$[1] = "11111"
letters[3].code$[2] = "11011"
letters[3].code$[3] = "11011"
letters[3].code$[4] = "11011"
letters[3].code$[5] = "11111"
 
letters[4].code$[1] = "11111"
letters[4].code$[2] = "11000"
letters[4].code$[3] = "11000"
letters[4].code$[4] = "11000"
letters[4].code$[5] = "11111"
 
 
letters[5].code$[1] = "11011"
letters[5].code$[2] = "11011"
letters[5].code$[3] = "11110"
letters[5].code$[4] = "11011"
letters[5].code$[5] = "11011"
 
letters[6].code$[1] = "11000"
letters[6].code$[2] = "11000"
letters[6].code$[3] = "11000"
letters[6].code$[4] = "11000"
letters[6].code$[5] = "11111"
 
 
letters[7].code$[1] = "11111"
letters[7].code$[2] = "00100"
letters[7].code$[3] = "00100"
letters[7].code$[4] = "00100"
letters[7].code$[5] = "11111"
 
 
letters[8].code$[1] = "11111"
letters[8].code$[2] = "11000"
letters[8].code$[3] = "11111"
letters[8].code$[4] = "11000"
letters[8].code$[5] = "11000"
 
letters[9].code$[1] = "11111"
letters[9].code$[2] = "00100"
letters[9].code$[3] = "00100"
letters[9].code$[4] = "00100"
letters[9].code$[5] = "00100"
 
 
letters[10].code$[1] = "11111"
letters[10].code$[2] = "11000"
letters[10].code$[3] = "1110"
letters[10].code$[4] = "11000"
letters[10].code$[5] = "11111"
 
letters[11].code$[1] = "11111"
letters[11].code$[2] = "11011"
letters[11].code$[3] = "11110"
letters[11].code$[4] = "11011"
letters[11].code$[5] = "11011"
 
letters[12].code$[1] = "00000"
letters[12].code$[2] = "00000"
letters[12].code$[3] = "00000"
letters[12].code$[4] = "00000"
letters[12].code$[5] = "00000"
 
 
pos=0
for letter=1 to 12
    inc pos,5
    letters[letter].pivot = CreateObjectBox(.01,.01,.01)
for x=1 to 5
     
     
 
        for y=1 to 7
            if mid(letters[letter].code$[x],y,1)="1"
                
                CreateMeshObjectBoxWithColor(1,1,2,MakeColor(0,255,0))
                
                letters[letter].id[x,y] = CreateObjectFromMeshWithColor(MeshID)
                SetObjectColor(letters[letter].id[x,y],0,200,0,255)
                SetObjectPosition(letters[letter].id[x,y],x,y ,0)
                 
                FixObjectToObject(letters[letter].id[x,y],letters[letter].pivot)
                 
             
            endif
        next
    next
next
 
 
for letter = 1 to 12
    SetObjectPosition(letters[letter].pivot,-40 + (letter * 6),0,40)
    SetObjectColor(letters[letter].pivot,0,0,0,255)
    SetObjectRotation(letters[letter].pivot,50,0,270)
next
 
 
 
 
 
 
do
    //RotateObjectLocalX(object,1)
     
    Print( ScreenFPS() )
    Sync()
loop
 
 function CreateMeshObjectBoxWithColor(Width#, Height#, Depth#, Color)
	
	MeshID.TriangleList.length=-1
	MeshID.VertexList.length=-1
	
//Front Face	
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 0,0,Color)	

// Left
	AddVertex(MeshID, 0			,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#		, 0,1,0, 0,0,Color)

// Right
	AddVertex(MeshID, width#	,0			,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#		, 0,1,0, 0,0,Color)
AddVertex(MeshID, width#	,height#	,-depth#	, 0,1,0, 0,0,Color)
	
//back
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, width#	,0			,-depth#, 0,1,0, 0,0,Color)

//top
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 0,0,Color)

// bottom
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,-depth#	, 0,1,0, 0,0,Color)
	



endfunction MeshID

 
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, mode)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
 
    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
    endif
     
//  DeleteMemblock(memblock)
endfunction id

But using just color makes them horrible, so maybe use

CreateObjectFromMeshWithUVTexturing(m ref as mesh, mode)

But will have to work out and assign the UVs for the texturing to work.

I havent tested if it will with a plain old texture image - will work something out today

Do you possibly have a texture to work with if you want to go that way

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 2nd Sep 2018 12:01

Link

Thanks I think if it had a texture like

I could color it after

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: 2nd Sep 2018 12:05

Link

The main thing I was thinking is joining the meshes to make one mesh I think you have the function ive been looking at
the Minecraft thread

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 2nd Sep 2018 12:21

Link

Ive added UV texturing to a mesh now

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
type _letters
    pivot
    id as integer[5,5]
    code$ as string[5]
endtype
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
cubeD=loadimage("\media\cube.png")
 
global letters as _letters[12] // Creates - Craft - A - Lite
letters[1].code$[1] = "11111"
letters[1].code$[2] = "11011"
letters[1].code$[3] = "11110"
letters[1].code$[4] = "11011"
letters[1].code$[5] = "11111"
 
 
letters[2].code$[1] = "11000"
letters[2].code$[2] = "11000"
letters[2].code$[3] = "11000"
letters[2].code$[4] = "11000"
letters[2].code$[5] = "11111"
 
 
letters[3].code$[1] = "11111"
letters[3].code$[2] = "11011"
letters[3].code$[3] = "11011"
letters[3].code$[4] = "11011"
letters[3].code$[5] = "11111"
 
letters[4].code$[1] = "11111"
letters[4].code$[2] = "11000"
letters[4].code$[3] = "11000"
letters[4].code$[4] = "11000"
letters[4].code$[5] = "11111"
 
 
letters[5].code$[1] = "11011"
letters[5].code$[2] = "11011"
letters[5].code$[3] = "11110"
letters[5].code$[4] = "11011"
letters[5].code$[5] = "11011"
 
letters[6].code$[1] = "11000"
letters[6].code$[2] = "11000"
letters[6].code$[3] = "11000"
letters[6].code$[4] = "11000"
letters[6].code$[5] = "11111"
 
 
letters[7].code$[1] = "11111"
letters[7].code$[2] = "00100"
letters[7].code$[3] = "00100"
letters[7].code$[4] = "00100"
letters[7].code$[5] = "11111"
 
 
letters[8].code$[1] = "11111"
letters[8].code$[2] = "11000"
letters[8].code$[3] = "11111"
letters[8].code$[4] = "11000"
letters[8].code$[5] = "11000"
 
letters[9].code$[1] = "11111"
letters[9].code$[2] = "00100"
letters[9].code$[3] = "00100"
letters[9].code$[4] = "00100"
letters[9].code$[5] = "00100"
 
 
letters[10].code$[1] = "11111"
letters[10].code$[2] = "11000"
letters[10].code$[3] = "1110"
letters[10].code$[4] = "11000"
letters[10].code$[5] = "11111"
 
letters[11].code$[1] = "11111"
letters[11].code$[2] = "11011"
letters[11].code$[3] = "11110"
letters[11].code$[4] = "11011"
letters[11].code$[5] = "11011"
 
letters[12].code$[1] = "00000"
letters[12].code$[2] = "00000"
letters[12].code$[3] = "00000"
letters[12].code$[4] = "00000"
letters[12].code$[5] = "00000"
 
 
pos=0
for letter=1 to 12
    inc pos,5
    letters[letter].pivot = CreateObjectBox(.01,.01,.01)
for x=1 to 5
     
     
 
        for y=1 to 7
            if mid(letters[letter].code$[x],y,1)="1"
				
		
                
                
                letters[letter].id[x,y] = CreateObjectFromMeshWithUVTexturing(CreateMeshObjectBoxWithColor(1,1,2,MakeColor(0,random(20,255),0)))
 
				SetObjectImage(letters[letter].id[x,y],CubeD,0)
				//SetObjectUVScale(CubeD,0,.5,.5)
          //      SetObjectColor(letters[letter].id[x,y],0,200,0,255)
                SetObjectPosition(letters[letter].id[x,y],x,y ,0)
                 
                FixObjectToObject(letters[letter].id[x,y],letters[letter].pivot)
                 
            endif
        next
    next
 next
 
for letter = 1 to 12
    SetObjectPosition(letters[letter].pivot,-40 + (letter * 6),0,40)
    SetObjectColor(letters[letter].pivot,0,0,0,255)
    SetObjectRotation(letters[letter].pivot,50,0,270)
next
 
 
 
 
 
 
do
    //RotateObjectLocalX(object,1)
     
    Print( ScreenFPS() )
    Sync()
loop
 
 function CreateMeshObjectBoxWithColor(Width#, Height#, Depth#, Color)
	
	MeshID.TriangleList.length=-1
	MeshID.VertexList.length=-1
	
//Front Face	
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 1,0,Color)
	AddVertex(MeshID, 0			,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0, 0,1,0, 1,1,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 1,0,Color)

// Left
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, 0			,height#	,0			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 1,0,Color)

// Right
	AddVertex(MeshID, width#	,0			,0		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0	, 1,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#, 0,1,0		, 1,1,Color)
AddVertex(MeshID, width#	,height#	,-depth#	, 0,1,0		, 1,0,Color)
	
//back
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, 0			,height#	,-depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 1,1,Color)	
	AddVertex(MeshID, width#	,0			,-depth#, 0,1,0, 1,0,Color)

//top
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 1,0,Color)
	AddVertex(MeshID, width#	,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 1,0,Color)

// bottom
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,height#			,0			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,height#			,-depth#	, 0,1,0, 1,0,Color)

endfunction MeshID

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
 
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
     
//  DeleteMemblock(memblock)
endfunction id

+ Code Snippet

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
type _letters
    pivot
    id as integer[5,5]
    code$ as string[5]
endtype
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
cubeD=loadimage("\media\cube.png")
 
global letters as _letters[12] // Creates - Craft - A - Lite
letters[1].code$[1] = "11111"
letters[1].code$[2] = "11011"
letters[1].code$[3] = "11110"
letters[1].code$[4] = "11011"
letters[1].code$[5] = "11111"
 
 
letters[2].code$[1] = "11000"
letters[2].code$[2] = "11000"
letters[2].code$[3] = "11000"
letters[2].code$[4] = "11000"
letters[2].code$[5] = "11111"
 
 
letters[3].code$[1] = "11111"
letters[3].code$[2] = "11011"
letters[3].code$[3] = "11011"
letters[3].code$[4] = "11011"
letters[3].code$[5] = "11111"
 
letters[4].code$[1] = "11111"
letters[4].code$[2] = "11000"
letters[4].code$[3] = "11000"
letters[4].code$[4] = "11000"
letters[4].code$[5] = "11111"
 
 
letters[5].code$[1] = "11011"
letters[5].code$[2] = "11011"
letters[5].code$[3] = "11110"
letters[5].code$[4] = "11011"
letters[5].code$[5] = "11011"
 
letters[6].code$[1] = "11000"
letters[6].code$[2] = "11000"
letters[6].code$[3] = "11000"
letters[6].code$[4] = "11000"
letters[6].code$[5] = "11111"
 
 
letters[7].code$[1] = "11111"
letters[7].code$[2] = "00100"
letters[7].code$[3] = "00100"
letters[7].code$[4] = "00100"
letters[7].code$[5] = "11111"
 
 
letters[8].code$[1] = "11111"
letters[8].code$[2] = "11000"
letters[8].code$[3] = "11111"
letters[8].code$[4] = "11000"
letters[8].code$[5] = "11000"
 
letters[9].code$[1] = "11111"
letters[9].code$[2] = "00100"
letters[9].code$[3] = "00100"
letters[9].code$[4] = "00100"
letters[9].code$[5] = "00100"
 
 
letters[10].code$[1] = "11111"
letters[10].code$[2] = "11000"
letters[10].code$[3] = "1110"
letters[10].code$[4] = "11000"
letters[10].code$[5] = "11111"
 
letters[11].code$[1] = "11111"
letters[11].code$[2] = "11011"
letters[11].code$[3] = "11110"
letters[11].code$[4] = "11011"
letters[11].code$[5] = "11011"
 
letters[12].code$[1] = "00000"
letters[12].code$[2] = "00000"
letters[12].code$[3] = "00000"
letters[12].code$[4] = "00000"
letters[12].code$[5] = "00000"
 
 
pos=0
for letter=1 to 12
    inc pos,5
    letters[letter].pivot = CreateObjectBox(.01,.01,.01)
for x=1 to 5
     
     
 
        for y=1 to 7
            if mid(letters[letter].code$[x],y,1)="1"
				
		
                
                
                letters[letter].id[x,y] = CreateObjectFromMeshWithUVTexturing(CreateMeshObjectBoxWithColor(1,1,2,MakeColor(0,random(20,255),0)))
 
				SetObjectImage(letters[letter].id[x,y],CubeD,0)
				//SetObjectUVScale(CubeD,0,.5,.5)
          //      SetObjectColor(letters[letter].id[x,y],0,200,0,255)
                SetObjectPosition(letters[letter].id[x,y],x,y ,0)
                 
                FixObjectToObject(letters[letter].id[x,y],letters[letter].pivot)
                 
            endif
        next
    next
 next
 
for letter = 1 to 12
    SetObjectPosition(letters[letter].pivot,-40 + (letter * 6),0,40)
    SetObjectColor(letters[letter].pivot,0,0,0,255)
    SetObjectRotation(letters[letter].pivot,50,0,270)
next
 
 
 
 
 
 
do
    //RotateObjectLocalX(object,1)
     
    Print( ScreenFPS() )
    Sync()
loop
 
 function CreateMeshObjectBoxWithColor(Width#, Height#, Depth#, Color)
	
	MeshID.TriangleList.length=-1
	MeshID.VertexList.length=-1
	
//Front Face	
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 1,0,Color)
	AddVertex(MeshID, 0			,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,0			,0, 0,1,0, 1,1,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 1,0,Color)	

// Left
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, 0			,height#	,0			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#	,-depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 1,0,Color)

// Right
	AddVertex(MeshID, width#	,0			,0		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0	, 1,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, width#	,0			,-depth#, 0,1,0		, 1,1,Color)
AddVertex(MeshID, width#	,height#	,-depth#	, 0,1,0		, 1,0,Color)
	
//back
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, 0			,height#	,-depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,-depth#, 0,1,0, 1,1,Color)	
	AddVertex(MeshID, width#	,0			,-depth#, 0,1,0, 1,0,Color)

//top
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 1,0,Color)
	AddVertex(MeshID, width#	,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,-depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, width#	,0			,-depth#	, 0,1,0, 1,0,Color)

// bottom
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,height#			,0			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,-depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,height#			,-depth#	, 0,1,0, 1,0,Color)
	


endfunction MeshID

 
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
 
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
     
//  DeleteMemblock(memblock)
endfunction id

uses the texture cube.png

If you remove

180: MeshID.TriangleList.length=-1
181: MeshID.VertexList.length=-1

then it will just keep building on the same mesh over and over again each time you add to it

But it doesnt have any positioning data to where you require the next object.

PLease bear with me, ill work on something to create a box with positioning.

I dont think i have done this yet to be honest

Attachments

Login to view attachments

Back to top

Profile

puzzler2018

User Banned

Posted: 2nd Sep 2018 12:44

Link

Sorry Fubarpk - the UVs are wrong after all, thats with myself rushing.. Ill get something to you later on today

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 2nd Sep 2018 12:50

Link

All good im just happy with any help I can get, will be a good one to add to your coding snippets
If its too much of a problem it doesn't matter just thought you had a procedure that did it already

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 2nd Sep 2018 13:17

Link

UVs corrected

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
type _letters
    pivot
    id as integer[5,5]
    code$ as string[5]
endtype
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
cubeD=loadimage("\media\cube.png")
 
global letters as _letters[12] // Creates - Craft - A - Lite
letters[1].code$[1] = "11111"
letters[1].code$[2] = "11011"
letters[1].code$[3] = "11110"
letters[1].code$[4] = "11011"
letters[1].code$[5] = "11111"
 
 
letters[2].code$[1] = "11000"
letters[2].code$[2] = "11000"
letters[2].code$[3] = "11000"
letters[2].code$[4] = "11000"
letters[2].code$[5] = "11111"
 
 
letters[3].code$[1] = "11111"
letters[3].code$[2] = "11011"
letters[3].code$[3] = "11011"
letters[3].code$[4] = "11011"
letters[3].code$[5] = "11111"
 
letters[4].code$[1] = "11111"
letters[4].code$[2] = "11000"
letters[4].code$[3] = "11000"
letters[4].code$[4] = "11000"
letters[4].code$[5] = "11111"
 
 
letters[5].code$[1] = "11011"
letters[5].code$[2] = "11011"
letters[5].code$[3] = "11110"
letters[5].code$[4] = "11011"
letters[5].code$[5] = "11011"
 
letters[6].code$[1] = "11000"
letters[6].code$[2] = "11000"
letters[6].code$[3] = "11000"
letters[6].code$[4] = "11000"
letters[6].code$[5] = "11111"
 
 
letters[7].code$[1] = "11111"
letters[7].code$[2] = "00100"
letters[7].code$[3] = "00100"
letters[7].code$[4] = "00100"
letters[7].code$[5] = "11111"
 
 
letters[8].code$[1] = "11111"
letters[8].code$[2] = "11000"
letters[8].code$[3] = "11111"
letters[8].code$[4] = "11000"
letters[8].code$[5] = "11000"
 
letters[9].code$[1] = "11111"
letters[9].code$[2] = "00100"
letters[9].code$[3] = "00100"
letters[9].code$[4] = "00100"
letters[9].code$[5] = "00100"
 
 
letters[10].code$[1] = "11111"
letters[10].code$[2] = "11000"
letters[10].code$[3] = "1110"
letters[10].code$[4] = "11000"
letters[10].code$[5] = "11111"
 
letters[11].code$[1] = "11111"
letters[11].code$[2] = "11011"
letters[11].code$[3] = "11110"
letters[11].code$[4] = "11011"
letters[11].code$[5] = "11011"
 
letters[12].code$[1] = "00000"
letters[12].code$[2] = "00000"
letters[12].code$[3] = "00000"
letters[12].code$[4] = "00000"
letters[12].code$[5] = "00000"
 
 /*
pos=0
for letter=1 to 12
    inc pos,5
    letters[letter].pivot = CreateObjectBox(.01,.01,.01)
for x=1 to 5
     
     
 
        for y=1 to 7
            if mid(letters[letter].code$[x],y,1)="1"
				
		
                
                
                letters[letter].id[x,y] = CreateObjectFromMeshWithUVTexturing(CreateMeshObjectBoxWithColor(1,1,2,MakeColor(0,random(20,255),0)))
 
				SetObjectImage(letters[letter].id[x,y],CubeD,0)
				//SetObjectUVScale(CubeD,0,.5,.5)
          //      SetObjectColor(letters[letter].id[x,y],0,200,0,255)
                SetObjectPosition(letters[letter].id[x,y],x,y ,0)
                 
                FixObjectToObject(letters[letter].id[x,y],letters[letter].pivot)
                 
            endif
        next
    next
 next
 
for letter = 1 to 12
    SetObjectPosition(letters[letter].pivot,-40 + (letter * 6),0,40)
    SetObjectColor(letters[letter].pivot,0,0,0,255)
    SetObjectRotation(letters[letter].pivot,50,0,270)
next
 
 */
 
 object = CreateObjectFromMeshWithUVTexturing(CreateMeshObjectBoxWithColor(5,5,5,MakeColor(0,random(20,255),0)))
 SetObjectImage(object,CubeD,0)
				
 
 
 
 
do
    RotateObjectLocalX(object,1)
    RotateObjectLocalY(object,3)
    RotateObjectLocalZ(object,1)
     
    Print( ScreenFPS() )
    Sync()
loop
 
 function CreateMeshObjectBoxWithColor(Width#, Height#, Depth#, Color)
	
	MeshID.TriangleList.length=-1
	MeshID.VertexList.length=-1
	
//Front Face	
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 1,0,Color)
	AddVertex(MeshID, 0			,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,0			,0, 0,1,0, 1,1,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 1,0,Color)

// Left
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,height#	,0			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, 0			,0			,depth#		, 0,1,0, 0,1,Color)
	AddVertex(MeshID, 0			,height#	,0			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, 0			,height#	,depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,depth#		, 0,1,0, 0,1,Color)

// Right
	AddVertex(MeshID, width#	,0			,0		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, width#	,0			,depth#	, 0,1,0	, 1,1,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, width#	,0			,depth#, 0,1,0		, 1,1,Color)
	AddVertex(MeshID, width#	,height#	,depth#	, 0,1,0		, 1,0,Color)

//back
	AddVertex(MeshID, 0			,0			,depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,height#	,depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, width#	,height#	,depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, width#	,height#	,depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, width#	,0			,depth#, 0,1,0, 0,1,Color)

// top
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,height#			,depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,height#			,depth#	, 0,1,0, 1,0,Color)

//bottom
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,0			,depth#		, 0,1,0, 1,0,Color)
	AddVertex(MeshID, width#	,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, 0			,0			,depth#		, 0,1,0, 1,1,Color)
	AddVertex(MeshID, width#	,0			,depth#		, 0,1,0, 1,0,Color)

endfunction MeshID

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
 
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
     
//  DeleteMemblock(memblock)
endfunction id

+ Code Snippet

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
type _letters
    pivot
    id as integer[5,5]
    code$ as string[5]
endtype
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
cubeD=loadimage("\media\cube.png")
 
global letters as _letters[12] // Creates - Craft - A - Lite
letters[1].code$[1] = "11111"
letters[1].code$[2] = "11011"
letters[1].code$[3] = "11110"
letters[1].code$[4] = "11011"
letters[1].code$[5] = "11111"
 
 
letters[2].code$[1] = "11000"
letters[2].code$[2] = "11000"
letters[2].code$[3] = "11000"
letters[2].code$[4] = "11000"
letters[2].code$[5] = "11111"
 
 
letters[3].code$[1] = "11111"
letters[3].code$[2] = "11011"
letters[3].code$[3] = "11011"
letters[3].code$[4] = "11011"
letters[3].code$[5] = "11111"
 
letters[4].code$[1] = "11111"
letters[4].code$[2] = "11000"
letters[4].code$[3] = "11000"
letters[4].code$[4] = "11000"
letters[4].code$[5] = "11111"
 
 
letters[5].code$[1] = "11011"
letters[5].code$[2] = "11011"
letters[5].code$[3] = "11110"
letters[5].code$[4] = "11011"
letters[5].code$[5] = "11011"
 
letters[6].code$[1] = "11000"
letters[6].code$[2] = "11000"
letters[6].code$[3] = "11000"
letters[6].code$[4] = "11000"
letters[6].code$[5] = "11111"
 
 
letters[7].code$[1] = "11111"
letters[7].code$[2] = "00100"
letters[7].code$[3] = "00100"
letters[7].code$[4] = "00100"
letters[7].code$[5] = "11111"
 
 
letters[8].code$[1] = "11111"
letters[8].code$[2] = "11000"
letters[8].code$[3] = "11111"
letters[8].code$[4] = "11000"
letters[8].code$[5] = "11000"
 
letters[9].code$[1] = "11111"
letters[9].code$[2] = "00100"
letters[9].code$[3] = "00100"
letters[9].code$[4] = "00100"
letters[9].code$[5] = "00100"
 
 
letters[10].code$[1] = "11111"
letters[10].code$[2] = "11000"
letters[10].code$[3] = "1110"
letters[10].code$[4] = "11000"
letters[10].code$[5] = "11111"
 
letters[11].code$[1] = "11111"
letters[11].code$[2] = "11011"
letters[11].code$[3] = "11110"
letters[11].code$[4] = "11011"
letters[11].code$[5] = "11011"
 
letters[12].code$[1] = "00000"
letters[12].code$[2] = "00000"
letters[12].code$[3] = "00000"
letters[12].code$[4] = "00000"
letters[12].code$[5] = "00000"
 
 /*
pos=0
for letter=1 to 12
    inc pos,5
    letters[letter].pivot = CreateObjectBox(.01,.01,.01)
for x=1 to 5
     
     
 
        for y=1 to 7
            if mid(letters[letter].code$[x],y,1)="1"
				
		
                
                
                letters[letter].id[x,y] = CreateObjectFromMeshWithUVTexturing(CreateMeshObjectBoxWithColor(1,1,2,MakeColor(0,random(20,255),0)))
 
				SetObjectImage(letters[letter].id[x,y],CubeD,0)
				//SetObjectUVScale(CubeD,0,.5,.5)
          //      SetObjectColor(letters[letter].id[x,y],0,200,0,255)
                SetObjectPosition(letters[letter].id[x,y],x,y ,0)
                 
                FixObjectToObject(letters[letter].id[x,y],letters[letter].pivot)
                 
            endif
        next
    next
 next
 
for letter = 1 to 12
    SetObjectPosition(letters[letter].pivot,-40 + (letter * 6),0,40)
    SetObjectColor(letters[letter].pivot,0,0,0,255)
    SetObjectRotation(letters[letter].pivot,50,0,270)
next
 
 */
 
 object = CreateObjectFromMeshWithUVTexturing(CreateMeshObjectBoxWithColor(5,5,5,MakeColor(0,random(20,255),0)))
 SetObjectImage(object,CubeD,0)
				
 
 
 
 
do
    RotateObjectLocalX(object,1)
    RotateObjectLocalY(object,3)
    RotateObjectLocalZ(object,1)
     
    Print( ScreenFPS() )
    Sync()
loop
 
 function CreateMeshObjectBoxWithColor(Width#, Height#, Depth#, Color)
	
	MeshID.TriangleList.length=-1
	MeshID.VertexList.length=-1
	
//Front Face	
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 1,0,Color)
	AddVertex(MeshID, 0			,height#	,0, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,0			,0, 0,1,0, 1,1,Color)
	AddVertex(MeshID, width#	,height#	,0, 0,1,0, 1,0,Color)	

// Left
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,height#	,0			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, 0			,0			,depth#		, 0,1,0, 0,1,Color)
	AddVertex(MeshID, 0			,height#	,0			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, 0			,height#	,depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,depth#		, 0,1,0, 0,1,Color)
	


// Right
	AddVertex(MeshID, width#	,0			,0		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, width#	,0			,depth#	, 0,1,0	, 1,1,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, width#	,height#	,0		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, width#	,0			,depth#, 0,1,0		, 1,1,Color)
	AddVertex(MeshID, width#	,height#	,depth#	, 0,1,0		, 1,0,Color)
	


//back
	AddVertex(MeshID, 0			,0			,depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,height#	,depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, width#	,height#	,depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, width#	,height#	,depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, width#	,0			,depth#, 0,1,0, 0,1,Color)


// top
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,height#			,depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,height#			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, width#	,height#			,depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, 0			,height#			,depth#	, 0,1,0, 1,0,Color)
	


//bottom
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, width#	,0			,depth#		, 0,1,0, 1,0,Color)
	AddVertex(MeshID, width#	,0			,0			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, 0			,0			,0			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, 0			,0			,depth#		, 0,1,0, 1,1,Color)
	AddVertex(MeshID, width#	,0			,depth#		, 0,1,0, 1,0,Color)

endfunction MeshID

 
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
 
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
     
//  DeleteMemblock(memblock)
endfunction id

Attachments

Login to view attachments

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 2nd Sep 2018 18:38

Link

Your a legend

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 2nd Sep 2018 19:37 Edited at: 2nd Sep 2018 19:37

Link

Your welcome

Ive added positioning to the function so can now have different shapes and sizes to 1 mesh!

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
CubeD = LoadImage("\media\cube.png")

// this empties the mesh
MeshID.TriangleList.length=-1
MeshID.VertexList.length=-1

// build a new one	
CreateMeshObjectBoxWithColor(0,0,0,2,2,2,MakeColor(0,255,0))
CreateMeshObjectBoxWithColor(0,0,5,1,1,1,MakeColor(0,255,0))
CreateMeshObjectBoxWithColor(0,0,10,2,1,5,MakeColor(0,255,0))

object = CreateObjectFromMeshWithUVTexturing(MeshID)
 SetObjectImage(object,CubeD,0)
 
do
    RotateObjectLocalX(object,1)
    RotateObjectLocalY(object,3)
    RotateObjectLocalZ(object,1)
     
    Print( ScreenFPS() )
    Sync()
loop
 
 function CreateMeshObjectBoxWithColor(X#, Y#, Z#, Width#, Height#, Depth#, Color)
	
	
//Front Face	
	AddVertex(MeshID, X#			,y#				,Z#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#, 0,1,0, 1,0,Color)

// Left
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 0,1,Color)

// Right
	AddVertex(MeshID, X#+width#		,y#				,Z#		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#	, 0,1,0	, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#, 0,1,0		, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0		, 1,0,Color)

//back
	AddVertex(MeshID, X#			,y#				,Z#+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#, 0,1,0, 0,1,Color)

// top
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#	, 0,1,0, 1,0,Color)

//bottom
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#		, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#		, 0,1,0, 1,0,Color)

endfunction MeshID

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
 
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
     
//  DeleteMemblock(memblock)
endfunction id

+ Code Snippet

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
CubeD = LoadImage("\media\cube.png")

// this empties the mesh
MeshID.TriangleList.length=-1
MeshID.VertexList.length=-1

// build a new one	
CreateMeshObjectBoxWithColor(0,0,0,2,2,2,MakeColor(0,255,0))
CreateMeshObjectBoxWithColor(0,0,5,1,1,1,MakeColor(0,255,0))
CreateMeshObjectBoxWithColor(0,0,10,2,1,5,MakeColor(0,255,0))



 object = CreateObjectFromMeshWithUVTexturing(MeshID)
 SetObjectImage(object,CubeD,0)
 
do
    RotateObjectLocalX(object,1)
    RotateObjectLocalY(object,3)
    RotateObjectLocalZ(object,1)
     
    Print( ScreenFPS() )
    Sync()
loop
 
 function CreateMeshObjectBoxWithColor(X#, Y#, Z#, Width#, Height#, Depth#, Color)
	
	
//Front Face	
	AddVertex(MeshID, X#			,y#				,Z#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#, 0,1,0, 1,0,Color)	

// Left
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 0,1,Color)
	


// Right
	AddVertex(MeshID, X#+width#		,y#				,Z#		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#	, 0,1,0	, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#, 0,1,0		, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0		, 1,0,Color)
	


//back
	AddVertex(MeshID, X#			,y#				,Z#+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#, 0,1,0, 0,1,Color)


// top
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#	, 0,1,0, 1,0,Color)
	


//bottom
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#		, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#		, 0,1,0, 1,0,Color)

endfunction MeshID

 
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
 
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
     
//  DeleteMemblock(memblock)
endfunction id

Use that cube.png

Back to top

Profile

puzzler2018

User Banned

Posted: 2nd Sep 2018 19:51

Link

Sorry for posting lots

Here is a possible thing we can do now

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
CubeD = LoadImage("\media\cube.png")

// this empties the mesh
MeshID.TriangleList.length=-1
MeshID.VertexList.length=-1

size#=2
// build a new one	
for x=-15 to 15
	for z=-15 to 15
		CreateMeshObjectBoxWithColor(x*size#,0,z*size#,size#,size#,size#,MakeColor(0,255,0))
		if random(0,100)>90 then 		CreateMeshObjectBoxWithColor(x*size#,1,z*size#,size#,size#*2,size#,MakeColor(0,255,0))
		if random(0,100)>99 then 		CreateMeshObjectBoxWithColor(x*size#,1,z*size#,size#,size#*4,size#,MakeColor(0,255,0))

next
next

object = CreateObjectFromMeshWithUVTexturing(MeshID)
 SetObjectImage(object,CubeD,0)
 
do
    //RotateObjectLocalX(object,1)
    RotateObjectLocalY(object,.1)
    //RotateObjectLocalZ(object,1)
     
    Print( ScreenFPS() )
    Sync()
loop
 
 function CreateMeshObjectBoxWithColor(X#, Y#, Z#, Width#, Height#, Depth#, Color)
	
	
//Front Face	
	AddVertex(MeshID, X#			,y#				,Z#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#, 0,1,0, 1,0,Color)

// Left
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 0,1,Color)

// Right
	AddVertex(MeshID, X#+width#		,y#				,Z#		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#	, 0,1,0	, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#, 0,1,0		, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0		, 1,0,Color)

//back
	AddVertex(MeshID, X#			,y#				,Z#+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#, 0,1,0, 0,1,Color)

// top
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#	, 0,1,0, 1,0,Color)

//bottom
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#		, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#		, 0,1,0, 1,0,Color)

endfunction MeshID

function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
 
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
     
//  DeleteMemblock(memblock)
endfunction id

+ Code Snippet

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
CubeD = LoadImage("\media\cube.png")

// this empties the mesh
MeshID.TriangleList.length=-1
MeshID.VertexList.length=-1

size#=2
// build a new one	
for x=-15 to 15
	for z=-15 to 15
		CreateMeshObjectBoxWithColor(x*size#,0,z*size#,size#,size#,size#,MakeColor(0,255,0))
		if random(0,100)>90 then 		CreateMeshObjectBoxWithColor(x*size#,1,z*size#,size#,size#*2,size#,MakeColor(0,255,0))
		if random(0,100)>99 then 		CreateMeshObjectBoxWithColor(x*size#,1,z*size#,size#,size#*4,size#,MakeColor(0,255,0))

	next
next


 object = CreateObjectFromMeshWithUVTexturing(MeshID)
 SetObjectImage(object,CubeD,0)
 
do
    //RotateObjectLocalX(object,1)
    RotateObjectLocalY(object,.1)
    //RotateObjectLocalZ(object,1)
     
    Print( ScreenFPS() )
    Sync()
loop
 
 function CreateMeshObjectBoxWithColor(X#, Y#, Z#, Width#, Height#, Depth#, Color)
	
	
//Front Face	
	AddVertex(MeshID, X#			,y#				,Z#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#, 0,1,0, 1,0,Color)	

// Left
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#		, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 0,1,Color)
	


// Right
	AddVertex(MeshID, X#+width#		,y#				,Z#		, 0,1,0		, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#	, 0,1,0	, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#		, 0,1,0		, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#, 0,1,0		, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0		, 1,0,Color)
	


//back
	AddVertex(MeshID, X#			,y#				,Z#+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#, 0,1,0, 0,0,Color)	
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#, 0,1,0, 0,1,Color)


// top
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#+width#		,y#+height#		,Z#+depth#	, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#			,y#+height#		,Z#+depth#	, 0,1,0, 1,0,Color)
	


//bottom
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#		, 0,1,0, 1,0,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#			, 0,1,0, 0,0,Color)
	AddVertex(MeshID, X#			,y#				,Z#			, 0,1,0, 0,1,Color)
	AddVertex(MeshID, X#			,y#				,Z#+depth#		, 0,1,0, 1,1,Color)
	AddVertex(MeshID, X#+width#		,y#				,Z#+depth#		, 0,1,0, 1,0,Color)

endfunction MeshID

 
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
 
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
 
 
// create the cube 
 
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
 
endfunction
 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
 
endfunction
 
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
     
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
 
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
     
//  DeleteMemblock(memblock)
endfunction id

GTA clone!

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 2nd Sep 2018 21:11

Link

That looks pretty awesome

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 Sep 2018 00:46

Link

Getting back to BlockLifter I think apart from a screen grab and made into a Title page the text routine
Has too many overheads i think to use in game was thinking i could use a 3D title in the intro placed
above one of the helipads and use my return heli home routine as sort of a game intro where it brings
into view the title as your heli flys there

You have done allot of work on it and hope you can use the new skills learned in Minecraft. I really
thought you had routines to do so. I hope your not offended if i decide not to use this time round but
sure I will in future

This is the new functions with text added

// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
type _letters
    pivot
    id as integer[5,5]
    code$ as string[5]
endtype
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
cubeD=loadimage("\media\Grid.jpg")

// this empties the mesh
MeshID.TriangleList.length=-1
MeshID.VertexList.length=-1
 
global letters as _letters[12] // Creates - Craft - A - Lite
letters[1].code$[1] = "11111"
letters[1].code$[2] = "11011"
letters[1].code$[3] = "11110"
letters[1].code$[4] = "11011"
letters[1].code$[5] = "11111"
 
 
letters[2].code$[1] = "11000"
letters[2].code$[2] = "11000"
letters[2].code$[3] = "11000"
letters[2].code$[4] = "11000"
letters[2].code$[5] = "11111"
 
 
letters[3].code$[1] = "11111"
letters[3].code$[2] = "11011"
letters[3].code$[3] = "11011"
letters[3].code$[4] = "11011"
letters[3].code$[5] = "11111"
 
letters[4].code$[1] = "11111"
letters[4].code$[2] = "11000"
letters[4].code$[3] = "11000"
letters[4].code$[4] = "11000"
letters[4].code$[5] = "11111"
 
 
letters[5].code$[1] = "11011"
letters[5].code$[2] = "11011"
letters[5].code$[3] = "11110"
letters[5].code$[4] = "11011"
letters[5].code$[5] = "11011"
 
letters[6].code$[1] = "11000"
letters[6].code$[2] = "11000"
letters[6].code$[3] = "11000"
letters[6].code$[4] = "11000"
letters[6].code$[5] = "11111"
 
 
letters[7].code$[1] = "11111"
letters[7].code$[2] = "00100"
letters[7].code$[3] = "00100"
letters[7].code$[4] = "00100"
letters[7].code$[5] = "11111"
 
 
letters[8].code$[1] = "11111"
letters[8].code$[2] = "11000"
letters[8].code$[3] = "11111"
letters[8].code$[4] = "11000"
letters[8].code$[5] = "11000"
 
letters[9].code$[1] = "11111"
letters[9].code$[2] = "00100"
letters[9].code$[3] = "00100"
letters[9].code$[4] = "00100"
letters[9].code$[5] = "00100"
 
 
letters[10].code$[1] = "11111"
letters[10].code$[2] = "11000"
letters[10].code$[3] = "1110"
letters[10].code$[4] = "11000"
letters[10].code$[5] = "11111"
 
letters[11].code$[1] = "11111"
letters[11].code$[2] = "11011"
letters[11].code$[3] = "11110"
letters[11].code$[4] = "11011"
letters[11].code$[5] = "11011"
 
letters[12].code$[1] = "00000"
letters[12].code$[2] = "00000"
letters[12].code$[3] = "00000"
letters[12].code$[4] = "00000"
letters[12].code$[5] = "00000"
 
size#=1
pos=0:count=1
for letter=1 to 12
    inc pos,5
    letters[letter].pivot = CreateObjectBox(.01,.01,.01)
	SetObjectPosition(letters[letter].pivot,-40 + (letter * 6),0,40)
    RotateObjectLocalZ(letters[letter].pivot,270)
for x=1 to 5
     
     
 
        for y=1 to 7
            if mid(letters[letter].code$[x],y,1)="1"
			                
                letters[letter].id[x,y] = CreateObjectFromMeshWithUVTexturing(CreateMeshObjectBoxWithColor(1,1,2,1,1,1,MakeColor(0,random(20,255),0)))
				//CreateMeshObjectBoxWithColor(x*size#,y*size#,0,size#,size#,size#,MakeColor(0,255,0))
				SetObjectImage(letters[letter].id[x,y],CubeD,0)
		        SetObjectLightMode(letters[letter].id[x,y],0)
		        SetObjectPosition(letters[letter].id[x,y],x,y ,0)  
                FixObjectToObject(letters[letter].id[x,y],letters[letter].pivot)
                 
            endif
        next
    next
 next
 
     
//myId = CreateObjectFromMeshWithUVTexturing(MeshID)
//SetObjectImage(myId,CubeD,0)
//SetObjectPosition(myId,1,1 ,0)  
//FixObjectToObject(myId,letters[letter].pivot)
 
do
    for letter = 1 to 11
		RotateObjectLocalX(letters[letter].pivot,1)
		//Print(GetObjectNumMeshes(letters[letter].id[1,2]))
    next  
    Print( GetObjectAngleZ(letters[1].pivot ))
    
     
    Sync()
loop
 
function CreateMeshObjectBoxWithColor(X#, Y#, Z#, Width#, Height#, Depth#, Color)
     
     
//Front Face    
    AddVertex(MeshID, X#            ,y#             ,Z#, 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#, 0,1,0, 1,0,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#, 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#, 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#, 0,1,0, 1,0,Color)  
 
// Left
    AddVertex(MeshID, X#            ,y#             ,Z#         , 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#         , 0,1,0, 1,0,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#+depth#      , 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#         , 0,1,0, 1,0,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#+depth#      , 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#+depth#      , 0,1,0, 0,1,Color)
     
 
 
// Right
    AddVertex(MeshID, X#+width#     ,y#             ,Z#     , 0,1,0     , 0,1,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#+depth#  , 0,1,0 , 1,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#     , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#     , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#+depth#, 0,1,0       , 1,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#+depth#  , 0,1,0     , 1,0,Color)
     
 
 
//back
    AddVertex(MeshID, X#            ,y#             ,Z#+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#+depth#, 0,1,0, 1,0,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#+depth#, 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#+depth#, 0,1,0, 0,0,Color)   
    AddVertex(MeshID, X#+width#     ,y#             ,Z#+depth#, 0,1,0, 0,1,Color)
 
 
// top
    AddVertex(MeshID, X#            ,y#+height#     ,Z#         , 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#         , 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#+depth#  , 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#         , 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#+depth#  , 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#+depth#  , 0,1,0, 1,0,Color)
     
 
 
//bottom
    AddVertex(MeshID, X#            ,y#             ,Z#         , 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#+depth#      , 0,1,0, 1,0,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#         , 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#         , 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#+depth#      , 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#+depth#      , 0,1,0, 1,0,Color)
 
endfunction MeshID
 
  
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
  
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
  
  
// create the cube 
  
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
  
endfunction
  
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
  
endfunction
  
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
  
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
      
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
  
  
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
      
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
  
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id

+ Code Snippet


// Project: 3D Letters 
// Created: 2018-08-04
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "3D Letters" )
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
 
type _letters
    pivot
    id as integer[5,5]
    code$ as string[5]
endtype
 
Type Vertex
     
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
 
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
 
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
 
global MeshID as Mesh
cubeD=loadimage("\media\Grid.jpg")

// this empties the mesh
MeshID.TriangleList.length=-1
MeshID.VertexList.length=-1
 
global letters as _letters[12] // Creates - Craft - A - Lite
letters[1].code$[1] = "11111"
letters[1].code$[2] = "11011"
letters[1].code$[3] = "11110"
letters[1].code$[4] = "11011"
letters[1].code$[5] = "11111"
 
 
letters[2].code$[1] = "11000"
letters[2].code$[2] = "11000"
letters[2].code$[3] = "11000"
letters[2].code$[4] = "11000"
letters[2].code$[5] = "11111"
 
 
letters[3].code$[1] = "11111"
letters[3].code$[2] = "11011"
letters[3].code$[3] = "11011"
letters[3].code$[4] = "11011"
letters[3].code$[5] = "11111"
 
letters[4].code$[1] = "11111"
letters[4].code$[2] = "11000"
letters[4].code$[3] = "11000"
letters[4].code$[4] = "11000"
letters[4].code$[5] = "11111"
 
 
letters[5].code$[1] = "11011"
letters[5].code$[2] = "11011"
letters[5].code$[3] = "11110"
letters[5].code$[4] = "11011"
letters[5].code$[5] = "11011"
 
letters[6].code$[1] = "11000"
letters[6].code$[2] = "11000"
letters[6].code$[3] = "11000"
letters[6].code$[4] = "11000"
letters[6].code$[5] = "11111"
 
 
letters[7].code$[1] = "11111"
letters[7].code$[2] = "00100"
letters[7].code$[3] = "00100"
letters[7].code$[4] = "00100"
letters[7].code$[5] = "11111"
 
 
letters[8].code$[1] = "11111"
letters[8].code$[2] = "11000"
letters[8].code$[3] = "11111"
letters[8].code$[4] = "11000"
letters[8].code$[5] = "11000"
 
letters[9].code$[1] = "11111"
letters[9].code$[2] = "00100"
letters[9].code$[3] = "00100"
letters[9].code$[4] = "00100"
letters[9].code$[5] = "00100"
 
 
letters[10].code$[1] = "11111"
letters[10].code$[2] = "11000"
letters[10].code$[3] = "1110"
letters[10].code$[4] = "11000"
letters[10].code$[5] = "11111"
 
letters[11].code$[1] = "11111"
letters[11].code$[2] = "11011"
letters[11].code$[3] = "11110"
letters[11].code$[4] = "11011"
letters[11].code$[5] = "11011"
 
letters[12].code$[1] = "00000"
letters[12].code$[2] = "00000"
letters[12].code$[3] = "00000"
letters[12].code$[4] = "00000"
letters[12].code$[5] = "00000"
 
size#=1
pos=0:count=1
for letter=1 to 12
    inc pos,5
    letters[letter].pivot = CreateObjectBox(.01,.01,.01)
	SetObjectPosition(letters[letter].pivot,-40 + (letter * 6),0,40)
    RotateObjectLocalZ(letters[letter].pivot,270)
for x=1 to 5
     
     
 
        for y=1 to 7
            if mid(letters[letter].code$[x],y,1)="1"
			                
                letters[letter].id[x,y] = CreateObjectFromMeshWithUVTexturing(CreateMeshObjectBoxWithColor(1,1,2,1,1,1,MakeColor(0,random(20,255),0)))
				//CreateMeshObjectBoxWithColor(x*size#,y*size#,0,size#,size#,size#,MakeColor(0,255,0))
				SetObjectImage(letters[letter].id[x,y],CubeD,0)
		        SetObjectLightMode(letters[letter].id[x,y],0)
		        SetObjectPosition(letters[letter].id[x,y],x,y ,0)  
                FixObjectToObject(letters[letter].id[x,y],letters[letter].pivot)
                 
            endif
        next
    next
 next
 
     
//myId = CreateObjectFromMeshWithUVTexturing(MeshID)
//SetObjectImage(myId,CubeD,0)
//SetObjectPosition(myId,1,1 ,0)  
//FixObjectToObject(myId,letters[letter].pivot)
 
do
    for letter = 1 to 11
		RotateObjectLocalX(letters[letter].pivot,1)
		//Print(GetObjectNumMeshes(letters[letter].id[1,2]))
    next  
    Print( GetObjectAngleZ(letters[1].pivot ))
    
     
    Sync()
loop
 
function CreateMeshObjectBoxWithColor(X#, Y#, Z#, Width#, Height#, Depth#, Color)
     
     
//Front Face    
    AddVertex(MeshID, X#            ,y#             ,Z#, 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#, 0,1,0, 1,0,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#, 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#, 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#, 0,1,0, 1,0,Color)  
 
// Left
    AddVertex(MeshID, X#            ,y#             ,Z#         , 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#         , 0,1,0, 1,0,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#+depth#      , 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#         , 0,1,0, 1,0,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#+depth#      , 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#+depth#      , 0,1,0, 0,1,Color)
     
 
 
// Right
    AddVertex(MeshID, X#+width#     ,y#             ,Z#     , 0,1,0     , 0,1,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#+depth#  , 0,1,0 , 1,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#     , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#     , 0,1,0     , 0,0,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#+depth#, 0,1,0       , 1,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#+depth#  , 0,1,0     , 1,0,Color)
     
 
 
//back
    AddVertex(MeshID, X#            ,y#             ,Z#+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#+depth#, 0,1,0, 1,0,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#+depth#, 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#+depth#, 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#+depth#, 0,1,0, 0,0,Color)   
    AddVertex(MeshID, X#+width#     ,y#             ,Z#+depth#, 0,1,0, 0,1,Color)
 
 
// top
    AddVertex(MeshID, X#            ,y#+height#     ,Z#         , 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#         , 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#+depth#  , 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#         , 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#+width#     ,y#+height#     ,Z#+depth#  , 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#            ,y#+height#     ,Z#+depth#  , 0,1,0, 1,0,Color)
     
 
 
//bottom
    AddVertex(MeshID, X#            ,y#             ,Z#         , 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#+depth#      , 0,1,0, 1,0,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#         , 0,1,0, 0,0,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#         , 0,1,0, 0,1,Color)
    AddVertex(MeshID, X#            ,y#             ,Z#+depth#      , 0,1,0, 1,1,Color)
    AddVertex(MeshID, X#+width#     ,y#             ,Z#+depth#      , 0,1,0, 1,0,Color)
 
endfunction MeshID
 
  
function addcube(meshID ref as mesh, cubesize#, tilenumberx, tilenumbery, normx#,normy#,normz#,x#,y#,z#)
  
// calculate the UVs  - YIKES here we go
    cubex#=((tilenumberx-1) * .5) + tilenumberx // 
    cubey#=(tilenumbery * 0.5)+ 0.5
    maxx# = ((100/15.00)/100) * cubex#
    minx# = (maxx#-(100/15.00)/100)
    halfx# = (maxx#/2 + minx# / 2) 
    bottommaxx# = ((100/15.00)/100) * (cubex#+.5)
    bottomminx# = (bottommaxx#-((100/15.00)/100))
    bottomhalfx# = (bottommaxx#/2 + bottomminx# / 2) 
    maxy# = ((100/11.00)/100) * cubey#
    miny# = (maxy#-(100/11.00)/100) 
    halfy# = (maxy#/2 + miny# / 2) 
  
  
// create the cube 
  
    AddVertex(meshID,x# ,y#,z#                      ,0,1,0,   maxx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#,z#             ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#,z#             ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#     ,0,1,0,   halfx#,halfy#,MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#        ,0,1,0,   maxx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#       ,0,1,0,   halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#           ,0,1,0      ,maxx#  ,miny#, MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx#,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#,halfy#,  MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,maxx#  ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,halfx# ,miny#,MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#  ,0,1,0      ,halfx# ,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#             ,0,1,0      ,bottommaxx#,halfy#,    MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#             ,0,1,0      ,bottomhalfx#,halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,bottommaxx#,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,bottomhalfx#   ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#         ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#,z#+-cubesize#    ,0,1,0      ,maxx#,miny#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#,z#+-cubesize#     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#            ,z#+-cubesize#      ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#          ,0,1,0      ,maxx#  ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#                     ,0,1,0      ,halfx#,halfy#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#                     ,0,1,0      ,halfx# ,miny#  ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#          ,z#+-cubesize#              ,0,1,0      ,maxx#  , halfy#    ,   MakeColor(255,0,0))
    AddVertex(meshID,x#,y#+cubesize#    ,z#+-cubesize#              ,0,1,0      ,maxx#  , miny# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#             ,0,1,0      ,minx#,miny#,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#+-cubesize#      ,0,1,0      ,halfx# ,halfy# ,   MakeColor(255,0,0))
    AddVertex(meshID,x#+cubesize#,y#+cubesize#          ,z#+-cubesize#      ,0,1,0      ,halfx#,miny#   ,   MakeColor(255,0,0))
    AddVertex(meshID,x#         ,y#+cubesize#           ,z#             ,0,1,0      ,minx#,halfy#   ,   MakeColor(255,0,0))
  
endfunction
  
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
  
endfunction
  
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
  
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
      
    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
  
  
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
      
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
  
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id

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 Sep 2018 04:50 Edited at: 7th Sep 2018 13:27

Link

The intro sequence before carnage

Edited video removed please see further down

fubar

Back to top

Profile PM Email Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 3rd Sep 2018 05:03

Link

Awesome work! This is looking and sounding excellent!

My Projects Most With Full Source...
[Attack of the Crows] [Christmas Command 2016]
[Simple Sprite Shaders Example] [Old School Style 3D FPS]
[Playable 2D Shmup Template] [2D Single Screen Platformer]
[FixSpriteToSprite System & Demo]
[Mutant Invaders 3D Shmup] [Unity - Atlantic Crisis]
[Unity - Treasures of Ali-Gar] [My YouTube Videos] [Twitter]

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 3rd Sep 2018 05:13

Link

Thanks Gar

and title pic version 2

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 3rd Sep 2018 05:20

Link

Looks great.
What do Alt, F, H ,R and L mean?

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 3rd Sep 2018 05:30 Edited at: 3rd Sep 2018 05:31

Link

Thanks
Altititude Fuel Holding Rescued Lives

Might even add one for blocks left

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 3rd Sep 2018 05:53

Link

Is that boxes holding?
What is rescued?

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / Testing Planet Defense

Attachments

Attachments

Attachments