1 | /* |
---|
2 | * TransFig: Facility for Translating Fig code |
---|
3 | * Copyright (c) 1985 Supoj Sutantavibul |
---|
4 | * Copyright (c) 1991 Micah Beck |
---|
5 | * |
---|
6 | * Permission to use, copy, modify, distribute, and sell this software and its |
---|
7 | * documentation for any purpose is hereby granted without fee, provided that |
---|
8 | * the above copyright notice appear in all copies and that both that |
---|
9 | * copyright notice and this permission notice appear in supporting |
---|
10 | * documentation. The authors make no representations about the suitability |
---|
11 | * of this software for any purpose. It is provided "as is" without express |
---|
12 | * or implied warranty. |
---|
13 | * |
---|
14 | * THE AUTHORS DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, |
---|
15 | * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO |
---|
16 | * EVENT SHALL THE AUTHORS BE LIABLE FOR ANY SPECIAL, INDIRECT OR |
---|
17 | * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, |
---|
18 | * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER |
---|
19 | * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR |
---|
20 | * PERFORMANCE OF THIS SOFTWARE. |
---|
21 | * |
---|
22 | */ |
---|
23 | |
---|
24 | static char *psfontnames[] = { |
---|
25 | "Times-Roman", "Times-Roman", /* default */ |
---|
26 | "Times-Roman", /* roman */ |
---|
27 | "Times-Bold", /* bold */ |
---|
28 | "Times-Italic", /* italic */ |
---|
29 | "Helvetica", /* sans serif */ |
---|
30 | "Courier" /* typewriter */ |
---|
31 | }; |
---|
32 | |
---|
33 | #define PS_FONTNAMES(T) \ |
---|
34 | (((v2_flag&&!v21_flag) || psfont_text(T)) ? PSfontnames : psfontnames) |
---|
35 | |
---|
36 | #define PSFONT(T) \ |
---|
37 | ((T->font) <= MAXFONT(T) ? PS_FONTNAMES(T)[T->font+1] : PS_FONTNAMES(T)[0]) |
---|
38 | |
---|
39 | #define PSFONTMAG(T) (((T->size) > 0 ? \ |
---|
40 | ((T->size) <= ULIMIT_FONT_SIZE ? \ |
---|
41 | (T->size) : \ |
---|
42 | ULIMIT_FONT_SIZE) : \ |
---|
43 | font_size)/(rigid_text(T) ? mag : 1.0)) |
---|