home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / WHEELS.ZIP / RECTANGL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-12-03  |  888 b   |  32 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5.     The procedure RECTANGLE has six parameters:
  6.         X1,Y1,X2, and Y2 : the coordinates of the corners
  7.         Color            : the color, 0, 1, 2, or 3
  8.         FillIt           : rectangle will be open if this is 0, filled
  9.                            otherwise
  10.  
  11. }
  12.  
  13. {$I rectangl.lib}
  14.  
  15. var
  16.   N : byte;
  17. begin
  18.   HiRes;
  19.   rectangle(10,10,20,20,1,0);
  20.   rectangle(200,10,250,100,1,1);
  21.   rectangle(5,5,150,150,1,0);
  22.   delay(3000);
  23.   GraphMode;
  24.   rectangle(10,10,20,20,1,0);
  25.   rectangle(200,10,250,100,2,1);
  26.   rectangle(5,5,150,150,3,0);
  27.   HiRes;
  28.   for N := 1 to 19 do
  29.     rectangle(N,N,20*N,10*N,1,0);
  30.   delay(2000);
  31.   TextMode(BW80);
  32. end.