（XD::Mat:DispToMatrix）把平移加入到3X3变换矩阵

marting

1. (defun XD::Mat:DispToMatrix (mat disp)
   
2.   (cond ((and (= (length (car mat)) 3) (= (length mat) 3))
   
3.          (append (mapcar 'append mat (mapcar 'list disp))
   
4.                  '((0. 0. 0. 1.))
   
5.          )
   
6.         )
   
7.         ((and (= (length (car mat)) 4) (= (length mat) 4))
   
8.          (mapcar '(lambda(x y)(list (car x)(cadr x)(caddr x) (+ (cadddr x) y))) mat (append disp (list 0.0)))
   
9.         )
   
10.   )
    
11. )
    

(defun XD::Mat:DispToMatrix (mat disp)<br />   (cond ((and (= (length (car mat)) 3) (= (length mat) 3))<br />          (append (mapcar 'append mat (mapcar 'list disp))<br />                  '((0. 0. 0. 1.))<br />          )<br />         )<br />         ((and (= (length (car mat)) 4) (= (length mat) 4))<br />          (mapcar '(lambda(x y)(list (car x)(cadr x)(caddr x) (+ (cadddr x) y))) mat (append disp (list 0.0)))<br />         )<br />   )<br /> )<br />