Object Position Problem - GameCreators Forum

Author

Message

Black Chaos

15

Years of Service

User Offline

Joined: 20th Apr 2011

Location:

Posted: 20th Apr 2011 16:07

Link

//This is a re-post, simply because i need a solution quick.
In one program I save two objects positions to file.
Example:
Quote: "
//Object One
ObjOnePositionX = 432
ObjOnePositionY = 1051
ObjOnePositionZ = 2333

//Object One
ObjOnePositionX = 432
ObjOnePositionY = 1024
ObjOnePositionZ = 2333
"

Another program loads these setings(Just the X,Y and Z positions).
Create two object of the same size and shape and then use the exact positions loaded from file.

But!

When the objects are positioned in the second program, using the same positions!; the two objects have much more space in between(Visually),mainly on the y-axis i think.

Please help!

bconline

Back to top

Profile PM Email

Rich Dersheimer

AGK Developer

17

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 20th Apr 2011 18:06

Link

Show your code in one of these:

+ Code Snippet

use the code button above to put code in a box

and we can troubleshoot for you.

Back to top

Profile PM Email

Black Chaos

15

Years of Service

User Offline

Joined: 20th Apr 2011

Location:

Posted: 20th Apr 2011 18:27

Link

The first program saves the position of two objects that exist in the program e.g. a cube and a cylinder.
The program then writes these positions to file.

+ Code Snippet

//Create array and type for saving object positions
Type SavingObjects
    PoX as Integer
    PoY as Integer 
    PoZ as Integer
Endtype

Dim OSS(2) as SavingObjects

//Saving the objects positions in an array
//Two objects btw
For n=1 to 2
    //Position
    OSS(n).PoX = Object Position X(n)
    OSS(n).PoY = Object Position Y(n)
    OSS(n).PoZ = Object Position Z(n)
Next n

//Write object positions to file
Open To Write 1,"Setting.txt"  
Write String 1,"[Position X]"
        For f=1 to 2
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).PoX)
        Next f 
        Write String 1,"[Position Y]"
        For f=1 to 2
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).PoY)
        Next f 
        Write String 1,"[Position Z]"
        For f=1 to 2
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).PoZ)
        Next f  

Close File 1

The second program then creates an array to store these positions, reads the file saves the x,y and z positions into the array.

Two objects are then created; the same shape and size.
The same positions are used.
But the objects are in different places from the original program.

bconline

Back to top

Profile PM Email

Rich Dersheimer

AGK Developer

17

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 20th Apr 2011 22:37 Edited at: 20th Apr 2011 22:47

Link

Well, that's not all your code, I'm sure, but a couple of things to think about...

Your x,y, and z positions need to be floats instead of integers.

Do you have AUTOCAM on or off?

Are you trying to write to a file that already exists? (This will fail)

You should write floats instead of strings.

Does the same thing happen without the file save? I.E. if you just make the objects, save the positions, destroy the objects, then re-create them?

If you are able to post all your code, I could see what you mean.

EDIT: Also, IanM's matrix utils will let you save a UDT array, which would be much easier than saving each position.

Back to top

Profile PM Email

Black Chaos

15

Years of Service

User Offline

Joined: 20th Apr 2011

Location:

Posted: 20th Apr 2011 23:51 Edited at: 21st Apr 2011 01:32

Link

Here's my code:

First program

Sync On:Sync Rate 0:Autocam off 
//Objects
Make object Cube 1,100
Make object Cube 2,100

//Object save storage
Type ObjectSaverFunctions
    Total as Integer
    SON//Save as this object number
    Shape as String//Save the Shape Of The Object
    SX as Integer //Size x
    SY as Integer //Size y
    SZ as Integer //Size Z
    RX as Integer //Rotation x
    RY as Integer //Rotation y
    RZ as Integer //Rotation Z
    GRN as Integer //Ground object number
    PNT as Integer //Pointer Object Number
    Texture as String //Texture Applied
    Object as Integer //Object Textured
    PoX as Float
    PoY as Float
    PoZ as Float
Endtype

//Array, This mirrors the total of the object library
Dim OSS(5000) as ObjectSaverFunctions

