home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / DRWLINS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  733 b   |  30 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program  DrawLines;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel;
  10.  
  11. var
  12.   I : integer;
  13.  
  14. begin
  15.   InitGraphic;                    { Init the system and screen }
  16.  
  17.   DefineWorld(1,0,0,1000,1000);   { Define a world for drawing }
  18.   SelectWorld(1);                 { Select it }
  19.   SelectWindow(1);
  20.  
  21.   SetBackground(0);               { Set the background color to black }
  22.   DrawBorder;
  23.  
  24.   for I := 1 to 20 do             { Draw twenty lines }
  25.     DrawLine(I*50, 0, 1000-I*50, I*50);
  26.  
  27.   repeat until KeyPressed;        { Wait until a key is pressed }
  28.   LeaveGraphic;
  29. end. { DrawLines }
  30.