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)

Nenhum comentário:

Postar um comentário