//Reset count    
OSS(0).Total = 0
    //Find as much objects as Possible, 5000 is the max that can fit in my objects library
    For n=1 to 5000
        //Check if object exists
        If Object Exist(n)=1 
            //Store the amount
            If Object Exist(n)=1 then Inc OSS(0).Total,1
            //Save Object Number
            OSS(n).SON = n
            //Shape and size
            OSS(n).Shape = libO(n).Shape
            OSS(n).SX = libO(n).SizeX
            OSS(n).SY = libO(n).SizeY
            OSS(n).SZ = libO(n).SizeZ
            //Rotation
            OSS(n).RX = Object Angle X(n)
            OSS(n).RY = Object Angle Y(n)
            OSS(n).RZ = Object Angle Z(n)
            //Position
            OSS(n).PoX = Object Position X(n)
            OSS(n).PoY = Object Position Y(n)
            OSS(n).PoZ = Object Position Z(n)
            
        Endif    
    Next
    
    //Store to text file
    If File Exist ("Setting.txt")=1 then Delete File "Setting.txt"
    Open To Write 1,"Setting.txt"  
        Write String 1,"[Total Objects]"
        Write String 1,Str$(OSS(0).Total)
        Write String 1,"[Textures]"
        For f=1 to 5000 
            If Object Exist(f)=1 
                If OSS(f).Texture = ""
                    Write String 1,"!None!"                   
                Else
                    Write String 1,OSS(f).Texture
                Endif 
            Endif
        Next f
        Write String 1,"[Object Textured]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,str$(OSS(f).Object)
        Next f
        Write String 1,"[Object Number]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).SON)
        Next f
        Write String 1,"[Shape]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,OSS(f).Shape
        Next f 
        Write String 1,"[Size X]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).SX)
        Next f 
        Write String 1,"[Size Y]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).SY)
        Next f 
        Write String 1,"[Size Z]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).SZ)
        Next f
        Write String 1,"[Angle X]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).RX)
        Next f 
        Write String 1,"[Angle Y]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).RY)
        Next f 
        Write String 1,"[Angle Z]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).RZ)
        Next f 
        Write String 1,"[Position X]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).PoX)
        Next f 
        Write String 1,"[Position Y]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).PoY)
        Next f 
        Write String 1,"[Position Z]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).PoZ)
        Next f          
        Write String 1,"#End#"
    Close File 1

//see result
    Execute File "Setting.txt","",""

+ Code Snippet

Sync On:Sync Rate 0:Autocam off 
//Objects
Make object Cube 1,100
Make object Cube 2,100

//Object save storage
Type ObjectSaverFunctions
    Total as Integer
    SON//Save as this object number
    Shape as String//Save the Shape Of The Object
    SX as Integer //Size x
    SY as Integer //Size y
    SZ as Integer //Size Z
    RX as Integer //Rotation x
    RY as Integer //Rotation y
    RZ as Integer //Rotation Z
    GRN as Integer //Ground object number
    PNT as Integer //Pointer Object Number
    Texture as String //Texture Applied
    Object as Integer //Object Textured
    PoX as Float
    PoY as Float
    PoZ as Float
Endtype

//Array, This mirrors the total of the object library
Dim OSS(5000) as ObjectSaverFunctions

