home *** CD-ROM | disk | FTP | other *** search
- /*
- * TransFig: Facility for Translating Fig code
- * Copyright (c) 1985 Supoj Sutantavibul
- * Copyright (c) 1991 Micah Beck
- *
- * Permission to use, copy, modify, distribute, and sell this software and its
- * documentation for any purpose is hereby granted without fee, provided that
- * the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation. The authors make no representations about the suitability
- * of this software for any purpose. It is provided "as is" without express
- * or implied warranty.
- *
- * THE AUTHORS DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
- * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
- * EVENT SHALL THE AUTHORS BE LIABLE FOR ANY SPECIAL, INDIRECT OR
- * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
- * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
- * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
- * PERFORMANCE OF THIS SOFTWARE.
- *
- */
-
- static char *psfontnames[] = {
- "Times-Roman", "Times-Roman", /* default */
- "Times-Roman", /* roman */
- "Times-Bold", /* bold */
- "Times-Italic", /* italic */
- "Helvetica", /* sans serif */
- "Courier" /* typewriter */
- };
-
- #define PS_FONTNAMES(T) \
- (((v2_flag&&!v21_flag) || psfont_text(T)) ? PSfontnames : psfontnames)
-
- #define PSFONT(T) \
- ((T->font) <= MAXFONT(T) ? PS_FONTNAMES(T)[T->font+1] : PS_FONTNAMES(T)[0])
-
- #define PSFONTMAG(T) (((T->size) > 0 ? \
- ((T->size) <= ULIMIT_FONT_SIZE ? \
- (T->size) : \
- ULIMIT_FONT_SIZE) : \
- font_size)/(rigid_text(T) ? mag : 1.0))
-