/*
 * BCC2GRX  -  Interfacing Borland based graphics programs to LIBGRX
 * Copyright (C) 1993-96 by Hartmut Schirmer
 *
 * This library is copyrighted (see above). It might be used and
 * distributed freely as long as all copyright notices are left
 * intact.
 *
 * You may not distribute any changed versions of BCC2GRX without
 * written permission by Hartmut Schirmer.
 *
 * You are permitted to distribute an application linked with BCC2GRX
 * in binary only, provided that the documentation of the program:
 *
 *    a)   informs the user that BCC2GRX is used in the program, AND
 *
 *    b)   provides the user with the necessary information about
 *         how to obtain BCC2GRX. (i.e. ftp site, etc..)
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 *
 * Contact :                Hartmut Schirmer
 *                          Feldstrasse 118
 *                  D-24105 Kiel
 *                          Germany
 *
 * e-mail : hsc@techfak.uni-kiel.d400.de
 */

#include "bccgrx00.h"

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

  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;
  }
}