Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Заполняет прямоугольную область экрана.
Заголовок:
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.
Результатом выполнения программы является:
Дата публикования: 2015-06-12; Прочитано: 220 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!