//Reset count    
OSS(0).Total = 0
    //Find as much objects as Possible, 5000 is the max that can fit in my objects library
    For n=1 to 5000
        //Check if object exists
        If Object Exist(n)=1 
            //Store the amount
            If Object Exist(n)=1 then Inc OSS(0).Total,1
            //Save Object Number
            OSS(n).SON = n
            //Shape and size
            OSS(n).Shape = libO(n).Shape
            OSS(n).SX = libO(n).SizeX
            OSS(n).SY = libO(n).SizeY
            OSS(n).SZ = libO(n).SizeZ
            //Rotation
            OSS(n).RX = Object Angle X(n)
            OSS(n).RY = Object Angle Y(n)
            OSS(n).RZ = Object Angle Z(n)
            //Position
            OSS(n).PoX = Object Position X(n)
            OSS(n).PoY = Object Position Y(n)
            OSS(n).PoZ = Object Position Z(n)
            
        Endif    
    Next
    
    //Store to text file
    If File Exist ("Setting.txt")=1 then Delete File "Setting.txt"
    Open To Write 1,"Setting.txt"  
        Write String 1,"[Total Objects]"
        Write String 1,Str$(OSS(0).Total)
        Write String 1,"[Textures]"
        For f=1 to 5000 
            If Object Exist(f)=1 
                If OSS(f).Texture = ""
                    Write String 1,"!None!"                   
                Else
                    Write String 1,OSS(f).Texture
                Endif 
            Endif
        Next f
        Write String 1,"[Object Textured]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,str$(OSS(f).Object)
        Next f
        Write String 1,"[Object Number]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).SON)
        Next f
        Write String 1,"[Shape]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,OSS(f).Shape
        Next f 
        Write String 1,"[Size X]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).SX)
        Next f 
        Write String 1,"[Size Y]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).SY)
        Next f 
        Write String 1,"[Size Z]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).SZ)
        Next f
        Write String 1,"[Angle X]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).RX)
        Next f 
        Write String 1,"[Angle Y]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).RY)
        Next f 
        Write String 1,"[Angle Z]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).RZ)
        Next f 
        Write String 1,"[Position X]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).PoX)
        Next f 
        Write String 1,"[Position Y]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).PoY)
        Next f 
        Write String 1,"[Position Z]"
        For f=1 to 5000 
            If Object Exist(f)=1 then Write String 1,Str$(OSS(f).PoZ)
        Next f          
        Write String 1,"#End#"
    Close File 1

    //see result
    Execute File "Setting.txt","",""

//The second program

Sync On:Sync Rate 0:Autocam off 
Gosub Declare///Not included! this is used only to declare some pre made functions for the camera.

Type ReloadAll
    tt as String
    texture as String
    obtex as Integer
    Object as Integer
    TextNum as Integer
    ScaleX as Integer
    ScaleY as Integer
    ScaleZ as Integer
    AngleX as Integer
    AngleY as Integer
    AngleZ as Integer
    PositionX as Float //Changed this from integer; But i get the same visual result.
    PositionY as Float
    PositionZ as Float
Endtype

Dim Rel(5000) as ReloadAll

Open To Read 1,"Setting.txt"
    // Reload  
    Repeat 
        //Load Varable into a string
       ` Read String 1,EndString$
        //Get the amount of objects
        If Lower$(Left$(EndString$,3))="[to"
            //Read line under then catch the string
            Read String 1,EndString$
            Rel(0).tt = EndString$
        Else
            Read String 1,EndString$
        Endif
        
    Until EndString$ = "[Textures]"  
Close File 1

Open To Read 1,"Setting.txt"   
    // Reload  
    EndString$ = ""
    Repeat      
        Read String 1,EndString$
    Until EndString$ = "[Textures]"  
        //Get the Textures to Load then load
        If EndString$="[Textures]"
            //Read line under then catch the string
            Read String 1,EndString$
            For f=1 to Val(Rel(0).tt) 
                Rel(f).texture = EndString$
                ldt$="Textures\Var 4\"+Rel(f).texture
                Load Image ldt$,f 
                //Store Texture Number
                Rel(f).TextNum = f
                Read String 1,EndString$
            Next f
        Endif
Close File 1      
  
Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat        
        //Get object textured numbers
        If Lower$(Left$(EndString$,3))="[ob"
            //Read line under then catch the string
            `Read String 1,EndString$
            For n=1 to Val(Rel(0).tt)
                Rel(n).obtex = Val(EndString$)
                Read String 1,EndString$
            Next n
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Object Number]"  
Close File 1

Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat          
        //Get the Object numbers 
        If EndString$="[Object Number]"
            //Read line under then catch the string
            Read String 1,EndString$
            For n=1 to Val(Rel(0).tt)
                Rel(n).Object = Val(EndString$)
               Read String 1,EndString$
            Next n
        Else
            Read String 1,EndString$
        Endif
        
    Until EndString$ = "#End#"  
