---

(defun c:REALDONUT ( / old_osnap)
  (setq old_osnap (getvar "OSMODE"))
  (setvar "OSMODE" 0)

  ;; Настройка камеры и стиля
  (command "_.VPOINT" '(1 -1 1))
  (command "_.VSCURRENT" "_C")

  ;; --- 1. ЛАДОНЬ (5 пальцев, Бежевый цвет) ---
  (command "_.COLOR" "43")
  (command "_.BOX" '(-25 -30 -5) '(25 30 0)) ; Основание ладони
  (command "_.BOX" '(-25 30 -5) '(-15 55 0)) ; Мизинец
  (command "_.BOX" '(-13 30 -5) '(-3 65 0))  ; Безымянный
  (command "_.BOX" '(-1 30 -5) '(11 70 0))   ; Средний
  (command "_.BOX" '(13 30 -5) '(25 60 0))   ; Указательный
  (command "_.BOX" '(25 -10 -5) '(45 10 0))  ; Большой палец

  ;; --- 2. ПОНЧИК (Тор, Коричневый цвет теста) ---
  (command "_.COLOR" "34")
  (command "_.TORUS" '(0 0 5) 14 6)

  ;; --- 3. ГЛАЗУРЬ (Тор потоньше, сдвинут вверх, Розовый цвет) ---
  (command "_.COLOR" "211")
  (command "_.TORUS" '(0 0 7) 14 5)

  ;; --- 4. ПОСЫПКА (Разноцветные 3D-сферы) ---
  (command "_.COLOR" "1") (command "_.SPHERE" '(9 9 11.5) 1.2)
  (command "_.COLOR" "2") (command "_.SPHERE" '(-9 9 11.5) 1.2)
  (command "_.COLOR" "3") (command "_.SPHERE" '(11 -5 11.5) 1.2)
  (command "_.COLOR" "4") (command "_.SPHERE" '(-11 -5 11.5) 1.2)
  (command "_.COLOR" "5") (command "_.SPHERE" '(0 13 11.5) 1.2)
  (command "_.COLOR" "6") (command "_.SPHERE" '(0 -13 11.5) 1.2)
  (command "_.COLOR" "7") (command "_.SPHERE" '(-6 11 11.5) 1.2)
  (command "_.COLOR" "1") (command "_.SPHERE" '(5 -11 11.5) 1.2)
  (command "_.COLOR" "3") (command "_.SPHERE" '(13 4 10.5) 1.2)
  (command "_.COLOR" "4") (command "_.SPHERE" '(-13 3 10.5) 1.2)

  ;; Возврат настроек
  (command "_.COLOR" "_BYLAYER")
  (setvar "OSMODE" old_osnap)
  
  (princ "\nПончик с 5 пальцами построен! (Для полной анатомии используй импорт готовых 3D-моделей).")
  (princ)
)
(c:REALDONUT)