home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / ONEAXIS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  946 b   |  38 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program OneAxis;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel, GWindow, GShell;
  10.  
  11. procedure OneAxisDem;
  12. begin
  13.   ClearScreen;                        { Init screen }
  14.   SetColorWhite;
  15.   SetBackground(0);
  16.  
  17.   DefineHeader(1, 'LABELED AXES');    { Define the window }
  18.   SetHeaderOn;
  19.   DefineWorld(1, -10, -10, 10, 10);
  20.   SelectWindow(1);
  21.   SelectWorld(1);
  22.  
  23.   DrawBorder;                         { Draw it }
  24.  
  25.   DrawAxis(8, -7, 0, 0, 0, 0, 0, 0, true); { Draw coordinate axis }
  26. end; { OneAxisDem }
  27.  
  28. begin
  29.   InitGraphic;                        { Initialize the graphics system }
  30.  
  31.   OneAxisDem;                         { Do the demo }
  32.  
  33.   repeat until KeyPressed;            { Wait until a key is pressed }
  34.  
  35.   LeaveGraphic;                       { Leave the graphics system }
  36. end. { OneAxis }
  37.  
  38.