Процедура

Procedure SetFillStyle(Fill, Color: Word);

Устанавливает стиль заполнения. Здесь Fill – тип заполнения; Color – цвет заполнения. С помощью заполнения можно покрывать какие-либо фрагменты изображения периодически повторяющимся узором. Для указания типа заполнения можно использовать следующие константы:

Const

EmptyFill = 0; {Заполнение фоном, узор отсутствует}

SolidFill = 1; {Сплошное заполнение}

LineFill = 2; {Заполнение ----}

LtSlashFill = 3; {Заполнение /////}

SlashFill = 4; {Заполнение утолщенными ///}

BkSlashFill = 5; {Заполнение утолщенными \\\}

LtBkSlashFill = 6; {Заполнение \\\\\}

HatchFill = 7; {Заполнение ++++}

XHatchFill = 8; {Заполнение ххххх}

InterleaveFill = 9; {Заполнение в прямоугольную клеточку}

WideDotFill = 10; {Заполнение редкими точками}

CloseDotFill = 11; {Заполнение частыми точками}

Процедура

Procedure FloodFole (X,Y: Integer; Border: Word);

заполняет произвольную замкнутую фигуру, используя текущий стиль заполнения (узор и цвет). Здесь – X,Y – координаты любой точки внутри замкнутой фигуры; Border – цвет граничной линии. Если фигура незамкнута, заполнение “разольется” по всему экрану.

Процедура

Procedure Bar (X1,Y1, X2, Y2: Integer);

заполняет прямоугольную область экрана используя текущий образец узора и текущий цвет заполнения. Здесь (X1, Y1) – координаты левого верхнего угла, (X2, Y2) – правого нижнего угла запрашиваемой области.

Процедура

Procedure Bar3D(X1,Y1,X2, Y2, Depth:Integer;Top:Boolean);

вычерчивает трехмерное изображение параллелепипеда и закрашивает его переднюю грань. Здесь (X1,Y1) и (X2,Y2) – координаты левого верхнего и правого нижнего углов передней грани; Depth – третье измерение трехмерного изображения в пикселах (“глубина”); Top – способ изображения верхней грани. Если Top=True, верхняя грань параллелепипеда вычерчивается. В качестве значения этого параметра может использоваться одна из следующих констант, определенных в модуле Graph:

Const

TopOn = True;

TopOff = False;

При вычерчивании используется текущий стиль линий (SetLineStyle) и текущий цвет (SetColor). Передняя грань заливается текущим стилем заполнения (SetFillStyle)

Процедура

Procedure FillEllipsd (X, Y, RX, RY: Integer);

обводит линией и заполняет эллипс. Здесь X, Y – горизонтальный и вертикальный радиусы эллипса в пикселах. Эллипс обводится линией, заданной процедурами SetLineStyle и SetColor, и заполняется с использованием параметров, установленных процедурой SetFillStyle

Процедура

Procedure FillEllipse (X, Y, RX, RY: Integer);

Обводит линией и заполняет эллипс. Здесь X, Y – координаты центра; RX,RY – горизонтальный и вертикальный линией, заданной процедурами SetLine Style и SetColor, и заполняется с использоваеи параметров, установленных процедурой SetFillStyle.

Процедура

Pprocedure Sector (X,Y:Integer;BegA, EndA,RX, RY:Word);

вычерчивает и заполняет эллипсный сектор. Здесь BegA, EndA – соответственно начальный и конечный углы эллипсного сектора. Остальные параметры обращения аналогичны параметрам процедуры FillEllipse.

Процедура

Procedure PieSlice (X,Y:Integer;BegA,EndA,R:Word);

вычерчивает и заполняет сектор окружности. В отличии от процедуры Sector, указывается лишь один радиус R, остальные параметры аналогичны параметрам процедуры Sector.

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

Описываемые ниже стандартные процедуры и функции поддерживают вывод текстовых сообщений в графическом режиме

Процедура

Procedure OutText (Text : String)

выводит текстовую строку Text, начиная с текущего положения указателя, в состветствии с установленным стилем и выравниванием (см. далее). Аналогичная процедура

Procedure OutTextXY (X,Y:Integer; Text:String)

выводит строку, начиная с заданного места. При этом указатель не меняет своего положения.

Процедура

Procedure SetTextStyle (Font, Direct, Size:Word)

устанавливает стиль текстового вывода на графический экран. Здесь Font – номер шрифта (от 1 до 10); Direct- код направления ( HorizDir=0 – слева – направо; VortDir=1-снизу – вверх); Size – размер шрифта (от 1 до 10).

Процедура

Procedure SetTextJustify (Horiz, Vert: Word)

задает выравнивание выводимого текста по отношению к текущему положению указателя или к заданным координатам. Здесь Horiz – горизонтальное выравнивание;

Vert – вертикальное выравнивание. В качестве фактических параметров можно использовать следующие константы:

Const

LeftText = 0; {Указатель слева от текста}

CenterText = 1; {Симметрично слева и справа, сверху и снизу}

RightText = 2; {Указатель справа от текста}

BottomText; {Указатель снизу от текста}

TopText = 2; {Указатель сверху от текста}.

В некоторых случаях могут пригодиться функции

Function TextWidth(Txt:String):Word;

Function TextHeight(Txt:String):Word;

которые возвращают соответственно длину и высоту текста в пикселах выводимой текстовой строки с учетом текущего стиля вывода, заданного процедурой SetTextStyle.

Вопросы для самоконтроля.

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

2. Контроль ошибок графических операций.

3. Координаты точек на экране.

4. Управление цветом.

5. Вывод на графический экран линий и точек.

6. Вывод многоугольников, дуг, окружностей, эллипсов.

7. Заполнение фрагментов графического экрана.

3. Задание.

Написать программу, которая выводит на графический экран план расположения дома, в котором Вы проживаете. На плане необходимо указать название улиц, административных и промышленных знаний (кинотеатров, ВУЗов, магазинов и т.д.), номера домов, а также остановки общественного транспорта и маршруты передвижения от них к дому.