quite fast rotation finder,,, does that make any sense

Author

Message

Plugged

21

Years of Service

User Offline

Joined: 30th Nov 2002

Location: Hertfordshire

Posted: 12th Apr 2004 22:28

Link

heres a code i wrote for cars that control the pitch and roll according to the matrix so that your car model will never pass through the matrix very handy for hilly maps.

function rotation(object#,angY#,matrix)
rotate object object#,0,angY#,0
`frontx
store11#=newxvalue(object position x(object#),angY#,25)
`frontz
store13#=newzvalue(object position z(object#),angY#,25)
`fronty
store12#=get ground height(matrix,store11#,store1#3)
`backx
store21#=newxvalue(object position x(object#),angY#,-25)
`backz
store23#=newzvalue(object position z(object#),angY#,-25)
`backy
store22#=get ground height(matrix,store21#,store23#)
y1#=store12#
y2#=store22#
height#=sqrt((store12#-store22#)*(store12#-store22#))
tan#=50/height#
rot#=atan(tan#)
if store12#>store22# then truerot1#=wrapvalue(0-rot#)
if store22#>store12# then truerot1#=wrapvalue(0+rot#)
if store22#=store12# then truerot1#=wrapvalue(0)
pitch object up object#,wrapvalue(truerot1#-90)
`frontx
store11#=newxvalue(object position x(object#),Wrapvalue(angY#-90),15)
`frontz
store13#=newzvalue(object position z(object#),Wrapvalue(angY#-90),15)
`fronty
store12#=get ground height(matrix,store11#,store13#)
`backx
store21#=newxvalue(object position x(object#),Wrapvalue(angY#-90),-15)
`backz
store23#=newzvalue(object position z(object#),Wrapvalue(angY#-90),-15)
`backy
store22#=get ground height(matrix,store21#,store23#)
if store12#>store22#
 if y1#>y2#
  height#=sqrt((store22#-store12#)*(store22#-store12#))
  tan#=30/height#
  rot#=atan(tan#)
  truerot2#=wrapvalue(rot#+90)
  roll object right object#,Wrapvalue(truerot2#)
  turn object right object#,180
 endif
 if y1#<y2#
  height#=sqrt((store22#-store12#)*(store22#-store12#))
  tan#=30/height#
  rot#=atan(tan#)
  truerot2#=wrapvalue(rot#-90)
  roll object left object#,Wrapvalue(truerot2#)
 endif
 if y1#=y2#
  pitch object up object#,90
 endif
endif
if store22#>store12#
 if y1#>y2#
  height#=sqrt((store12#-store22#)*(store12#-store22#))
  tan#=30/height#
  rot#=atan(tan#)
  truerot2#=wrapvalue(rot#+90)
  roll object left object#,truerot2#
  turn object left object#,180
 endif
 if y1#<y2#
  height#=sqrt((store12#-store22#)*(store12#-store22#))
  tan#=30/height#
  rot#=atan(tan#)
  truerot2#=wrapvalue(rot#-90)
  roll object right object#,truerot2#
 endif
 if y1#=y2#
  pitch object up object#,90
 endif
endif
if store22#=store12#
 if y1#>y2#
  roll object right object#,180
  turn object left object#,180
 endif
 if y1#=y2#
  pitch object up object#,90
 endif
endif
endfunction

+ Code Snippet

function rotation(object#,angY#,matrix)
rotate object object#,0,angY#,0
`frontx
store11#=newxvalue(object position x(object#),angY#,25)
`frontz
store13#=newzvalue(object position z(object#),angY#,25)
`fronty
store12#=get ground height(matrix,store11#,store1#3)
`backx
store21#=newxvalue(object position x(object#),angY#,-25)
`backz
store23#=newzvalue(object position z(object#),angY#,-25)
`backy
store22#=get ground height(matrix,store21#,store23#)
y1#=store12#
y2#=store22#
height#=sqrt((store12#-store22#)*(store12#-store22#))
tan#=50/height#
rot#=atan(tan#)
if store12#>store22# then truerot1#=wrapvalue(0-rot#)
if store22#>store12# then truerot1#=wrapvalue(0+rot#)
if store22#=store12# then truerot1#=wrapvalue(0)
pitch object up object#,wrapvalue(truerot1#-90)
`frontx
store11#=newxvalue(object position x(object#),Wrapvalue(angY#-90),15)
`frontz
store13#=newzvalue(object position z(object#),Wrapvalue(angY#-90),15)
`fronty
store12#=get ground height(matrix,store11#,store13#)
`backx
store21#=newxvalue(object position x(object#),Wrapvalue(angY#-90),-15)
`backz
store23#=newzvalue(object position z(object#),Wrapvalue(angY#-90),-15)
`backy
store22#=get ground height(matrix,store21#,store23#)
if store12#>store22#
 if y1#>y2#
  height#=sqrt((store22#-store12#)*(store22#-store12#))
  tan#=30/height#
  rot#=atan(tan#)
  truerot2#=wrapvalue(rot#+90)
  roll object right object#,Wrapvalue(truerot2#)
  turn object right object#,180
 endif
 if y1#<y2#
  height#=sqrt((store22#-store12#)*(store22#-store12#))
  tan#=30/height#
  rot#=atan(tan#)
  truerot2#=wrapvalue(rot#-90)
  roll object left object#,Wrapvalue(truerot2#)
 endif
 if y1#=y2#
  pitch object up object#,90
 endif
endif
if store22#>store12#
 if y1#>y2#
  height#=sqrt((store12#-store22#)*(store12#-store22#))
  tan#=30/height#
  rot#=atan(tan#)
  truerot2#=wrapvalue(rot#+90)
  roll object left object#,truerot2#
  turn object left object#,180
 endif
 if y1#<y2#
  height#=sqrt((store12#-store22#)*(store12#-store22#))
  tan#=30/height#
  rot#=atan(tan#)
  truerot2#=wrapvalue(rot#-90)
  roll object right object#,truerot2#
 endif
 if y1#=y2#
  pitch object up object#,90
 endif
endif
if store22#=store12#
 if y1#>y2#
  roll object right object#,180
  turn object left object#,180
 endif
 if y1#=y2#
  pitch object up object#,90
 endif
endif
endfunction

enjoy (sorry tried to find a car emoty for you but of well)

Work Hard; Play Harder ;

Back to top

Profile PM Email

B1rD

20

Years of Service

User Offline

Joined: 21st Mar 2004

Location:

Posted: 26th Apr 2004 00:41

Link

Dude!

This code is owning!
I'm making a renegate type game, sould be usefull for cars, tanks etc...

I'll put ur name in the credits !

Thanks.

Back to top

Profile PM

Mussi

21

Years of Service

User Offline

Joined: 27th Jan 2003

Location: Netherlands

Posted: 28th Apr 2004 01:29

Link

A compileable demo would be nice

Specs: AMD Athlon 1800, 256 DDRRam 266mhz, 80GB HD 7200rmp U133, Geforce 4 Ti4400 128mb

Back to top

Profile PM

Balid

21

Years of Service

User Offline

Joined: 21st Nov 2003

Location: MI, USA

Posted: 30th Apr 2004 06:37

Link

Plugged,

You have just posted what I've been looking for, for two years now. I tryed other examples and tryed to make my own but it never worked right.

It looks close to some things I tryed myself. I'll let you know if it works once I try it out.

Thanks again for posting it.
Balid

(at least this lets me know that I'm working in the right direction.)

Balid

Back to top

Profile PM Email Website

Phillip

21

Years of Service

User Offline

Joined: 4th Mar 2003

Location:

Posted: 2nd May 2004 16:02

Link

I made a demo using the function. Maybe I'm doing something wrong but the fuction works for a while the my object fall under the matrix or go into the air and if i go off the left side of the matrix I get a divided by zerro error. Check out the code (DBC)

Back to top

Profile PM Email

Balid

21

Years of Service

User Offline

Joined: 21st Nov 2003

Location: MI, USA

Posted: 3rd May 2004 03:15

Link

Plugged,

I tryed your code and got some strange angles. I'm glad that it works for others.

So I'm back to the drawing board.

Balid

Balid

Back to top

Profile PM Email Website

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 8th May 2004 22:19

Link

The only way i've found to get it to work is to make the object you wish to tilt correctly the limb of another object. I can't remember if i've posted this before but here it is in a handy function with a commented demo to show you how to use it

It was basically lifted from from the tank demo in dbc, but works in Pro.

Sync On
Sync Rate 50

`Each Tilting model needs 2 objects, 1 is hidden the other is glued to it

`hidden object
Make Object Cone 1,1
Hide Object 1

`visible object(eg.tank model)
Make Object Cube 2,50
Scale Object 2,100,50,200

`glue the visible object to the hidden one
Glue Object To Limb 2,1,0

`make a matrix randomize and update
Make Matrix 1,5000,5000,10,10
Randomize Matrix 1,250
Update Matrix 1

Do

`some basic controls
`notice we move the hidden object not the visible one
If Upkey()=1 then Move Object 1,5
If Downkey()=1 then Move Object 1,-5
If Rightkey()=1 then YAng#=WrapValue(YAng#+5)
If Leftkey()=1 then YAng#=WrapValue(YAng#-5)

`get he xpos and zpos of the hidden object for the tilt function
Xpos#=Object Position X(1)
Zpos#=Object Position Z(1)

`Tilt(Matrix Number,YAngle of Hidden Object,Xpos,zpos,base(width of object))
Tilt(1,2,1,YAng#,Xpos#,Zpos#,100)

`position object above the ground so it doesn't sink
Position Object 1,Xpos#,Object Position Y(1)+12.5,Zpos#

`follow_object(object,behind,above,angle)
Follow_Object(1,250,Object Position Y(1)+100,Object Angle Y(1)-180)

Sync
Loop

Function Tilt(MatNum,Obj,LimbObj,a#,x#,z#,foot#)
   ta#=wrapvalue(a#-45)
   frontleftx#=newxvalue(x#,ta#,foot#)
   frontleftz#=newzvalue(z#,ta#,foot#)

ta#=wrapvalue(a#+45)
   frontrightx#=newxvalue(x#,ta#,foot#)
   frontrightz#=newzvalue(z#,ta#,foot#)

ta#=wrapvalue(a#+225)
   backleftx#=newxvalue(x#,ta#,foot#)
   backleftz#=newzvalue(z#,ta#,foot#)

ta#=wrapvalue(a#+135)
   backrightx#=newxvalue(x#,ta#,foot#)
   backrightz#=newzvalue(z#,ta#,foot#)

rem Calculate degree of tilting from corner heights
   frontlefth#=get ground height(MatNum,frontleftx#-mx#,frontleftz#-mz#)
   frontrighth#=get ground height(MatNum,frontrightx#-mx#,frontrightz#-mz#)

backlefth#=get ground height(MatNum,backleftx#-mx#,backleftz#-mz#)
   backrighth#=get ground height(MatNum,backrightx#-mx#,backrightz#-mz#)

across#=((frontrighth#-frontlefth#)+(backrighth#-backlefth#))/2.0
   length#=((backlefth#-frontlefth#)+(backrighth#-frontrighth#))/2.0

rem Update tank model
   h#=get ground height(MatNum,x#-mx#,z#-mz#)
   trackh#=(frontlefth#+frontrighth#+backlefth#+backrighth#)/4.0
   if trackh#>h# then h#=trackh#

position object LimbObj,x#,h#,z#
   yrotate object LimbObj,a#
   rotate object Obj,wrapvalue(length#/4.0),0,wrapvalue(across#/4.0)
EndFunction

Function Follow_Object(Obj,Behind,Above,Angle#)
   CamX=Newxvalue(object position x(Obj),Angle#,Behind)
   CamZ=Newzvalue(object position z(Obj),Angle#,Behind)
   Position Camera CamX,Above,CamZ
   Point Camera Object position x(Obj),object position y(Obj),object position z(Obj)
EndFunction

+ Code Snippet

Sync On
Sync Rate 50


`Each Tilting model needs 2 objects, 1 is hidden the other is glued to it

`hidden object
Make Object Cone 1,1
Hide Object 1

`visible object(eg.tank model)
Make Object Cube 2,50
Scale Object 2,100,50,200

`glue the visible object to the hidden one
Glue Object To Limb 2,1,0

`make a matrix randomize and update
Make Matrix 1,5000,5000,10,10
Randomize Matrix 1,250
Update Matrix 1


Do

`some basic controls
`notice we move the hidden object not the visible one
If Upkey()=1 then Move Object 1,5
If Downkey()=1 then Move Object 1,-5
If Rightkey()=1 then YAng#=WrapValue(YAng#+5)
If Leftkey()=1 then YAng#=WrapValue(YAng#-5)

`get he xpos and zpos of the hidden object for the tilt function
Xpos#=Object Position X(1)
Zpos#=Object Position Z(1)

`Tilt(Matrix Number,YAngle of Hidden Object,Xpos,zpos,base(width of object))
Tilt(1,2,1,YAng#,Xpos#,Zpos#,100)

`position object above the ground so it doesn't sink
Position Object 1,Xpos#,Object Position Y(1)+12.5,Zpos#

`follow_object(object,behind,above,angle)
Follow_Object(1,250,Object Position Y(1)+100,Object Angle Y(1)-180)

Sync
Loop

Function Tilt(MatNum,Obj,LimbObj,a#,x#,z#,foot#)
   ta#=wrapvalue(a#-45)
   frontleftx#=newxvalue(x#,ta#,foot#)
   frontleftz#=newzvalue(z#,ta#,foot#)

   ta#=wrapvalue(a#+45)
   frontrightx#=newxvalue(x#,ta#,foot#)
   frontrightz#=newzvalue(z#,ta#,foot#)

   ta#=wrapvalue(a#+225)
   backleftx#=newxvalue(x#,ta#,foot#)
   backleftz#=newzvalue(z#,ta#,foot#)

   ta#=wrapvalue(a#+135)
   backrightx#=newxvalue(x#,ta#,foot#)
   backrightz#=newzvalue(z#,ta#,foot#)

   rem Calculate degree of tilting from corner heights
   frontlefth#=get ground height(MatNum,frontleftx#-mx#,frontleftz#-mz#)
   frontrighth#=get ground height(MatNum,frontrightx#-mx#,frontrightz#-mz#)

   backlefth#=get ground height(MatNum,backleftx#-mx#,backleftz#-mz#)
   backrighth#=get ground height(MatNum,backrightx#-mx#,backrightz#-mz#)

   across#=((frontrighth#-frontlefth#)+(backrighth#-backlefth#))/2.0
   length#=((backlefth#-frontlefth#)+(backrighth#-frontrighth#))/2.0

   rem Update tank model
   h#=get ground height(MatNum,x#-mx#,z#-mz#)
   trackh#=(frontlefth#+frontrighth#+backlefth#+backrighth#)/4.0
   if trackh#>h# then h#=trackh#

   position object LimbObj,x#,h#,z#
   yrotate object LimbObj,a#
   rotate object Obj,wrapvalue(length#/4.0),0,wrapvalue(across#/4.0)
EndFunction

Function Follow_Object(Obj,Behind,Above,Angle#)
   CamX=Newxvalue(object position x(Obj),Angle#,Behind)
   CamZ=Newzvalue(object position z(Obj),Angle#,Behind)
   Position Camera CamX,Above,CamZ
   Point Camera Object position x(Obj),object position y(Obj),object position z(Obj)
EndFunction

have fun

In the beginning, the universe was created...
This made alot of people very angry and it has been widely regarded as a bad idea...
Visit http://redeye.dbspot.com

Back to top

Profile PM Email Website

Plugged

21

Years of Service

User Offline

Joined: 30th Nov 2002

Location: Hertfordshire

Posted: 11th May 2004 13:15

Link

i think a problem might be the model i used to make the code is wrong and is loaded in with a 90 degree x rotation i see what happens with a different model and i'll post the demo of the function in action

Plugged

Work Hard; Play Harder ;

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / quite fast rotation finder,,, does that make any sense