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