Localize file www.TrSek.com/cover/neznamy/vesmir.pas

{ VESMIR.PAS                                                        }
{ Program vykresli vesmir.                                          }
{                                                                   }
{ Datum:17.06.2008                             http://www.trsek.com }

program vesmir;
   uses crt,graph;
   var gd,gm:integer;

begin

initgraph(gd,gm,' ');
detectgraph(gd,gm);

setfillstyle(1, 14);
setcolor(14);
circle(200,300,30);
FloodFill(200, 300,14);

setfillstyle(1, 10);
setcolor(10);
circle(300,56,5);
floodfill(300,56,10);
ellipse(200,300,0,360,450,250);

setfillstyle(1, 3);
setcolor(3);
circle(700, 300,14);
floodfill(700,300,3);
Ellipse(200, 300,0, 360, 500, 100);

setfillstyle(1, 4);
setcolor(4);
circle(320,420,18);
floodfill(320,420,4);
ellipse(200,300,0,360,400,120);

setfillstyle(1, 2);
setcolor(2);
circle(600,290,15);
floodfill(600,290,2);
ellipse(200,300,0,360,400,90);

setfillstyle(1,5);
setcolor(5);
circle(100,220,20);
floodfill(100,220,5);
ellipse(200,300,0,360,300,80);

setfillstyle(1,6);
setcolor(6);
circle(140,230,9);
floodfill(140,230,6);
ellipse(200,300,0,360,240,70);

setfillstyle(1,13);
setcolor(13);
circle(320,300,7);
floodfill(320,300,13);
ellipse(200,300,0,360,120,40);

setfillstyle(1,12);
setcolor(12);
circle(250,340,10);
floodfill(250,340,12);
ellipse(200,300,0,360,130,45);

setfillstyle(1,9);
setcolor(9);
circle(200,350,11);
floodfill(200,350,9);
ellipse(200,300,0,360,150,50);

readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com