clip.inc

将bmf在DOS下显示出来

{$IFNDEF clip}
{$DEFINE clip}
{$I RECT.INC}
var
  clipping:boolean:=false;
  clip:TRect; {must be properly initialized before use}
procedure setClip(_x,_y,_w,_h:TCoordinate);
begin
  clip.init(_x,_y,_w,_h);
  clipping:=true;
end;  {setClip}
{$ENDIF}