• Home
 · 
• Miscellaneous
 · 
• Rotation of points in 3D

Rotation of points in 3D

This code rotates a point around another in 3D using simple fast code. It does this using x, y, z coordinates, cosine and sine. It is 100% accurate.

Inputs
oldx oldy oldz (coordinates) angle (angle of rotation in radians)

Assumes
A good grasp of maths is a good idea

Returns
newx newy newz (new, rotated coordinates)

Side Effects
Definately no side effects

Rate Rotation of points in 3D

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

'For best results define variables as doubles
'The angle of rotation is in Radians, view this in
'your VB help file and it will tell you how to
'convert degrees into radians
'Rotation around x-axis
 newx = oldx
 newy = (sin(angle) * oldz) + (cos(angle) * oldy)
 newz = (cos(angle) * oldz) - (sin(angle) * oldy)
'Rotation around y-axis
 newx = (cos(angle) * oldx) - (sin(angle) * oldz)
 newy = oldy
 newz = (sin(angle) * oldx) + (cos(angle) * oldz)
'Rotation around z-axis
 newx = (cos(angle) * oldx) + (sin(angle) * oldy)
 newy = (cos(angle) * oldy) - (sin(angle) * oldx)
 newz = oldz
'PS - If you have any problems with
'this please either
'e-mail me at:
'[email protected] 
'or post a comment below
' -- Thank You --