home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / WDRWPNTS.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  687 b   |  28 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program WorldDrawPoints;
  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.   DrawBorder;
  17.  
  18.   DefineWorld(1,0,0,1000,1000);   { Define a world for drawing }
  19.   SelectWorld(1);                 { Select it }
  20.   SelectWindow(1);
  21.  
  22.   for I := 1 to 1000 do           { Draw 1000 random points on world }
  23.     DrawPoint(Random(1000), Random(1000));
  24.  
  25.   repeat until KeyPressed;        { Wait until a key is pressed }
  26.   LeaveGraphic;
  27. end. { WorldDrawPoints }
  28.