Trying to animate an object by code using limbs.

Author

Message

mnemonic

19

Years of Service

User Offline

Joined: 14th Jan 2007

Location: Sweden

Posted: 31st Mar 2013 12:35

Link

I'm making several objects to make a character, like a minecraft character, attaching legs, arms and such using 'glue object to limb'
But it seems that I can only glue everything to one 'root' object. Since that object will control, rotation, movement etc. of all the glued objects I can just use that object to move everything, and if I want to move just the leg I can addres it using move object leg, I guess this will work fine.

This is my test code so far:

+ Code Snippet

make object box 1,0.1,1,0.1
position object 1,0,1,0
make object box 2,0.1,1,0.1
position object 2,0,-1,0
make object box 3,0.1,1,0.1
position object 3,0,-2,0

glue object to limb 2,1,0
glue object to limb 3,1,0
set limb smoothing 2,0,100

  
do

    move object left 1,0.00001
    xrotate object 2,object angle x(2) + 0.001
    control camera using arrowkeys 0,0.00001,0.001   
LOOP

This gives not a feeling of an object hierarchy, what if I want it? How can I do then, look at the attached picture.

BEST!

www.memblockgames.com

Back to top

Profile PM Email Website

Mobiius

Valued Member

23

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 31st Mar 2013 12:55

Link

There is a way to attache objects to limbs... add limb or something. I can't remember, but I'm sure the matrix1 plugins have better object limb support. As does enhanced animations and even DKshop(?) I think..

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

Andrew_Neale

16

Years of Service

User Offline

Joined: 3rd Nov 2009

Location: The Normandy SR-2

Posted: 31st Mar 2013 13:47 Edited at: 31st Mar 2013 13:48

Link

As Mobiius suggested, you'll be wanting the 'add limb' command. You'll have to use 'make mesh from object' to get the mesh from the object that will be the child limb, delete the object, then add the limb to the parent object. You can also use the 'link limb' command to set up a hierarchy. So you may have the torso object as a start. Then you get a mesh of the upper arm and add it as a limb to the torso object. The you get a mesh of the lower arm and add it as a limb to the torso object as well. At this stage the upper arm and lower arm are not linked. You the link the limbs with the upper arm limb as the parent and lower arm limb as a child.

add limb ObjectId, LimbId, MeshId
link limb ObjectId, ParentLimbId, ChildLimbId
make mesh from object MeshId, ObjectId
offset limb ObjectId, LimbId, X#, Y#, Z#

As a quick example:

rem Setup
set window on
set display mode 1024, 768, 32
disable escapeKey

rem Lock frame rate to 60
sync on
sync rate 60

rem Create the torso (base object)
make object box 1, 2, 4, 1

rem Create the upper arm mesh
make object box 2, 1, 2.5, 1
offset limb 2, 0, 1.5, -1, 0
make mesh from object 1, 2
delete object 2

rem Add the upper arm limb
add limb 1, 1, 1
delete mesh 1
offset limb 1, 1, 0, 1.75, 0

rem Create the lower arm mesh
make object box 2, 1, 2.5, 1
offset limb 2, 0, 1.5, -1, 0
make mesh from object 1, 2
delete object 2

rem Add the lower arm limb as a child to the upper arm
add limb 1, 2, 1
delete mesh 1
offset limb 1, 2, 0, -2.5, 0
link limb 1, 1, 2

rem Position camera
position camera 6, 4, -4
point camera 0, 0, 0

rem Run the main loop
while (escapeKey() = 0)

rem Animate the object
    rotate limb 1, 1, 315.0 + sin(timer() * 0.2) * 45.0, 0, 0
    rotate limb 1, 2, 315.0 + sin(timer() * 0.2) * 45.0, 0, 0

rem Update the screen
    sync

endWhile

rem Exit the application
end

+ Code Snippet

rem Setup
set window on
set display mode 1024, 768, 32
disable escapeKey

