You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
597 B
Plaintext
29 lines
597 B
Plaintext
6 years ago
|
program egg;
|
||
|
|
|
||
|
|
uses
|
||
|
|
crt,
|
||
|
|
Graph;
|
||
|
|
|
||
|
|
var
|
||
|
|
gdriver,
|
||
|
|
gmode,
|
||
|
|
xsize,
|
||
|
|
ysize, x, y, i : Integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
DetectGraph(gdriver, gmode);
|
||
|
|
InitGraph(gdriver, gmode, '');
|
||
|
|
SetColor(White);
|
||
|
|
xsize := GetMaxX;
|
||
|
|
ysize := GetMaxY;
|
||
|
|
MoveTo(Round(xsize/2), Round(ysize/2));
|
||
|
|
Ellipse(Round(xsize/2), Round(ysize/2), 0, 360, 100, 160);
|
||
|
|
SetColor(Black);
|
||
|
|
Ellipse(Round(xsize/2), Round(ysize/2), 0, 180, 100, 160);
|
||
|
|
SetColor(White);
|
||
|
|
Ellipse(Round(xsize/2), Round(ysize/2), 0, 180, 100, 110);
|
||
|
|
SetFillStyle(1, White);
|
||
|
|
FloodFill(Round(xsize/2), Round(ysize/2), White);
|
||
|
|
ReadKey;
|
||
|
|
CloseGraph;
|
||
|
|
end.
|