Close File 1  
       
Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat         
        //Get Make thenshape
        If Lower$(Left$(EndString$,3))="[sh"
            //Read line under then catch the string
            Read String 1,EndString$
            For n=1 to Val(Rel(0).tt) 
                //Make the object
                Select EndString$ 
                    Case "Cube"
                        jj=Rel(n).Object
                        Make Object Cube jj,10      
                    Endcase
                    Case "Cylinder"
                        jj=Rel(n).Object
                        Make Object Cylinder jj,10
                    Endcase
                    Case "Sphere"
                        jj=Rel(n).Object
                        Make Object Sphere jj,10
                    Endcase
                    Case "Cone"
                        jj=Rel(n).Object
                        Make Object Cone jj,10
                    Endcase
                Endselect 
                Read String 1,EndString$
            Next n
            
            //Texture Objects
            For f=1 to Val(Rel(0).tt) 
                If Rel(f).texture = "!None!" //Do nothing If texture does not exist
                Else
                    Texture Object Rel(f).Object,Rel(f).TextNum 
                Endif 
            Next f
        Else
            Read String 1,EndString$    
        Endif
    Until EndString$ = "#End#"
Close File 1

//Gather Scalling data    
Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat  
        If EndString$ = "[Size X]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$ 
               Rel(f).ScaleX = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Size Y]"
    Repeat  
        If EndString$ = "[Size Y]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$
               Rel(f).ScaleY = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Size Z]" 
    Repeat  
        If EndString$ = "[Size Z]"
            For f=1 to Val(Rel(0).tt)
                Read String 1,EndString$
                Rel(f).ScaleZ = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "#End#"
Close File 1

//Now to actually scale
For f=1 to Val(Rel(0).tt)  
    Scale Object Rel(f).Object,Rel(f).ScaleX,Rel(f).ScaleY,Rel(f).ScaleZ
Next f

//Gather Angle data    
Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat  
        If EndString$ = "[Angle X]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$ 
               Rel(f).AngleX = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Angle Y]"
    Repeat  
        If EndString$ = "[Angle Y]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$
               Rel(f).AngleY = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Angle Z]" 
    Repeat  
        If EndString$ = "[Angle Z]"
            For f=1 to Val(Rel(0).tt)
                Read String 1,EndString$
                Rel(f).AngleZ = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "#End#"
Close File 1

//Now to actually ANGLE the objects
For f=1 to Val(Rel(0).tt)  
    Rotate Object Rel(f).Object,Rel(f).AngleX,Rel(f).AngleY,Rel(f).AngleZ
Next f

//Gather Position data    
Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat  
        If EndString$ = "[Position X]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$ 
               Rel(f).PositionX = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Position Y]"
    Repeat  
        If EndString$ = "[Position Y]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$
               Rel(f).PositionY = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Position Z]" 
    Repeat  
        If EndString$ = "[Position Z]"
            For f=1 to Val(Rel(0).tt)
                Read String 1,EndString$
                Rel(f).PositionZ = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "#End#"
Close File 1

//Now to actually POSITION the objects
For f=1 to Val(Rel(0).tt)  
    Position Object Rel(f).Object,Rel(f).PositionX,Rel(f).PositionY,Rel(f).PositionZ
Next f

Do

//These three function arnt included in this example
    drag_object()//Pick object 
    MSFB() //Move camera
    CamMousMove(0) //Rotate Camera
    ///////////////

//See if the values loaded are the same(They always are)
    Text 0,500,Str$(Object PosiTION x(1)) 
    Text 0,520,Str$(Object PosiTION y(1))
    Text 0,540,Str$(Object PosiTION Z(1))+ " oNE"
    Text 0,570,Str$(Object PosiTION x(2)) 
    Text 0,580,Str$(Object PosiTION y(2))
    Text 0,600,Str$(Object PosiTION Z(2))+ " TWO"
    Sync
Loop

+ Code Snippet

Sync On:Sync Rate 0:Autocam off 
Gosub Declare///Not included! this is used only to declare some pre made functions for the camera.

