home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
USCX
/
PASPGMS.ZIP
/
RECTANGL.LIB
< prev
next >
Wrap
Text File
|
1985-09-25
|
767b
|
26 lines
{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.
}
{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
procedure rectangle(X1,Y1,X2,Y2 : integer; Color, FillIt : byte);
var
row : integer;
begin
draw(X1,Y1,X2,Y1,Color);
if FillIt = 1 then
begin
for row := Y1+1 to Y2-1 do
draw(X1,row,X2,row,Color);
end
else
begin
draw(X2,Y1,X2,Y2,Color);
end;
Draw(X2,Y2,X1,Y2,Color);
if Fillit <> 1 then
Draw(X1,Y2,X1,Y1,Color);
end;
{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}