114
C.3. Описание модуля UniGRAPH
динамической памяти). Если параметр FREE = FALSE, неиспользованная памят не
освободится.
function AllctScreen(free: boolean): pointer;
Действие: Резервирует необходимое количество памяти для графического экрана (8/16
килобайтов). Если уже существует графический экран, ничего не делает. При
резервировании памяти для графического экрана отведенное число байтов
обычно превосходит необходимое (с не более чем 15 байтов) из-за
выравнивание на 16-байтовой границе (это необходимо из-за аппаратной
особенности). Если параметр FREE = TRUE, неиспользуемая область
освобождается сразу для использования. Если параметр FREE = FALSE,
освобождение просходит в момент освобождения графического экрана.
function GraphSize: cardinal;
Действие: В качестве результата возвращает размер области, необходимой для
размещения графического экрана. Результат зависит от компьютера: 8
килобайтов, при Пылдине 601 и 16 при Пылдине 601А/601М.
procedure DefaultCharSet;
Действие: Восстанавливает стандартные дефиниции символов (такие, какие они были до
выполнения программы).
procedure DrawBar(X, Y: cardinal);
Действие: Рисует заполненный прямоугольник, один верх которого определяется текущим
положением курсора, а другой - заданными координатами, которые могут быть
абсолютными или относительными в зависимости от установленного процедурой
SetCoordType вида.
procedure DrawCircle(rX, rY: cardinal);
Действие: Рисует эллипс, центром которого является текущее положение курсора,
радиусом по горизонтали - rX и радиусом по вертикали - rY.
procedure DrawDisk(rX, rY: cardinal);
Действие: Рисует заполненный эллипс, центром которого является текущее положение
курсора, радиусом по горизонтали - rX и радиусом по вертикали - rY.
procedure DrawShape(var Shape; Rot, Scale: shortcard);
Действие: Выполняет заданную последовательность действий: передвижение графического
курсора без рисования и передвижение с рисованием. Изображение получается
последовательным вычерчиванием отрезка линии. Для этой цели нужно дать
указания о новом положении курсора в полярных координатах: направление и
длина отсечки от курсора до новой точки. Длина задается числами от 1 до 16 (в
расстояниях между двумя соседними логическими точками). Направление
определено движением часовой стрелки, а размер угла задается числами от 0
до 7 (в единицах по 45°). Параметром Shape определяется последовательность
из элементарных движений (передвижение или передвижение с рисованием),
необходимых для получения желанного изображения. Эти данные расположены
в N последовательных байтов. Им предшествует одно слово, содержащее это
число N. Число предполагается записанным в порядке: старшая часть, младшая
часть (в представлении чисел в UniPascal-е эти части расположены наоборот).
Каждый из следующих N байтов задает новое положение графического
курсора без или с вычерчиванием отрезка линии. Информация об этом действии
записывается в байте, как следует. Содержимое 1 7-ого бита служит указанием
<<  <  GO  >  >>

Вернуться к началу сайта