Les fonctions: MAKE-REFLECT.LSP

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