Assign an object number to each object imported.

Author

Message

General Jackson

User Banned

Posted: 16th Oct 2010 21:38 Edited at: 16th Oct 2010 21:39

What's a better way to import models? I want to automatically assign an object number to each object loaded. Is this doing it? or is it's object number lost each time a new model is loaded? (the openDialog command is from Blue GUI).

+ Code Snippet

objectsinscene=1
do
if loadmodel=gadgetClicked()
       model$ =  openDialog("Select Model to Import {.X or .DBO}", "DirectX Files (*.x)|*.x|Dark Basic Object Files (*.dbo)|*.dbo")
        if model$ <> ""
         load object model$,objectsinscene
         scale object objectsinscene,2,2,2
         position object objectsinscene,10,0.01,10
         set object cull objectsinscene,1
         set object transparency objectsinscene, 2
         inc objectsinscene,1
      endif
  endif
loop

Back to top

Profile

Indicium

18

Years of Service

User Offline

Joined: 26th May 2008

Location:

Posted: 16th Oct 2010 21:54

Link

Arrays, and have a script for each model.

Back to top

Profile PM

General Jackson

User Banned

Posted: 17th Oct 2010 01:56

Link

I figured it had something to do with arrays.

Could you give just a little more information, though? Just to get me going (I dont need you to do it for me, though

)

Back to top

Profile

Indicium

18

Years of Service

User Offline

Joined: 26th May 2008

Location:

Posted: 17th Oct 2010 02:37

Link

Basically, I'd have an array with data for each object, including the object number, position etc.

In the script file i'd have the scale they have to be loaded in at, the location of the actual model, any textures, the likes, and instead of browsing for the model files, browse for these script files.

I guess it's kind of how the fpe files in fpsc work, if you've ever used fpsc.

Back to top

Profile PM

gbark

20

Years of Service

User Offline

Joined: 14th Oct 2005

Location: US - Virginia

Posted: 17th Oct 2010 02:41

Link

Your method does work for assigning object numbers, but as you said, they're lost afterwards.

In your particular example, you don't really need to keep track of the object numbers, however - You know that the first object number is 1, you have objectsinscene number of objects, and you know that they are numbered sequentially.

So you could just use a simple for loop from 1 to objectsinscene to loop through all the objects you've loaded, couldn't you?

Back to top

Profile PM

General Jackson

User Banned

Posted: 17th Oct 2010 05:07

Link

Quote: "Basically, I'd have an array with data for each object, including the object number, position etc."

I havent used an array before. So I have a quick question

dim objectsinscene(10000) would be what I would call it, correct? and how can I automatically load the first one into the array position 1, the second into array position 2, and so on?

gbark:

Quote: "So you could just use a simple for loop from 1 to objectsinscene to loop through all the objects you've loaded, couldn't you? "

Would this keep the numbers assigned to the objects? Because that is necessary for my engine.

Back to top

Profile

Indicium

18

Years of Service

User Offline

Joined: 26th May 2008

Location:

Posted: 17th Oct 2010 14:50

Link

You may want to look at a tutorial on Arrays, I think TDK wrote one, in the db classic boards.

For example -

+ Code Snippet

type object_type
   path$ as string
   x# as float
   y# as float
   z# as float
   scale# as float
endtype

dim objects(1000) as object_type

Then you would have your object load interface, assign the values from the script file into that array. Of course, this is just one way of doing it, if you think of a better way, you can do that, but this is how I would do it.

Back to top

Profile PM

General Jackson

User Banned

Posted: 17th Oct 2010 21:47

Link

Ahh ok, thanks!

Will let ya know if I get it.

Back to top

Profile

General Jackson

User Banned

Posted: 19th Oct 2010 18:57 Edited at: 19th Oct 2010 18:58

Link

Ok, so is this going to save my object numbers? I'm thinking yes.

+ Code Snippet

objectsinscene = 1
dim objs(1599)

do
if loadmodel=gadgetClicked()
       model$ =  openDialog("Select Model to Import {.X or .DBO}", "DirectX Files (*.x)|*.x|Dark Basic Object Files (*.dbo)|*.dbo")
        if model$ <> ""
        objs = objectsinscene
        load object model$,objs
         scale object objs,2,2,2
         position object objs,10,0.01,10
         set object cull objs,1
         `set object transparency objectsinscene, 2
         inc objectsinscene,1
        endif
      endif
loop

Back to top

Profile

General Jackson

User Banned

Posted: 20th Oct 2010 23:21

Link

Bump.

Back to top

Profile

Indicium

18

Years of Service

User Offline

Joined: 26th May 2008

Location:

Posted: 20th Oct 2010 23:24

Link

Sorry, I haven't been on in a while.

You should really look at a tutorial on arrays. You have to give an index to the array, not just the name.

objs = objectsinscene should be objs( 1 ) = objectinscene

Where 1 is the index of the array, you would have to make a function to find a free index, if that makes sense.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Assign an object number to each object imported.