Rotation autour d'un axe quelconque(suite)

On défini un axe de rotation quelconque par deux points
[ PO - Pa ] et l'ensemble qui doit subir une rotation [ P1 ]. On défini la matrice de translation de l'ensemble et de l'axe [ PO-Pa ] tel que PO soit à l'origine.

Fonction "TRANS-0.lsp"

On défini la matrice de rotation de l'angle demandé, toujours en considérant que le sens positif est le sens trigonométrique en regardant de Pa vers l'origine.

Fonction "MAKE-ROT0.lsp"

On défini la matrice de translation de retour de l'ensemble, de l'origine vers PO. Les matrices sont multipliées dans l'ordre pour obtenir une seule matrice globale. L'ensemble des opérations est assuré par:

Fonction "GET-ROT.lsp"
Fonction "MAKE-ROT.lsp"