Приложение C. Описание стандартных модулей

115

на то, что курсор должен рисовать, а 0 - передвигаться без рисования. Биты от 6 до 4

определяют угол вращения, а биты от 3 до 0 - размер отсечки (0 - 1 единица, 1 - 2

единицы, ..., 15 - 16 единиц).

Параметром ROT задается вращение определенного параметром SHAPE и еще

ненарисованного изображения углом, определяемым числом от 0 до 7 (тем же

способом как при элементарных движениях).

Параметром SCALE задается увеличение (масштабирование) определенного

параметром SHAPE и еще ненарисованного изображения при помощи числа от 0 до

15 (0 означает, что изображение определенного параметром SHAPE, не будет

масштабированным, 1 - удваивается длина каждого отрезка, ..., 15 - длина отрезка

умножается 16).

procedure FreeScreen;

Действие: Освобождает занятую графическим экраном область памяти, если она была

резервированной той же самой программой, иначе ничего не делает.

function GetVmode: word;

Действие: В качестве результата возвращает слово, содержимое старшего байта

которого представляет собою видеорежим, а младшего - атрибут/палитру.

procedure LineTo(newX, newY: word);

Действие: Рисует отрезок от текущего положения курсора до точки с заданными

координатами, которые могут быть абсолютными или относительными в

зависимости от установленного процедурой SetCoordType вида.

procedure MoveTo(newX, newY: word);

Действие: Перемещает графический курсор в новое положение. Координаты могут быть

абсолютными или относительными в зависимости от установленного процедурой

SetCoordType вида.

function Ncolors: shortcard;

Действие: В качестве результата возвращает число допустимых цветов: 2 при высокой

разделительной способности, 4 при средней, 16 при низкой, 16 при цветном

текстовом экране, 2 при черно-белом текстовом экране.

procedure Point(X, Y: word);

Действие: Изображает точку, имеющую координаты X, Y. Координаты могут быть

абсолютными или относительными в зависимости от установленного процедурой

SetCoordType вида.

function RelCoord: boolean;

Действие: В качестве результата возвращает вид используемых координат: TRUE при

относительных и FALSE при абсолютных.

procedure SetCoordType(relative: boolean);

Действие: Устанавливает вид координат, которые будут использоваться другими

процедурами - абсолютные или относительные. Относителные координаты

задаются так, как будто началом координатной системы является текущая

позиция курсора. Значением TRUE параметра устанавливаются относительные

координаты, а FALSE - абсолютные.