Reading/writing files

Blitz3D Forums/Blitz3D Beginners Area/Reading/writing files

Aussie

(Posted 2012) [#1]

Hey there everyone I am trying to create a simple world editor to use for my next project.
I have created a small program that creates cubes at random positions, scale, rotations & colour then exports the info out to a .txt file. I have had no problems with this part; it’s trying to load the scene back up again that is doing my head in.
I have tried using a loading system that I have used in the past but it just does not want to play the game this time. Been going over & over the code for the past 4 hours, not having much luck.
My head hurts.
What would be the best way to read a .txt file for use in loading scene data?
Cheers :)
Here is what I have.

Creates the cubes & exports to .txt file

Graphics3D 800,600,0,2

SetBuffer BackBuffer()

Global W.Obj



Light= CreateLight()
	RotateEntity light,90,0,0
	
camera = CreateCamera()
	PositionEntity camera,0,0,-100
	

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	
While Not KeyDown (1)

SeedRnd MilliSecs()

If KeyHit(49) Then Create_Obj()
If KeyHit(45) Then Export()		
	
	
UpdateWorld
RenderWorld

Text 0,0,"Press (N) to create a new object"
Text 0,20,"Press (X) to export object info to .txt file" 

Flip

Wend

End

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Type Obj
	Field Mesh, Name$
	Field L_X#, L_Y#, L_Z#
	Field S_X#, S_Y#, S_Z#
	Field R_X#, R_Y#, R_Z#
	Field C_R%, C_G%, C_B%
End Type

Function Create_Obj()

	W.Obj = New Obj
	
		WMesh = CreateCube()
		WName = "Cube"
		
		WL_X# = Rnd(-40,40)
		WL_Y# = Rnd(-40,40)
		WL_Z# = Rnd(-40,40)
		
		WS_X# = Rnd(.5,5)
		WS_Y# = Rnd(.5,5)
		WS_Z# = Rnd(.5,5)
		
		WR_X# = Rnd(0,360)
		WR_Y# = Rnd(0,360)
		WR_Z# = Rnd(0,360)
		
		WC_R% = Rnd(0,255)
		WC_G% = Rnd(0,255)
		WC_B% = Rnd(0,255)
		
	PositionEntity WMesh, WL_X, WL_Y, WL_Z
	
	ScaleEntity WMesh, WS_X, WS_Y, WS_Z
	
	RotateEntity WMesh, WR_X, WR_Y, WR_Z
	
	EntityColor WMesh, WC_R, WC_G, WC_B

End Function
		


Function Export()

	Fileout = WriteFile("Test.txt")
	
	WriteLine (fileout,"[START]")
		
		For W.Obj = Each Obj
			WriteLine (fileout,"new")
			WriteLine (Fileout,"mesh=" + WName)
			WriteLine (Fileout,"x=" + WL_X) 
			WriteLine (Fileout,"y=" + WL_Y)
			WriteLine (Fileout,"z=" + WL_Z)
			WriteLine (Fileout,"s_x=" + WS_X) 
			WriteLine (Fileout,"s_y=" + WS_Y)
			WriteLine (Fileout,"s_z=" + WS_Z)
			WriteLine (Fileout,"r_x=" + WR_X)
			WriteLine (Fileout,"r_y=" + WR_Y) 
			WriteLine (Fileout,"r_z=" + WR_Z)
			WriteLine (Fileout,"r=" + WC_R)
			WriteLine (Fileout,"g=" + WC_G)
			WriteLine (Fileout,"b=" + WC_B)
			WriteLine (Fileout,"finish")
		Next
		
		WriteLine (fileout,"[END]")
	
	CloseFile fileout

End Function

Supposed to load the scene

Graphics3D 800,600,0,2

SetBuffer BackBuffer()

Global W.Obj

Light= CreateLight()
	RotateEntity light,90,0,0
	
camera = CreateCamera()
	PositionEntity camera,0,0,-100
	

	
Load_World()

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	
While Not KeyDown (1)



UpdateWorld
RenderWorld


Flip

Wend

End





Type Obj
	Field Mesh, Name$
	Field L_X#, L_Y#, L_Z#
	Field S_X#, S_Y#, S_Z#
	Field R_X#, R_Y#, R_Z#
	Field C_R%, C_G%, C_B%
End Type




Function Load_World()

filein = OpenFile("Test.txt")
If filein <> 0
  
  foundit = 0
 
Repeat
	If ReadLine$(filein) = "[START]" Then foundit = 1
Until Eof(filein) Or foundit = 1

If foundit = 1
    done = False 
    Repeat


    param$ = Lower(ReadLine$(filein))

	If Left$(param$, 3) = "new"
	W.Obj = New Obj
	End If

		
      If Left$(param$, 5) = "mesh="
       Word$ = Right$(param$, Len(param$) - 5)

			Select word$
				Case Lower("Cube")
						WMesh = CreateCube()
				End Select
			EndIf
		

      	If Left$(param$, 2) = "x="
        	val# = Right$(param$, Len(param$) - 2)
        	WL_X# = val
     	 EndIf

       	If Left$(param$, 2) = "y="
        	val# = Right$(param$, Len(param$) - 2)
        	WL_Y# = val
      	EndIf

		If Left$(param$, 2) = "z="
        	val# = Right$(param$, Len(param$) - 2)
        	WL_Z# = val
		End If 

		If Left$(param$, 4) = "s_x="
        	val# = Right$(param$, Len(param$) - 4)
        	WS_X# = val
		End If 

		If Left$(param$, 4) = "s_y="
        	val# = Right$(param$, Len(param$) - 4)
        	WS_Y# = val
		End If

		If Left$(param$, 4) = "s_z="
        	val# = Right$(param$, Len(param$) - 4)
        	WS_Z# = val
		End If
		
		If Left$(param$, 4) = "r_x="
        	val# = Right$(param$, Len(param$) - 4)
        	WR_X# = val
		End If
		
		If Left$(param$, 4) = "r_y="
        	val# = Right$(param$, Len(param$) - 4)
        	WR_Y# = val
		End If
		
		If Left$(param$, 4) = "r_z="
        	val# = Right$(param$, Len(param$) - 4)
        	WR_Z# = val
		End If
		
		If Left$(param$, 2) = "r="
        	val# = Right$(param$, Len(param$) - 2)
        	WC_R% = val
		End If
		
		If Left$(param$, 2) = "g="
        	val# = Right$(param$, Len(param$) - 2)
        	WC_G% = val
		End If
		
		If Left$(param$, 2) = "b="
        	val# = Right$(param$, Len(param$) - 2)
        	WC_B% = val
		End If

		If Left$(param$, 6) = "finish"
			PositionEntity WMesh, WL_X, L_Y, L_Z
			ScaleEntity WMesh, WS_X, WS_Y, WS_Z
			RotateEntity WMesh, WR_X, WR_Y, WR_Z
			EntityColor WMesh, R, G, B
		End If

		
		
		
      If Left$(param$, 5) = "[END]" Or Eof(filein) Then done = True 
    Until done = True 
  EndIf

  
  CloseFile filein
  filein = 0
Else
  DebugLog "File Not Found"
EndIf 

End Function

Midimaster

