Графика

[Ilai]

Добрый день!

Помогите пожалуйста с программой. Нарисовал снеговика, а вот раскрасить не получается. Цвет изменяется только у границ. Помогите пожалуйста.

Program Sneg;
uses graph;
var
   x, y: integer;
 
 begin
   initgraph(x, y,' ');
   setbkcolor(11);
   setcolor(11);
   x:= getmaxX div 2;
   y:= getmaxY-100;
   circle(x, y, 80);
   circle(x, y-140, 60);
   circle(x, y-240, 40);
   rectangle(x-35, y-330, x+35, y-280);
   rectangle(x-130, y-190, x-30, y-170);
   rectangle(x+30, y-190, x+130, y-170);
   line(x-15, y-220, x+15, y-220);
   line(x-25, y-230, x+5, y-245);
   line(x+5, y-245, x+5, y-230);
   line(x+5, y-230, x-25, y-230);
   circle(x-20, y-255, 5);
   circle(x+20, y-255, 5);
   setlinestyle(0, 0, 3);
   line(x-125, y-250, x-125, y+80);
   readln;
   end.

[Stilet]

Тебе нужно применить функцию FloodFill() которая заливает. Посмотри примеры ее в хелпе, по крайней мере в ТурбоПаскале они есть.

[Ilai]

Спасибо. Постараюсь разобраться

[Serge_Bliznykov]

а как раскрасить то? Снеговик, он же вроде как белый?!

может так?!

Program Sneg;
uses graph;
var
   x, y: integer;

 begin
   initgraph(x, y,' ');
   setbkcolor(LightBlue);
   x:= getmaxX div 2;
   y:= getmaxY-100;

   {туловище и ручки}
   setcolor(White);
   circle(x, y, 80);
   circle(x, y-140, 60);
   circle(x, y-240, 40);
   FloodFill(x, y, White);
   FloodFill(x, y-140, White);
   FloodFill(x, y-240, White);

   rectangle(x-35, y-330, x+35, y-280);
   FloodFill(x, y-300, White);
   rectangle(x-130, y-190, x-30, y-170);
   FloodFill(x-100, y-180, White);
   rectangle(x+30, y-190, x+130, y-170);
   FloodFill(x+100, y-180, White);


   { глазки }
   setcolor(Brown);
   SetFillStyle(SolidFill, Brown);
   circle(x-20, y-255, 5);
   circle(x+20, y-255, 5);
   FloodFill(x-20, y-255, Brown);
   FloodFill(x+20, y-255, Brown);

   { посох }
   setlinestyle(0, 0, 3);
   line(x-125, y-250, x-125, y+80);

   { нос-морковка }
   setcolor(Red);
   line(x-25, y-230, x+5, y-245);
   line(x+5, y-245, x+5, y-230);
   line(x+5, y-230, x-25, y-230);
   SetFillStyle(SolidFill, Red);
   FloodFill(x, y-235, Red);


   readln;
end.

[8Observer8]

Помогите пожалуйста с программой. Нарисовал снеговика, а вот раскрасить не получается. Цвет изменяется только у границ. Помогите пожалуйста.

Нарисуйте снеговика в программе GIMP (это бесплатный аналог фотошопа). А ещё проще найти готовый рисунок. Если вам нужна анимация в 2D, то найдите "sprite sheet" снеговика. Это набор кадров, которые нужно загрузить в программу в массив и показывать по таймеру. В том же GIMP можно нарисовать свои спрайты

P.S. Понятно, что тут задание - нарисовать программно. Просто сказал, как обычно делают, если задача - показать снеговика