Object pivot point/origin - GameCreators Forum

Author

Message

Hell IVIonkey

23

Years of Service

User Offline

Joined: 1st Apr 2003

Location: Outer Limits

Posted: 23rd Apr 2003 04:07

Link

Any way to change the center of rotation on an object (specifically a model) without remodeling it?

Back to top

Profile PM Email Website

Hell IVIonkey

23

Years of Service

User Offline

Joined: 1st Apr 2003

Location: Outer Limits

Posted: 23rd Apr 2003 21:03

Link

Guess not?

Back to top

Profile PM Email Website

Chiwawa

23

Years of Service

User Offline

Joined: 13th Oct 2002

Location: Canada

Posted: 23rd Apr 2003 23:13 Edited at: 23rd Apr 2003 23:15

Link

hmmm in fact no...but you can use some trick..

like using a little plain..of 1by1 and add a limb...to it... i mean..
or simply glue it...

ive made a 3 little demo who use this technique:

simple one:

+ Code Snippet

sync on 
make object cylinder 1,250 
scale object 1,10,100,10 
make object sphere 2,1 
glue object to limb 1,2,0 
position object 1,0,125,0 

position camera object position x(2),object position y(2),object position z(2) 
move camera -500 


do 
y=wrapvalue(y+1) 
rotate object 2,y,y,y 
sync 
loop

a little more complex:

print "Arrow key to rotate camera"
print "W A D" to move"
print "Enjoy with this little spider :)"

sync on
autocam on

dim Ax#(12)
dim Ay#(12)
dim Sens(12)
dim DistY#(6)

for i=1 to 3
   sens(i)=1
next i
for i=4 to 6
   sens(i)=-1
next i

make object sphere 99,10000
color object 99,rgb(100,0,0)
set object 99,1,1,0

create bitmap 1,1024,1024
ink rgb(100,0,0),0
box 0,0,512,512
ink rgb(0,100,0),0
box 512,0,1023,512
ink rgb(0,0,100),0
box 0,512,512,1023
ink rgb(0,0,0),0
box 512,512,1023,1023
get image 1,0,0,1024,1024
delete bitmap 1

make matrix 1,50000,50000,70,70
prepare matrix texture 1,1,1,1
fill matrix 1,0,0
update matrix 1

make object box 1,100,25,200
set object rotation ZYX 1

make object cylinder 2,12
scale object 2,100,400,100
make mesh from object 1,2
delete object 2

make object sphere 2,1
make mesh from object 2,2
delete object 2

rem sphere de rotation xz
for i=1 to 12
   add limb 1,i,2
next i
rem pattes
for i=13 to 24
   add limb 1,i,1
next i
rem spehre de rotation Y
for i=25 to 30
   add limb 1,i,2
next i

rem patte/sphere de rotation
for i=1 to 12
   link limb 1,i+12,i
next i
rem patte bas/haut
for i=7 to 12
   link limb 1,i,i-6
next i
rem sphere xz/spehre y
for i=1 to 6
   link limb 1,i,i+24
next i

rem offset patte de la sphere
for i=13 to 24
   offset limb 1,i,0,-24,0
next i
rem offset les sphere du corp (haut)
for i=1 to 3
   offset limb 1,i+24,-50,0,90-((i-1)*90)
next i
for i=4 to 6
   offset limb 1,i+24,50,0,90-((i-4)*90)
next i
rem offset les sphere du corp (bas)
for i=7 to 9
   offset limb 1,i,0,-48,0
next i
for i=10 to 12
   offset limb 1,i,0,-48,0
next i

rem pour que le Xrotate limb...rotate sur le coté
for i=1 to 6
   rotate limb 1,i+24,0,wrapvalue(sens(i)*90),0
   Ay#(i)=limb angle y(1,i+24)
next i

x#=25000
z#=25000
time#=timer()
sens1=1
do

if leftkey()=1 then cy#=wrapvalue(cy#-3)
   if rightkey()=1 then cy#=wrapvalue(cy#+3)
   if upkey()=1 then cx#=wrapvalue(cx#+3)
   if downkey()=1 then cx#=wrapvalue(cx#-3)

sens1=0

if (lower$(inkey$())="w")
      sens1=1
   endif

if (lower$(inkey$())="a")
      yrotate object 1,wrapvalue(object angle y(1)-1):sens1=1
   endif

if (lower$(inkey$())="d")
      yrotate object 1,wrapvalue(object angle y(1)+1):sens1=1
   endif

a=a+1

