;************************************************************************
;* [CMFAO] AME 6602 ACQUISITION DES DONNÉES SPATIALES
*
;* [GRCAO] Claude Parisel
*
;* Mars 1999
*
;************************************************************************
; MAKE-REFLECT
; construction d'une matrice de réflexion
;------------------------------------------------------------------------
; V Liste des valeurs diagonales de la matrice (1 ou -1)
;------------------------------------------------------------------------
(defun make-reflect (v)
(list
(list (nth 0 v) 0.0 0.0 0.0)
(list 0.0 (nth 1 v) 0.0 0.0)
(list 0.0 0.0 (nth 2 v) 0.0)
(list 0.0 0.0 0.0 (nth 3 v))
)
)
;------------------------------------------------------------------------
;
Exemple:
; Command: (make-reflect
(list 1.0 -1.0 1.0 1.0))
; ((1.0 0.0 0.0
0.0) (0.0 -1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))
;------------------------------------------------------------------------
|