Blog do Neyton: get-lpt

Creio que faltou esta rotina na MJ4:

(defun get-lpt (q r pt / l n)
  (setq l nil n 1)
  (repeat q
    (setq l (append l
              (list (polar pt (/ (* n 2 pi) q) r)))
      n (1+ n)))
  l)

get-lpt (q r pt) -> gera uma lista de pontos de um poligono com (q) lados, (r) de raio e centro em (pt)