Les fonctions: MAT-ROTY.LSP

;************************************************************************
;* [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))
;--------------------------------------------------------------------