home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / linedemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-13  |  1.1 KB  |  36 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                              LINEDEMO.PAS                               *)
  3. (*                      Demonstration des Integer-DDA                      *)
  4. (*-------------------------------------------------------------------------*)
  5.  
  6. PROGRAM linedemo;
  7.  
  8. CONST
  9.   (*$I GRAFCONS.PAS *)
  10.  
  11. TYPE
  12.   (*$I GRAFTYPE.PAS *)
  13.  
  14. VAR
  15.   (*$I GRAFVAR.PAS *)
  16.   y1, y2: INTEGER;
  17.  
  18. (*$I GRAFSYS.PAS *)                         (* Schnittstelle System-Grafik *)
  19. (*$I INTDDA.PAS *)                          (* Integer-DDA                 *)
  20. (*$I LINE.PAS *)                            (* 'line'-Prozedur             *)
  21.  
  22. BEGIN
  23.   Enter_Graphic;
  24.   y1 := ScreenYmax DIV 2;
  25.   FOR y2 := 0 TO ScreenYmax DIV 10 DO
  26.     Line(0, y1, ScreenXmax, y2*10);
  27.   y2 := y1;
  28.   FOR y1 := 0 TO ScreenYmax DIV 10 DO
  29.     Line(0, y1*10, ScreenXmax, y2);
  30.   REPEAT UNTIL KeyPressed;
  31.   Exit_Graphic;
  32. END.
  33.  
  34. (*-------------------------------------------------------------------------*)
  35. (*                           Ende von LINEDEMO.PAS                         *)
  36.