Code archives/3D Graphics - Mesh/Ramp Mesh

This code has been declared by its author to be Public Domain code.

Download source code

Ramp Mesh by Ked2009
A ramp mesh like what you see in Maplet.
Function CreateRamp:TMesh(parent_ent:TEntity=Null)
	Local mesh:TMesh=TMesh.CreateMesh(parent_ent)
	Local surf:TSurface=mesh.CreateSurface()
	
	Local v0:Int,v1:Int,v2:Int,v3:Int
	
	v0=surf.AddVertex(-1.0,-1.0,-1.0)
	v1=surf.AddVertex(-1.0, 1.0,-1.0)
	v2=surf.AddVertex( 1.0,-1.0,-1.0)
	surf.AddTriangle(v0,v1,v2)
	
	surf.VertexTexCoords(v1,0.0,0.0)
	surf.VertexTexCoords(v0,0.0,1.0)
	surf.VertexTexCoords(v2,1.0,1.0)
	
	v0=surf.AddVertex( 1.0,-1.0, 1.0)
	v1=surf.AddVertex(-1.0, 1.0, 1.0)
	v2=surf.AddVertex(-1.0,-1.0, 1.0)
	surf.AddTriangle(v0,v1,v2)
	
	surf.VertexTexCoords(v0,1.0,1.0)
	surf.VertexTexCoords(v1,0.0,0.0)
	surf.VertexTexCoords(v2,0.0,1.0)
	
	v0=surf.AddVertex(-1.0,-1.0,-1.0)
	v1=surf.AddVertex( 1.0,-1.0,-1.0)
	v2=surf.AddVertex(-1.0,-1.0, 1.0)
	v3=surf.AddVertex( 1.0,-1.0, 1.0)
	surf.AddTriangle(v0,v1,v3)
	surf.AddTriangle(v2,v0,v3)
	
	surf.VertexTexCoords(v0,0.0,0.0)
	surf.VertexTexCoords(v1,0.0,1.0)
	surf.VertexTexCoords(v2,1.0,0.0)
	surf.VertexTexCoords(v3,1.0,1.0)
	
	v0=surf.AddVertex(-1.0,-1.0,-1.0)
	v1=surf.AddVertex(-1.0, 1.0,-1.0)
	v2=surf.AddVertex(-1.0,-1.0, 1.0)
	v3=surf.AddVertex(-1.0, 1.0, 1.0)
	surf.AddTriangle(v2,v1,v0)
	surf.AddTriangle(v3,v1,v2)
	
	surf.VertexTexCoords(v0,1.0,1.0)
	surf.VertexTexCoords(v1,1.0,0.0)
	surf.VertexTexCoords(v2,0.0,1.0)
	surf.VertexTexCoords(v3,0.0,0.0)
	
	v0=surf.AddVertex(-1.0, 1.0,-1.0)
	v1=surf.AddVertex(-1.0, 1.0, 1.0)
	v2=surf.AddVertex( 1.0,-1.0,-1.0)
	v3=surf.AddVertex( 1.0,-1.0, 1.0)
	surf.AddTriangle(v0,v1,v3)
	surf.AddTriangle(v2,v0,v3)
	
	surf.VertexTexCoords(v0,0.0,0.0)
	surf.VertexTexCoords(v1,1.0,0.0)
	surf.VertexTexCoords(v2,0.0,1.0)
	surf.VertexTexCoords(v3,1.0,1.0)
	
	mesh.UpdateNormals()
	Return mesh
EndFunction

Comments

None.

Code Archives Forum