rem Lock frame rate to 60
sync on
sync rate 60

rem Create the torso (base object)
make object box 1, 2, 4, 1

rem Create the upper arm mesh
make object box 2, 1, 2.5, 1
offset limb 2, 0, 1.5, -1, 0
make mesh from object 1, 2
delete object 2

rem Add the upper arm limb
add limb 1, 1, 1
delete mesh 1
offset limb 1, 1, 0, 1.75, 0

rem Create the lower arm mesh
make object box 2, 1, 2.5, 1
offset limb 2, 0, 1.5, -1, 0
make mesh from object 1, 2
delete object 2

rem Add the lower arm limb as a child to the upper arm
add limb 1, 2, 1
delete mesh 1
offset limb 1, 2, 0, -2.5, 0
link limb 1, 1, 2

rem Position camera
position camera 6, 4, -4
point camera 0, 0, 0

rem Run the main loop
while (escapeKey() = 0)

    rem Animate the object
    rotate limb 1, 1, 315.0 + sin(timer() * 0.2) * 45.0, 0, 0
    rotate limb 1, 2, 315.0 + sin(timer() * 0.2) * 45.0, 0, 0

    rem Update the screen
    sync

endWhile

rem Exit the application
end

Previously TEH_CODERER.

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 31st Mar 2013 14:41

Link

Hi there
As Mobiius and Andrew_Neale suggested, you had better add limb instead of glue...add limb link limb and so on. Some time ago I made this animation in a challenge.

autocam off
sync on
rem robot texture
ink rgb(20,20,20),1
box 0,0,50,50
ink rgb(60,60,60),1
box 10,10,40,40
get image 1,0,0,50,50
 ink rgb(90,90,90),1
 box 0,0,50,50
 ink rgb(70,70,70),1
 box 5,5,45,45
get image 2,0,0,50,50
rem =================================================
rem      NUMBER TEXTURE
cls
ink rgb(2,2,2),1
for i= 1 to 120
ellipse 10+i,30,2,12
next i

ink rgb(255,255,255),1
for i= 1 to 115
ellipse 12+i,30,2,10
next i

ink rgb(5,5,5),0
set cursor 15,24
print " L Z H A  120 "
get image 10,8,19,132,45,1
rem suelo
make object box 500,2200,1,2200
position object 500,0,-100,0
texture object 500,2:scale object texture 500,30,30
rem -------------------------------------------------
rem      CREATING DIFFERENTS PARTS
make object box 2, 11,50,11
make object box 3, 15,35,15
position object 3,0,0,5
make object box 4,7,40,11
perform csg difference 2,3
perform csg difference 2,4
delete object 3
delete object 4
make object cylinder 3,8
scale object 3,100,550,100
scale limb texture 3,0,1,5
offset limb 3,0,0,-4,0
make mesh from object 10,3
add limb 2,1,10
delete object 3
delete mesh 10
offset limb 2,0,0,-25,5
offset limb 2,1,0,0,5
make mesh from object 1,2                      rem mesh for legs
delete object 2

make object box 2,15,5,25                      rem foot
make object box 3,25,8,55
position object 3,-18,0,15
yrotate object 3,8
perform csg difference 2,3
yrotate object 3,-8
position object 3,18,0,15
perform csg difference 2,3
delete object 3
offset limb 2,0,0,-5,-9
delete object 3
make mesh from object 2,2

