Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Стиль заполнения фигуры

Автор: Sensitive 21.05.2007 19:44

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

uses crt,Graph;
var a:array[1..4] of PointType;
i:byte;
Procedure treug;
const x:array[1..3] of integer=(300,620,20);
y:array[1..3] of integer=(100,400,400);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;

Procedure treug1;
const x:array[1..3] of integer=(300,340,260);
y:array[1..3] of integer=(150,190,190);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;

Procedure treug2;
const x:array[1..3] of integer=(400,440,360);
y:array[1..3] of integer=(310,350,350);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;

Procedure treug3;
const x:array[1..3] of integer=(200,240,160);
y:array[1..3] of integer=(310,350,350);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;
begin
init;{инициализация граф. режима}
treug;
treug1;
treug2;
treug3;
readln;
end.


Заполнение должно производиться как показано на рисунке.(рисунок прилагается). Помогите пожалуйста.


Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: nikita182 21.05.2007 20:59

FloodFilll(X,Y,Border_Color) - заливка произвольного замкнутого контура, xy - любая точка внутри.

Автор: volvo 21.05.2007 21:00

Sensitive, см. в сторону FillPoly вместо DrawPoly, и будет тебе проще гораздо...

Автор: Артемий 21.05.2007 21:00

SetFillStyle(Linefill,White);

Метод штриховки {-----}

Автор: Sensitive 21.05.2007 21:51

Спасибо большое. С FillPoly всё сделала. Очень Вам благодарна!