Графика Опции

[pan]

нарисовал рисунок в паскале

program z1;
uses graph;
var driver,mode:integer;
begin
driver:=detect; initgraph(driver,mode, 'C:\TP\BGI');
setcolor(white);
setbkcolor(black);
rectangle(200,200,400,300);
rectangle(100,150,200,300);
rectangle(120,170,180,220);
circle(200,326,25);
circle(350,326,25);
readln;
closegraph;
end.

Проблема заключается в том что я немогу закрасить колёса!!! Пож-та подскажите как это сделать!!!

Сообщение отредактировано: pan - 16.11.2008 23:15

[volvo]

Использовать FillEllipse (закрашенный эллипс) вместо Circle (окружности):

...
setfillstyle(solidfill, red);
fillellipse(200,326,25,25);
fillellipse(350,326,25,25);
...

[pan]

Использовать FillEllipse (закрашенный эллипс) вместо Circle (окружности):

...
setfillstyle(solidfill, red);
fillellipse(200,326,25,25);
fillellipse(350,326,25,25);
...

все получилось, спасибо большое