Семакин И.Г., Шестаков А.П. Основы программирования

Подождите немного. Документ загружается.

Таблица П2.4. Коды линий

Имя

Значение

Назначение

Коды

типов линий (для

процедуры

SetLineStyle.)

SolidLn

DottedLn

CenterLn

DashedLn

UserBitLn

NormWidth

ThickWidth

Сплошная

Пунктирная

Штрихпунктирная

Штриховая

Заданная пользователем

Коды толщины линии

Нормальная

Толстая

Таблица П2.5. Константы орнамента заполнения

(для процедуры SetFillStyle)

Имя

EmptyFill

SolidFill

LineFill

LtSlashFill

SlashFill

BkSlashFill

LtBkSlashFill

HatchFill

XHatchFill

InterleaveFill

WideDotFill

CloseDotFill

UserFill

Значение

Назначение

Заполнение цветом фона

Однородное заполнение цветом

Заполнение

—

Заполнение///

Заполнение /// толстыми линиями

Заполнение \\\толстыми линиями

Заполнение\\\

Заполнение клеткой

Заполнение косой клеткой

Заполнение частой клеткой

Заполнение редкими точками

Заполнение частыми точками

Определяется пользователем

400

Таблица П2.6. Процедуры и функции

Интерфейс Назначение

Управление графическим режимом

Procedure CloseGraph;

Procedure DetectGraph (var grDriver,

grMode: integer);

GrDriver

—

код драйвера, grMode

—

код

графического режима

Function GetDriverName: string;

Значение функции

—

имя используемого

драйвера

Function GetGraphMode

integer;

Значение функции

—

код графического

режима

Function GetMaxName: integer;

Значение функции

—

имя используемого

графического режима

Function GetMaxMode: integer;

Значение функции

—

максимальное

значение кода режима

Procedure GetModeRange (grDriver:

integer: var LoMode, HiMode:

integer);

GrDriver

—

код графического режима;

LoMode, HiMode—наименьшее и

наибольшее значение кода графического

режима для данного драйвера

Procedure GraphDefaults;

Function GraphErrorMsg (ErrorCode:

integer): string;

ErrorCode

—

код графической ошибки.

Значение функции

—

текстовое сообщение

о характере ошибки

Function GraphResult: integer;

Значение функции

—

код ошибки

Закрывает графический

режим

Определяет рекомен-

дуемые к применению

для данного компью-

тера графические

драйвер и режим

Определяет имя файла

с используемым

графическим драйвером

Определяет код исполь-

зуемого графического

режима

Определяет имя

используемого

графического режима

Определяет максималь-

ное значение кода гра-

фического режима для

используемого драйвера

Определяет минималь-

ное и максимальное

значение кода гра-

фического режима для

указанного при обра-

щении драйвера

Устанавливает гра-

фический указатель в

начало координат и

переустанавливает

графическую систему

Выдает строку

—

сооб-

щение об ошибке гра-

фического режима по

коду ошибки

Определяет, произошла

ли ошибка при испол-

нении процедур модуля

401

Продолжение табл. П2.6

Интерфейс

Procedure InitGraph(var grDriver,

grMode: integer; PathToDriver:

string);

GrDriver

—

код драйвера, grMode

—

код

графического режима; PathToDriver

—

путь к файлу используемого драйвера

Function InstallUserDriver(Name:

string; AutoDetectPtr: Pointer):

integer;

Name

—

имя файла графического драйвера;

AutoDetectPtr

—

указательна процедуру,

определяющую успешность запуска драйвера.

Значение функции

—

цифровой код

установленного драйвера

Procedure RegisterBGIDriver (Driver :

Pointer): integer;

Driver

—

указатель на драйвер

Procedure RestoreCrtMode;

Procedure SetGraphMode(grMode:

integer) ; grMode

—

код графического

режима

Назначение

Устанавливает

заданный графический

режим

Инсталлирует пользова-

тельский драйвер

графического режима

Регистрирует драйвер

графической системы

Закрывает графичес-

кий режим и восста-

навливает текстовый

режим, установленный

ранее

Устанавливает другой

графический режим без

изменения драйвера

Управление экраном

и окнами

Procedure ClearDevice;

Procedure ClearViewPort;

Function GetMaxX: integer;

Значение функции

—

максимальная

координата

Function GetMaxY: integer;

Значение функции

—

максимальная

координата

Очищает экран, сбра-

сывает все графические

установки к значениям

по умолчанию, устанав-

ливает графический

указатель в положение

(0,0)

Очищает экран, уста-

навливая фон, задан-

ный в SetBkColor

Определяют максималь-

ные координаты экрана

в данном графическом

режиме

402

Продолжение табл.

172.

Интерфейс

Procedure GetAspectRatio (var Xasp,

Yasp:

word);