(Posted 2012) [#2]

at first you can shorten the code by creating a function to divide the text line automatic:

....
      	If Left$(param$, 2) = "x="
         	W\L_X# = ExtractValue( param)
     	 EndIf

Function ExtractValue$(TextLine$)
   Local Value$, There%
   There=Instr(TextLine,"=")
   Value=Mid( TextLine, There+1, -1)
   Return Value$
End Function

a shorter code is always better, ecause it reduced the risk of bugs.

If you search for a bug you should use the DEBUGGER and DEBUGLOG to check, whether everything happened as you exepected. At first I would add some DEBUGLOG lines here:

		If Left$(param$, 6) = "finish"
DEBUGLOG "Finished Values:"
DEBUGLOG "W\L_X:" + W\L_X
....
			PositionEntity W\Mesh, W\L_X, L_Y, L_Z
....
		End If

and exactly here i see this line:

PositionEntity W\Mesh, W\L_X, L_Y, L_Z

shouldn't it be:

PositionEntity W\Mesh, W\L_X, W\L_Y, W\L_Z

???

Aussie

(Posted 2012) [#3]

Thanks Midimaster.

I haven't used any DEBUGLOG commands before i guess i should learn to use them.

I have changed the code so i can see all the values are being passed from the .txt file & changed the POSITIONENTITY line yet still none of the cubes are being created.

Midimaster

(Posted 2012) [#4]

so your next step will be to check, whether the cubes properties have been set really correct after the creation!

DEBUGLOG "is it created? Handle=" + w\Mesh
DEBUGLOG "X=" + EntityX(W\mesh)
.....

And I would add a second cube created in the code to have a reference, that camera and rendering are really working and camera is not to far away from the cubes!

Last edited 2012

Aussie

(Posted 2012) [#5]

The log shows:
is ist created? Handle=11949296
X=0.0

I am tipping that its not being created & i'm not to sure what the number following Handel is.

I will have to have a look at this again tomorrow i really need to go to bed now.

Thanks heaps for the help, no doubt i will be asking a few more questions.

Midimaster

(Posted 2012) [#6]

if there is any "handle" it is created! And the x=0 shows, that it is positioned in the center of the scene.

You have to know, whether this position could be correct. I think this exact zero points to a bug, because you created the values by random and "0.0" is quite implausible.

Of course you have to add also more DEBUGLOG lines for the other parameters until you find the bug.

Can you post the TXT file?

At me it is 11:00 in the morning...

Aussie

(Posted 2012) [#7]

I found out why the x position was returning 0, i was trying to find it's position before i placed it.

Added some DEBUGLOG lines to return pitch,yaw & roll. All entity positions & rotations are there showing in the DEBUGLOG that they are correct but nothing appears on the screen.

Here is the .TXT file

[START]
new
mesh=Cube
x=1.11267
y=39.6783
z=-38.8837
s_x=2.46549
s_y=4.67683
s_z=3.75851
r_x=134.959
r_y=338.151
r_z=59.0433
r=189
g=179
b=55
finish
new
mesh=Cube
x=-29.4647
y=38.67
z=-1.6156
s_x=3.23158
s_y=2.78244
s_z=2.79219
r_x=343.353
r_y=250.068
r_z=5.21027
r=171
g=232
b=239
finish
new
mesh=Cube
x=12.6544
y=-28.0487
z=36.7426
s_x=1.3065
s_y=2.46453
s_z=1.97117
r_x=313.245
r_y=160.431
r_z=112.569
r=55
g=90
b=167
finish
new
mesh=Cube
x=26.828
y=-14.8212
z=-19.7369
s_x=2.40582
s_y=1.4553
s_z=3.1855
r_x=8.44574
r_y=105.384
r_z=249.315
r=227
g=155
b=241
finish
new
mesh=Cube
x=-14.4879
y=24.7003
z=6.31531
s_x=1.27663
s_y=0.853794
s_z=3.93464
r_x=69.9857
r_y=44.0469
r_z=27.7103
r=74
g=205
b=133
finish
new
mesh=Cube
x=-0.314331
y=37.9279
z=29.8358
s_x=2.37595
s_y=4.34456
s_z=0.649036
r_x=125.186
r_y=349.005
r_z=164.452
r=246
g=15
b=206
finish
new
mesh=Cube
x=-20.5548
y=-30.0128
z=-33.8849
s_x=4.31435
s_y=3.867
s_z=2.50319
r_x=284.719
r_y=309.674
r_z=335.525
r=242
g=243
b=135
finish
[END]

It was 9:00pm last night here when i posted my last post, had to be up at 4:00am for work.

Aussie

(Posted 2012) [#8]

Fixed it.

Going over the code with a fresh set of eyes & saw this straight away.

[bbcode]
EntityColor WMesh, R, G, B
[/bbcode]

Should have been
[bbcode]
EntityColor WMesh,WC_ R, WC_G,WC_ B
[/bbcode]

Thanks for the help Midimaster. :)

Last edited 2012