Code archives/3D Graphics - Misc/TExportMesh
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
| Conversion of "SaveB3D by jfk EO-11110" into a SuperStrict compliant Type to be used with Minib3d and/or OpenB3d. Allows meshes to be saved to b3d files from code. OpenB3d currently seems to have some issues when using AddMesh + surfaces/brushes. Usage:
SuperStrict
Import sidesign.minib3d
'Import openb3d.b3dglgraphics
Include "TExportMesh.bmx"
Graphics3D 1024, 768
Local cube:TMesh = CreateCube()
Local brush:TBrush = LoadBrush("texture.jpg")
PaintMesh(cube, brush)
Local export:TExportMesh = New TExportMesh
export.mesh = cube
export.SaveMesh("test.b3d")
| |||||
'TExportMesh.bmx
'Conversion of http://www.blitzbasic.com/codearcs/codearcs.php?code=866
Type TExportMesh
Field mesh:TMesh
Field b3d_stack:Int[100 + 1]
Field b3d_file:TStream
Field b3d_tos:Int
Field c_surfs:Int
Field c_surf:TSurface[]
Field c_brush:TBrush[]
Field c_tex:TTexture[]
Field c_tex_name:String[]
Method Init()
c_surfs = CountSurfaces(mesh)
c_surf = New TSurface[c_surfs + 1]
c_brush = New TBrush[c_surfs + 1]
c_tex = New TTexture[c_surfs + 1]
c_tex_name = New String[c_surfs + 1]
' track down used textures (thanks Mark!)
For Local i:Int = 1 To c_surfs
c_surf[i] = GetSurface(mesh, i)
c_brush[i] = GetSurfaceBrush(c_surf[i])
c_tex[i] = GetBrushTexture(c_brush[i])
If c_tex[i] <> Null
c_tex_name[i] = Lower(TextureName:String(c_tex[i])) ' Full (!) Texture Path
Local curdir:String = Lower(CurrentDir())
c_tex_name[i] = Replace(c_tex_name[i], curdir, "") '<<<<<<<<<<<<<<<<<<<
End If
Print c_tex_name[i]
If c_tex_name[i] = "" Then Print "Error: Surface No." + i + " has no Texture"
If FileType(c_tex_name[i]) <> 1 Then Print "Warning: Surface No." + i + " uses nonexistant Texture (" + c_tex_name[i] + ")."
Next
End Method
Method SaveMesh(f_name:String)
Init()
Local file:TStream = WriteFile(f_name:String)
Local i:Int
b3dSetFile( file )
b3dBeginChunk( "BB3D" )
b3dWriteInt( 1 ) 'version
b3dBeginChunk( "TEXS" ) ' list all textures used by the mesh
For i = 1 To c_surfs
b3dWriteString(c_tex_name[i]) 'texture file
b3dWriteInt( 1 ) 'flags
b3dWriteInt( 2 ) 'blend
b3dWriteFloat( 0 ) 'x in tex 0 (hu?)
b3dWriteFloat(0) 'y in tex 0
b3dWriteFloat( 1 ) 'x scale 1
b3dWriteFloat( 1 ) 'y scale 1
b3dWriteFloat( 0 ) 'rotation 0
Next
b3dEndChunk() 'End of TEXS chunk
For i = 1 To c_surfs
b3dBeginChunk( "BRUS" ) ' describe all brushes used by the mesh
b3dWriteInt( 1 ) 'number of textures per brush ; (eg 2 with lightmap)
b3dWriteString( "brush"+(i-1) ) 'brushname
b3dWriteFloat( 1 ) 'red
b3dWriteFloat( 1 ) 'green
b3dWriteFloat( 1 ) 'blue
b3dWriteFloat( 1 ) 'alpha
b3dWriteFloat( 0 ) 'shininess
b3dWriteInt( 1 ) 'blendmode
b3dWriteInt( 0 ) 'FX
b3dWriteInt( i-1 ) 'used texture index
' b3dWriteInt( ? ) ;additional texture index (eg lightmap), but here we only use 1 (see above)
b3dEndChunk() 'End of BRUS chunk
Next
b3dBeginChunk( "NODE" )
b3dWriteString("entity_name")
b3dWriteFloat( 0 ) 'x_pos
b3dWriteFloat( 0 ) 'y_pos
b3dWriteFloat( 0 ) 'z_pos
b3dWriteFloat( 1 ) 'x_scale
b3dWriteFloat( 1 ) 'y_scale
b3dWriteFloat( 1 ) 'z_scale
b3dWriteFloat( 1 ) 'rot_w
b3dWriteFloat( 0 ) 'rot_x
b3dWriteFloat( 0 ) 'rot_y
b3dWriteFloat( 0 ) 'rot_z
WriteMESH( mesh )
b3dEndChunk() 'End of NODE chunk
b3dEndChunk() 'End of BB3D chunk
CloseFile file
End Method
Method WriteMESH(mesh:TMesh)
Local n_surfs:Int = CountSurfaces(mesh)
Local k:Int
Local surf:TSurface
b3dBeginChunk( "MESH" )
b3dWriteInt( -1 ) 'no 'entity' brush -1
b3dBeginChunk( "VRTS" )
b3dWriteInt( 0 ) 'flags - 0=no normal/color
b3dWriteInt( 1 ) 'number of tex_coord sets (eg: 2 with lightmap)
b3dWriteInt( 2 ) 'coords per set (u,v,w?) 2 with uv, 3 with uvw
For k = 1 To n_surfs
surf = GetSurface(mesh, k)
Local n_verts:Int = CountVertices(surf) - 1
For Local j:Int = 0 To n_verts
b3dWriteFloat( VertexX( surf,j ) )
b3dWriteFloat( VertexY( surf,j ) )
b3dWriteFloat( VertexZ( surf,j ) )
b3dWriteFloat( VertexU#( surf,j,0 ) )
b3dWriteFloat( VertexV#( surf,j,0 ) )
' b3dWriteFloat( VertexW#( surf,j,0 ) )
'; b3dWriteFloat( VertexU#( surf,j,1 ) ) ; lightmap uv
'; b3dWriteFloat( VertexV#( surf,j,1 ) ) ; lightmap uv
' b3dWriteFloat( VertexW#( surf,j,1 ) )
Next
Next
b3dEndChunk() 'End of VRTS chunk
Local first_vert:Int = 0
For k = 1 To n_surfs
surf = GetSurface(mesh, k)
Local n_tris:Int = CountTriangles(surf) - 1
b3dBeginChunk( "TRIS" )
b3dWriteInt( k-1 ) 'brush For these triangles (surf -1 !!!)
For Local j:Int = 0 To n_tris
b3dWriteInt( first_vert+TriangleVertex( surf,j,0 ) )
b3dWriteInt( first_vert+TriangleVertex( surf,j,1 ) )
b3dWriteInt( first_vert+TriangleVertex( surf,j,2 ) )
Next
b3dEndChunk() 'End of TRIS chunk
first_vert=first_vert+CountVertices( surf )
Next
b3dEndChunk() 'End of MESH chunk
End Method
'-------------------------------------------------------------------------------------------------
'
'b3d file utils to be included
'
Method b3dSetFile(file:TStream)
b3d_tos:Int = 0
b3d_file:TStream = file
End Method
'***** Methods for reading from B3D files *****
Method b3dReadByte:Byte()
Return ReadByte( b3d_file )
End Method
Method b3dReadInt:Int()
Return ReadInt(b3d_file)
End Method
Method b3dReadFloat#()
Return ReadFloat( b3d_file )
End Method
Method b3dReadString:String()
Local t:String
Repeat
Local ch:Byte = b3dReadByte()
If ch = 0 Return t:String
t:String = t:String + Chr:String(ch)
Forever
End Method
Method b3dReadChunk$()
Local tag:String
For Local k:Int = 1 To 4
tag = tag + Chr(b3dReadByte())
Next
Local sz:Int = ReadInt(b3d_file)
b3d_tos = b3d_tos + 1
b3d_stack[b3d_tos] = StreamPos(b3d_file) + sz
Return tag
End Method
Method b3dExitChunk()
SeekStream b3d_file, b3d_stack[b3d_tos]
b3d_tos=b3d_tos-1
End Method
Method b3dChunkSize:Int()
Return b3d_stack[b3d_tos] - StreamPos(b3d_file)
End Method
'***** Methods for writing to B3D files *****
Method b3dWriteByte(n:Int)
WriteByte(b3d_file, n)
End Method
Method b3dWriteInt(n:Int)
WriteInt(b3d_file, n)
End Method
Method b3dWriteFloat( n# )
WriteFloat( b3d_file,n )
End Method
Method b3dWriteString( t$ )
For Local k:Int = 1 To Len(t:String)
Local ch:Int = Asc(Mid:String(t:String, k, 1))
b3dWriteByte(ch)
If ch=0 Return
Next
b3dWriteByte( 0 )
End Method
Method b3dBeginChunk( tag$ )
b3d_tos=b3d_tos+1
For Local k:Int = 1 To 4
b3dWriteByte(Asc(Mid$( tag$,k,1 )))
Next
b3dWriteInt( 0 )
b3d_stack[b3d_tos] = StreamPos(b3d_file)
End Method
Method b3dEndChunk()
Local n:Int = StreamPos(b3d_file)
SeekStream b3d_file, b3d_stack[b3d_tos] - 4
b3dWriteInt(n - b3d_stack[b3d_tos])
SeekStream b3d_file,n
b3d_tos=b3d_tos-1
End Method
End Type |
Comments
None.
Code Archives Forum
   |