home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / SAMPLE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  957 b   |  31 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program Sample;
  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.  
  14.  
  15.   DrawBorder;                          { Draw a border around the drawing }
  16.                                        { area of the primary window }
  17.                                        { (the dimensions of the primary window }
  18.                                        { default to 640x200 points) }
  19.  
  20.  
  21.   DrawLine(10, 10, 600, 180);          { Draw a line }
  22.  
  23.   DrawSquare(10, 10, 600, 180, false); { Draw a square }
  24.  
  25.   DrawLine(-100, -20, 750, 320);       { Draw a line to demonstrate clipping }
  26.  
  27.   repeat until KeyPressed;             { Hold screen until key is pressed }
  28.  
  29.   LeaveGraphic;                        { Leave the graphics system }
  30. end. { Sample }
  31.