Uses graphABC;
begin
setwindowsize(600, 650);
setbrushcolor(rgb(255, 0, 0));
setpencolor(rgb(255, 0, 0));
pie(300, 165, 51, 240, -60);
pie(75, 550, 51, 60, 360);
pie(525, 550, 51, 120, -180);
line(256, 137, 31, 525);
line(300, 165, 75, 550);
line(300, 165, 525, 550);
line(75, 550, 525, 550);
line(345, 140, 570, 525);
line(75, 602, 525, 602);
floodfill(200, 275, rgb(255, 0, 0));
floodfill(400, 300, rgb(255, 0, 0));
floodfill(300, 575, rgb(255, 0, 0));
setpencolor(rgb(0, 0, 0));
setbrushcolor(rgb(0, 0, 0));
line(100, 525, 148, 447);
line(500, 525, 445, 433);
line(100, 525, 500, 525);
pie(200, 475, 60, 10, 170);
pie(400, 475, 60, 10, 170);
setbrushcolor(rgb(255, 255, 255));
setpencolor(rgb(0, 0, 0));
arc(300, 430, 50, 330, 210);
floodfill(300, 500, rgb(0, 0, 0));
{Следующие команды - дубликаты некоторых прошлых.
Они нужны чтобы убрать белые
линии появившиеся при заливке}
setbrushcolor(rgb(0, 0, 0));
pie(200, 475, 60, 0, 180);
pie(400, 475, 60, 0, 180);
setbrushcolor(rgb(255, 0, 0));
setpencolor(rgb(255, 0, 0));
pie(300, 165, 52, 240, -60);
pie(75, 550, 52, 60, 360);
pie(525, 550, 52, 120, -180);
end.
