home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB4.ZIP / RECTANGL.LIB < prev    next >
Encoding:
Text File  |  1984-12-03  |  767 b   |  26 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. }
  6. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  7. procedure rectangle(X1,Y1,X2,Y2 : integer; Color, FillIt : byte);
  8. var
  9.   row : integer;
  10. begin
  11.   draw(X1,Y1,X2,Y1,Color);
  12.   if FillIt = 1 then
  13.     begin
  14.       for row := Y1+1 to Y2-1 do
  15.         draw(X1,row,X2,row,Color);
  16.     end
  17.   else
  18.     begin
  19.       draw(X2,Y1,X2,Y2,Color);
  20.     end;
  21.   Draw(X2,Y2,X1,Y2,Color);
  22.   if Fillit <> 1 then
  23.     Draw(X1,Y2,X1,Y1,Color);
  24. end;
  25. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  26.