Процедура заполнения внутренней или внешней области замкнутой фигуры

стилем, заданным процедурой SetFillStyleQ:

FloodFill(x,y:integer;<UBeT_rpaHHUbi_o6nacTH>);

X,Y- координаты точки внутри (или вне) замкнутой области.

Пример разработки простейшей графической программы.

Задание: Построить в центре экрана синий прямоугольник, закрасив его линиями вида \\ темно-серого цвета. Фон экрана сделать белым.

Вариант программы:

Program Graph 1;

uses Graph;

var Uriver,Mode:Integer;

Begin

{инициализация графического режима} Driver:=Detect;

InitGraph(Driver,Mode,"); •' {установка цвета фона экрана - белого} '^<f SetBkColor(15); •-'-•^;

{установка текущего цвета -синего} SetColor(l);

{очистка экрана установленным цветом фона} Cleardevice;

{установка стиля заполнения: штриховка темно-серыми линиями вида \\} SetFillStyle(5,8);

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

Информатика

Rectangle(290,290,GetMaxX-290,GetMaxY-290);

{заполнение прямоугольника выбранным стилем} FloodFill(301,230,1);

ReadLn; {рисунок остается на экране дисплея до нажатия

клавиши ENTER}

CloseGraph;{ закрытие графического режима} end.

Этапы построения программы:

1.Необходимость подключения модуля GRAPH.

2.Необходимость инициализации графического режима.

3.Установка цвета фона (пояснить, что эта процедура сама но себе не меняет цвет фона).

4-Установка цвета вычерчиваемой фигуры(текущий цвет). 5.Выбор стиля заполнения фигуры, которую будем строить. б.Собственно построение графического изображения. 7.3акрытие графического режима.

Упражнение 10.

Написать программу построения рисунка.

кошка

Л Л

птица

Карлик -Нос

Информатика Ш

Не нашли, что искали? Воспользуйтесь поиском: