I cant find the commands to link objects and exported as*.DBO

Author

Message

pamercomov

FPSC Reloaded TGC Backer

11

Years of Service

User Offline

Joined: 2nd Jan 2015

Location: palma de mallorca

Posted: 11th Jan 2015 10:30

Link

hi.
1 ) i know this feature of darkbasic, but i cant find this in help files.

can u help me?

2 ) the exported object maintains the texture and features that have given the object?
ie if you link land with a tree and the tree is transparent in the resulting object maintains transparency or should I put the dbo as transparent

Back to top

Profile PM Email

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 11th Jan 2015 15:46

Link

1) Look under Basic 3D Commands...

2) Not sure what you mean regarding the DBO, but just use Set Object Transparency and cycle through the numbers until you hit a satisfactory result...

Back to top

Profile PM

pamercomov

FPSC Reloaded TGC Backer

11

Years of Service

User Offline

Joined: 2nd Jan 2015

Location: palma de mallorca

Posted: 11th Jan 2015 17:38

Link

thx Mr valentine.

Quote: "Rem ***** Included Source File *****
hide mouse:cls 0
ObjectNumber=1
SecondObject=2
make object cone ObjectNumber,10
xrotate object ObjectNumber,90
fix object pivot ObjectNumber
color object ObjectNumber,rgb(0,255,0)
position object ObjectNumber, 0,0,0
instance object SecondObject,ObjectNumber
color object SecondObject,rgb(255,0,0)
position object SecondObject,25,0,25
if file exist("mynewobject.dbo")=1 then delete file "mynewobject.dbo"
save object "objdbo\mynewobject.dbo",SecondObject
delete object ObjectNumber
delete object SecondObject

end"

is this correct code?
I find the object created by any site.

Back to top

Profile PM Email

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 12th Jan 2015 00:40 Edited at: 12th Jan 2015 00:44

Link

pamercomov, to link objects together and save them as a dbo file you need to make a mesh from the objects and add the mesh as a limb to an existing object. After a limb is added to the object the original object and mesh is no longer needed, unless you want to add more limbs from the mesh..

+ Code Snippet

ObjectNumber = 1
MeshNumber = 1

disable escapekey

sync on
sync rate 0

backdrop on
color backdrop 0

autocam off
position camera 0, 0, -50

make object cone ObjectNumber, 10
make mesh from object MeshNumber, ObjectNumber

rotate limb ObjectNumber, 0, 0, 0, 90
offset limb ObjectNumber, 0, -5, 0, 0
color limb ObjectNumber, 0, rgb(0, 255, 0)

add limb ObjectNumber, 1, MeshNumber
delete mesh MeshNumber

rotate limb ObjectNumber, 1, 0, 0, -90
offset limb ObjectNumber, 1, 5, 0, 0
color limb ObjectNumber, 1, rgb(255, 0, 0)

if path exist("objdbo") = 0
   make directory "objdbo"
endif

if file exist("objdbo\mynewobject.dbo")
   delete file "objdbo\mynewobject.dbo"
endif

save object "objdbo\mynewobject.dbo", ObjectNumber

do
   sync

   yrotate object ObjectNumber, wrapvalue(object angle Y(ObjectNumber)+1)

   if escapekey()
      exit
   endif
loop

delete object ObjectNumber

end

Back to top

Profile PM Email

pamercomov

FPSC Reloaded TGC Backer

11

Years of Service

User Offline

Joined: 2nd Jan 2015

Location: palma de mallorca

Posted: 12th Jan 2015 05:43

Link

thx wickedx, its work fine for me.
now undertand the process. thx

Back to top

Profile PM Email

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 12th Jan 2015 12:59 Edited at: 12th Jan 2015 13:01

Link

WickedX - That is some nice code, thanks for sharing it!

I made a slight modification to it, adding some timers and sync calls to see the action

ObjectNumber = 1
MeshNumber = 1

disable escapekey

sync on
sync rate 60

backdrop on
color backdrop 0

autocam off
position camera 0, 0, -50

make object cone ObjectNumber, 10
make mesh from object MeshNumber, ObjectNumber

SYNC : WAIT 1000

rotate limb ObjectNumber, 0, 0, 0, 90

SYNC : WAIT 1000

offset limb ObjectNumber, 0, -5, 0, 0

SYNC : WAIT 1000

color limb ObjectNumber, 0, rgb(0, 255, 0)

SYNC : WAIT 1000

add limb ObjectNumber, 1, MeshNumber
delete mesh MeshNumber
rotate limb ObjectNumber, 1, 0, 0, -90

SYNC : WAIT 1000

offset limb ObjectNumber, 1, 5, 0, 0

SYNC : WAIT 1000

color limb ObjectNumber, 1, rgb(255, 0, 0)

SYNC : WAIT 1000

if path exist("objdbo") = 0
   make directory "objdbo"
endif

if file exist("objdbo\mynewobject.dbo")
   delete file "objdbo\mynewobject.dbo"
endif

save object "objdbo\mynewobject.dbo", ObjectNumber

SYNC : WAIT 1000 // Pause for dramatic effect

do
   sync

yrotate object ObjectNumber, wrapvalue(object angle Y(ObjectNumber)+1)

if escapekey()
      exit
   endif
loop

delete object ObjectNumber

end

+ Code Snippet

ObjectNumber = 1
MeshNumber = 1

disable escapekey

sync on
sync rate 60

backdrop on
color backdrop 0

autocam off
position camera 0, 0, -50

make object cone ObjectNumber, 10
make mesh from object MeshNumber, ObjectNumber

SYNC : WAIT 1000

rotate limb ObjectNumber, 0, 0, 0, 90

SYNC : WAIT 1000

offset limb ObjectNumber, 0, -5, 0, 0

SYNC : WAIT 1000

color limb ObjectNumber, 0, rgb(0, 255, 0)

SYNC : WAIT 1000

add limb ObjectNumber, 1, MeshNumber
delete mesh MeshNumber
rotate limb ObjectNumber, 1, 0, 0, -90

SYNC : WAIT 1000

offset limb ObjectNumber, 1, 5, 0, 0

SYNC : WAIT 1000

color limb ObjectNumber, 1, rgb(255, 0, 0)

SYNC : WAIT 1000

if path exist("objdbo") = 0
   make directory "objdbo"
endif

if file exist("objdbo\mynewobject.dbo")
   delete file "objdbo\mynewobject.dbo"
endif

save object "objdbo\mynewobject.dbo", ObjectNumber

SYNC : WAIT 1000 // Pause for dramatic effect

do
   sync

   yrotate object ObjectNumber, wrapvalue(object angle Y(ObjectNumber)+1)

   if escapekey()
      exit
   endif
loop

delete object ObjectNumber

end

Back to top

Profile PM

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 13th Jan 2015 00:48 Edited at: 13th Jan 2015 00:54

Link

Happy to help. Unfortunately you cannot set the limbs with different transparency setting. However, you can set the objects transparency and texture the limbs separately with images that have alpha transparency settings.

@MrValentine: Thanks, your code really makes a great visualization of the process

Back to top

Profile PM Email

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 13th Jan 2015 04:21

Link

Thank you too 😊

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / I cant find the commands to link objects and exported as*.DBO