make object sphere 3,10
scale object texture 3,20,20
make mesh from object 10,3                      rem mesh for leg`s balls
delete object 3
delete object 2
rem --------------------------------------------
make object 2,2,1  :scale object texture 2,2,2  rem right leg
make object 3,2,1  :scale object texture 3,2,2  rem left leg
make object sphere 4,15                         rem right leg ball
make object sphere 5,15                         rem left leg ball
color object 4,rgb(70,40,0)
color object 5,rgb(70,40,0)
rem -------------------------------------------------------------
rem   guns
for i= 1 to 12
   make object box 100+i,1,1,35
   zrotate object 100+i,i*30
   offset limb 100+i,0,2.3,0,0
   make mesh from object 100+i,100+i
   delete object 100+i
next i

make object 21,101,1
for i= 2 to 12
  add limb 21,i-1,100+i
  delete mesh 100+i
next i
scale object 21,200,200,200
scale object texture 21,2,1
make mesh from object 30,21
delete object 21

rem ------------------------------------------------------------
make object box 1,40,14,14
rem right leg
add limb 1,1,1 :link limb 1,0,1:offset limb 1,1,-14,0,-5
add limb 1,2,1:link limb 1,1,2:offset limb 1,2,0,-50,0
add limb 1,3,10:link limb 1,2,3:offset limb 1,3,0,-50,5

rem left leg
add limb 1,4,1:link limb 1,0,4:offset limb 1,4,14,0,-5
add limb 1,5,1:link limb 1,4,5:offset limb 1,5,0,-50,0
add limb 1,6,10:link limb 1,5,6:offset limb 1,6,0,-50,5

rem  body  --------------------------------------------
make object sphere 10,100
lock vertexdata for limb 10,0
    for i = 1 to 25
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#,y#+25,z#
    next i
unlock vertexdata
rem set object normals 10
scale object 10,100,50,100
scale limb texture 10,0,5,5
offset limb 10,0,0,0,-20
make mesh from object 10,10
delete object 10
rem   NUMBER --------------------------------------------
make object box 50,30,10,0
offset limb 50,0,0,0,-8
texture object 50,10
set object 50,1,1,1,1
position object 50,0,-10,-30
rem -----------------------------------------------------

add limb 1,7,10: link limb 1,0,7              rem body  (big sphere)
add limb 1,8,30:link limb 1,7,8:offset limb 1,8,-25,-25,-40 rem gun
add limb 1,9,30:link limb 1,7,9:offset limb 1,9,25,-25,-40 rem gun
texture object 1,1
scale object texture 1,2,1
rem -----------------------------------------------------------------
position camera -99,15,-147
point camera 0,0,0
cam#=45
rem  this part of code is not mine ...someone on TGC Forum
Make Memblock 1, 1000
` Make the header for the sound inside the memblock
write memblock dword 1, 0, 1 ` wFormatTag
write memblock dword 1, 4, 1 ` nChannels
write memblock dword 1, 8, 22050 ` nSamplesPerSec
write memblock dword 1, 12, 44100 ` nAvgBytesPerSec
write memblock dword 1, 16, 2 ` nBlockAlign
write memblock dword 1, 20, 16 ` wBitsPerSample
write memblock dword 1, 24, 0 ` cbSize

` write crazy random data to memblock
for i = 28 to 999
   Write Memblock Byte  1, i, rnd( 255 )

` Convert the memblock to a sound
Make Sound From Memblock 1, 1
make sound from memblock 2,1
rem --------------------------------------------------------------------------
do
position object 50,object position x(1),-10,object position z(1)
rotate object 50,limb angle x(1,0)*1.5,limb angle y(1,0)*1.5,limb angle z(1,0)*1.1
rem scroll del suelo
scll#=0.0031
scroll object texture 500,0,scll#

rem -----------------------------------------------------------------------------
rem positioning copper ball on knees and feet
position object 2,limb position x(1,3),limb position y(1,3),limb position z(1,3)
position object 3,limb position x(1,6),limb position y(1,6),limb position z(1,6)
position object 4,limb position x(1,2),limb position y(1,2),limb position z(1,2)+5
position object 5,limb position x(1,5),limb position y(1,5),limb position z(1,5)+5
`---------------------------------------------------------
`Animation
al#=al#+1  rem timer to make body go up and down (limb 7)
if al#>300 then al#=0
if al#<150 then ss#=ss#+0.6
if al#>150 then ss#=ss#-0.6
offset limb 1,7,0,20+ss#/30,0
`---------------------------------------------------------

