Líbivá geometrie – Pascal – Fórum – Programujte.com

Endžoj:

uses Graph;

const s = 100;           

      n = 32000;      



var gd,gm:integer;

    x,y:integer;       

    a,d,pi2:real;    

begin

gd:=vga;

gm:=vgaHi;

InitGraph(gd,gm,'');

a:=0;

pi2:=pi*2;

repeat

 D:= (1+Sin(A)) * (1+0.9*Cos(8*A)) * (1+0.1*Cos(24*A)) * (0.9+0.05*Cos(200*A));

 X:= Round(D*Cos(A)*S);

 Y:= Round(D*Sin(A)*S);

 PutPixel(X+320, 400-Y, 2);

 A:= A + Pi2/N;

until A >= Pi2;

readln;

CloseGraph;

end.

Moc pěkné využití matematiky. Nenapadlo by mě, že zrovna tohle se dá vykreslit několika sinusovkami :-).