home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 14 / grafik / demo_gr2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-01-10  |  776 b   |  29 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     DEMO_GR2.PAS                       *)
  3. (*      Demoprogramm für das TURBO 4.0 UNIT GRAPH2        *)
  4. (* ------------------------------------------------------ *)
  5.  
  6. USES Graph2, Graph, Crt;
  7.  
  8. VAR  GraphMode, GraphDriver, i, j : INTEGER;
  9.      ch                           : CHAR;
  10.  
  11. BEGIN
  12.   GraphDriver := Detect;
  13.   InitGraph(GraphDriver, GraphMode, '');
  14.   Seite(0);
  15.   Cls(0);
  16.   ch := ReadKey;
  17.   FOR i := 0 TO 719 DO
  18.     FOR j := 0 TO 349 DO Plot(i, j, 1);
  19.   Write(#7);
  20.   ch := ReadKey;
  21.   Cls(0);
  22.   FOR i := 0 TO 719 DO
  23.     FOR j := 0 TO 349 DO PutPixel(i, j, 1);
  24.   Write(#7);
  25.   Delay(2000);
  26.   CloseGraph;
  27. END.
  28. (* ------------------------------------------------------ *)
  29.