My Adding Triangles Thread - PLEASE HELP!

Blitz3D Forums/Blitz3D Beginners Area/My Adding Triangles Thread - PLEASE HELP!

Guy Fawkes

(Posted 2012) [#1]

Hi all. I created a fence using multiple cube meshes that I resized, positioned, and rotated, and parented together into 1 mesh. NOW the problem is... How do I use WriteBB3D(), to save this ONE mesh, which is attached to a pivot:

Here's b3dfile.bb:

;
;b3d file utils to be included
;

Dim b3d_stack(100)
Global b3d_file,b3d_tos
Global br$ = Chr$(13)+Chr$(10)

Function b3dSetFile( file )
	b3d_tos=0
	b3d_file=file
End Function

;***** functions for reading from B3D files *****

Function b3dReadByte()
	Return ReadByte( b3d_file )
End Function

Function b3dReadInt()
	Return ReadInt( b3d_file )
End Function

Function b3dReadFloat#()
	Return ReadFloat( b3d_file )
End Function

Function b3dReadString$()
	Repeat
		ch=b3dReadByte()
		If ch=0 Return t$
		t$=t$+Chr$(ch)
	Forever
End Function

Function b3dReadChunk$()
	For k=1 To 4
		tag$=tag$+Chr$(b3dReadByte())
	Next
	sz=ReadInt( b3d_file )
	b3d_tos=b3d_tos+1
	b3d_stack(b3d_tos)=FilePos( b3d_file )+sz
	Return tag$
End Function

Function b3dExitChunk()
	SeekFile b3d_file,b3d_stack(b3d_tos)
	b3d_tos=b3d_tos-1
End Function

Function b3dChunkSize()
	Return b3d_stack(b3d_tos)-FilePos( b3d_file )
End Function

;***** Functions for writing to B3D files *****

Function b3dWriteByte( n )
	WriteByte( b3d_file,n )
End Function

Function b3dWriteInt( n )
	WriteInt( b3d_file,n )
End Function

Function b3dWriteFloat( n# )
	WriteFloat( b3d_file,n )
End Function

Function b3dWriteString( t$ )
	For k=1 To Len( t$ )
		ch=Asc(Mid$(t$,k,1))
		b3dWriteByte(ch)
		If ch=0 Return
	Next
	b3dWriteByte( 0 )
End Function

Function b3dBeginChunk( tag$ )
	b3d_tos=b3d_tos+1
	For k=1 To 4
		b3dWriteByte(Asc(Mid$( tag$,k,1 )))
	Next
	b3dWriteInt( 0 )
	b3d_stack(b3d_tos)=FilePos( b3d_file )
End Function

Function b3dEndChunk()
	n=FilePos( b3d_file )
	SeekFile b3d_file,b3d_stack(b3d_tos)-4
	b3dWriteInt( n-b3d_stack(b3d_tos) )
	SeekFile b3d_file,n
	b3d_tos=b3d_tos-1
End Function

And

Here's the code:

fence.bb:

Graphics3D 800,600,0,2
SetBuffer BackBuffer()

SeedRnd MilliSecs()

Include "b3dfile.bb"

Global cam=CreateCamera()
PositionEntity cam,0,1,0
CameraRange cam,.1,50000

AmbientLight 255,255,255

Global sky=CreateCube()
EntityColor sky,102,102,255
ScaleEntity sky,10000,10000,10000
FlipMesh sky

Global land = CreatePlane()
EntityColor land,0,64,0


;Pound Fence


;=================================================================================================


;Create The Mesh
;=============================================
Global fencemesh = CreateMesh()
Global fencesurf = CreateSurface(fencemesh)

;Across
;=============================================

Global vertical_board_1 = CreateCube()
PositionEntity vertical_board_1,-4,2,1.0001
ScaleEntity vertical_board_1,1,.1,.01

Global vertical_board_2 = CreateCube()
PositionEntity vertical_board_2,-4,1.50,1.0001
ScaleEntity vertical_board_2,1,.1,.01

;=============================================

;Down
;=============================================

Global horizontal_board_1 = CreateCube()
PositionEntity horizontal_board_1,-4.50,1.75,1
ScaleEntity horizontal_board_1,1,.1,.01
RotateEntity horizontal_board_1,0,0,90

Global horizontal_board_2 = CreateCube()
PositionEntity horizontal_board_2,-3.50,1.75,1
ScaleEntity horizontal_board_2,1,.1,.01
RotateEntity horizontal_board_2,0,0,90

EntityParent vertical_board_1,fencemesh
EntityParent vertical_board_2,fencemesh
EntityParent horizontal_board_1,fencemesh
EntityParent horizontal_board_2,fencemesh

c_surfs=CountSurfaces(fencemesh)

Dim c_surf(c_surfs)
Dim c_brush(c_surfs)
Dim c_tex(c_surfs)
Dim c_tex_name$(c_surfs)

RotateEntity cam,0,70,0

;=============================================

;=================================================================================================

While Not KeyHit(1)

		Cls
		
		MoveEntity cam,0,(KeyDown(44)-KeyDown(45))*0.001,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*0.001
		TurnEntity cam,0,(KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*0.05,0
		
		If KeyDown(29) Or KeyDown(157)
		
			If KeyHit(57)<>0
			
				WriteBB3D("fence.b3d",fencemesh)
				
			EndIf
			
		EndIf
		
		UpdateWorld()
		RenderWorld()
		
		Flip 0
		
Wend
End

Function WriteBB3D( f_name$,mesh )

	file=WriteFile( f_name$ )

	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_here!" )
			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 Function

Function WriteMESH( mesh )

	n_surfs=CountSurfaces( mesh )
	
	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 )
				n_verts=CountVertices( surf )-1
				
				For j=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
		
		first_vert=0
		For k=1 To n_surfs
			surf=GetSurface( mesh,k )
			n_tris=CountTriangles( surf )-1
			
			b3dBeginChunk( "TRIS" )
				b3dWriteInt( k-1 )		;brush for these triangles (surf -1 !!!)
				
				For j=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 Function

Thanks to anyone that helps! :)

Last edited 2012

Guy Fawkes

(Posted 2012) [#2]

I simply need to get WriteBB3D(), to save ALL the objects parented to the pivot, as one object...