Процедура Bar

Заполняет прямоугольную область экрана.

Заголовок:

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

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

Процедура закрашивает, но не обводит прямоугольник текущим образцом узора и текущим цветом, которые устанавливает процедура SetFillStyle.

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

Program MyOwn;

Uses CRT, Graph;

Const

Pat1: FillPatternType= ($49, $92, $49, $92, $49, $92, $49, $92);

Pat2: FillPatternType= ($00, $18, $24, $42, $42, $24, $18, $00);

Var

GrDriver, GrMode: integer;

Begin

GrDriver:= Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp|Bin|BGI');

SetFillStyle (UserFill, Red);

SetFillPattern (Pat1, Blue);

Bar (10, 50, 150, 250);

SetFillPattern (Pat2, Red);

Bar (250, 50, 450, 250);

readln;

CloseGraph;

End.

Процедура Bar3d (X1, Y1, X2, Y2, Depth: integer, Top:Boolean)

Здесь, X1 и Y1 –координаты левого верхнего угла передней грани, X2 и Y2 –координаты правого нижнего угла передней грани параллелепипеда. Если параметр Top имеет значение True, то верхняя грань параллелепипеда вычерчивается, в противном случае –не вычерчивается. Этот вариант используется для изображения поставленных друг на друга параллелепипедов

Пример:

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

Program MyNew;

Uses CRT, Graph;

Const

Pat1: FillPatternType= ($49, $92, $49, $92, $49, $92, $49, $92);

Var

GrDriver, GrMode: integer;

Begin

GrDriver:= Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp|Bin|BGI');

SetBkColor (Magenta);

SetColor (Green);

SetFillStyle (UserFill, Red);

SetFillPattern (Pat2, Blue);

Bar3d (10, 50, 150, 250, 45, TopOn);

SetFillStyle (10, Blue);

Bar3d (250, 50, 450, 250, 45 TopOn);

readln;

CloseGraph;

End.

В качестве значения параметра Top может использоваться одна из следующих констант, определенных в модуле Graph.

Const

TopOn= True;

TopOff= False;

При работе с процедурой Bar3d необходимо учитывать, что параллелепипед «прозрачен», т.е. за его незакрашенными гранями могут быть видны другие элементы изображения.

Program MyOwn;

Uses CRT, Graph;

Const

Pat2: FillPatternType= ($00, $18, $24, $42, $42, $24, $18, $00);

Var

GrDriver, GrMode: integer;

Begin

GrDriver:= Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp|Bin|BGI');

SetColor (Green);

SetFillStyle (UserFill, Red);

SetFillPattern (Pat2, Blue);

Bar3d (80, 100, 120, 180, 15, TopOn);

Bar3d (150, 150, 190, 180, 15, TopOff);

Bar3d (150, 50, 190, 150, 15, TopOn);

Bar3d (300, 150, 340, 180, 15 TopOn);

readln;

CloseGraph;

End.

Результатом выполнения программы является: