Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 96 стр.

UptoLike

Составители: 

SolidFill = 1;
LineFill = 2;
LtSlashFill = 3;
SlashFill = 4;
BkSlashFill = 5;
LtBkSlashFill = 6;
HatchFill = 7;
XHatchFill = 8;
InterleaveFill = 9;
WideDotFill = 10;
CloseDotFill = 11;
UserFill = 12.
{Сплошная штриховка}
{Горизонтальная штриховка}
{/// штриховка}
{/// штриховка толстыми линиями}
{\\\ штриховка толстыми линиями}
{\\\ штриховка}
{Заполнение прямой клеткой}
{Заполнение косой клеткой}
{Заполнение частой сеткой}
{Заполнение редкими точками}
{Заполнение частыми точками}
{Тип задается пользователем}
Процедуры
Arc(X, Y: Integer; U1, U2, R: Word) Строит дугу окружности текущим
цветом с текущими параметрами линии. X, Y — координаты центра дуги, U1
угол до начальной точки дуги, отсчитываемый против часовой стрелки от
горизонтальной оси, направленной слева направо, U2 — угол до конечной
точки дуги, отсчитываемый так же, как U1, R — радиус дуги.
Bar(X1, Y1, X2, Y2: Integer) Строит прямоугольник, закрашенный текущим
цветом с использованием текущего стиля (
орнамента, штриховки). X1, Y1,
X2, Y2 — координаты левого верхнего и правого нижнего углов
прямоугольника.
Bar3D(X1, Y1, X2, Y2: Integer; Glubina: Word; Top: Boolean) Строит
параллелепипед, используя текущий стиль и цвет. X1, Y1, X2, Y2 —
координаты левого верхнего и правого нижнего углов передней грани;
Glubina — ширина боковой грани (отсчитывается по горизонтали), Top —
признак включения верхней грани (если True — верхняя грань
вычерчивается, False — не вычерчивается).
Circle(X, Y: Integer; R: Word) Рисует текущим цветом окружность радиуса
R c центром в точке (X,Y).
ClearDevice Очищает графический экран, закрашивает его в цвет фона.
ClearViewPort Очищает выделенное графическое окно, закрашивает его в
цвет фона.
CloseGraph Закрывает графический режим, т.е. освобождает память,
распределенную под драйверы графики и файлы шрифтов, и восстанавливает
текстовый режим работы экрана.
Ellipse(X, Y: Integer; U1, U2, XR, YR: Word) Рисует дугу эллипса текущим
цветом; X, Y — координаты
центра эллипса; U1, U2 — углы до начальной и
конечной точек дуги эллипса (см. процедуру Arc); XR, YR — горизонтальная
и вертикальная полуоси эллипса.
FillEllipse(X, Y: Integer; XR, YR: Word) Рисует заштрихованный эллипс,
используя X,Y как центр и XR,YR как горизонтальную и вертикальную
полуоси эллипса.
SolidFill = 1;        {Сплошная штриховка}
LineFill = 2;         {Горизонтальная штриховка}
LtSlashFill = 3;      {/// штриховка}
SlashFill = 4;        {/// штриховка толстыми линиями}
BkSlashFill = 5;      {\\\ штриховка толстыми линиями}
LtBkSlashFill = 6;    {\\\ штриховка}
HatchFill = 7;        {Заполнение прямой клеткой}
XHatchFill = 8;       {Заполнение косой клеткой}
InterleaveFill = 9;   {Заполнение частой сеткой}
WideDotFill = 10;     {Заполнение редкими точками}
CloseDotFill = 11;    {Заполнение частыми точками}
UserFill = 12.        {Тип задается пользователем}

                              Процедуры

Arc(X, Y: Integer; U1, U2, R: Word) Строит дугу окружности текущим
цветом с текущими параметрами линии. X, Y — координаты центра дуги, U1
— угол до начальной точки дуги, отсчитываемый против часовой стрелки от
горизонтальной оси, направленной слева направо, U2 — угол до конечной
точки дуги, отсчитываемый так же, как U1, R — радиус дуги.
Bar(X1, Y1, X2, Y2: Integer) Строит прямоугольник, закрашенный текущим
цветом с использованием текущего стиля (орнамента, штриховки). X1, Y1,
X2, Y2 — координаты левого верхнего и правого нижнего углов
прямоугольника.
Bar3D(X1, Y1, X2, Y2: Integer; Glubina: Word; Top: Boolean) Строит
параллелепипед, используя текущий стиль и цвет. X1, Y1, X2, Y2 —
координаты левого верхнего и правого нижнего углов передней грани;
Glubina — ширина боковой грани (отсчитывается по горизонтали), Top —
признак включения верхней грани (если True — верхняя грань
вычерчивается, False — не вычерчивается).
Circle(X, Y: Integer; R: Word) Рисует текущим цветом окружность радиуса
R c центром в точке (X,Y).
ClearDevice Очищает графический экран, закрашивает его в цвет фона.
ClearViewPort Очищает выделенное графическое окно, закрашивает его в
цвет фона.
CloseGraph Закрывает графический режим, т.е. освобождает память,
распределенную под драйверы графики и файлы шрифтов, и восстанавливает
текстовый режим работы экрана.
Ellipse(X, Y: Integer; U1, U2, XR, YR: Word) Рисует дугу эллипса текущим
цветом; X, Y — координаты центра эллипса; U1, U2 — углы до начальной и
конечной точек дуги эллипса (см. процедуру Arc); XR, YR — горизонтальная
и вертикальная полуоси эллипса.
FillEllipse(X, Y: Integer; XR, YR: Word) Рисует заштрихованный эллипс,
используя X,Y как центр и XR,YR как горизонтальную и вертикальную
полуоси эллипса.