home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 03 / doline.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-05  |  1.9 KB  |  51 lines
  1. {*********************************************************}
  2. {*                     DOLINE.PAS                        *}
  3. {*   ein Demonstrationsprogramm der Integer DDA do_line  *}
  4. {*       (C) Heinz Hagemeyer & PASCAL INTERNATIONAL      *}
  5.  
  6. PROGRAM do_line_demo;
  7.  
  8. {$I PLOGRAPH.INC Einbinden des Plotter-Graphik-Modul's    }
  9.  
  10. {*********************************************************}
  11. {* Das File PLOGRAPH.INC enthaellt u.a. die Proceduren   *}
  12. {*                                                       *}
  13. {*       procedure punkt(x,y : integer);                 *}
  14. {*       begin                                           *}
  15. {*               ...      (* Sharp MZ 800 - spezifisch *)*}
  16. {*       end;                                            *}
  17. {*                                                       *}
  18. {*       procedure status;(* Sharp MZ 800 - spezifisch *)*}
  19. {*       begin                                           *}
  20. {*               ...                                     *}
  21. {*       end;                                            *}
  22. {*                                                       *}
  23. {*       und die Systemvariable                          *}
  24. {*                                                       *}
  25. {*       var geraet;            ( siehe Begleittext !)   *}
  26. {*                                                       *}
  27.  
  28. {$I DOLINE.INC }
  29.  
  30. VAR x,y,x1,y1 : INTEGER;
  31.  
  32. BEGIN
  33.   geraet := bildschirm;  
  34.   { Dieser Befehl muss bei anderen Graphik - Systemen }
  35.   { entfernt bzw. durch INIT_GRAPHIK oder aehnl.      }
  36.   { ersetzt werden.                                   }
  37.  
  38.   ClrScr;   { loescht den Bildschirm }
  39.  
  40.   FOR x := 0 TO 19 DO BEGIN
  41.     x1 := x SHL 5;    { schnelles Mult. mit 32  }
  42.     do_line(x1,0,640-x1,200);
  43.   END;
  44.  
  45.   FOR y := 15 DOWNTO 0 DO BEGIN
  46.     y1 := y SHL 4;    {  schnelles Mult. mit 16  }
  47.     do_line(0,y1,640,200-y1);
  48.   END;
  49.  
  50. END.
  51.