Рисование прямоугольников и окружностей средствами модуля GraphAbc.

Прямоугольники и окружности можно рисовать с помощью команд rectangle(x1, y1, x2, y2) и circle(x, y, r) соответственно (см. Приложение к главе 3). Как это можно сделать, рассмотрим на примере программы, которая рисует прямоугольник и окружность.

Пример 5. Демонстрация рисования прямоугольника и окружности

program gemetry;

uses graphabc;

Begin

setwindowsize(640, 480);

setpencolor(clBlue); {устанавливает голубой цвет пера

для рисования контура прямоугольника}

setpenwidth(6); {устанавливает ширину пера}

rectangle(50, 50, 250, 150); { рисует прямоугольник, заданный

координатами противоположных вершин}

setpencolor(clred); {устанавливает красный цвет пера

для рисования контура окружности}

circle(350, 100, 60); {рисует окружность с центром в точке

с координатами (350, 100) и радиусом 60}

End.

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

Рис.3.8

А теперь закрасим эти фигуры и подпишем их. В этом случае программа может выглядеть так:

Пример 6. Демонстрация закрашивания прямоугольника и окружности и их надписи

program gemetry3;

uses graphabc;

Begin

setwindowsize(640, 480);

clearwindow(clYellow); {устанавливает желтый цвет фона}

setpencolor(clteal); { устанавливает сине-зеленый цвет

пера}

setpenwidth(5); {устанавливает ширину линии}

setbrushcolor(clolive); {устанавливает оливковый цвет

кисти}

rectangle(100, 100, 300, 200); {рисует закрашенный

оливковым цветом прямоугольник}

setbrushcolor(clblue); {устанавливает синий цвет кисти}

circle(400, 150, 50); {рисует закрашенный синим

цветом круг}

setfontstyle(fsbold); {устанавливает стиль шрифта}

setfontsize(15); {устанавливает размер шрифта}

setbrushcolor(clwhite); {устанавливает белый цвет кисти}

setfontcolor(clolive); {устанавливает оливковый цвет

шрифта}

textout(100, 220, 'Прямоугольник'); {делает надпись}

setfontcolor(clblue); {устанавливает синий цвет шрифта}

textout(380, 220, 'Круг'); {делает надпись}

End.

После выполнения программы графическое окно на экране монитора будет выглядеть так (рис.3.9):

Рис. 3.9

Из приведенного выше примера видно, что рисовать можно на «холсте» определенного цвета, который задается с помощью процедуры установки цвета графического окна clearwindow(color). Закрасить прямоугольник и круг можно, используя процедуру закраски кистью setbrushcolor (color)

Итак, вы научились рисовать основные графические примитивы (геометрические фигуры), с помощью которых можно создавать любые картинки. Например, используя выше рассмотренные команды, можно создать такую картинку:

А программа, выполнив которую, получилась такая картинка, имеет

следующий вид:

program skvoreshnik;

uses graphabc;

begin setwindowsize(1280, 1024);

clearwindow(clwhite); {устанавливает белый цвет фона}

setpencolor(clteal); {устанавливает сине-зеленый цвет пера}

setpenwidth(5); {устанавливает ширину линии}

rectangle(100, 150, 250, 300); {рисует прямоугольник}

setbrushcolor(clyellow ); {устанавливает желтый цвет кисти

для закраски круга}

circle(170, 200, 25); {рисует закрашенный желтым цветом круг}

floodfill(150, 160, clBrown); {закрашивает коричневым

цветом прямоугольник - стену скворечника}

line (100, 150, 175, 90); {эти линии рисуют крышу}

line (175, 90, 250, 150);

floodfill(175, 100, clgreen); {Закрашивает треугольник

(крышу)коричневым цветом}

End.

В модуле graphabc имеется еще и другие команды рисования графических примитивов, например, команда рисования эллипса. Зная основы работы в графическом режиме, их вы сможете изучить самостоятельно.