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



Базовые процедуры и функции - часть 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.


    Содержание  Назад  Вперед