1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
/*
* TransFig: Facility for Translating Fig code
* Copyright (c) 1991 by Micah Beck
* Parts Copyright (c) 1985-1988 by Supoj Sutanthavibul
* Parts Copyright (c) 1989-2002 by Brian V. Smith
*
* Any party obtaining a copy of these files is granted, free of charge, a
* full and unrestricted irrevocable, world-wide, paid up, royalty-free,
* nonexclusive right and license to deal in this software and
* documentation files (the "Software"), including without limitation the
* rights to use, copy, modify, merge, publish and/or distribute copies of
* the Software, and to permit persons who receive copies from any such
* party to do so, with the only requirement being that this copyright
* notice remain intact.
*
*/
/* The selection of font names may be site dependent */
char *picfontnames[] = {
"R", "R", /* default */
"R", /* roman */
"B", /* bold */
"I", /* italic */
"H", /* sans serif */
"C" /* typewriter */
};
#define MAXFONTSIZE 108
#define PICFONT(F) (picfontnames[((F) <= MAX_FONT) ? (F)+1 : MAX_FONT])
#define PICFONTSIZE(S) ((S) > 0 ? \
((S) <= MAXFONTSIZE ? \
(int)round(S) : \
MAXFONTSIZE) : \
(int)font_size)
#define PICFONTMAG(T) PICFONTSIZE((int)(T->size*(rigid_text(T) ? 1.0 : fontmag)))
|
