home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / moire.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-13  |  1.3 KB  |  38 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                             MOIRE.PAS                                   *)
  3. (*                    Demonstration der Kreisalgorithmen                   *)
  4. (* Bildet durch Ueberlagerung von konzentrischen Kreisen Interferenzmuster *)
  5. (*-------------------------------------------------------------------------*)
  6.  
  7. PROGRAM moire;
  8.  
  9. CONST
  10.   (*$I GRAFCONS.PAS *)
  11.   radius_schritt = 4;
  12.  
  13. TYPE
  14.   (*$I GRAFTYPE.PAS *)
  15.  
  16. VAR
  17.   (*$I GRAFVAR.PAS *)
  18.   i : INTEGER;
  19.  
  20. (*$I GRAFSYS.PAS *)   (* Grafik Initialisierungen                          *)
  21. (*$I BRESENH.PAS *)   (* Algorithmus, bei der Verwendung von CIRCDRAW sind
  22.                          vor dieser Include-Anweisung mit selbiger die Da-
  23.                          teien INTDDA, LINE und RELGRAF einzubinden!!      *)
  24. (*$I CIRCLE.PAS *)
  25.  
  26. BEGIN
  27.   Enter_Graphic;
  28.   FOR i := 1 TO Pred(ScreenYmax) DIV radius_schritt DO
  29.     circle(ScreenXmax DIV 2 - 5, ScreenYmax DIV 2, i*radius_schritt);
  30.   FOR i := 1 TO Pred(ScreenYmax) DIV radius_schritt DO
  31.     circle(ScreenXmax DIV 2 + 5, ScreenYmax DIV 2, i*radius_schritt);
  32.   REPEAT UNTIL KeyPressed;
  33.   Exit_Graphic;
  34. END.
  35.  
  36. (*-------------------------------------------------------------------------*)
  37. (*                         Ende von MOIRE.PAS                              *)
  38.