m=m+1    rem timer for animation

if m<300 then g#=g#+0.6
if m>300 then g#=g#-0.6
if m>599 then m=0
if g#<0 then g#=0           rem stop
rem  sound effects ++++++++++++++++++++++++++++++++
set sound speed 1,1000
if m<5 then play sound 1
if m>300 and m<305 then play sound 1
loop sound 2
set sound speed 2,10000+ss#*20:set sound volume 2,90
rem ++++++++++++++++++++++++++++++++++++++++++++++++
if m>150 and m<300 then g2#=g2#+0.5
if m<150 then g2#=g2#-0.5
if m=0 then g2#=0:g3#=0

if m>450 then g3#=g3#+0.5
if m>300 and m<450 then g3#=g3#-0.5

rem ---------------------------------------------------------
vl#=-15+g#/6
vl2#=g2#/2
vl3#=g3#/2
rotate limb 1,1,-30+vl#*1.5,10,0+2-vl#/2.5-5-vl#/10   rem right leg
rotate limb 1,4,-30-vl#*1.5,-10,-2-vl#/2.5+5-vl#/10   rem left leg
rotate limb 1,2,50-vl2#*2,0,10                        rem right knee
rotate limb 1,5,50-vl3#*2,0,-10                       rem left knee

rotate limb 1,0,0,0,(g#-100)/10                       rem waist limb 0
rotate limb 1,7,ss#/10,-5+g#/10,0                     rem twist (limb 7)
rem ajusting feet rotation with feet height
u#=object position y(2)
u2#=object position y(3)
xrotate object 2,-u#*0.6-55                           rem right foot
xrotate object 3,-u2#*0.6-55                          rem left foot

rem camera controls
control camera using arrowkeys 0,0.4,0.4
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0

sync
loop

+ Code Snippet

autocam off
sync on
rem robot texture
ink rgb(20,20,20),1
box 0,0,50,50
ink rgb(60,60,60),1
box 10,10,40,40
get image 1,0,0,50,50
 ink rgb(90,90,90),1
 box 0,0,50,50
 ink rgb(70,70,70),1
 box 5,5,45,45
get image 2,0,0,50,50
rem =================================================
rem      NUMBER TEXTURE
cls
ink rgb(2,2,2),1
for i= 1 to 120
ellipse 10+i,30,2,12
next i

ink rgb(255,255,255),1
for i= 1 to 115
ellipse 12+i,30,2,10
next i

ink rgb(5,5,5),0
set cursor 15,24
print " L Z H A  120 "
get image 10,8,19,132,45,1
rem suelo
make object box 500,2200,1,2200
position object 500,0,-100,0
texture object 500,2:scale object texture 500,30,30
rem -------------------------------------------------
rem      CREATING DIFFERENTS PARTS
make object box 2, 11,50,11
make object box 3, 15,35,15
position object 3,0,0,5
make object box 4,7,40,11
perform csg difference 2,3
perform csg difference 2,4
delete object 3
delete object 4
make object cylinder 3,8
scale object 3,100,550,100
scale limb texture 3,0,1,5
offset limb 3,0,0,-4,0
make mesh from object 10,3
add limb 2,1,10
delete object 3
delete mesh 10
offset limb 2,0,0,-25,5
offset limb 2,1,0,0,5
make mesh from object 1,2                      rem mesh for legs
delete object 2

make object box 2,15,5,25                      rem foot
make object box 3,25,8,55
position object 3,-18,0,15
yrotate object 3,8
perform csg difference 2,3
yrotate object 3,-8
position object 3,18,0,15
perform csg difference 2,3
delete object 3
offset limb 2,0,0,-5,-9
delete object 3
make mesh from object 2,2

make object sphere 3,10
scale object texture 3,20,20
make mesh from object 10,3                      rem mesh for leg`s balls
delete object 3
delete object 2
rem --------------------------------------------
make object 2,2,1  :scale object texture 2,2,2  rem right leg
make object 3,2,1  :scale object texture 3,2,2  rem left leg
make object sphere 4,15                         rem right leg ball
make object sphere 5,15                         rem left leg ball
color object 4,rgb(70,40,0)
color object 5,rgb(70,40,0)
rem -------------------------------------------------------------
rem   guns
for i= 1 to 12
   make object box 100+i,1,1,35
   zrotate object 100+i,i*30
   offset limb 100+i,0,2.3,0,0
   make mesh from object 100+i,100+i
   delete object 100+i
next i

make object 21,101,1
for i= 2 to 12
  add limb 21,i-1,100+i
  delete mesh 100+i
next i
scale object 21,200,200,200
scale object texture 21,2,1
make mesh from object 30,21
delete object 21

rem ------------------------------------------------------------
make object box 1,40,14,14
rem right leg
add limb 1,1,1 :link limb 1,0,1:offset limb 1,1,-14,0,-5
add limb 1,2,1:link limb 1,1,2:offset limb 1,2,0,-50,0
add limb 1,3,10:link limb 1,2,3:offset limb 1,3,0,-50,5

rem left leg
add limb 1,4,1:link limb 1,0,4:offset limb 1,4,14,0,-5
add limb 1,5,1:link limb 1,4,5:offset limb 1,5,0,-50,0
add limb 1,6,10:link limb 1,5,6:offset limb 1,6,0,-50,5


rem  body  --------------------------------------------
make object sphere 10,100
lock vertexdata for limb 10,0
    for i = 1 to 25
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata position i,x#,y#+25,z#
    next i
unlock vertexdata
rem set object normals 10
scale object 10,100,50,100
scale limb texture 10,0,5,5
offset limb 10,0,0,0,-20
make mesh from object 10,10
delete object 10
rem   NUMBER --------------------------------------------
make object box 50,30,10,0
offset limb 50,0,0,0,-8
texture object 50,10
set object 50,1,1,1,1
position object 50,0,-10,-30
rem -----------------------------------------------------

add limb 1,7,10: link limb 1,0,7              rem body  (big sphere)
add limb 1,8,30:link limb 1,7,8:offset limb 1,8,-25,-25,-40 rem gun
add limb 1,9,30:link limb 1,7,9:offset limb 1,9,25,-25,-40 rem gun
texture object 1,1
scale object texture 1,2,1
rem -----------------------------------------------------------------
position camera -99,15,-147
point camera 0,0,0
cam#=45
rem  this part of code is not mine ...someone on TGC Forum
Make Memblock 1, 1000
` Make the header for the sound inside the memblock
write memblock dword 1, 0, 1 ` wFormatTag
write memblock dword 1, 4, 1 ` nChannels
write memblock dword 1, 8, 22050 ` nSamplesPerSec
write memblock dword 1, 12, 44100 ` nAvgBytesPerSec
write memblock dword 1, 16, 2 ` nBlockAlign
write memblock dword 1, 20, 16 ` wBitsPerSample
write memblock dword 1, 24, 0 ` cbSize

` write crazy random data to memblock
for i = 28 to 999
   Write Memblock Byte  1, i, rnd( 255 )

next

` Convert the memblock to a sound
Make Sound From Memblock 1, 1
make sound from memblock 2,1
rem --------------------------------------------------------------------------
do
position object 50,object position x(1),-10,object position z(1)
rotate object 50,limb angle x(1,0)*1.5,limb angle y(1,0)*1.5,limb angle z(1,0)*1.1
rem scroll del suelo
scll#=0.0031
scroll object texture 500,0,scll#

rem -----------------------------------------------------------------------------
rem positioning copper ball on knees and feet
position object 2,limb position x(1,3),limb position y(1,3),limb position z(1,3)
position object 3,limb position x(1,6),limb position y(1,6),limb position z(1,6)
position object 4,limb position x(1,2),limb position y(1,2),limb position z(1,2)+5
position object 5,limb position x(1,5),limb position y(1,5),limb position z(1,5)+5
`---------------------------------------------------------
`Animation
al#=al#+1  rem timer to make body go up and down (limb 7)
if al#>300 then al#=0
if al#<150 then ss#=ss#+0.6
if al#>150 then ss#=ss#-0.6
offset limb 1,7,0,20+ss#/30,0
`---------------------------------------------------------

m=m+1    rem timer for animation

if m<300 then g#=g#+0.6
if m>300 then g#=g#-0.6
if m>599 then m=0
if g#<0 then g#=0           rem stop
rem  sound effects ++++++++++++++++++++++++++++++++
set sound speed 1,1000
if m<5 then play sound 1
if m>300 and m<305 then play sound 1
loop sound 2
set sound speed 2,10000+ss#*20:set sound volume 2,90
rem ++++++++++++++++++++++++++++++++++++++++++++++++
if m>150 and m<300 then g2#=g2#+0.5
if m<150 then g2#=g2#-0.5
if m=0 then g2#=0:g3#=0

if m>450 then g3#=g3#+0.5
if m>300 and m<450 then g3#=g3#-0.5

rem ---------------------------------------------------------
vl#=-15+g#/6
vl2#=g2#/2
vl3#=g3#/2
rotate limb 1,1,-30+vl#*1.5,10,0+2-vl#/2.5-5-vl#/10   rem right leg
rotate limb 1,4,-30-vl#*1.5,-10,-2-vl#/2.5+5-vl#/10   rem left leg
rotate limb 1,2,50-vl2#*2,0,10                        rem right knee
rotate limb 1,5,50-vl3#*2,0,-10                       rem left knee

rotate limb 1,0,0,0,(g#-100)/10                       rem waist limb 0
rotate limb 1,7,ss#/10,-5+g#/10,0                     rem twist (limb 7)
rem ajusting feet rotation with feet height
u#=object position y(2)
u2#=object position y(3)
xrotate object 2,-u#*0.6-55                           rem right foot
xrotate object 3,-u2#*0.6-55                          rem left foot

rem camera controls
control camera using arrowkeys 0,0.4,0.4
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0

sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Mage

Valued Member

19

Years of Service

User Offline

Joined: 3rd Feb 2007

Location:

Posted: 2nd Apr 2013 13:38

Link

I have never needed to use the Add Limb command. It sounds useful in this case.

I have heard that adding lots of game world objects as limbs of the same object can increase rendering performance. Can anyone confirm this?

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Apr 2013 02:09

Link

Yes that is true...test it yourself...delete remstart/remend to unify all objects as limb

+ Code Snippet

autocam off
sync on

for i= 1 to 1000
  make object box i,5,5,5
  position object i,rnd(500),0,rnd(500)
next i

remstart
make object box 2000,0,0,0
for i= 1 to 1000
  make mesh from object i,i
  add limb 2000,i,i
  offset limb 2000,i,object position x(i),0,object position z(i)
  delete object i
next i
remend

position camera -50,50,-50
point camera 0,0,0
do
set cursor 0,0
print screen fps()


control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.1
if rightkey() then move camera right 0.1


sync
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

Mage

Valued Member

19

Years of Service

User Offline

Joined: 3rd Feb 2007

Location:

Posted: 3rd Apr 2013 06:01

Link

Interesting so it duplicates the object in some form, requiring the original to be deleted?
Does this mean that the objects will share the same texture too?

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 3rd Apr 2013 12:24

Link

Quote: "Does this mean that the objects will share the same texture too"

No... no automatically...we have to make our own function to get limb texture name of all new limbs that we add...

Quote: "for i= 1 to 200
if limb exist(1001,i) then name$= limb texture name(1001,i)
load image name$,i
if limb exist(1000,i+lm) then texture limb 1000,i+lm,i
next i"

It is a bit hard but works...

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Trying to animate an object by code using limbs.