1 /**
2  ** BCC2GRX  -  Interfacing Borland based graphics programs to LIBGRX
3  ** Copyright (C) 1993-97 by Hartmut Schirmer
4  **
5  **
6  ** Contact :                Hartmut Schirmer
7  **                          Feldstrasse 118
8  **                  D-24105 Kiel
9  **                          Germany
10  **
11  ** e-mail : hsc@techfak.uni-kiel.de
12  **
13  ** This file is part of the GRX graphics library.
14  **
15  ** The GRX graphics library is free software; you can redistribute it
16  ** and/or modify it under some conditions; see the "copying.grx" file
17  ** for details.
18  **
19  ** This library is distributed in the hope that it will be useful,
20  ** but WITHOUT ANY WARRANTY; without even the implied warranty of
21  ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
22  **
23  **/
24 
25 #include "bccgrx00.h"
26 
setfillstyle(int pattern,int color)27 void setfillstyle(int pattern, int color)
28 {
29   _DO_INIT_CHECK;
30   if (pattern < 0 || pattern > USER_FILL) {
31     ERR = grError;
32     return;
33   }
34   FPATT = pattern;
35   FILL  = color;
36   FILLP.gp_bmp_data = (unsigned char *)&__gr_fpatterns[FPATT];
37 }
38 
39