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



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

( return-from pause ) ) ) )

)

;;

;; Функция целочисленного деления

;;

(

defun div ( a b ) ( round ( / a b ) )

)

;;

;; Функция рисования прямой:

;; Параметры: <Direction> - направление рисования (0-7)

;; <Size> - длинна прямой

;;

(

defun Line( Direction Size )

( setq x Px y Py )

(

case Direction

( 0 ( setq x ( + x Size) ) )

( 1 ( setq x ( + x Size ) y ( - y Size ) ) )

( 2 ( setq y ( - y Size) ) )

( 3 ( setq x ( - x Size ) y ( - y Size ) ) )

( 4 ( setq x ( - x Size) ) )

( 5 ( setq x ( - x Size ) y ( + y Size ) ) )

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

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

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