Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

;; SIERPINS.LSP для XLISP версии 2.1
;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;; Программа построения кривых Серпинского 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 )

( setq *MaxX* 640 *MaxY* 350 *SquareSize* 128 ) )

( 18 ;640x480 Color

( mode 18 ) )

( 106 ;800x600 Color

( mode 106 106 800 600 )

( setq *MaxX* 800 *MaxY* 600 *SquareSize* 512 ) )

( t ( error Unsupported graphics mode: *VMode* ) )

)
)

;;
;; Функция реализует задержку на заданное время
;;
( defun pause ( time )

( let ( ( fintime ( + ( * time internal-time-units-per-second )

( get-internal-run-time ) ) ) )

( loop ( when ( > ( get-internal-run-time) fintime )

( return-from pause ) ) ) )
)

;;
;; Функция целочисленного деления
;;
( defun div ( a b ) ( round ( / a b ) )
)

;;
;; Функция рисования прямой:
;; Параметры: - направление рисования (0-7)
;; - длинна прямой
;;
( defun Line( Direction Size )

( setq x Px y Py )

Рекомендуем скачать другие рефераты по теме: сочинение евгений онегин, сочинение 6.



Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки