Soyez le premier à donner votre avis sur cette source.
Vue 20 083 fois - Téléchargée 1 259 fois
'La matrice est : 'Cos(Z)Cos(Y) Sin(Z)Cos(X)-Cos(Z)Sin(Y)Sin(X) Sin(Z)Sin(X)+Cos(Z)Sin(Y)Cos(X) '-Sin(Z)Cos(Y) Cos(Z)Cos(X)+Sin(Z)Sin(Y)Sin(X) Cos(Z)Sin(X)-Sin(Z)Sin(Y)Sin(X) '-Sin(Y) -Cos(Y)Sin(X) Cos(Y)Cos(X) 'Et la fonction de transformation Private Type PointType X As Double Y As Double Z As Double End Type Private Function rotate(Point As PointType, R As PointType) As PointType rotate.X = Point.X * (Cos(R.Z) * Cos(R.Y)) + Point.Y * (Sin(R.Z) * Cos(R.X) - Cos(R.Z) * Sin(R.Y) * Sin(R.X)) + Point.Z * (Sin(R.Z) * Sin(R.X) + Cos(R.Z) * Sin(R.Y) * Cos(R.X)) rotate.Y = Point.X * (-Sin(R.Z) * Cos(R.Y)) + Point.Y * (Cos(R.Z) * Cos(R.X) + Sin(R.Z) * Sin(R.Y) * Sin(R.X)) + Point.Z * (Cos(R.Z) * Sin(R.X) + Sin(R.Z) * Sin(R.Y) * Cos(R.X)) rotate.Z = Point.X * (-Sin(R.Y)) + Point.Y * (-Cos(R.Y) * Sin(R.X)) + Point.Z * (Cos(R.Y) * Cos(R.X)) End Function
30 mai 2009 à 16:18
26 févr. 2008 à 20:36
11 déc. 2005 à 00:01
10/10 ! Pourkoi noter moins ? Ce code est éxactement ce qu'indique le titre :D !
@+ !
8 juin 2005 à 17:58
voila, merci déjà pour ce petit cube qui donne super bien.
25 mai 2005 à 16:50
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.