home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / demodisc / tyrant / fuggveny / fugg.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1994-11-28  |  896 b   |  62 lines
  1. Program Matek_HF;
  2. {$N+}
  3.  
  4. Uses Graph;
  5.  
  6. Var
  7.   I,J      : Integer;
  8.   A        : Double;
  9.   X,Y      : Integer;
  10.  
  11. begin
  12. I:=Detect;
  13. InitGraph(I,J,'');
  14. ClearDevice;
  15. setcolor(blue);
  16. Line(0,240,639,240);
  17. Line(319,0,319,479);
  18.  
  19. A:=-16;
  20. repeat
  21. X:=Round(320-A*20);
  22. Y:=round(240-20*(abs(a)));
  23. Putpixel(X,Y,5);
  24. a:=a+0.001;
  25. until A>=16;
  26.  
  27. readln;
  28. ClearDevice;
  29. setcolor(blue);
  30. Line(0,240,639,240);
  31. Line(319,0,319,479);
  32.  
  33. A:=-16;
  34. repeat
  35. X:=Round(320-A*20);
  36. Y:=round(240-20*(abs(abs(abs(a)-1)-2)));
  37. Putpixel(X,Y,5);
  38. a:=a+0.001;
  39. until A>=16;
  40.  
  41. readln;
  42. ClearDevice;
  43. setcolor(blue);
  44. Line(0,240,639,240);
  45. Line(319,0,319,479);
  46.  
  47.  
  48. A:=-16;
  49. repeat
  50. X:=Round(320-A*20);
  51. Y:=round(240-20*(abs((0.2*sin(a*a)/Cos(sqr(a/8)))/abs(2/cos(abs(sin(a*2))))-a-abs(a+1)+2)/(sqr(sin(a))*8.6-10)*cos(sqr(a)*8)));
  52. Putpixel(X,Y,5);
  53. a:=a+0.001;
  54. until A>=16;
  55.  
  56.  
  57. Readln;
  58.  
  59.  
  60. CloseGraph;
  61. end.
  62.