[DBP] Rotate Vector3 - GameCreators Forum

Author

Message

DigitalFury

13

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 14th Sep 2010 03:55 Edited at: 22nd Sep 2010 00:53

Link

Edit: Sven B posted a function using DBP commands:

+ Code Snippet

function RotateVector3(X#, Y#, Z#, AngleX#, AngleY#, AngleZ#)
    ResultVector = 1
    TempMatrix = 2
    NULL = make vector4(ResultVector)
    NULL = make matrix4(TempMatrix)
    
    `Rotate the vector
    set vector4 ResultVector, X#, Y#, Z#, 1.0
    rotate x matrix4 TempMatrix, AngleX# / 180.0 * 3.141592654
    transform vector4 ResultVector, ResultVector, TempMatrix
    
    rotate y matrix4 TempMatrix, AngleY# / 180.0 * 3.141592654
    transform vector4 ResultVector, ResultVector, TempMatrix
    
    rotate z matrix4 TempMatrix, AngleZ# / 180.0 * 3.141592654
    transform vector4 ResultVector, ResultVector, TempMatrix
    
    delete matrix4 TempMatrix
endfunction

Edit:
This function is based on a function lib I found for matrixes. I made a working function first and now I think I might try making it work with DBP matrixes.

New Snippet:

+ Code Snippet

Function RotateVector3(X#, Y#, Z#, AngleX#, AngleY#, AngleZ#)
	ResultVector = 1
	NULL = Make Vector3(ResultVector)

	X1# = (COS(AngleZ#) * COS(AngleY#)) + (SIN(AngleZ#) * SIN(AngleX#) * SIN(AngleY#))
   	Y1# = (SIN(AngleZ#) * COS(AngleY#)) - (COS(AngleZ#) * SIN(AngleX#) * SIN(AngleY#))
   	Z1# = COS(AngleX#) * SIN(AngleY#)
   	X2# = - (SIN(AngleZ#) * COS(AngleX#))
   	Y2# = COS(AngleZ#) * COS(AngleX#)
   	Z2# = SIN(AngleX#)
   	X3# = (SIN(AngleZ#) * SIN(AngleX#) * COS(AngleY#)) - (COS(AngleZ#) * SIN(AngleY#))
   	Y3# = - (COS(AngleZ#) * SIN(AngleX#) * COS(AngleY#)) - (SIN(AngleZ#) * SIN(AngleY#))
   	Z3# = COS(AngleX#) * COS(AngleY#)
     
   	ResultX# = (X# * X1#) + (Y# * Y1#) + (Z# * Z1#)
   	ResultY# = (X# * X2#) + (Y# * Y2#) + (Z# * Z2#)
   	ResultZ# = (X# * X3#) + (Y# * Y3#) + (Z# * Z3#)
  	
	Set Vector3 ResultVector, ResultX#, ResultY#, ResultZ#
EndFunction ResultVector

End Edit

I managed to finish my RotateVector3 function, but I can't figure if I did everything correctly. Please check my algorithm and make sure I did everything correctly. I made a few assumptions on multipling a vector3 to a matrix4.

Old Snippet:

Function RotateVector3(Vector, AngleX#, AngleY#, AngleZ#)
	Matrix1 = 1
	NULL = Make Matrix4(Matrix1)
	
	Matrix2 = 2
	NULL = Make Matrix4(Matrix2)
	
	MatrixResult = 3
	NULL = Make Matrix4(MatrixResult)
		
	` X Rotate				
	Set Matrix4 Matrix1, 1, 0, 0, 0, 0, Cos(XAngle#), (0 - Sin(XAngle#)), 0, 0, Sin(XAngle#), Cos(XAngle#), 0, 0, 0, 0, 1
	
	` Y Rotate			
	Set Matrix4 Matrix2, Cos(YAngle#), 0, Sin(YAngle#), 0, 0, 1, 0, 0, (0 - Sin(YAngle#)), 0, Cos(YAngle#), 0, 0, 0, 0, 1	
				
	Multiply Matrix4 MatrixResult, Matrix1, Matrix2	
	Copy Matrix4 Matrix1, MatrixResult
					
	` Z Rotate
	Set Matrix4 Matrix2, Cos(ZAngle#), (0 - Sin(ZAngle#)), 0, 0, Sin(ZAngle#), Cos(ZAngle#), 0, 0, 0, 0, 1, 0, 0, 0, 0, 1
				
	Multiply Matrix4 MatrixResult, Matrix1, Matrix2
	Copy Matrix4 Matrix1, MatrixResult
			
	` Vector Matrix
	Set Matrix4 Matrix2, X Vector3(Vector), Y Vector3(Vector), Z Vector3(Vector), 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
				
	Multiply Matrix4 MatrixResult, Matrix1, Matrix2
	
	X# = Get Matrix4 Element(MatrixResult, 0)
	Y# = Get Matrix4 Element(MatrixResult, 1)
	Z# = Get Matrix4 Element(MatrixResult, 2)
	
	Set Vector3 Vector, X#, Y#, Z#
					
	NULL = Delete Matrix4(Matrix1)
	NULL = Delete Matrix4(Matrix2)
	NULL = Delete Matrix4(MatrixResult)
EndFunction

+ Code Snippet

Function RotateVector3(Vector, AngleX#, AngleY#, AngleZ#)
	Matrix1 = 1
	NULL = Make Matrix4(Matrix1)
	
	Matrix2 = 2
	NULL = Make Matrix4(Matrix2)
	
	MatrixResult = 3
	NULL = Make Matrix4(MatrixResult)
		
	` X Rotate				
	Set Matrix4 Matrix1, 1, 0, 0, 0, 0, Cos(XAngle#), (0 - Sin(XAngle#)), 0, 0, Sin(XAngle#), Cos(XAngle#), 0, 0, 0, 0, 1
	
	` Y Rotate			
	Set Matrix4 Matrix2, Cos(YAngle#), 0, Sin(YAngle#), 0, 0, 1, 0, 0, (0 - Sin(YAngle#)), 0, Cos(YAngle#), 0, 0, 0, 0, 1	
				
	Multiply Matrix4 MatrixResult, Matrix1, Matrix2	
	Copy Matrix4 Matrix1, MatrixResult
					
	` Z Rotate
	Set Matrix4 Matrix2, Cos(ZAngle#), (0 - Sin(ZAngle#)), 0, 0, Sin(ZAngle#), Cos(ZAngle#), 0, 0, 0, 0, 1, 0, 0, 0, 0, 1
				
	Multiply Matrix4 MatrixResult, Matrix1, Matrix2
	Copy Matrix4 Matrix1, MatrixResult
			
	` Vector Matrix
	Set Matrix4 Matrix2, X Vector3(Vector), Y Vector3(Vector), Z Vector3(Vector), 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
				
	Multiply Matrix4 MatrixResult, Matrix1, Matrix2
	
	X# = Get Matrix4 Element(MatrixResult, 0)
	Y# = Get Matrix4 Element(MatrixResult, 1)
	Z# = Get Matrix4 Element(MatrixResult, 2)
	
	Set Vector3 Vector, X#, Y#, Z#
					
	NULL = Delete Matrix4(Matrix1)
	NULL = Delete Matrix4(Matrix2)
	NULL = Delete Matrix4(MatrixResult)
EndFunction

Let me know what you think.

DigitalFury

Back to top

Profile PM Email

Neuro Fuzzy

16

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 14th Sep 2010 06:36 Edited at: 14th Sep 2010 06:58

Link

: separates two commands on the same line, not join together one command on two different lines

Also, I didn't actually know "set matrix4" existed o.O
I'll check this code. BRB.

[edit]
all your math looks correct
[edit2]
actually... not so sure... I'm pretty sure you have a right handed system there, while DBPro uses directx (which uses a left handed coordinate system).

Also, It should be noted that the command "multiply matrix" is retarded.
multiply matrix4 C, A, B
actually means
C=B*A

which is horribly retarded 'cuz matrices aren't commutative!!!

Also also (

)... I *think* that multiplying an euler rotation matrix (lets say angles a,b,c) by another euler rotation matrix (angles x,y,z) does NOT have the same rotation as a matrix angles (a+x,b+y,c+z). So... In my opinion... that makes iteratively multiplying vectors by an euler rotation matrix pretty pointless. Not so pointless is rotation about an arbitrary axis. You could read up on quaternions or matrices to learn about this, OR you could just use DBPro's commands. Something like this:

+ Code Snippet

rotAxis=3
vect=2

angle as float
null=make matrix4(1)
null=make vector3(rotAxis)
null=make vector4(vect)
null=make vector4(4)
`:::fill in the values of rotAxis and vect here; also angle.:::
`W value of vector4 vect should be 1.
build rotation axis matrix4 1,rotAxis,angle
transform vector4 4,vect,1
x#=x vector4(4)
y#=y vector4(4)
z#=z vector4(4)

null=delete matrix4(1)
null=delete vector3(2)
null=delete vector4(3)
null=delete vector4(4)

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 14th Sep 2010 12:43

Link

Quote: "I *think* that multiplying an euler rotation matrix (lets say angles a,b,c) by another euler rotation matrix (angles x,y,z) does NOT have the same rotation as a matrix angles (a+x,b+y,c+z)."

Hi there!

When multiplying another rotation matrix, the angles can only be added if the axis is the same as the previous one. Just throwing that in there that you're right on your *thinking*

.

DigitalFury,

If you're unsure about your stuff, you can compare with the commands:

+ Code Snippet

rotate X matrix4 Matrix, AngleInRadian
rotate Y matrix4 Matrix, AngleInRadian
rotate Z matrix4 Matrix, AngleInRadian

I also advise you to use transform vector4 instead of filling a matrix4 with the vector components. It leads to a deal of calculations that aren't necessary...

Cheers!
Sven B

Back to top

Profile PM Email

DigitalFury

13

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 14th Sep 2010 19:37

Link

I really wanted to get my function working with native DBP matrixes. Anyways, I finally got a working function. I didn't have any way of testing it until I finished working on a small demo. If anyone can figure out how to get it working with matrixes I might give it a go. First time working with matrixes seemed to turned out ok.

+ Code Snippet

Function RotateVector3(X#, Y#, Z#, AngleX#, AngleY#, AngleZ#)
	ResultVector = 1
	NULL = Make Vector3(ResultVector)

	X1# = (COS(AngleZ#) * COS(AngleY#)) + (SIN(AngleZ#) * SIN(AngleX#) * SIN(AngleY#))
   	Y1# = (SIN(AngleZ#) * COS(AngleY#)) - (COS(AngleZ#) * SIN(AngleX#) * SIN(AngleY#))
   	Z1# = COS(AngleX#) * SIN(AngleY#)
   	X2# = - (SIN(AngleZ#) * COS(AngleX#))
   	Y2# = COS(AngleZ#) * COS(AngleX#)
   	Z2# = SIN(AngleX#)
   	X3# = (SIN(AngleZ#) * SIN(AngleX#) * COS(AngleY#)) - (COS(AngleZ#) * SIN(AngleY#))
   	Y3# = - (COS(AngleZ#) * SIN(AngleX#) * COS(AngleY#)) - (SIN(AngleZ#) * SIN(AngleY#))
   	Z3# = COS(AngleX#) * COS(AngleY#)
     
   	ResultX# = (X# * X1#) + (Y# * Y1#) + (Z# * Z1#)
   	ResultY# = (X# * X2#) + (Y# * Y2#) + (Z# * Z2#)
   	ResultZ# = (X# * X3#) + (Y# * Y3#) + (Z# * Z3#)
  	
	Set Vector3 ResultVector, ResultX#, ResultY#, ResultZ#
EndFunction ResultVector

Back to top

Profile PM Email

DigitalFury

13

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 14th Sep 2010 20:05 Edited at: 14th Sep 2010 20:12

Link

I played around with matrixes again and I still can't get it to work.

Function RotateVector3(X#, Y#, Z#, AngleX#, AngleY#, AngleZ#)
	ResultVector = 1
	NULL = Make Vector4(ResultVector)
	
	VectorSource = 2
	NULL = Make Vector4(VectorSource)
	
	RotationMatrix = 3
	NULL = Make Matrix4(RotationMatrix)
	
	Matrix1 = 4
	NULL = Make Matrix4(Matrix1)
	
	Matrix2 = 5
	NULL = Make Matrix4(Matrix2)
	
	` Set The Source Vector
	Set Vector4 VectorSource, X#, Y#, Z#, 1.0

` X Rotate				
	Set Matrix4 Matrix1, 1, 0, 0, 0, 0, Cos(XAngle#), (0 - Sin(XAngle#)), 0, 0, Sin(XAngle#), Cos(XAngle#), 0, 0, 0, 0, 1
	
	` Y Rotate			
	Set Matrix4 Matrix2, Cos(YAngle#), 0, Sin(YAngle#), 0, 0, 1, 0, 0, (0 - Sin(YAngle#)), 0, Cos(YAngle#), 0, 0, 0, 0, 1	
				
	Multiply Matrix4 RotationMatrix, Matrix1, Matrix2	
	Copy Matrix4 Matrix1, RotationMatrix
					
	` Z Rotate
	Set Matrix4 Matrix2, Cos(ZAngle#), (0 - Sin(ZAngle#)), 0, 0, Sin(ZAngle#), Cos(ZAngle#), 0, 0, 0, 0, 1, 0, 0, 0, 0, 1
	
	` The Result is Rotation Matrix
	Multiply Matrix4 RotationMatrix, Matrix1, Matrix2		
	
	` Apply the rotation matrix
	Transform Vector4 ResultVector, VectorSource, RotationMatrix
	
   	NULL = Delete Matrix4(RotationMatrix)
   	NULL = Delete Matrix4(Matrix1)
   	NULL = Delete Matrix4(Matrix2)
   	
   	NULL = Delete Vector3(VectorSource)
EndFunction ResultVector

+ Code Snippet

Function RotateVector3(X#, Y#, Z#, AngleX#, AngleY#, AngleZ#)
	ResultVector = 1
	NULL = Make Vector4(ResultVector)
	
	VectorSource = 2
	NULL = Make Vector4(VectorSource)
	
	RotationMatrix = 3
	NULL = Make Matrix4(RotationMatrix)
	
	Matrix1 = 4
	NULL = Make Matrix4(Matrix1)
	
	Matrix2 = 5
	NULL = Make Matrix4(Matrix2)
	
	` Set The Source Vector
	Set Vector4 VectorSource, X#, Y#, Z#, 1.0

	` X Rotate				
	Set Matrix4 Matrix1, 1, 0, 0, 0, 0, Cos(XAngle#), (0 - Sin(XAngle#)), 0, 0, Sin(XAngle#), Cos(XAngle#), 0, 0, 0, 0, 1
	
	` Y Rotate			
	Set Matrix4 Matrix2, Cos(YAngle#), 0, Sin(YAngle#), 0, 0, 1, 0, 0, (0 - Sin(YAngle#)), 0, Cos(YAngle#), 0, 0, 0, 0, 1	
				
	Multiply Matrix4 RotationMatrix, Matrix1, Matrix2	
	Copy Matrix4 Matrix1, RotationMatrix
					
	` Z Rotate
	Set Matrix4 Matrix2, Cos(ZAngle#), (0 - Sin(ZAngle#)), 0, 0, Sin(ZAngle#), Cos(ZAngle#), 0, 0, 0, 0, 1, 0, 0, 0, 0, 1
	
	` The Result is Rotation Matrix
	Multiply Matrix4 RotationMatrix, Matrix1, Matrix2		
	
	` Apply the rotation matrix
	Transform Vector4 ResultVector, VectorSource, RotationMatrix
	
   	NULL = Delete Matrix4(RotationMatrix)
   	NULL = Delete Matrix4(Matrix1)
   	NULL = Delete Matrix4(Matrix2)
   	
   	NULL = Delete Vector3(VectorSource)
EndFunction ResultVector

Edit:
Took the rotation matrix from the working example and it seemed to work. I think my math might be off somewhere in the rotation matrix. It almost makes matrixes un-necessary.

Function RotateVector3(X#, Y#, Z#, AngleX#, AngleY#, AngleZ#)
	ResultVector = 1
	NULL = Make Vector4(ResultVector)
	
	VectorSource = 2
	NULL = Make Vector4(VectorSource)
	
	RotationMatrix = 3
	NULL = Make Matrix4(RotationMatrix)
	
	`Matrix1 = 4
	`NULL = Make Matrix4(Matrix1)
	
	`Matrix2 = 5
	`NULL = Make Matrix4(Matrix2)
	
	` Set The Source Vector
	Set Vector4 VectorSource, X#, Y#, Z#, 1.0

` X Rotate				
	`Set Matrix4 Matrix1, 1, 0, 0, 0, 0, Cos(XAngle#), (0 - Sin(XAngle#)), 0, 0, Sin(XAngle#), Cos(XAngle#), 0, 0, 0, 0, 1
	
	` Y Rotate			
	`Set Matrix4 Matrix2, Cos(YAngle#), 0, Sin(YAngle#), 0, 0, 1, 0, 0, (0 - Sin(YAngle#)), 0, Cos(YAngle#), 0, 0, 0, 0, 1	
				
	`Multiply Matrix4 RotationMatrix, Matrix1, Matrix2	
	`Copy Matrix4 Matrix1, RotationMatrix
					
	` Z Rotate
	`Set Matrix4 Matrix2, Cos(ZAngle#), (0 - Sin(ZAngle#)), 0, 0, Sin(ZAngle#), Cos(ZAngle#), 0, 0, 0, 0, 1, 0, 0, 0, 0, 1
	
	` The Result is Rotation Matrix
	`Multiply Matrix4 RotationMatrix, Matrix1, Matrix2		
	
	X1# = (COS(AngleZ#) * COS(AngleY#)) + (SIN(AngleZ#) * SIN(AngleX#) * SIN(AngleY#))
   	Y1# = (SIN(AngleZ#) * COS(AngleY#)) - (COS(AngleZ#) * SIN(AngleX#) * SIN(AngleY#))
   	Z1# = COS(AngleX#) * SIN(AngleY#)
   	X2# = - (SIN(AngleZ#) * COS(AngleX#))
   	Y2# = COS(AngleZ#) * COS(AngleX#)
   	Z2# = SIN(AngleX#)
   	X3# = (SIN(AngleZ#) * SIN(AngleX#) * COS(AngleY#)) - (COS(AngleZ#) * SIN(AngleY#))
   	Y3# = - (COS(AngleZ#) * SIN(AngleX#) * COS(AngleY#)) - (SIN(AngleZ#) * SIN(AngleY#))
   	Z3# = COS(AngleX#) * COS(AngleY#)
	
	Set Matrix4 RotationMatrix, X1#, X2#, X3#, 0, Y1#, Y2#, Z3#, 0, Z1#, Z2#, Z3#, 0, 0, 0, 0, 1.0
		
	` Apply the rotation matrix
	Transform Vector4 ResultVector, VectorSource, RotationMatrix
	
   	NULL = Delete Matrix4(RotationMatrix)
   	`NULL = Delete Matrix4(Matrix1)
   	`NULL = Delete Matrix4(Matrix2)
   	
   	NULL = Delete Vector3(VectorSource)
EndFunction ResultVector

+ Code Snippet

Function RotateVector3(X#, Y#, Z#, AngleX#, AngleY#, AngleZ#)
	ResultVector = 1
	NULL = Make Vector4(ResultVector)
	
	VectorSource = 2
	NULL = Make Vector4(VectorSource)
	
	RotationMatrix = 3
	NULL = Make Matrix4(RotationMatrix)
	
	`Matrix1 = 4
	`NULL = Make Matrix4(Matrix1)
	
	`Matrix2 = 5
	`NULL = Make Matrix4(Matrix2)
	
	` Set The Source Vector
	Set Vector4 VectorSource, X#, Y#, Z#, 1.0

	` X Rotate				
	`Set Matrix4 Matrix1, 1, 0, 0, 0, 0, Cos(XAngle#), (0 - Sin(XAngle#)), 0, 0, Sin(XAngle#), Cos(XAngle#), 0, 0, 0, 0, 1
	
	` Y Rotate			
	`Set Matrix4 Matrix2, Cos(YAngle#), 0, Sin(YAngle#), 0, 0, 1, 0, 0, (0 - Sin(YAngle#)), 0, Cos(YAngle#), 0, 0, 0, 0, 1	
				
	`Multiply Matrix4 RotationMatrix, Matrix1, Matrix2	
	`Copy Matrix4 Matrix1, RotationMatrix
					
	` Z Rotate
	`Set Matrix4 Matrix2, Cos(ZAngle#), (0 - Sin(ZAngle#)), 0, 0, Sin(ZAngle#), Cos(ZAngle#), 0, 0, 0, 0, 1, 0, 0, 0, 0, 1
	
	` The Result is Rotation Matrix
	`Multiply Matrix4 RotationMatrix, Matrix1, Matrix2		
	
	X1# = (COS(AngleZ#) * COS(AngleY#)) + (SIN(AngleZ#) * SIN(AngleX#) * SIN(AngleY#))
   	Y1# = (SIN(AngleZ#) * COS(AngleY#)) - (COS(AngleZ#) * SIN(AngleX#) * SIN(AngleY#))
   	Z1# = COS(AngleX#) * SIN(AngleY#)
   	X2# = - (SIN(AngleZ#) * COS(AngleX#))
   	Y2# = COS(AngleZ#) * COS(AngleX#)
   	Z2# = SIN(AngleX#)
   	X3# = (SIN(AngleZ#) * SIN(AngleX#) * COS(AngleY#)) - (COS(AngleZ#) * SIN(AngleY#))
   	Y3# = - (COS(AngleZ#) * SIN(AngleX#) * COS(AngleY#)) - (SIN(AngleZ#) * SIN(AngleY#))
   	Z3# = COS(AngleX#) * COS(AngleY#)
	
	Set Matrix4 RotationMatrix, X1#, X2#, X3#, 0, Y1#, Y2#, Z3#, 0, Z1#, Z2#, Z3#, 0, 0, 0, 0, 1.0
		
	` Apply the rotation matrix
	Transform Vector4 ResultVector, VectorSource, RotationMatrix
	
   	NULL = Delete Matrix4(RotationMatrix)
   	`NULL = Delete Matrix4(Matrix1)
   	`NULL = Delete Matrix4(Matrix2)
   	
   	NULL = Delete Vector3(VectorSource)
EndFunction ResultVector

Back to top

Profile PM Email

Neuro Fuzzy

16

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 15th Sep 2010 04:12

Link

I think you skipped over what I said. What you have is NOT a left-handed matrix. I haven't worked with right-handed matrix, but in a left handed coordinate system:
z*y*x (where each matrix is a rotation around its corresponding axis)
=

Very different from what you had. You should be doing:
Z*Y*X*ColumnVector

The commands sphenB posted build a matrix that rotates a vector around an axis, so build those three matrices, multiply them together (multiply matrix4 result,a,b is saying result=b*a), and then transform your vector.

Back to top

Profile PM Email

DigitalFury

13

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 15th Sep 2010 04:52

Link

@ Neuro Fuzzy - Was trying to figure what u mean.

Quote: "What you have is NOT a left-handed matrix"

I am quite new to matrixes and tried applying what I was able to pick up off the forums. I will try to give it a shot tomorrow. I have been working on another demo all day.

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 15th Sep 2010 21:46

Link

Quote: "sphenB"

Lol... sorry

Back to top

Profile PM Email

DigitalFury

13

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 21st Sep 2010 05:24

Link

I'm not to good with matrix multiplication.

How would I duplicate this function using dbp matrixes? (Multiplying X, Y, Z Rotation Matrixes)

+ Code Snippet

Function RotateVector3(X#, Y#, Z#, AngleX#, AngleY#, AngleZ#)
	ResultVector = 1
	NULL = Make Vector3(ResultVector)

	X1# = (COS(AngleZ#) * COS(AngleY#)) + (SIN(AngleZ#) * SIN(AngleX#) * SIN(AngleY#))
   	Y1# = (SIN(AngleZ#) * COS(AngleY#)) - (COS(AngleZ#) * SIN(AngleX#) * SIN(AngleY#))
   	Z1# = COS(AngleX#) * SIN(AngleY#)
   	X2# = - (SIN(AngleZ#) * COS(AngleX#))
   	Y2# = COS(AngleZ#) * COS(AngleX#)
   	Z2# = SIN(AngleX#)
   	X3# = (SIN(AngleZ#) * SIN(AngleX#) * COS(AngleY#)) - (COS(AngleZ#) * SIN(AngleY#))
   	Y3# = - (COS(AngleZ#) * SIN(AngleX#) * COS(AngleY#)) - (SIN(AngleZ#) * SIN(AngleY#))
   	Z3# = COS(AngleX#) * COS(AngleY#)
     
   	ResultX# = (X# * X1#) + (Y# * Y1#) + (Z# * Z1#)
   	ResultY# = (X# * X2#) + (Y# * Y2#) + (Z# * Z2#)
   	ResultZ# = (X# * X3#) + (Y# * Y3#) + (Z# * Z3#)
  	
	Set Vector3 ResultVector, ResultX#, ResultY#, ResultZ#
EndFunction ResultVector

Thanks

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 21st Sep 2010 23:32 Edited at: 21st Sep 2010 23:32

Link

+ Code Snippet

function RotateVector3(X#, Y#, Z#, AngleX#, AngleY#, AngleZ#)
    ResultVector = 1
    TempMatrix = 2
    NULL = make vector4(ResultVector)
    NULL = make matrix4(TempMatrix)
    
    `Rotate the vector
    set vector4 ResultVector, X#, Y#, Z#, 1.0
    rotate x matrix4 TempMatrix, AngleX# / 180.0 * 3.141592654
    transform vector4 ResultVector, ResultVector, TempMatrix
    
    rotate y matrix4 TempMatrix, AngleY# / 180.0 * 3.141592654
    transform vector4 ResultVector, ResultVector, TempMatrix
    
    rotate z matrix4 TempMatrix, AngleZ# / 180.0 * 3.141592654
    transform vector4 ResultVector, ResultVector, TempMatrix
    
    delete matrix4 TempMatrix
endfunction

The end result will be stored in a 4D vector, but you can just ignore the last component of the vector.

Cheers!
Sven B

Back to top

Profile PM Email

DigitalFury

13

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 22nd Sep 2010 00:52 Edited at: 22nd Sep 2010 00:55

Link

@Sven B - Nice. Didn't know you could get the rotation matrixes and then just transform the vector to get the result. Thanks.

Only thing I don't understand is: Why do you need: 180.0 * 3.141592654?

Thanks again

Back to top

Profile PM Email

Neuro Fuzzy

16

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 22nd Sep 2010 02:54

Link

The DBPro rotation matrix commands use radians
degrees*pi/180=radians

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / [DBP] Rotate Vector3