if sens1<>0
      for i=1 to 6
         Ay#(i)=(sin(((a*5)+(i*20))*5+(90*sens(i)*-1))*10)+(90*sens(i))
         rotate limb 1,i+24,0,wrapvalue(ay#(i)),0
      next i

for i=1 to 6
         Ax#(i)=wrapvalue((sin(((a*5)+(i*20))*5)*10)+90)
      next i

for i=1 to 6
         Ax#(i+6)=wrapvalue(-1*Ax#(i))
      next i

for i=1 to 6
         rotate limb 1,i,Ax#(i),0,0
         rotate limb 1,i+6,Ax#(i+6),0,0
      next i

x#=newxvalue(x#,object angle y(1),5*sens1)
      z#=newzvalue(z#,object angle y(1),5*sens1)
   endif

addy#=0
   for i=1 to 6
   DistY#(i)=(48*cos(Ax#(i)))+48
   if Addy#<Disty#(i):Addy#=DistY#(i):endif
   next i

set cursor 0,0
   print ax#(2)

y#=get ground height(1,x#,z#)+addy#

position object 1,X#,Y#,Z#

if (cx#>80) and (cx#<100) then cx#=80
   if (cx#<310) and (cx#>270) then cx#=310

position camera object position x(1),object position y(1),object position z(1)
   rotate camera Cx#,wrapvalue(object angle y(1)+Cy#),0
   move camera -300
   if get ground height(1,camera position x(),camera position z() )>camera position y()
      position camera camera position x(),get ground height(1,camera position x(),camera position z() )+5,camera position z()
      point camera object position x(1),object position y(1),object position z(1)
   endif

sync
loop

+ Code Snippet

print "Arrow key to rotate camera"
print "W A D" to move"
print "Enjoy with this little spider :)"

sync on
autocam on

dim Ax#(12)
dim Ay#(12)
dim Sens(12)
dim DistY#(6)

for i=1 to 3
   sens(i)=1
next i
for i=4 to 6
   sens(i)=-1
next i

make object sphere 99,10000
color object 99,rgb(100,0,0)
set object 99,1,1,0

create bitmap 1,1024,1024
ink rgb(100,0,0),0
box 0,0,512,512
ink rgb(0,100,0),0
box 512,0,1023,512
ink rgb(0,0,100),0
box 0,512,512,1023
ink rgb(0,0,0),0
box 512,512,1023,1023
get image 1,0,0,1024,1024
delete bitmap 1

make matrix 1,50000,50000,70,70
prepare matrix texture 1,1,1,1
fill matrix 1,0,0
update matrix 1

make object box 1,100,25,200
set object rotation ZYX 1

make object cylinder 2,12
scale object 2,100,400,100
make mesh from object 1,2
delete object 2

make object sphere 2,1
make mesh from object 2,2
delete object 2

rem sphere de rotation xz
for i=1 to 12
   add limb 1,i,2
next i
rem pattes
for i=13 to 24
   add limb 1,i,1
next i
rem spehre de rotation Y
for i=25 to 30
   add limb 1,i,2
next i

rem patte/sphere de rotation
for i=1 to 12
   link limb 1,i+12,i
next i
rem patte bas/haut
for i=7 to 12
   link limb 1,i,i-6
next i
rem sphere xz/spehre y
for i=1 to 6
   link limb 1,i,i+24
next i


rem offset patte de la sphere
for i=13 to 24
   offset limb 1,i,0,-24,0
next i
rem offset les sphere du corp (haut)
for i=1 to 3
   offset limb 1,i+24,-50,0,90-((i-1)*90)
next i
for i=4 to 6
   offset limb 1,i+24,50,0,90-((i-4)*90)
next i
rem offset les sphere du corp (bas)
for i=7 to 9
   offset limb 1,i,0,-48,0
next i
for i=10 to 12
   offset limb 1,i,0,-48,0
next i

rem pour que le Xrotate limb...rotate sur le coté
for i=1 to 6
   rotate limb 1,i+24,0,wrapvalue(sens(i)*90),0
   Ay#(i)=limb angle y(1,i+24)
next i

x#=25000
z#=25000
time#=timer()
sens1=1
do

   if leftkey()=1 then cy#=wrapvalue(cy#-3)
   if rightkey()=1 then cy#=wrapvalue(cy#+3)
   if upkey()=1 then cx#=wrapvalue(cx#+3)
   if downkey()=1 then cx#=wrapvalue(cx#-3)

   sens1=0

   if (lower$(inkey$())="w")
      sens1=1
   endif

   if (lower$(inkey$())="a")
      yrotate object 1,wrapvalue(object angle y(1)-1):sens1=1
   endif

   if (lower$(inkey$())="d")
      yrotate object 1,wrapvalue(object angle y(1)+1):sens1=1
   endif

   a=a+1

   if sens1<>0
      for i=1 to 6
         Ay#(i)=(sin(((a*5)+(i*20))*5+(90*sens(i)*-1))*10)+(90*sens(i))
         rotate limb 1,i+24,0,wrapvalue(ay#(i)),0
      next i

      for i=1 to 6
         Ax#(i)=wrapvalue((sin(((a*5)+(i*20))*5)*10)+90)
      next i

      for i=1 to 6
         Ax#(i+6)=wrapvalue(-1*Ax#(i))
      next i

      for i=1 to 6
         rotate limb 1,i,Ax#(i),0,0
         rotate limb 1,i+6,Ax#(i+6),0,0
      next i

      x#=newxvalue(x#,object angle y(1),5*sens1)
      z#=newzvalue(z#,object angle y(1),5*sens1)
   endif

   addy#=0
   for i=1 to 6
   DistY#(i)=(48*cos(Ax#(i)))+48
   if Addy#<Disty#(i):Addy#=DistY#(i):endif
   next i

   set cursor 0,0
   print ax#(2)


   y#=get ground height(1,x#,z#)+addy#

   position object 1,X#,Y#,Z#


   if (cx#>80) and (cx#<100) then cx#=80
   if (cx#<310) and (cx#>270) then cx#=310

   position camera object position x(1),object position y(1),object position z(1)
   rotate camera Cx#,wrapvalue(object angle y(1)+Cy#),0
   move camera -300
   if get ground height(1,camera position x(),camera position z() )>camera position y()
      position camera camera position x(),get ground height(1,camera position x(),camera position z() )+5,camera position z()
      point camera object position x(1),object position y(1),object position z(1)
   endif


   sync
loop

still more complex:

print "Arrow Key to Move"
print "Mouse to Rotate Camera"
print "LeftClick to shot"
print "Just shoot on the guy..and his limbs will fall"
wait key

set display mode 1024,768,16
backdrop off
set camera range 1,6000
sync on
sync rate 0
set camera rotation ZYX
autocam off
hide mouse

make object sphere 99,10000
color object 99,rgb(175,0,0)
set object 99,1,1,0

create bitmap 1,1024,1024
ink rgb(100,0,0),0
box 0,0,512,512
ink rgb(0,100,0),0
box 512,0,1023,512
ink rgb(0,0,100),0
box 0,512,512,1023
ink rgb(0,0,0),0
box 512,512,1023,1023
get image 1,0,0,1024,1024
delete bitmap 1

make matrix 1,50000,50000,70,70
prepare matrix texture 1,1,1,1
fill matrix 1,0,0
update matrix 1

rem corps
make object box 1,100,200,100
rem bras
make object box 2,30,100,30
make mesh from object 1,2
delete object 2
rem jambe
make object box 2,30,100,30
make mesh from object 2,2
delete object 2
rem point de rotation
make object plain 2,1,1
make mesh from object 3,2
delete object 2

rem faire un object pour le corps....pour collision
make mesh from object 4,1
make object 2,4,0
delete mesh 4
glue object to limb 2,1,0

rem adder les bras/jambe au perso
for i=1 to 4
   add limb 1,i,1
   make object i+2,1,0
   make object i+6,2,0
   set object rotation ZYX i+2
   set object rotation ZYX i+6
   glue object to limb i+2,1,i
next i
rem adder les jambes au perso
for i=1 to 4
   add limb 1,i+4,2
   glue object to limb i+6,1,i+4
next i
rem adder les point de rotation au perso
for i=9 to 16
   add limb 1,i,3
next i
rem fixer les bras/jambe aux point de rotation
for i=1 to 8
   link limb 1,i,i+8
next i
rem fixer les point de rotation aux.....membre ki les font bouger..
for i=1 to 4
   link limb 1,8+(2*i),(i*2)-1
next i
rem offsetter les bras/jambe de leur point de rotation
for i=1 to 8
   offset limb 1,i,0,-50,0
next i
rem offset les bras/jambe ...du bas ..par rapport..a leur bras/jambe du haut
for i=1 to 4
   offset limb 1,8+(i*2),0,-50,0
next i
rem POSITIONNEMENT FINAL: mettre les bras/jambe a la bonne place (en positionnant seulemnt leur point de rotation)
offset limb 1,9,-60,100,0
offset limb 1,11,60,100,0
offset limb 1,13,-40,-100,0
offset limb 1,15,40,-100,0
rem Tete
make object box 11,50,50,50
set object rotation ZYX 11
make mesh from object 4,10
add limb 1,17,4
glue object to limb 11,1,17
offset limb 1,17,0,125,0

for i=0 to 17
  hide limb 1,i
next i

rem variable...de positionnement
x#=25000
z#=24500
y#=get ground height(1,x#,z#)+425
ay#=0
ax#=0
position camera x#,y#,z#
Ex#=25000
Ez#=25000
Ey#=get ground height(1,x#,z#)+300
Eay#=0
position object 1,ex#,ey#,ez#

dim move(11)
dim vitess#(11)
dim descend(11)
Acc#=0.05

rem rotater les bras/jambe ...pour pouvoir lui couper les membres..avec précision :)
set object rotation ZYX 1

rem faire le...projectile kon va lancer
make object box 12,5,30,5
color object 12,rgb(200,0,0)
set object rotation ZYX 12
lock object on 12
xrotate object 12,90
fix object pivot 12
position object 12,0,-10,20

for i=2 to 12
   set object collision to polygons i
next i

dim couper(11)
for i=1 to 11
   couper(i)=0
next i

rem animation
clear all object keyframes 1
i=1:rotate limb 1,8+((i*3)-(3-i)),45,90,0:rotate limb 1,10+((i*3)-(3-i)),45,270,0:set object keyframe 1,0
rotate limb 1,13,45,0,0:rotate limb 1,14,315,0,0:rotate limb 1,9,45,45,0:rotate limb 1,11,315,90,0:set object keyframe 1,10
rotate limb 1,13,0,0,0:rotate limb 1,14,0,0,0:rotate limb 1,15,45,0,0:rotate limb 1,16,315,0,0:rotate limb 1,9,45,90,0:rotate limb 1,11,315,135,0:set object keyframe 1,20
rotate limb 1,15,0,0,0:rotate limb 1,16,0,0,0:rotate limb 1,13,45,0,0:rotate limb 1,14,315,0,0:rotate limb 1,9,45,45,0:rotate limb 1,11,315,90,0:set object keyframe 1,30
loop object 1,10,30

do
   if rnd(100)=10 then yrotate object 1,wrapvalue(object angle y(1)+rnd(10)-5)
   move object 1,-2

ax#=camera angle x()
   if rightkey()=1 then rotate camera 0,wrapvalue(camera angle y()+90),0:move camera 10:rotate camera ax#,wrapvalue(camera angle y()-90),0
   if leftkey()=1 then rotate camera 0,wrapvalue(camera angle y()-90),0:move camera 10:rotate camera ax#,wrapvalue(camera angle y()+90),0
   if upkey()=1 then rotate camera 0,camera angle y(),0:move camera 10:rotate camera ax#,camera angle y(),0
   if downkey()=1 then rotate camera 0,camera angle y(),0:move camera -10:rotate camera ax#,camera angle y(),0

if (mouseclick()=1) and (tire=0)
      lock object off 12
      position object 12,camera position x(),camera position y(),camera position z()
      rotate object 12,camera angle x(),camera angle y(),0
      Tire=1
      time#=timer()
   endif

if tire=1
      move object 12,30
      restore aka
      for i=2 to 11
         read limb
         read limb2
         if couper(i)=0
            unglue object i
            rotate object i,limb angle x(1,limb)+limb angle x(1,limb2)+limb angle x(1,0),limb angle y(1,limb)+limb angle y(1,limb2)+limb angle y(1,0),0
            if i=11 then rotate object i,limb angle x(1,17)+limb angle x(1,0),limb angle y(1,17)+limb angle y(1,0),0
            if (object collision(i,12)=1)
               couper(i)=1
               move(i)=1
               stop=1
            else
               rotate object i,0,0,0
               glue object to limb i,1,i-2
               if i=11 then glue object to limb 11,1,17
            endif
         endif
      next i

if sqrt((object position x(12)-camera position x() )^2+(object position y(12)-camera position y() )^2+(object position z(12)-camera position z() )^2)>=5000 then stop=1

if (object position y(12)<=0) or (stop=1)
         lock object on 12
         rotate object 12,0,0,0
         position object 12,0,-10,20
         tire=0
         stop=0
      endif
   endif

for i=2 to 11
         if (couper(i)=1) and (move(i)=1)
            vitess#=vitess#-acc#
            position object i,object position x(i),object position y(i)+vitess#,object position z(i)
            if object position y(i)<=10 then position object i,object position x(i),0,object position z(i):move(i)=0
         endif
      next i

rotate camera wrapvalue(camera angle x()+(-1*mousemovey()/2)),wrapvalue(camera angle y()+(mousemovex()/2)),0

position object 99,camera position x(),camera position y(),camera position z()

set cursor 0,0
   print "FPS=",screen fps()
   print tire
   sync
loop

aka:
data 0,17,9,17,10,9,11,17,12,11,13,17,14,13,15,17,16,15,17,17

+ Code Snippet

print "Arrow Key to Move"
print "Mouse to Rotate Camera"
print "LeftClick to shot"
print "Just shoot on the guy..and his limbs will fall"
wait key

set display mode 1024,768,16
backdrop off
set camera range 1,6000
sync on
sync rate 0
set camera rotation ZYX
autocam off
hide mouse

make object sphere 99,10000
color object 99,rgb(175,0,0)
set object 99,1,1,0

create bitmap 1,1024,1024
ink rgb(100,0,0),0
box 0,0,512,512
ink rgb(0,100,0),0
box 512,0,1023,512
ink rgb(0,0,100),0
box 0,512,512,1023
ink rgb(0,0,0),0
box 512,512,1023,1023
get image 1,0,0,1024,1024
delete bitmap 1

make matrix 1,50000,50000,70,70
prepare matrix texture 1,1,1,1
fill matrix 1,0,0
update matrix 1

rem corps
make object box 1,100,200,100
rem bras
make object box 2,30,100,30
make mesh from object 1,2
delete object 2
rem jambe
make object box 2,30,100,30
make mesh from object 2,2
delete object 2
rem point de rotation
make object plain 2,1,1
make mesh from object 3,2
delete object 2

rem faire un object pour le corps....pour collision
make mesh from object 4,1
make object 2,4,0
delete mesh 4
glue object to limb 2,1,0

rem adder les bras/jambe au perso
for i=1 to 4
   add limb 1,i,1
   make object i+2,1,0
   make object i+6,2,0
   set object rotation ZYX i+2
   set object rotation ZYX i+6
   glue object to limb i+2,1,i
next i
rem adder les jambes au perso
for i=1 to 4
   add limb 1,i+4,2
   glue object to limb i+6,1,i+4
next i
rem adder les point de rotation au perso
for i=9 to 16
   add limb 1,i,3
next i
rem fixer les bras/jambe aux point de rotation
for i=1 to 8
   link limb 1,i,i+8
next i
rem fixer les point de rotation aux.....membre ki les font bouger..
for i=1 to 4
   link limb 1,8+(2*i),(i*2)-1
next i
rem offsetter les bras/jambe de leur point de rotation
for i=1 to 8
   offset limb 1,i,0,-50,0
next i
rem offset les bras/jambe ...du bas ..par rapport..a leur bras/jambe du haut
for i=1 to 4
   offset limb 1,8+(i*2),0,-50,0
next i
rem POSITIONNEMENT FINAL: mettre les bras/jambe a la bonne place (en positionnant seulemnt leur point de rotation)
offset limb 1,9,-60,100,0
offset limb 1,11,60,100,0
offset limb 1,13,-40,-100,0
offset limb 1,15,40,-100,0
rem Tete
make object box 11,50,50,50
set object rotation ZYX 11
make mesh from object 4,10
add limb 1,17,4
glue object to limb 11,1,17
offset limb 1,17,0,125,0

for i=0 to 17
  hide limb 1,i
next i

rem variable...de positionnement
x#=25000
z#=24500
y#=get ground height(1,x#,z#)+425
ay#=0
ax#=0
position camera x#,y#,z#
Ex#=25000
Ez#=25000
Ey#=get ground height(1,x#,z#)+300
Eay#=0
position object 1,ex#,ey#,ez#

dim move(11)
dim vitess#(11)
dim descend(11)
Acc#=0.05



rem rotater les bras/jambe ...pour pouvoir lui couper les membres..avec précision :)
set object rotation ZYX 1

rem faire le...projectile kon va lancer
make object box 12,5,30,5
color object 12,rgb(200,0,0)
set object rotation ZYX 12
lock object on 12
xrotate object 12,90
fix object pivot 12
position object 12,0,-10,20

for i=2 to 12
   set object collision to polygons i
next i

dim couper(11)
for i=1 to 11
   couper(i)=0
next i

rem animation
clear all object keyframes 1
i=1:rotate limb 1,8+((i*3)-(3-i)),45,90,0:rotate limb 1,10+((i*3)-(3-i)),45,270,0:set object keyframe 1,0
rotate limb 1,13,45,0,0:rotate limb 1,14,315,0,0:rotate limb 1,9,45,45,0:rotate limb 1,11,315,90,0:set object keyframe 1,10
rotate limb 1,13,0,0,0:rotate limb 1,14,0,0,0:rotate limb 1,15,45,0,0:rotate limb 1,16,315,0,0:rotate limb 1,9,45,90,0:rotate limb 1,11,315,135,0:set object keyframe 1,20
rotate limb 1,15,0,0,0:rotate limb 1,16,0,0,0:rotate limb 1,13,45,0,0:rotate limb 1,14,315,0,0:rotate limb 1,9,45,45,0:rotate limb 1,11,315,90,0:set object keyframe 1,30
loop object 1,10,30

do
   if rnd(100)=10 then yrotate object 1,wrapvalue(object angle y(1)+rnd(10)-5)
   move object 1,-2

   ax#=camera angle x()
   if rightkey()=1 then rotate camera 0,wrapvalue(camera angle y()+90),0:move camera 10:rotate camera ax#,wrapvalue(camera angle y()-90),0
   if leftkey()=1 then rotate camera 0,wrapvalue(camera angle y()-90),0:move camera 10:rotate camera ax#,wrapvalue(camera angle y()+90),0
   if upkey()=1 then rotate camera 0,camera angle y(),0:move camera 10:rotate camera ax#,camera angle y(),0
   if downkey()=1 then rotate camera 0,camera angle y(),0:move camera -10:rotate camera ax#,camera angle y(),0

   if (mouseclick()=1) and (tire=0)
      lock object off 12
      position object 12,camera position x(),camera position y(),camera position z()
      rotate object 12,camera angle x(),camera angle y(),0
      Tire=1
      time#=timer()
   endif

   if tire=1
      move object 12,30
      restore aka
      for i=2 to 11
         read limb
         read limb2
         if couper(i)=0
            unglue object i
            rotate object i,limb angle x(1,limb)+limb angle x(1,limb2)+limb angle x(1,0),limb angle y(1,limb)+limb angle y(1,limb2)+limb angle y(1,0),0
            if i=11 then rotate object i,limb angle x(1,17)+limb angle x(1,0),limb angle y(1,17)+limb angle y(1,0),0
            if (object collision(i,12)=1)
               couper(i)=1
               move(i)=1
               stop=1
            else
               rotate object i,0,0,0
               glue object to limb i,1,i-2
               if i=11 then glue object to limb 11,1,17
            endif
         endif
      next i

      if sqrt((object position x(12)-camera position x() )^2+(object position y(12)-camera position y() )^2+(object position z(12)-camera position z() )^2)>=5000 then stop=1

      if (object position y(12)<=0) or (stop=1)
         lock object on 12
         rotate object 12,0,0,0
         position object 12,0,-10,20
         tire=0
         stop=0
      endif
   endif

      for i=2 to 11
         if (couper(i)=1) and (move(i)=1)
            vitess#=vitess#-acc#
            position object i,object position x(i),object position y(i)+vitess#,object position z(i)
            if object position y(i)<=10 then position object i,object position x(i),0,object position z(i):move(i)=0
         endif
      next i

   rotate camera wrapvalue(camera angle x()+(-1*mousemovey()/2)),wrapvalue(camera angle y()+(mousemovex()/2)),0

   position object 99,camera position x(),camera position y(),camera position z()

   set cursor 0,0
   print "FPS=",screen fps()
   print tire
   sync
loop


aka:
data 0,17,9,17,10,9,11,17,12,11,13,17,14,13,15,17,16,15,17,17

Back to top

Profile PM Email Website

arras

23

Years of Service

User Offline

Joined: 3rd Feb 2003

Location: Slovakia

Posted: 24th Apr 2003 13:34

Link

You can do it, check my walker mech post, I am doing it to make mech model.

What you need to do is to use make mesh command.
1. position model that world 0,0,0 will be where you want your new centre to be.
2. make mesh from your model using -make mesh command-
3. delete old model
4. make new model from mesh using -meke object command-
5. delete mesh if you dont need it anymore

...woalaa... your model is recentered now.
of corse you have to retexture it by -texture object command-

What Chiwawa propose is also good way, but doing so, you cant use rotation comands and collision detecting correctly in some situstions.

Back to top

Profile PM Email Website

Funky Frank

23

Years of Service

User Offline

Joined: 26th Aug 2002

Location: United Kingdom

Posted: 24th Apr 2003 13:45

Link

Hell IVIonkey:
You don't say how you came by your model.

However if you have created the model yourself, or have access to a modelling package, you can move the pivot point without having to re-model it, or lose all its textures / maps :-

The pivot point for your object is set at 0,0,0 in the modelling packages coordinate system.
So, if you can, load your model up in the modelling package, then reposition it so that your desired pivot point is at 0,0,0, and finally export it back out again.
Now when you bring the model into DB, it will pivot around your chosen pivot point.

Funky Frank

Back to top

Profile PM Website

Chiwawa

23

Years of Service

User Offline

Joined: 13th Oct 2002

Location: Canada

Posted: 24th Apr 2003 19:44

Link

wow..Arras..it really work? i did not tested it..but if it work...
OOOOOOOOO YAAAAAAAAAAAAAAA

it will me really easier...to model into DB..

thx i was really not knowing that.......

how did you discovered it?

Back to top

Profile PM Email Website

arras

23

Years of Service

User Offline

Joined: 3rd Feb 2003

Location: Slovakia

Posted: 24th Apr 2003 21:48

Link

)...of course it works, look at my mech demo again, each limb is made like that...

And hove I discovered it? Once I was posting question about that on this forum. Somebody was recomending me to offset limb n.0 of object. It sounded good but it worked only until moment I tryed to change position or angle of object, DB simple reoffseted it again, so it was not working.
Then I was just trying this and that and tryed to making mesh from object afther I offseted limb 0 and woalaa...it made the job. Dont ask me hove I got idea to do it this way, I dont know myself

Later I found out that you need not to offset limb 0 position but that it takes world 0,0,0 like centre at the moment you make mesh.

Glad to share it with you now...

Back to top

Profile PM Email Website

Hell IVIonkey

23

Years of Service

User Offline

Joined: 1st Apr 2003

Location: Outer Limits

Posted: 24th Apr 2003 23:20 Edited at: 24th Apr 2003 23:21

Link

I had a feeling it had something to do with meshes. Very cool, arras! I'll implement this soon.

Chiwawa, thank you also. Your idea seems like a good idea. I may try it also. I don't have to worry about DBC collision detection because I wrote my own math collision detection method (which, btw, is much cleaner, faster, and more precise than the DB one

).

Oh yeah, Funky Frank, I made the model myself, but I don't want to change the origin point. I need a variable origin point. In the opening scene, I want my "sky car" to rotate about the center of mass which isn't in the same spot as the absolute center. During the game, it should have an origin (as it currently does) in the mathematical center of the object.

Back to top

Profile PM Email Website

Chiwawa

23

Years of Service

User Offline

Joined: 13th Oct 2002

Location: Canada

Posted: 25th Apr 2003 01:51

Link

hmm...just try my little demo to see that it work well

and ..with what you describe... my method should be esier..i think..
just glue your "sky car" to a little plain.... and instead of rotating/moving your car..rotate/move the plain.... and when you need to change the rotation point... then just move the car...from the plain.. should be done easyly....or easily ou easili .....or something like that.....

sorry..im french

ive thinked to this trick ..... cause of the tank demo...wich ive modificated cause i was not understanding how the original formula can give..the right angle to rotation then ive made one..by myself..and it give EXACTLY the ...SAME SAME SAME result..but i cant .....understand how it can give the same thing..

original one:

+ Code Snippet

rotate object 2,wrapvalue(length#/4.0),0,wrapvalue(across#/4.0)

Mine:

+ Code Snippet

az#=wrapvalue(asin(across#/sqrt(2*110^2)))
ax#=wrapvalue(asin(length#/sqrt(2*110^2)))
rotate object 2,ax#,0,az#

i think im a little bit out of the...subjet...but in fact i found this idea (to glue the model to change his rotation point) cause i was cheking how they were able to do beautiful rotation..on the 3 axis.....and ive seen that they were using a little cone under the tank ..to fix the problem of...rotation..... XZ+Y ..i dont know if you understand what i mean..anyway ..this is not important...you got the trick..lol..

Back to top

Profile PM Email Website

Chiwawa

23

Years of Service

User Offline

Joined: 13th Oct 2002

Location: Canada

Posted: 25th Apr 2003 01:58

Link

and.....my optimizing..problem..i mean im not able to understand how the 2 "upper" formula can give the same result..can maybe resolved...

then i ask:

how they made the Sin/Cos/Tan/Asin... formulas?
.....it should be..math formula..or something....who ..give the answer.... i mean how can i make my own Sin function...
ill search in the Math library...for C++ if i can find it..but i dont know c++..but ill try to understand the code..but if you know how..the sin.. formula work... ill be happy

if you dont know ...and i cant understand the code..ill make a post on that.. thx

Back to top

Profile PM Email Website

Hell IVIonkey

23

Years of Service

User Offline

Joined: 1st Apr 2003

Location: Outer Limits

Posted: 25th Apr 2003 02:27 Edited at: 25th Apr 2003 03:38

Link

Wow!

Ok I get your point, well at least the top 10% of your point.

I didn't know much of what you were talking about by the middle if your first post, but as for SIN() and the likes, it's probably made with a pre-made table of solutions for the entire domain of sin (at least from 0 to 2pi (or 360 deg). I don't think they'd do something with complex numbers (which is how you really define sin), because that's much slower.

Back to top

Profile PM Email Website

Chiwawa

23

Years of Service

User Offline

Joined: 13th Oct 2002

Location: Canada

Posted: 25th Apr 2003 03:02

Link

anyway....what i was saying in the first..post was not important

hmmm but they ....should have a REAL BIG..list....of ..Sin cos..

Back to top

Profile PM Email Website

Hell IVIonkey

23

Years of Service

User Offline

Joined: 1st Apr 2003

Location: Outer Limits

Posted: 25th Apr 2003 03:45 Edited at: 25th Apr 2003 03:46

Link

Nor really. To get COS, just use the table from SIN and offset everything by 270deg (or -90). TAN will be just SIN/COS. For the inverse functions, just look up the value from the table and find the corresponding angle. As for hyperbolic functions, I'm not sure if there's a relationship to trig's or if they need a new table.

And remember, on the unit circle, you only need the values between 0 and 90 defined in a table since the rest of the quadrants are proportional to the first.

Back to top

Profile PM Email Website

Chiwawa

23

Years of Service

User Offline

Joined: 13th Oct 2002

Location: Canada

Posted: 25th Apr 2003 04:32

Link

yeah...ive not thinked to that..

Back to top

Profile PM Email Website

arras

23

Years of Service

User Offline

Joined: 3rd Feb 2003

Location: Slovakia

Posted: 25th Apr 2003 16:42

Link

Hey Chiwawa, when I was making movement and rotation of my ship I run to problem similar like yours may be. I needed to rotate object around y axis first. Command rotate object was not helpful because it rotated object around x (or z if you change rot. order) and then y, but I needed to turn ship on y to give general direction and then to implement wave inpact on ship on x and z axis.

First I looked at that tank demo and I find the same like you -they used smal parent object and glued main onto it. So I did the same
and rotated paretnt on y and main at x/z, but... then I started to make code for limb colision detection and I needed to know rotation of limbs -here come the problem -you cant find out real rotation of limbs and even object if its glued to something else.

I was making my own function for yxz rotation in ordr to not need of parent object, which took me more than week. Was full of sin, cos, tan functions but at the end it worked perfectly. And then I found out that:

Its simplier to use free flight rotation comands:
to totate x axis you need to pitch object
y -turn object
z -roll object

you can place comands in order you need: for yxz rotation it stays:

rotate object objectnum,0,0,0
turn object right objectnum,angle
pitch object down objectnum,angle
roll object right objectnum,angle

You should reset rotation at the begining othervise it will cumulate rotation with actual rotation, so if object is already rotated it will not give you right results.

Like this you can do what they did in tank demo without that small cone.

Back to top

Profile PM Email Website

Chiwawa

23

Years of Service

User Offline

Joined: 13th Oct 2002

Location: Canada

Posted: 25th Apr 2003 20:30

Link

hmmmm i really dont like..commande like: move object,turn object,pitch object... you know..command who do the work..for you

can i have a look to your rotating code..without glued object?
i dont need someting similar for now..but for furter developpement...
if you wont give the code..i will understand..it should be really long to acheive...next time that i make a game with car or something like that ill make my own ...xyz rotation calcul.. witout glued object...it will be a real challenge

Back to top

Profile PM Email Website

arras

23

Years of Service

User Offline

Joined: 3rd Feb 2003

Location: Slovakia

Posted: 29th Apr 2003 14:00

Link

Yes it was some work to do but you can have it if you will send me your e-mail adress and not give it to thirth person without my permition. My email should be listed in my profile.

And for commands which do work for you, -turn and pitch object do nothing else just rotate object around one axis so are the same like rotate object command, just if you use them they dont reset current rotation of object, so you can decide around which axis to rotate first.

Back to top

Profile PM Email Website

Chiwawa

23

Years of Service

User Offline

Joined: 13th Oct 2002

Location: Canada

Posted: 29th Apr 2003 18:29

Link

ok ill email you

and ..yeah turn and pitch..are..usefull...but i would know how to do it..without..then..

Back to top

Profile PM Email Website

arras

23

Years of Service

User Offline

Joined: 3rd Feb 2003

Location: Slovakia

Posted: 29th Apr 2003 19:51

Link

Its on the way

e-mail me if its not working for you
If its too quick, just change sync rate

Back to top

Profile PM Email Website

Chiwawa

23

Years of Service

User Offline

Joined: 13th Oct 2002

Location: Canada

Posted: 30th Apr 2003 00:01

Link

thx when i will have enough time to check the whole code...ill try to understand

..but im confident that ill be able to understand..

thx again

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Object pivot point/origin