home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2001 November / MICD2001_11_NR1.iso / Www / Pasman / programy / drg.pas < prev    next >
Pascal/Delphi Source File  |  2001-10-05  |  411b  |  22 lines
  1. uses graph,crt;
  2. var
  3.   vga,vgahi: integer;
  4.   A: real;
  5.   w,w2,w3,w4: real;
  6.   t: real;
  7. begin
  8.   initgraph(vga,vgahi,'c:\bp\bgi');
  9.   t:=0;
  10.   A:=50;
  11.   w:=2*pi*3;
  12.   w2:=2*pi*2;
  13.   w3:=2*pi*4;
  14.   w4:=2*pi*2;
  15.   setfillstyle(1,0);
  16.   repeat
  17.     putpixel(320+round(A*sin(w*t))+round(A*sin(w2*t)),
  18.       240+round(A*sin(w3*t))+round(A*sin(w4*t)),15);
  19.     delay(1);
  20.     t:=t+0.001;
  21.   until keypressed;
  22. end.