Colors

[Tramber]

;;;(+x '(10 10) 30)
;;;(+x '(10 10 -8) -5)
 
(defun +x (ptloc val /); rajoute une valeur X à un point 
  (cond((=(length ptloc)2)(list (+ (car ptloc) val)(cadr ptloc)))
       ((=(length ptloc)3)(list (+ (car ptloc) val)(cadr ptloc)(caddr ptloc)))
       (T nil)))
 
;;;(+y '(10 10) 30)
;;;(+y (+x '(10 10 -8) -5) -5)
 
(defun +y (ptloc val /); rajoute une valeur X à un point 
  (cond((=(length ptloc)2)(list (car ptloc)(+ (cadr ptloc) val)))
       ((=(length ptloc)3)(list (car ptloc)(+ (cadr ptloc) val)(caddr ptloc)))
       (T nil)))
 
;;;(+z '(10 10) 30)
;;;(+z (+x '(10 10 -8) -5) 8)
 
(defun +z (ptloc val /); rajoute une valeur X à un point (Renvoie un point 3D systématiquement)
  (cond((=(length ptloc)2)(list (car ptloc)(cadr ptloc)val))
       ((=(length ptloc)3)(list (car ptloc)(cadr ptloc)(+ (caddr ptloc) val)))
       (T nil)))
 

 

[Edité le 26/3/2005 par Tramber]