;************************************************************************
;* [CMFAO] AME 6602 ACQUISITION DES DONNÉES SPATIALES*
;* [GRCAO] Claude Parisel*
;* Mars 1999*
;************************************************************************
; MAKE-DEFORM
; construction de la matrice de déformation
;------------------------------------------------------------------------
; b cfacteurs de déformation en X
; d fFacteurs de déformation en Y
; h iFacteurs de déformation en Z
;------------------------------------------------------------------------
(defun make-deform (b c d f h i)
  (list
    (list 1.0  b   c  0.0)
    (list  d  1.0  f  0.0)
    (list  h   i  1.0 0.0)
    (list 0.0 0.0 0.0 1.0)
  )
)
;------------------------------------------------------------------------
; Exemple:
; Command: (make-deform 1 2 3 4 5 6)
;          ((1.0 1 2 0.0) (3 1.0 4 0.0) (5 6 1.0 0.0) (0.0 0.0 0.0 1.0))
;------------------------------------------------------------------------