Type ReloadAll
    tt as String
    texture as String
    obtex as Integer
    Object as Integer
    TextNum as Integer
    ScaleX as Integer
    ScaleY as Integer
    ScaleZ as Integer
    AngleX as Integer
    AngleY as Integer
    AngleZ as Integer
    PositionX as Float //Changed this from integer; But i get the same visual result.
    PositionY as Float
    PositionZ as Float
Endtype

Dim Rel(5000) as ReloadAll

Open To Read 1,"Setting.txt"
    // Reload  
    Repeat 
        //Load Varable into a string
       ` Read String 1,EndString$
        //Get the amount of objects
        If Lower$(Left$(EndString$,3))="[to"
            //Read line under then catch the string
            Read String 1,EndString$
            Rel(0).tt = EndString$
        Else
            Read String 1,EndString$
        Endif
        
    Until EndString$ = "[Textures]"  
Close File 1

Open To Read 1,"Setting.txt"   
    // Reload  
    EndString$ = ""
    Repeat      
        Read String 1,EndString$
    Until EndString$ = "[Textures]"  
        //Get the Textures to Load then load
        If EndString$="[Textures]"
            //Read line under then catch the string
            Read String 1,EndString$
            For f=1 to Val(Rel(0).tt) 
                Rel(f).texture = EndString$
                ldt$="Textures\Var 4\"+Rel(f).texture
                Load Image ldt$,f 
                //Store Texture Number
                Rel(f).TextNum = f
                Read String 1,EndString$
            Next f
        Endif
Close File 1      
  
Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat        
        //Get object textured numbers
        If Lower$(Left$(EndString$,3))="[ob"
            //Read line under then catch the string
            `Read String 1,EndString$
            For n=1 to Val(Rel(0).tt)
                Rel(n).obtex = Val(EndString$)
                Read String 1,EndString$
            Next n
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Object Number]"  
Close File 1  

Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat          
        //Get the Object numbers 
        If EndString$="[Object Number]"
            //Read line under then catch the string
            Read String 1,EndString$
            For n=1 to Val(Rel(0).tt)
                Rel(n).Object = Val(EndString$)
               Read String 1,EndString$
            Next n
        Else
            Read String 1,EndString$
        Endif
        
    Until EndString$ = "#End#"  
Close File 1  
       
Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat         
        //Get Make thenshape
        If Lower$(Left$(EndString$,3))="[sh"
            //Read line under then catch the string
            Read String 1,EndString$
            For n=1 to Val(Rel(0).tt) 
                //Make the object
                Select EndString$ 
                    Case "Cube"
                        jj=Rel(n).Object
                        Make Object Cube jj,10      
                    Endcase
                    Case "Cylinder"
                        jj=Rel(n).Object
                        Make Object Cylinder jj,10
                    Endcase
                    Case "Sphere"
                        jj=Rel(n).Object
                        Make Object Sphere jj,10
                    Endcase
                    Case "Cone"
                        jj=Rel(n).Object
                        Make Object Cone jj,10
                    Endcase
                Endselect 
                Read String 1,EndString$
            Next n
            
            //Texture Objects
            For f=1 to Val(Rel(0).tt) 
                If Rel(f).texture = "!None!" //Do nothing If texture does not exist
                Else
                    Texture Object Rel(f).Object,Rel(f).TextNum 
                Endif 
            Next f
        Else
            Read String 1,EndString$    
        Endif
    Until EndString$ = "#End#"
Close File 1    


//Gather Scalling data    
Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat  
        If EndString$ = "[Size X]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$ 
               Rel(f).ScaleX = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Size Y]"
    Repeat  
        If EndString$ = "[Size Y]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$
               Rel(f).ScaleY = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Size Z]" 
    Repeat  
        If EndString$ = "[Size Z]"
            For f=1 to Val(Rel(0).tt)
                Read String 1,EndString$
                Rel(f).ScaleZ = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "#End#"
Close File 1

//Now to actually scale
For f=1 to Val(Rel(0).tt)  
    Scale Object Rel(f).Object,Rel(f).ScaleX,Rel(f).ScaleY,Rel(f).ScaleZ
Next f 