Xasp,

Yasp

—

коэффициенты по осям х и

Function GetBkColor: word;

Значение функции

—

код цвета фона

Назначение

Определяет коэффициен-

ты,

характеризующие

неодинаковость линейно-

го расстояния между

пикселями по осям Хи Y

Определяет установ-

ленный цвет фона

Экран

целом

и окна

Procedure GetViewSettings (var

ViewPort: ViewPortType) ;

Viewport

—

параметры текущего окна

Procedure SetBkColor(Color: word) ;

Значение функции

—

код цвета фона

Procedure SetActivePage (Page

word) ;

Page

—

номер активной страницы

Procedure SetAspectRatio(var Xasp,

Yasp:

word);

Xasp,

Yasp

—

коэффициенты по осям х и

Procedure SetVisualPage(Page

word) ;

Page

—

номер страницы

Procedure SetViewPort(xl, yl, x2, y2 :

integer; Clip: boolean) ;

(xl,yl) и (х2,у2) —координаты

противоположных

углов

окна; Clip

определяет,

отсекать ли

изображение за

пределами окна или нет

Function GetColor: word;

Значение функции

—

код цвета

Procedure GetDefaultPalette (var

Palette: PaletteType);

Palette

—

палитра (массив типа

PaletteType)

Function GetMaxColor: word;

Значение функции

—

максимальный код

цвета

Procedure GetPalette(var Palette:

PaletteType);

Palette

—

палитра (массив типа

PaletteType)

Запрашивает текущие

параметры окна и

отсечения

Устанавливает цвет

фона

Устанавливает активную

графическую страницу

Изменяет масштабный

коэффициент отноше-

ния сторон экрана

Устанавливает номер

видимой графической

страницы

Устанавливает визуаль-

ный порт(окно) для

вывода графического

изображения

Возвращает текущий

цвет (установленный

SetColor)

Определяет, какая

палитра действует в

режиме по умолчанию

Определяет максималь-

ный код цвета в

установленном режиме

Определяет, какая

палитра установлена

403

Продолжение табл. П2.6

Интерфейс

Function GetPaletteSize: word;

Значение функции

—

количество цветов в

палитре

Procedure SetAllPalette (var

Palette: PaletteType);

Palette

—

палитра (массив типа

PaletteType)

Procedure SetColor (Color

word) ;

Color

—

код цвета

Procedure SetPalette(ColorNum,

Color: word);

ColorNum

—

код заменяемого цвета;

Color

—

код нового цвета

Procedure SetRGBPalette(ColorNum,

RedValue, GreenValue, BlueValue:

word);

ColorNum

—

код устанавливаемого

в палитре цвета; RedValue, GreenValue,

BlueValue

—

интенсивность красного,

зеленого и синего для этого цвета

Назначение

Возвращает размер

таблицы палитры

Устанавливает все цвета

палитры

Устанавливает цвет для

линий

Устанавливает один

новый цвет в палитре

Устанавливает в палитре

цвет, заданный тремя

компонентами: красным,

зеленым и синим

Управление

указателем

Function GetX: integer;

Getx

—

координата

указателя

Function GetY: integer;

Get

У —

координата

указателя

Procedure MoveTofX: integer; Y:

integer); (X,Y) — координаты точки

экрана

Procedure MoveRel (dx: integer; dy:

integer); dx, dy — вектор приращений

координат точки экрана

Возвращает координату X

текущего указателя

Возвращает координату Y

текущего указателя

Перемещает указатель в

точку, заданную

координатами X, Y

Перемещает указатель в

точку, координаты

которой отличаются от

текущих координат на

величину dx, dy

Шаблоны, закраска областей

Procedure FloodFill (X, Y: integer;

ColorBorder: word);

(X,

Y) —

координаты точки, вокруг

которой идет закраска;

ColorBorder

—

цвет, обозначающий

границы области закраски

Закрашивает произволь-

ную область по заданным

шаблону и цвету вокруг

заданной точки до

границ, обозначенных

определенным цветом

404

Продолжение табл. П2.6

Интерфейс

Procedure GetFillPattern (var

FillPattern: FillPatternType);

FillPattern —массив типа

FillPatternType, содержащий

информацию о шаблоне

Procedure GetFillSettings(var

Filllnfo: FillSettingsType);

Filllnfo —запись типа

FillSettingsType, содержащая

информацию о шаблоне

Procedure GetLineSettings (var

Linelnfo: LineSettingsType);

Linelnfo —запись типа

LineSettingsType, содержащая

информацию о типе линии

Procedure GetGraphBuf Size (Size :

word) ; Size

—

размер буфера

Procedure SetFillPattern (Pattern:

FillPatternType; Color: word);

Pattern —массив типа

FillPatternType, содержащий

информацию о шаблоне; Color

