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.
39 lines
665 B
Plaintext
39 lines
665 B
Plaintext
6 years ago
|
program ellipsegraph;
|
||
|
|
|
||
|
|
uses
|
||
|
|
crt,
|
||
|
|
Graph;
|
||
|
|
|
||
|
|
var
|
||
|
|
gdriver,
|
||
|
|
gmode,
|
||
|
|
xsize,
|
||
|
|
ysize, x, y, i : Integer;
|
||
|
|
|
||
|
|
procedure draw_spiral(color: word; rotation: Integer);
|
||
|
|
var
|
||
|
|
i : Integer;
|
||
|
|
begin
|
||
|
|
for i := 0 to 1500 do
|
||
|
|
begin
|
||
|
|
x := Round(xsize/2)+Round(i*sin(2*i+rotation)/2);
|
||
|
|
y := Round(ysize/2)+Round(i*cos(2*i+rotation)/2);
|
||
|
|
PutPixel(x, y, color);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
DetectGraph(gdriver, gmode);
|
||
|
|
InitGraph(gdriver, gmode, '');
|
||
|
|
SetColor(green);
|
||
|
|
xsize := GetMaxX;
|
||
|
|
ysize := GetMaxY;
|
||
|
|
MoveTo(Round(xsize/2), Round(ysize/2));
|
||
|
|
while True do
|
||
|
|
begin
|
||
|
|
for i := 0 to 360 do
|
||
|
|
draw_spiral(i, Round(i/2));
|
||
|
|
end;
|
||
|
|
ReadKey;
|
||
|
|
CloseGraph;
|
||
|
|
end.
|