//Gather Angle data    
Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat  
        If EndString$ = "[Angle X]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$ 
               Rel(f).AngleX = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Angle Y]"
    Repeat  
        If EndString$ = "[Angle Y]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$
               Rel(f).AngleY = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Angle Z]" 
    Repeat  
        If EndString$ = "[Angle Z]"
            For f=1 to Val(Rel(0).tt)
                Read String 1,EndString$
                Rel(f).AngleZ = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "#End#"
Close File 1

//Now to actually ANGLE the objects
For f=1 to Val(Rel(0).tt)  
    Rotate Object Rel(f).Object,Rel(f).AngleX,Rel(f).AngleY,Rel(f).AngleZ
Next f 

//Gather Position data    
Open To Read 1,"Setting.txt"   
    // Reload  
    Repeat  
        If EndString$ = "[Position X]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$ 
               Rel(f).PositionX = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Position Y]"
    Repeat  
        If EndString$ = "[Position Y]"
            For f=1 to Val(Rel(0).tt) 
               Read String 1,EndString$
               Rel(f).PositionY = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "[Position Z]" 
    Repeat  
        If EndString$ = "[Position Z]"
            For f=1 to Val(Rel(0).tt)
                Read String 1,EndString$
                Rel(f).PositionZ = VAL(EndString$)
            Next f
        Else
            Read String 1,EndString$
        Endif
    Until EndString$ = "#End#"
Close File 1

//Now to actually POSITION the objects
For f=1 to Val(Rel(0).tt)  
    Position Object Rel(f).Object,Rel(f).PositionX,Rel(f).PositionY,Rel(f).PositionZ
Next f 



Do

    //These three function arnt included in this example
    drag_object()//Pick object 
    MSFB() //Move camera
    CamMousMove(0) //Rotate Camera
    ///////////////    

   //See if the values loaded are the same(They always are)
    Text 0,500,Str$(Object PosiTION x(1)) 
    Text 0,520,Str$(Object PosiTION y(1))
    Text 0,540,Str$(Object PosiTION Z(1))+ " oNE"
    Text 0,570,Str$(Object PosiTION x(2)) 
    Text 0,580,Str$(Object PosiTION y(2))
    Text 0,600,Str$(Object PosiTION Z(2))+ " TWO"
    Sync
Loop

My point is that, regardless of the fact that the objects are made and positioned with the same values, they still endup in diffeent places (Visually!).

+ Code Snippet

Please test for yourself in DBPro and Compare the positions of the objects in both programs.

bconline

Back to top

Profile PM Email

Rich Dersheimer

AGK Developer

17

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 21st Apr 2011 05:25 Edited at: 21st Apr 2011 06:43

Link

Your first program will not compile, and throws many errors while refusing to compile, possibly related to the definition of SON in your UDT. Also, you gotta have a space between the code and the // for comments.

After those two things are fixed, it hangs on lib0(n)

Does the code you posted actually run for you?

My advice is to take a few steps backward, do a simple save and load of one object and figure out what's not working. THEN add in all the fancy stuff.

One thing to check... your first program does not show the objects, so how do you know they aren't VISUALLY in the same place after you load them? If you use the CONTROL CAMERA USING ARROWKEYS command it can change what you see vs. a positioned and still camera.

EDIT: Here is a REALLY simple version of saving and loading four datum about an object.

set display mode 800,600,32
autocam off
sync on
sync
SaveFlag = 0

make object cube 1,10
position camera 0,0,-20
point camera 0,0,0

