Основы современных компьютерных технологий


Базовые процедуры и функции - часть 2


Переменная Vp относится к стандартному типу ViewPortType:

  • Туре
    • ViewPortType=RECORD
    • х1,х2, у1,у2: integer;
    • Clip: boolean

383

    • end;

Фон ("закраска") графического окна устанавливается с помощью процедур SetFillPattern и Ваг, например:

SetViewPort( 100, 50,500, 200, True);

SetFillStyle(1,3); (*выбор типа фона*)

Bar(100,50,500,200); (*формирование фона*)

В библиотеке GRAPH вывод точки осуществляется процедурой PutPixel(X, Y: integer; Colonword), где X, Y - экранные координаты расположения точки, Color - ее цвет (от 0 до 15). Для определения цвета точки в конкретной позиции экрана служит функция GetPixel(X, Y: integer): word. Из точек возможно построение линий. Это выполняет процедура Line(X7, Y1, Х2, Y2), где Х1, Y1 - координаты начала, Х2, Y2 - координаты конца линии. Например:

Line(1,1,200,1).

Для черчения линий применяются также еще две процедуры: LineTo(X, Y) и LineRel(c/X, с/У). Первая строит линию из точки текущего положения указателя в точку с координатами X, Y; а вторая проводит линию от точки текущего расположения указателя в точку СРх+dХ, СРу+dY, где СРх и СРу - текущие координаты СР. Установка стиля (тонкие, широкие, штриховые пунктирные линии и т.д.) производится процедурой SetLineStyle (LineStyle: word; Pattern: word; Thickness: word). Параметр LineStyle устанавливает тип строки, который может быть задан поименованной константой или соответствующим ей цифровым значением из табл. 27.3, Pattern -

Таблица 27.3

Тип линии

КОНСТАНТА ЗНАЧЕНИЕ ОПИСАНИЕ
SolidLn 0 Непрерывная линия
DottedLn 1 Линия из точек
CentedLn 2 Линия из точек и тире
DashedLn 3 Штриховая линия
UserLn 4 Тип пользователя

образец, Thickness - толщину линии, определяемую константами из табл. 27.4.

Таблица 27.4

Толщина линии

КОНСТАНТА ЗНАЧЕНИЕ ОПИСАНИЕ
NormWidth 1 Нормальная толщина
ThickWidth 3 Жирная линия

384

Процедура GetLineSettings(Var linelnfo: LineSettingsType) возвращает текущий стиль, образ и толщину линии, установленные SetLineStyle.


- Начало -  - Назад -  - Вперед -