;************************************************************************
;* [CMFAO] AME 6602 ACQUISITION DES DONNÉES SPATIALES
*
;* [GRCAO] Claude Parisel
*
;* Mars 1999
*
;************************************************************************
; MAT-ROTY
; Construction d'une matrice de rotation autour de OY
;------------------------------------------------------------------------
; ANG Angle en degrés
; A Angle en radian
;------------------------------------------------------------------------
; RETOUR:Matrice de rotation autour de OY
;------------------------------------------------------------------------
(defun mat-roty (ang / cosa sina)
(setq a (deg2rad ang))
(cond
(
(= ang 90)
(setq cosa 0.0 sina 1.0)
)
(
(= ang 180)
(setq cosa (- 1) sina 0.0)
)
(
(= ang 270)
(setq cosa 0.0 sina (- 1.0))
)
(T
(setq cosa (cos a))
(setq sina (sin a))
)
)
;RETOUR: Matrice de rotation autour de OY
(list
(list cosa 0.0 (- sina) 0.0)
(list 0.0 1.0
0.0 0.0)
(list sina 0.0
cosa 0.0)
(list 0.0 0.0
0.0 1.0)
)
)
;--------------------------------------------------------------------
;
Exemple:
; Command: (mat-roty 30)
; ((0.866025 0.0
-0.5 0.0) (0.0 1.0 0.0 0.0) (0.5 0.0 0.866025 0.0)
; (0.0 0.0 0.0
1.0))
;--------------------------------------------------------------------
|