Les fonctions: MAKE-TRANS0.LSP

;************************************************************************
;* [CMFAO] AME 6602 ACQUISITION DES DONNÉES SPATIALES                   *
;* [GRCAO] Claude Parisel                                               *
;* Mars 1999                                                            *
;************************************************************************
; MAKE-TRANS0
; Calcul de la matrice de translation à l'origine
;------------------------------------------------------------------------
; P  Point à transférer à l'origine
;------------------------------------------------------------------------
; RETOUR: TRANS0 matrice de translation à l'origine
;------------------------------------------------------------------------
(defun make-trans0 (p)
  (setq trans0
    (list
      (list 1.0 0.0 0.0 0.0)
      (list 0.0 1.0 0.0 0.0)
      (list 0.0 0.0 1.0 0.0)
      (list
        (- (car p))
        (- (cadr p))
        (- (caddr p))
        1.0
      )
    )
  )
)
;------------------------------------------------------------------------
; Exemple:
; Command: (make-trans0
(list 1 2 3))
;          ((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (-1 -2 -3 1.0))
;------------------------------------------------------------------------