Задача такая:
Постоить фигуру и изменять стиль заполнения и цвет контурных линий случайным образом.
Фигуру построила, а как изменять цвет линий и стиль заполнения не могу разобраться...
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.
FloodFilll(X,Y,Border_Color) - заливка произвольного замкнутого контура, xy - любая точка внутри.
Sensitive, см. в сторону FillPoly вместо DrawPoly, и будет тебе проще гораздо...
SetFillStyle(Linefill,White);
Спасибо большое. С FillPoly всё сделала. Очень Вам благодарна!