Реферат: Разработка программы для построения кривых Серпинского i-го порядка
;; Программа построения кривых Серпинского i-го порядка.
;;
;; ЗАПУСК: > (SierpinskiCurve 4)
;;
;; Замечание: Переменная *VMode* управляет установкой видео режима,
;; и по умолчанию установлена в значение 18.
;; Эта установка соответствует режиму 640x480 Color,
;; и работает на большинстве систем. В случае проблемы
;; с установкой этого режима необходимо выбрать
;; значение этой переменной в соответствии с документацией
;; на оборудование.
;;
( defvar *VMode* 18 ) ;Видео режим по умолчанию
( defvar *MaxX* 640 ) ;Максимальная ширина экрана по умолчанию
( defvar *MaxY* 480 ) ;Максимальная высота экрана по умолчанию
( defvar *SquareSize* 256 ) ;Размер области для построения
;;
;; Функция инициализирует графический режим, устанавливает переменные
;; *MaxX* *MaxY* *SquareSize* в соответствии с выбранным режимом
;;
(
defun InitGraph()
(
case *VMode*
( 4 ;320x200 Color
( mode 4 )
( setq *MaxX* 320 *MaxY* 200 *SquareSize* 128 ) )
( 16 ;640x350 Color
( mode 16 )