media

Sem rodeios: ponto médio entre dois pontos... sim é so isso

---

; calcula o ponto médio entre dois pontos

---

(defun media (p1 p2 / x y)
  (mapcar '(lambda (x y) (/ (+ x y) 2)) p1 p2)) 

---

também uso pra caramba