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 
27 /* ----------------------------------------------------------------- */
setfillpattern(char * upattern,int color)28 void setfillpattern( char  *upattern, int color)
29 {
30   _DO_INIT_CHECK;
31   FILL  = color;
32   FPATT = USER_FILL;
33   memcpy(__gr_fpatterns[USER_FILL], upattern, 8);
34   FILLP.gp_bmp_data = (unsigned char *)&__gr_fpatterns[USER_FILL];
35 }
36 
37