All pastes #886434 Raw Edit

Anonymous

public text v1 · immutable
#886434 ·published 2008-01-31 17:52 UTC
rendered paste body
(defun midpoint (pt1 pt2 cx cy cz /)
(list 
	(+ (/ (+ (car pt1) (car pt2)) 2) cx) 
	(+ (/ (+ (cadr pt1) (cadr pt2)) 2) cy) 
	(+ (/ (+ (caddr pt1) (caddr pt2)) 2)) cz)
)