Залить фигуру цветом

[Alexmur07]

помогите залить солнышко желтым цветом)

program labrab4; 
uses crt,graph;
var
gd,gm:integer;
begin
 clrscr;
 gd:=detect;
 initgraph (gd,gm,'');
 if graphresult <> 0 then
begin
 write('ошибка графики:',grapherrormsg (graphresult));
 halt;
end;
 setbkcolor(15);
 setlinestyle(0,0,3);
 setcolor(8);
  fillellipse(270,180,90,90);
  setcolor(8);

  line(250,280,290,280);
  line(250,280,270,345);
  line(290,280,270,345);

  line(170,160,170,200);
  line(170,160,105,180);
  line(170,200,105,180);

  line(250,80,290,80);
  line(250,80,270,15);
  line(290,80,270,15);

  line(370,160,370,200);
  line(370,160,435,180);
  line(370,200,435,180);

    line(330,95,360,125);
    line(330,95,400,60);
    line(400,60,360,125);

    line(210,95,180,125);
    line(210,95,140,60);
    line(140,60,180,125);

     line(360,235,330,265);
     line(360,235,400,300);
     line(400,300,330,265);

     line(180,235,210,265);
     line(180,235,140,300);
     line(140,300,210,265);

 readkey;
 readln;
 closegraph;
end.

в каждом блоке отдельно нарисованно круг, и отдельно лучики вообщем надо каждый лучик и круг залить желтым цветом... если не ошибусь то это цифра 14 приведите пример покажите как заливать фигуру. а то нарисовать нарисовал а залить не могу вспомнить как

[ZX Spectrum-128]

Заливка - floodfill

[Alexmur07]

приведите пример

program labrab4; 
uses crt,graph;
var
gd,gm:integer;
begin
 clrscr;
 gd:=detect;
 initgraph (gd,gm,'');
 if graphresult <> 0 then
begin
 write('ошибка графики:',grapherrormsg (graphresult));
 halt;
end;
 setbkcolor(15);
 setlinestyle(0,0,3);
 setcolor(8);
  fillellipse(270,180,90,90);
  setcolor(8);

  line(250,280,290,280);
  line(250,280,270,345);
  line(290,280,270,345);

  line(170,160,170,200);
  line(170,160,105,180);
  line(170,200,105,180);

  line(250,80,290,80);
  line(250,80,270,15);
  line(290,80,270,15);

  line(370,160,370,200);
  line(370,160,435,180);
  line(370,200,435,180);

    line(330,95,360,125);
    line(330,95,400,60);
    line(400,60,360,125);

    line(210,95,180,125);
    line(210,95,140,60);
    line(140,60,180,125);

     line(360,235,330,265);
     line(360,235,400,300);
     line(400,300,330,265);
floodfil(180,236,14);
     line(180,235,210,265);
     line(180,235,140,300);
     line(140,300,210,265);

 readkey;
 readln;
 closegraph;
end.

подскажите что не так сделал?????

[ZX Spectrum-128]

У floodfill первые два параметра - координаты точки ВНУТРИ фигуры, а третий - цвет границы фигуры.
Либо цвет границы не тот, либо выползли за границу фигуры.

Вы цвет 14 поставили, это не цвет границы.
Цвет заливки нужно указать в процедуре
Setfillstyle(тип, цвет);

[Alexmur07]

ааа понял, а где уазывать цвет которым заливаешь ? какой синтаксис ?

[ZX Spectrum-128]

SetFillStyle(SolidFill,Yellow);

[Alexmur07]

program labrab4; {Калеганов А.В. группа ПБТ-32}
uses crt,graph;
var
gd,gm:integer;
begin
 clrscr;
 gd:=detect;
 initgraph (gd,gm,'');
 if graphresult <> 0 then
begin
 write('ошибка графики:',grapherrormsg (graphresult));
 halt;
end;
 setbkcolor(15);
 setlinestyle(0,0,3);
 setcolor(8);
  fillellipse(270,180,90,90);
  setcolor(8);

  line(250,280,290,280);
  line(250,280,270,345);
  line(290,280,270,345);

  line(170,160,170,200);
  line(170,160,105,180);
  line(170,200,105,180);

  line(250,80,290,80);
  line(250,80,270,15);
  line(290,80,270,15);

  line(370,160,370,200);
  line(370,160,435,180);
  line(370,200,435,180);

    line(330,95,360,125);
    line(330,95,400,60);
    line(400,60,360,125);

    line(210,95,180,125);
    line(210,95,140,60);
    line(140,60,180,125);

     line(360,235,330,265);
     line(360,235,400,300);
     line(400,300,330,265);

     setfillstyle(solidfill,yellow);
     floodfill(180,236,8);
     line(180,235,210,265);
     line(180,235,140,300);
     line(140,300,210,265);

 readkey;
 readln;
 closegraph;
end.

что терь не так?

[ZX Spectrum-128]

Прикольно не знаю, похоже на то, что точка затравки вне фигуры. Или в фигуре дырка.

Знаете как сделать нужно.
Ставьте сначала точку - putpixel ярким цветом. И сразу видно, попадает в фигуру или нет. А потом уже заливайте

[Alexmur07]

да на код глянте откуда там дырке взяться?

[ZX Spectrum-128]

Сообщение от Alexmur07

да на код глянте откуда там дырке взяться?

Или точно на границу попали. Попробуйте проверить putpixel'ом.
И еще setfillstyle в начало программы перекиньте. Тогда солнце закрасится.

8-й цвет darkgray?