Написать функцию, которая строит пятиконечную звезду - Lisp

Формулировка задачи:

Помогите, пожалуйста, решить задачу. Написать функцию, которая строит пятиконечную звезду.

Решение задачи: «Написать функцию, которая строит пятиконечную звезду»

Листинг программы

(defun C:Star (/ prim init t0 t1 t2 t3 t4)
 (command "._view" "_top")
 (command "._zoom" "_w" '(-1200.0 -1000.0 0.0)  '(1200.0 1200.0 0.0))
 (command "_.polygon" 5 '(0.0 0.0 0.0) "" 1000)
  (setq prim (entlast))
  (setq init (mapcar '(lambda (x) (append (cdr x) '(0.0)))
     (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget prim))))
  (setq t0 (nth 0 init)
        t1 (nth 1 init)
        t2 (nth 2 init)
        t3 (nth 3 init)
        t4 (nth 4 init))
 (command "_.color" "1")
 (command "_.pline" t0 t2 t4 t1 t3 t0 "")
 (entdel prim)
 (command "_.color" "7"))
 
Команда:
_Star

Объяснение кода листинга программы

В коде используется функция DRAW-STAR, которая строит пятиконечную звезду.

Создается новая функция с именем DRAW-STAR, которая принимает один аргумент.
В функции используется команда _view, чтобы перейти в режим рисования.
Используется команда _zoom, чтобы установить размер рисунка.
Используется команда _polygon, чтобы нарисовать пятиугольник.
В цикле используются команды _color и _pline для установки цвета и рисования линий между вершинами пятиугольника.
В конце функция удаляет пятиугольник с помощью команды _entdel.
В конце используется команда _color, чтобы установить цвет на черный. Также в коде есть несколько вспомогательных переменных, таких как PRIM, INIT, T0, T1, T2, T3 и T4, которые используются для хранения информации о пятиугольнике и его вершинах.