do
    text 0,0," Use the numpad to move and rotate object, press S to save, or L to load the object data."
    text 0,12," Position X: "+str$(object position x(1),2)
    text 0,24," Position Y: "+str$(object position y(1),2)
    text 0,36," Position Z: "+str$(object position z(1),2)
    text 0,48," Angle Z: "+str$(object angle z(1),2)
    if SaveFlag = 1 then text 0,60," Object data has been saved."
    if SaveFlag = 2 then text 0,60," Object data has been loaded."    
    
    select scancode()
        case 72
            move object up 1,.01
        endcase
        
        case 80
            move object down 1,.01
        endcase
        
        case 75
            move object left 1,.01            
        endcase
        
        case 77
            move object right 1,.01
        endcase
        
        case 73
            move object 1,.01
        endcase
        
        case 81
            move object 1,-.01
        endcase
        
        case 71
            roll object right 1,.01
        endcase
        
        case 79
            roll object left 1,.01
        endcase
        
        case 31 ` save        
            if file exist("object.txt") then delete file "object.txt"
            open to write 1,"object.txt"
            write float 1,object position x(1)
            write float 1,object position y(1)
            write float 1,object position z(1)
            write float 1,object angle z(1)
            close file 1
            SaveFlag=1        
        endcase
        
        case 38 ` load
            if file exist("object.txt")
                delete object 1
                make object cube 1,10
                open to read 1,"object.txt"
                read float 1,x#
                read float 1,y#
                read float 1,z#
                read float 1,a#
                close file 1
                position object 1,x#,y#,z#
                zrotate object 1,a#
                SaveFlag=2                        
            endif
        endcase                     
    endselect
    sync
loop

+ Code Snippet

set display mode 800,600,32
autocam off
sync on
sync
SaveFlag = 0

make object cube 1,10
position camera 0,0,-20
point camera 0,0,0

do
    text 0,0," Use the numpad to move and rotate object, press S to save, or L to load the object data."
    text 0,12," Position X: "+str$(object position x(1),2)
    text 0,24," Position Y: "+str$(object position y(1),2)
    text 0,36," Position Z: "+str$(object position z(1),2)
    text 0,48," Angle Z: "+str$(object angle z(1),2)
    if SaveFlag = 1 then text 0,60," Object data has been saved."
    if SaveFlag = 2 then text 0,60," Object data has been loaded."    
    
    select scancode()
        case 72
            move object up 1,.01
        endcase
        
        case 80
            move object down 1,.01
        endcase
        
        case 75
            move object left 1,.01            
        endcase
        
        case 77
            move object right 1,.01
        endcase
        
        case 73
            move object 1,.01
        endcase
        
        case 81
            move object 1,-.01
        endcase
        
        case 71
            roll object right 1,.01
        endcase
        
        case 79
            roll object left 1,.01
        endcase
        
        case 31 ` save        
            if file exist("object.txt") then delete file "object.txt"
            open to write 1,"object.txt"
            write float 1,object position x(1)
            write float 1,object position y(1)
            write float 1,object position z(1)
            write float 1,object angle z(1)
            close file 1
            SaveFlag=1        
        endcase
        
        case 38 ` load
            if file exist("object.txt")
                delete object 1
                make object cube 1,10
                open to read 1,"object.txt"
                read float 1,x#
                read float 1,y#
                read float 1,z#
                read float 1,a#
                close file 1
                position object 1,x#,y#,z#
                zrotate object 1,a#
                SaveFlag=2                        
            endif
        endcase                     
    endselect
    sync
loop

I see what you are trying to do, saving all the info to recreate a scene, my example is just to illustrate that the object does indeed load with the same coords and angle, and looks exactly like it did when saved. So, maybe the camera changes between the programs?

I had this other thought... suppose you saved two files for each setup. One is a "scene" file that contains the camera position, the number of objects in the scene, the names of all textures used in the scene, etc. Then you could have an "objects" file that is the saved UDT of all data for each object. That way you could use IanM's save array command to save the objects, and the scene file could tell you how big to dimension the object UDT array. Just a thought.

Back to top

Profile PM Email

Black Chaos

15

Years of Service

User Offline

Joined: 20th Apr 2011

Location:

Posted: 21st Apr 2011 13:15

Link

Hey, thanks for your help.

Even though what your saying is true; the camera angle and position does play a large role in how the distance between two objects are perceived.

Note: In my first program, I have a function that allows camera rotation and movement using the mouse; same in the second.

Corrections: I'm going to save the cameras position and angle so that the scene can be loaded the exact same way it was saved.

I will test a little more, but this time i'll save some evidence of my testing. I'm probably going to run the tests and post images in this thread as soon as possible.

As for IanM's save array command; I would prefer right now to use JUST! the default DBPro's lib, functions and commands(Just to keep things simple and on track), nothing personal, just apart of my planned completion date.

Keep and eye on this post

bconline

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Object Position Problem