—

цвет

раскраски

Procedure SetFillStyle (Pattern,

Color: word); Pattern—код

стандартного шаблона; Color

—

цвет

раскраски

Procedure SetLineStyle (LineStyle,

Pattern, Thickness: word);

LineStyle

—

код стиля линии,

Pattern

—

собственный шаблон линии,

Thickness

—

толщина линии

Назначение

Определяет установлен-

ный тип шаблона

Определяет установлен-

ный тип шаблона

Определяет установлен-

ный тип линии

Изменяет размер буфера

для функций заполнения

Устанавливает шаблон и

цвет раскраски

Устанавливает один из

стандартных шаблонов и

цвет раскраски

Устанавливает стиль

линии, как один из

стандартных или по

собственному шаблону

Изображение геометрических

фигур

Procedure Arc(X,Y: integer;

StartAngle, EndAngle, R: word);

(X, Y)

—

координаты центра окружности;

StartAngle, EndAngle

—

начальный и

конечный углы дуги окружности в

градусах (0,359);

—

радиус окружности в пикселях в

направлении х

Изображает дугу окруж-

ности. Процедура учи-

тывает неодинаковость

масштаба по осям

405

Продолжение табл. П2.6

Интерфейс

Procedure Bar(xl, yl,x2,y2:

integer);

(xl,yl) и (х2,у2)

—

координаты левого

верхнего и правого нижнего углов

прямоугольника

Procedure Bar3D (xl, yl, х2, у2 :

integer; Depth: word; Top: boolean);

(xl,yl) и (х2,у2)

—

координаты левого

верхнего и правого нижнего углов

параллелепипеда;

Depth

—

его глубина;

Тор

—

определяет, изображать

ли

верхнюю

грань фигуры (true

—

изображать)

Procedure Circle

(X,

Y: integer; R:

word);

(X,Y)

—

координаты центра окружности;

—

радиус окружности в пикселях в

направлении х

Procedure DrawPoly(NumPoints : word;

var PolyPoints) ;

NumPoints —числоточек, задающих

ломаную линию;

PolyPoints

—

массив точек (элементов

типа Point), задающих ломаную линию

Procedure Ellipse(X,Y: integer;

StartAngle, EndAngle, Rx, Ry: word);

(X,Y)

—

координаты центра эллипса;

StartAngle,

EndAngle

—

начальный и конечный углы

дуги эллипса в градусах (0,359);

Rx, Ry

—

полуоси эллипса в пикселях в

направлениях

Procedure GetArcCoords (var

ArcCoords: ArcCoordsType) ;

ArcCoordsType

—

запись, содержащая

координаты дуги

Procedure FillEllipse(X, Y: integer;

Rx,Ry: word);

(X,Y)

—

координаты центра эллипса;

Rx, Ry — полуоси эллипса в пикселях в

направлениях х и

Назначение

Изображает окрашенный

прямоугольник без

контура

Изображает трехмерный

прямоугольный паралле-

лепипед с заполнением

передней грани. Верхняя

грань может либо изобра-

жаться либо нет

Изображает окружность.

Процедура учитывает

неодинаковость масштаба

по осям

Ломаная линия, проходя-

щая через данный массив

точек

Изображает дугу эллипса.

Полуоси эллипса в

направлении А'и У заданы

в пикселях

Возвращает координаты

дуги, изображенной

процедурами Arc и Ellips

Чертит закрашенный

эллипс, полуоси эллипса в

направлениях X, Y

заданы в пикселях

406

Продолжение табл. П2.6

Интерфейс

Procedure FillPoly(NumPoints:

word; var PolyPoints);

NumPoints —числоточек, задающих

ломаную линию; PolyPoints— массив

точек (элементов типа Point), задающих

ломаную линию

Function GetPixel (X,

Y :

integer) :

word;

