home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / DRWLIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  678 b   |  24 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program DrawLineDemo;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel;
  10.  
  11. begin
  12.   InitGraphic;                  { Initialize the graphics system }
  13.   DrawBorder;
  14.   DefineWorld(1,0,0,1000,1000); { Define the world to draw in }
  15.   SelectWorld(1);               { Select the world }
  16.   SelectWindow(1);              { Select the window }
  17.  
  18.   DrawLine(0,0,1000,1000);      { Draw the line }
  19.  
  20.   repeat until KeyPressed;      { Wait until a key is pressed }
  21.   LeaveGraphic;                 { Leave the graphics system }
  22. end. { DrawLineDemo }
  23.  
  24.