/*
 *  BCC2GRX  -  Interfacing Borland based graphics programs to LIBGRX
 *  Copyright (C) 1993  Hartmut Schirmer
 *
 *  see bccgrx.c for details
 */

#include "bccgrx00.h"

void bar(int left, int top, int right, int bottom)
{
  _DO_INIT_CHECK;
  left += VL; right  += VL;
  top  += VT; bottom += VT;

  switch (FPATT) {
    case SOLID_FILL : GrFilledBox( left, top, right, bottom, FILL);
		      break;
    case EMPTY_FILL : GrFilledBox( left, top, right, bottom, COLBG);
		      break;
    default         : FILLP.gp_bmp_fgcolor = FILL;
		      FILLP.gp_bmp_bgcolor = COLBG;
		      GrPatternFilledBox( left, top, right, bottom, &FILLP);
		      break;
  }
}

/* ------------------------------------------------------------------------ */

void clearviewport(void)
{
  _DO_INIT_CHECK;
  GrFilledBox( VL, VT, VR, VB, COLBG);
  moveto(0,0);
}