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 "text.h"
26 
setusercharsize(int multx,int divx,int multy,int divy)27 void setusercharsize(int multx, int divx, int multy, int divy)
28 {
29   _DO_INIT_CHECK;
30   __gr_text_init();
31   if (divx <= 0 || divy <= 0 || multx < 0 || multy < 0 || BITMAP(TXT.font)) {
32     ERR = grError;
33     return;
34   }
35   TXT.charsize = USER_CHAR_SIZE;
36   __gr_text_multx = __gr_text_usr_multx = multx;
37   __gr_text_divx  = __gr_text_usr_divx  = divx;
38   __gr_text_multy = __gr_text_usr_multy = multy;
39   __gr_text_divy  = __gr_text_usr_divy  = divy;
40 }
41 
42