(x,

—

координаты точки, результат —

цвет точки

Procedure Line (xl, yl, x2, у2 :

integer);

(xl,yl),

(x2,y2) —координаты

конечных точек отрезка прямой

Procedure LineRel (dx, dy

integer) ;

(dx, dy)

—

смещение конечной точки

относительно начального положения

указателя

Procedure LineTo(X,Y: integer);

(X,

Y) —

координаты точки, в которую

проводится отрезок

Procedure Rectangle (xl,yl,x2,y2:

integer) ;

(xl,yl),

(x2,y2) —координаты

противоположных углов прямоугольника

Procedure Sector(X,Y

integer;

StartAngle,EndAngle,Rx, Ry: word) ;

(X, Y)

—

координаты центра эллипса;

StartAngle, EndAngle

—

начальный и

конечный углы дуги эллипса в градусах

(0,359);

Rx, Ry

—

полуоси эллипса в пикселях в

направлениях

Procedure PieSlice(X,Y : integer;

StartAngle, EndAngle, Rx: word);

(x,

—

координаты центра эллипса;

StartAngle, EndAngle

—

начальный и

конечный углы дуги эллипса в градусах

(0,359);

—

радиус окружности в пикселях в

направлении х

Назначение

Изображает закрашенный

многоугольник, заданный

массивом вершин

Возвращает цвет заданной

точки

Чертит отрезок прямой по

двум заданным конечным

точкам

Чертит отрезок прямой

от положения указателя

до точки, смещенной

относительно указателя

на заданную величину

Чертит отрезок прямой от

точки положения указа-

теля до заданной точки

Чертит контур

прямоугольника

Изображает закрашенный

сектор эллипса, ограни-

ченный углами от

StartAngle до EndAngle.

Заполняется сектор от ми-

нимального до максималь-

ного значения углов, неза-

висимо от их следования

Изображает закрашенный

сектор круга, ограничен-

ный углами от StartAngle

до EndAngle, радиус круга

задан в пикселях в направ-

лении Хи учитывает масш-

таб изображения по осям.

Заполняется сектор от ми-

нимального до максималь-

ного значения углов, неза-

висимо от их следования

Продолжение табл. П2.6

Интерфейс

Procedure PutPixel(X,Y

integer;

Color: word);

(X, Y)

—

координаты точки;

Color

—

цвет точки

Назначение

Окрашивает точку экрана

в заданный цвет

Вывод

текстов

Procedure GetTextSettings(var

Textlnfo: TextSettingsType);

Textlnfo —запись, содержащая

действующие установки вывода текста

Procedure OutText(Text: String);

Text

—

выводимая строка текста

Procedure OutTextXY(X,Y: Integer;

Text: String);

(X,

Y) —

координаты точки, к которой

привязывается выводимый текст;

Text

—

выводимая строка текста

Function InstallUserFont

(FontFileName: string): integer;

FontFileName

—

имя файла,

содержащего шрифт;

результат

—

номер (код) установленного

шрифта

Procedure RegisterBGIFont (Font:

Pointer);

Font

—

указательна шрифт

Procedure SetTextJustify(Horiz,

Vert: word);

Horiz, Vert

—

коды привязки текста по

горизонтали и вертикали

Procedure SetTextStyle(Font,

Direction, CharSize: word);

Font

—

тип используемого шрифта,

Direction

—

направление вывода

надписи, CharSize

—

размер символов

Procedure SetUserCharSize (MultX,

DivX, MultY, DivY: word);

MultX, DivX, MultY, DivY—коэффи-

циенты умножения (Mult) и деления

(Div) по осям

соответственно

Определяет установки

вывода текста

Выводит текст на графи-

ческий экран, начиная с

позиции графического

указателя. Позиция

графического указателя

смещается на ширину

выводимого текста

Выводит текст на графи-

ческий экран относитель-

но заданной точки, с

учетом используемого

типа юстировки

Инсталлирует новый

шрифт

Регистрирует шрифты для

графической системы

Устанавливает тип

привязки текста к точке

вывода по горизонтали и

вертикали

Устанавливает стиль

выводимого текста

Выполняет масштабиро-

вание шрифтов с произ-

вольным дробным

масштабом

408

Окончание

табл.

П2.6

Интерфейс

Function TextHeight(Text: string) :

integer;

Text

—

выводимая строка текста;

результат

—

высота текста в пикселях

Function TextWidth (Text: string) :

integer;

Text

—

выводимая строка текста;

результат

—

длина текста в пикселях

Назначение

Определяет высоту

текстовой строки при

заданных установках стиля

Определяет длину

текстовой строки при

заданных установках стиля

Копирование

части экрана

Procedure Getlmage (xl, yl, х2 , у2 :

integer; varBitMap: Pointer);

(xl,yl) и (х2,у2) —координаты

противоположных углов прямоугольника,

ограничивающего копируемую область

экрана;

i tMap

—

указатель на область памяти,

отведенную для хранения данного

изображения

Function ImageSize (xl,yl,x2,y2:

integer) : word;

(xl,yl) и (х2,у2) —координаты

противоположных углов прямоугольника

ограничивающего область экрана;

результат

—

объем информации в байтах

Procedure Putlmage(X,Y: integer;

var BitMap: Pointer; BitBlt: word);

(x,

У)

—

координаты левого верхнего угла

для выводимого изображения;

BitMap

—

указатель на область памяти;

BitBlt

—

код логической операции

Копирует в ОЗУ

прямоугольную область

экрана

Определяет размер в

байтах памяти, необхо-

димой для хранения

прямоугольной области

экрана

Выводит изображение из

области памяти ЭВМ в

указанную область экрана

с заданной логической

операцией наложения

нового изображения на

старое