Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume23/transfig/part05

Internet Message Format | 1991-06-19 | 30.6 KB

Path: j.cc.purdue.edu!mentor.cc.purdue.edu!noose.ecn.purdue.edu!samsung!zaphod.mps.ohio-state.edu!usc!apple!bbn.com!papaya.bbn.com!rsalz
From: [e-mail] (Rich Salz)
Newsgroups: comp.sources.unix
Subject: v23i018:  Tools for creating TeX documents with portable graphics, Part05/06
Message-ID: <[e-mail]>
Date: 31 Aug 90 13:43:24 GMT
Organization: BBN Systems and Technologies, Cambridge MA
Lines: 1171
Approved: [e-mail]
X-Checksum-Snefru: 8a059bdc f22e12ec b155b6b2 a054c52c

Submitted-by: Micah Beck <[e-mail]>
Posting-number: Volume 23, Issue 18
Archive-name: transfig/part05

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#        "End of archive 5 (of 6)."
# Contents:  transfig/fig2dev/dev/genepic.c
# Wrapped by beck@rocky on Thu May 17 15:56:13 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'transfig/fig2dev/dev/genepic.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'transfig/fig2dev/dev/genepic.c'\"
else
echo shar: Extracting \"'transfig/fig2dev/dev/genepic.c'\" \(28053 characters\)
sed "s/^X//" >'transfig/fig2dev/dev/genepic.c' <<'END_OF_FILE'
X/*
X * genepic.c: (E)EPIC driver for fig2dev
X *
X * Converted from fig2epic 5/89 by Micah Beck
X */
X/*==================================================================*/
X/*    fig2epic (Fig to EPIC converter)                 */
X/*         Version 1.1d <March 30, 1988>                */
X/*                                    */
X/*    Written by Conrad Kwok, Division of Computer Science, UCD   */
X/*                                    */
X/*    Permission is granted for freely distribution of this file  */
X/*        provided that this message is included.            */
X/*==================================================================*/
X
X/*====================================================================
X  Changes:
X
X  Version 1.0d:<September 18, 1988>
X  1. Add the option -P for Page mode. Two more configurable parameter---
X     Preamble and Postamble.
X
X  Version 1.1a: <January 18, 1989>
X  1. Fix the bug in closed control splines. The routine convertCS(p) is being
X     called once too often.
X
X  2. Add supports to Variable line width
X  3. Add supports to black, white or shaded area fill.
X
X  Version 1.1b: <Febrary 2, 1989>
X  1. Draw outline for area-filled figures when using dvips.
X
X  Version 1.1c: <Febrary 7, 1989>
X  1. Supports all 5 gray level in area fill.
X
X  Version 1.1d: <March 30, 1989>
X  1. Add supports for Gould NP1 (Bsd4.3) (Recieve the changes from
X        mcvax!presto.irisa.fr![e-mail]. Sorry
X        I don't have his/her name)
X  2. Add exit(0) before exit in the main.
X====================================================================*/
X
X
X#include <stdio.h>
X#include <math.h>
X#include <string.h>
X#include <varargs.h>
X#include <ctype.h>
X#include "object.h"
X#include "fig2dev.h"
X#include "texfonts.h"
X#include "pi.h"
X
X#ifdef MSDOS
X#define getopt egetopt
X#define M_PI 3.14159265358979324
X#endif
X
X#define DrawOutLine
X#ifdef DrawOutLine
Xint OutLine=0;
X#endif
X
X#define TopCoord 840        /* 10.5 in * 80 (DPI)            */
X                /* Actually, it can be any value */
X#define PtPerLine 3
X#define ThinLines 0
X#define ThickLines 1
X#define FALSE 0
X#define TRUE 1
X#define Epic 0
X#define EEpic_emu 1
X#define EEpic 2
X#define None 0
X#define SolidLineBox 1
X#define DashLineBox 2
X#define BothBoxType 3
X#define Normal 0
X#define Economic 1
X#define DottedDash 2
X
Xvoid genepic_ctl_spline(), genepic_int_spline();
Xvoid genepic_open_spline(), genepic_closed_spline();
X
X/* Structure for Point with "double" values */
Xstruct fp_struct {
X    double x,y;
X};
X
Xtypedef struct fp_struct FPoint;
X
X/* Local to the file only */
Xstatic int CoordSys = 2;
Xstatic double Threshold;
Xstatic int DPI;
Xstatic int CurWidth = 0;
Xstatic int LineStyle = SOLID_LINE;
Xstatic int LLX = 0, LLY = 0;
Xstatic char *LnCmd;
Xstatic int MaxCircleRadius;
Xstatic double DashLen;
Xstatic int PageMode = FALSE;
Xstatic F_pattern *PatternType=UNFILLED;
Xstatic struct {
X    double mag;
X    int size;
X} ScaleTbl[5] = {
X    { 0.6667, 8 },
X    { 0.75  , 9 },
X    { 0.8333, 10 },
X    { 0.9167, 11 },
X    { 1.0   , 12 }
X};
X
X/* Definition of Keywords for some of the configurable parameter */
Xchar *Tlangkw[] = { /* The order must match the definition of corr. constants */
X    "Epic", "EEpicemu", "EEpic", NULL
X};
X
Xchar *EllCmdkw[] = {
X    "ellipse", "oval", NULL
X};
X
Xchar *EllCmdstr[] = {
X    "\\%s%s{%d}{%d}}\n", "\\%s%s(%d,%d)}\n"
X};
X
Xchar *FillCommands[] = {
X    "", "\\blacken", "\\shade", "\\shade", "\\shade", "\\whiten"
X};
X
X#define TEXT_LINE_SEP '\n'
X/* The following two arrays are used to translate characters which
X   are special to LaTeX into characters that print as one would expect.
X   Note that the <> characters aren't really special LaTeX characters
X   but they will not print as themselves unless one is using a font
X   like tt. */
Xchar latex_text_specials[] = "\\{}><^~$&#_%";
Xchar *latex_text_mappings[] = {
X  "$\\backslash$",
X  "$\\{$",
X  "$\\}$",
X  "$>$",
X  "$<$",
X  "\\^{}",
X  "\\~{}",
X  "\\$",
X  "\\&",
X  "\\#",
X  "\\_",
X  "\\%"};
X
X
X/* Configurable parameters */
Xint LowerLeftX=0, LowerLeftY=0;
Xdouble SegLen = 0.0625; /* inch */
Xint Verbose = FALSE;
Xint TopMargin = 5;
Xint BottomMargin = 10;
Xint DotDist = 5;
Xint LineThick = 2;
Xint TeXLang = EEpic;
Xdouble DashScale=1;
Xint EllipseCmd=0;
Xint UseBox=None;
Xint DashType=Normal;
Xchar *Preamble="\\documentstyle[epic,eepic]{article}\n\\begin{document}\n\\begin{center}\n";
Xchar *Postamble="\\end{center}\n\\end{document}\n";
Xint VarWidth=FALSE;
X
Xvoid genepic_option(opt, optarg)
Xchar opt, *optarg;
X{
X      int loop;
X
X        switch (opt) {
X        case 'S':
X            loop = atoi(optarg);
X            if (loop < 8 || loop > 12) {
X                put_msg("Scale must be between 8 and 12 inclusively\n");
X                exit(1);
X            }
X            loop -= 8;
X            mag = ScaleTbl[loop].mag;
X            font_size = ScaleTbl[loop].size;
X            break;
X
X        case 'l':
X            LineThick = atoi(optarg);
X            break;
X
X        case 'v':
X            Verbose = TRUE;
X            break;
X
X    case 'L':
X        for (loop=0; loop < 3; loop++) {
X            if (stricmp(optarg, Tlangkw[loop]) == 0) break;
X        }
X        TeXLang = loop;
X        break;
X
X    case 'w':
X    case 'W':
X        VarWidth = opt=='W';
X        break;
X
X    case 'f':
X    {   int i;
X
X        for ( i = 1; i <= MAXFONT + 1; i++ )
X        if ( !strcmp(optarg, fontnames[i]) ) break;
X
X        if ( i > MAXFONT + 1 )
X        fprintf(stderr,
X            "warning: non-standard font name %s\n", optarg);
X    }
X
X            fontnames[0] = fontnames[1] = optarg;
X        break;
X
X    case 's':
X        if (font_size <= 0 || font_size > MAXFONTSIZE) {
X        fprintf(stderr,
X            "warning: font size %d out of bounds\n", font_size);
X        }
X        break;
X
X    case 'm':
X        break;
X
X    default:
X        put_msg(Err_badarg, opt, "epic");
X        exit(1);
X        break;
X        }
X}
X
Xstatic fconvertCS(fpt)
XFPoint *fpt;
X{
X    if (CoordSys) {
X        fpt->y = TopCoord - fpt->y;
X    }
X    fpt->x -= LLX;
X    fpt->y -= LLY;
X}
X
XconvertCS(pt)
XF_point *pt;
X{
X    if (CoordSys) {
X        pt->y = TopCoord - pt->y;
X    }
X    pt->x -= LLX;
X    pt->y -= LLY;
X}
X
Xvoid genepic_start(objects)
XF_compound *objects;
X{
X    int temp;
X    F_point pt1, pt2;
X    F_arc *arc;
X    F_compound *comp;
X    F_ellipse *ell;
X    F_line *line;
X    F_spline *spl;
X    F_text *text;
X
X    fontsizes[0] = fontsizes[1] = TEXFONTSIZE(font_size);
X
X    switch (TeXLang) {
X    case Epic:
X        EllipseCmd = 1; /* Oval */
X        LnCmd = "drawline";
X        break;
X    case EEpic_emu:
X    case EEpic:
X        LnCmd = "path";
X        break;
X    default:
X        put_msg("Program error in main\n");
X        break;
X    }
X    if (PageMode) {
X        fputs(Preamble, stdout);
X    }
X
X    DPI = objects->nwcorner.x;
X    if (DPI <= 0) {
X        put_msg("Resolution has to be positive. Default to 80!\n");
X        DPI = 80;
X    }
X    coord_system = objects->nwcorner.y;
X    switch (coord_system) {
X    case 1:
X        CoordSys = 0;
X        break;
X    case 2:
X        CoordSys = 1;
X        break;
X    default:
X        put_msg("Unknown Coordinate system -- %d\n", coord_system);
X        exit(1);
X    }
X    pt1.x = llx;
X    pt1.y = lly;
X    pt2.x = urx;
X    pt2.y = ury;
X    convertCS(&pt1);
X    convertCS(&pt2);
X    if (pt1.x > pt2.x) {
X        temp = pt1.x;
X        pt1.x = pt2.x;
X        pt2.x = temp;
X    }
X    if (pt1.y > pt2.y) {
X        temp = pt1.y;
X        pt1.y = pt2.y;
X        pt2.y = temp;
X    }
X    LLX = pt1.x - LowerLeftX;
X    LLY = pt1.y - LowerLeftY;
X    if (Verbose) {
X        fprintf(tfp, "%%\n%% Language in use is %s\n%%\n", Tlangkw[TeXLang]);
X    }
X    Threshold = 1.0 / DPI * mag;
X    fprintf(tfp, "\\setlength{\\unitlength}{%.4fin}\n", Threshold);
X    MaxCircleRadius = (int) (40 / 72.27 / Threshold);
X    Threshold = SegLen / Threshold;
X    fprintf(tfp, "\\begin{picture}(%d,%d)(%d,%d)\n",
X           pt2.x-pt1.x, pt2.y-pt1.y + TopMargin + BottomMargin,
X           LowerLeftX, LowerLeftY-BottomMargin);
X}
X
Xvoid genepic_end()
X{
X    fprintf(tfp, "\\end{picture}\n");
X    if (PageMode)
X        fputs(Postamble, stdout);
X}
X
Xstatic set_linewidth(w)
Xint w;
X{
X    int old_width;
X
X    if (w < 0) return;
X    old_width=CurWidth;
X    CurWidth = (w >= LineThick) ? (VarWidth ? w : ThickLines) : ThinLines;
X    if (old_width != CurWidth) {
X    if (CurWidth==ThinLines) {
X        fprintf(tfp, "\\thinlines\n");
X    } else if (VarWidth) {
X        fprintf(tfp, "\\allinethickness{%d}%%\n",w);
X    } else {
X        fprintf(tfp, "\\thicklines\n");
X    }
X    }
X}
X
Xset_pattern(type)
XF_pattern *type;
X{
X    static unsigned long patterns[3][32] = {
X    { 0x55555555, 0, 0x55555555, 0, 0x55555555, 0, 0x55555555, 0,
X      0x55555555, 0, 0x55555555, 0, 0x55555555, 0, 0x55555555, 0,
X      0x55555555, 0, 0x55555555, 0, 0x55555555, 0, 0x55555555, 0,
X      0x55555555, 0, 0x55555555, 0, 0x55555555, 0, 0x55555555, 0},
X    { 0xcccccccc, 0, 0, 0, 0xcccccccc, 0, 0, 0,
X      0xcccccccc, 0, 0, 0, 0xcccccccc, 0, 0, 0,
X      0xcccccccc, 0, 0, 0, 0xcccccccc, 0, 0, 0,
X      0xcccccccc, 0, 0, 0, 0xcccccccc, 0, 0, 0},
X    { 0xc0c0c0c0, 0, 0, 0, 0, 0, 0, 0,
X      0xc0c0c0c0, 0, 0, 0, 0, 0, 0, 0,
X      0xc0c0c0c0, 0, 0, 0, 0, 0, 0, 0,
X      0xc0c0c0c0, 0, 0, 0, 0, 0, 0, 0}};
X    int count, loop1, loop2, i;
X
X    if (type < DARK_GRAY_FILL || type > LIGHT_GRAY_FILL) return;
X    if (type != PatternType) {
X    PatternType=type;
X    i = (int) PatternType - (int) DARK_GRAY_FILL;
X    fprintf(tfp, "\\texture{");
X    count=0;
X    for (loop1=4; loop1>0;) {
X        for (loop2=8; loop2>0; loop2--)
X        fprintf(tfp, "%lx ", patterns[i][count++]);
X        if (--loop1 > 0)
X        fprintf(tfp, "\n\t");
X        else
X        fprintf(tfp, "}%\n");
X    }
X    }
X}
X
Xvoid genepic_line(line)
XF_line *line;
X{
X    F_point *p, *q;
X    int pt_count = 0, temp;
X    int boxflag = FALSE, llx, lly, urx, ury;
X    double dtemp;
X
X    set_linewidth(line->thickness);
X    set_style(line->style, line->style_val);
X    p = line->points;
X    q = p->next;
X    convertCS(p);
X    if (q == NULL) {
X    fprintf(tfp, "\\drawline(%d,%d)(%d,%d)\n", p->x, p->y, p->x, p->y);
X    return;
X    }
X    if (line->type == T_BOX) {
X    if (Verbose) {
X        fprintf(tfp, "%%\n%% A box\n%%\n");
X    }
X    switch (LineStyle) {
X    case SOLID_LINE:
X        if (UseBox == BothBoxType || UseBox == SolidLineBox) {
X            boxflag = TRUE;
X        }
X        break;
X    case DASH_LINE:
X        if (UseBox == BothBoxType || UseBox == DashLineBox) {
X            boxflag = TRUE;
X        }
X        break;
X    }
X    if (boxflag) {
X        llx = urx = p->x;
X        lly = ury = p->y;
X        while (q != NULL) {
X            convertCS(q);
X            if (q->x < llx) {
X                llx = q->x;
X            } else if (q->x > urx) {
X                urx = q->x;
X            }
X            if (q->y < lly) {
X                lly = q->y;
X            } else if (q->y > ury) {
X                ury = q->y;
X            }
X            q = q->next;
X        }
X        switch(LineStyle) {
X        case SOLID_LINE:
X            fprintf(tfp, "\\put(%d,%d){\\framebox(%d,%d){}}\n",
X                llx, lly, urx-llx, ury-lly);
X            break;
X        case DASH_LINE:
X        temp = (int) ((urx-llx) / DashLen);
X        dtemp = (double) (urx-llx) / temp;
X            fprintf(tfp, "\\put(%d,%d){\\dashbox{%4.3f}(%d,%d){}}\n",
X                llx, lly, dtemp , urx-llx, ury-lly);
X            break;
X        default:
X            put_msg("Program Error! No other line styles allowed.\n");
X            break;
X        }
X        return;
X      }
X    }
X    set_pattern(line->area_fill);
X    convertCS(q);
X    if (line->back_arrow) {
X    draw_arrow_head(q, p, line->back_arrow->ht, line->back_arrow->wid);
X        if (Verbose) fprintf(tfp, "%%\n");
X    }
X    switch (LineStyle) {
X    case SOLID_LINE:
X    if (q->next != NULL && strcmp(LnCmd,"path")==0) {
X        if (line->area_fill < UNFILLED) line->area_fill = UNFILLED;
X        fprintf(tfp, "%s", FillCommands[(int) line->area_fill]);
X    }
X    fprintf(tfp, "\\%s", LnCmd);
X#ifdef DrawOutLine
X    if (line->area_fill != UNFILLED && OutLine == 0) OutLine=1;
X#endif
X    break;
X    case DASH_LINE:
X        if ((TeXLang==Epic || TeXLang ==EEpic_emu) && DashType == Economic) {
X            fprintf(tfp, "\\drawline[-50]");
X        } else {
X        fprintf(tfp, "\\dashline{%4.3f}", DashLen);
X    }
X    break;
X    case DOTTED_LINE:
X    fprintf(tfp, "\\dottedline{%d}", DotDist);
X    break;
X    default:
X    fprintf(stderr,"Unknown Style\n");
X    exit(1);
X    }
X    fprintf(tfp, "(%d,%d)", p->x, p->y);
X    pt_count++;
X    while(q->next != NULL) {
X    if (++pt_count > PtPerLine) {
X        pt_count=1;
X        fprintf(tfp, "\n\t");
X    }
X    fprintf(tfp, "(%d,%d)", q->x, q->y);
X    p=q;
X    q = q->next;
X    convertCS(q);
X    }
X    fprintf(tfp, "(%d,%d)\n", q->x, q->y);
X#ifdef DrawOutLine
X    if (OutLine == 1) {
X    OutLine=0;
X    fprintf(tfp, "\\%s", LnCmd);
X    p=line->points;
X    pt_count=0;
X    q=p->next;
X    fprintf(tfp, "(%d,%d)", p->x, p->y);
X    pt_count++;
X    while(q->next != NULL) {
X        if (++pt_count > PtPerLine) {
X        pt_count=1;
X        fprintf(tfp, "\n\t");
X        }
X        fprintf(tfp, "(%d,%d)", q->x, q->y);
X        p=q;
X        q = q->next;
X    }
X    fprintf(tfp, "(%d,%d)\n", q->x, q->y);
X    }
X#endif
X    if (line->for_arrow) {
X    draw_arrow_head(p, q, line->for_arrow->ht, line->for_arrow->wid);
X        if (Verbose) fprintf(tfp, "%%\n");
X    }
X}
X
Xset_style(style, dash_len)
Xint style;
Xfloat dash_len;
X{
X    LineStyle = style;
X    if (LineStyle == DASH_LINE) {
X        switch (DashType) {
X        case DottedDash:
X            LineStyle = DOTTED_LINE;
X            break;
X        default:
X            DashLen = dash_len * DashScale;
X            break;
X        }
X    }
X}
X
X
Xvoid genepic_spline(spl)
XF_spline *spl;
X{
X    set_linewidth(spl->thickness);
X    set_style(SOLID_LINE, 0.0);
X    if (int_spline(spl)) {
X    genepic_itp_spline(spl);
X    } else {
X    genepic_ctl_spline(spl);
X    }
X}
X
Xvoid genepic_ctl_spline(spl)
XF_spline *spl;
X{
X    if (closed_spline(spl)) {
X    genepic_closed_spline(spl);
X    } else {
X    genepic_open_spline(spl);
X    }
X}
X
Xstatic void genepic_open_spline(spl)
XF_spline *spl;
X{
X    F_point *p, *q, *r;
X    FPoint first, mid;
X    int pt_count = 0;
X
X    p = spl->points;
X    q = p->next;
X    convertCS(p);
X    convertCS(q);
X    if (spl->back_arrow) {
X    draw_arrow_head(q, p, spl->back_arrow->ht, spl->back_arrow->wid);
X        if (Verbose) fprintf(tfp, "%%\n");
X    }
X    if (q->next == NULL) {
X    fprintf(tfp, "\\%s(%d,%d)(%d,%d)\n", LnCmd,
X           p->x, p->y, q->x, q->y);
X    return;
X    }
X    if (TeXLang == EEpic || TeXLang == EEpic_emu) {
X        fprintf(tfp, "\\spline(%d,%d)\n", p->x, p->y);
X        pt_count++;
X        while(q->next != NULL) {
X             if (++pt_count > PtPerLine) {
X                 pt_count=1;
X                 fprintf(tfp, "\n\t");
X             }
X             fprintf(tfp, "(%d,%d)", q->x, q->y);
X             p=q;
X             q = q->next;
X             convertCS(q);
X        }
X        fprintf(tfp, "(%d,%d)\n", q->x, q->y);
X    } else {
X        fprintf(tfp, "\\%s(%d,%d)\n", LnCmd, p->x, p->y);
X        r = q->next;
X        convertCS(r);
X        first.x = p->x;
X        first.y = p->y;
X        while (r->next != NULL) {
X            mid.x = (q->x + r->x) / 2.0;
X            mid.y = (q->y + r->y) / 2.0;
X            chaikin_curve(first.x, first.y, (double) q->x, (double) q->y,
X                            mid.x, mid.y);
X            first = mid;
X            q=r;
X            r = r->next;
X            convertCS(r);
X        }
X        chaikin_curve(first.x, first.y, (double) q->x, (double) q->y,
X                        (double) r->x, (double) r->y);
X        p=q;
X        q=r;
X    fprintf(tfp, "\n");
X    }
X    if (spl->for_arrow) {
X    draw_arrow_head(p, q, spl->for_arrow->ht, spl->for_arrow->wid);
X        if (Verbose) fprintf(tfp, "%%\n");
X    }
X}
X
Xstatic void genepic_closed_spline(spl)
XF_spline *spl;
X{
X    F_point *p;
X    double cx1, cy1, cx2, cy2, cx3, cy3, cx4, cy4;
X    double x1, y1, x2, y2;
X
X    p = spl->points;
X    convertCS(p);
X    x1 = p->x;  y1 = p->y;
X    p = p->next;
X    convertCS(p);
X    x2 = p->x;  y2 = p->y;
X    cx1 = (x1 + x2) / 2;      cy1 = (y1 + y2) / 2;
X    cx2 = (x1 + 3 * x2) / 4;  cy2 = (y1 + 3 * y2) / 4;
X    for (p = p->next; p != NULL; p = p->next) {
X    fprintf(tfp, "\\%s(%.3f,%.3f)", LnCmd, cx1, cy1);
X    x1 = x2;  y1 = y2;
X    convertCS(p);
X    x2 = p->x;  y2 = p->y;
X    cx3 = (3 * x1 + x2) / 4;  cy3 = (3 * y1 + y2) / 4;
X    cx4 = (x1 + x2) / 2;      cy4 = (y1 + y2) / 2;
X    quadratic_spline(cx1, cy1, cx2, cy2, cx3, cy3, cx4, cy4);
X    fprintf(tfp, "\n");
X    cx1 = cx4;  cy1 = cy4;
X    cx2 = (x1 + 3 * x2) / 4;  cy2 = (y1 + 3 * y2) / 4;
X    }
X    x1 = x2;  y1 = y2;
X    p = spl->points->next;
X    x2 = p->x;  y2 = p->y;
X    cx3 = (3 * x1 + x2) / 4;  cy3 = (3 * y1 + y2) / 4;
X    cx4 = (x1 + x2) / 2;      cy4 = (y1 + y2) / 2;
X    fprintf(tfp, "\\%s(%.3f,%.3f)", LnCmd, cx1, cy1);
X    quadratic_spline(cx1, cy1, cx2, cy2, cx3, cy3, cx4, cy4);
X    fprintf(tfp, "\n");
X}
X
Xchaikin_curve(a1, b1, a2, b2, a3, b3)
Xdouble a1, b1, a2, b2, a3, b3;
X{
X    double xm1, xmid, xm2, ym1, ymid, ym2;
X
X    if (fabs(a1-a3) < Threshold && fabs(b1-b3) < Threshold) {
X        fprintf(tfp, "\t(%.3f,%.3f)\n", a3, b3);
X    } else {
X        xm1 = (a1 + a2) / 2;
X        ym1 = (b1 + b2) / 2;
X        xm2 = (a2 + a3) / 2;
X        ym2 = (b2 + b3) / 2;
X        xmid = (xm1 + xm2) / 2;
X        ymid = (ym1 + ym2) / 2;
X        chaikin_curve(a1, b1, xm1, ym1, xmid, ymid);
X        chaikin_curve(xmid, ymid, xm2, ym2, a3, b3);
X    }
X}
X
Xstatic quadratic_spline(a1, b1, a2, b2, a3, b3, a4, b4)
Xdouble    a1, b1, a2, b2, a3, b3, a4, b4;
X{
X    double    x1, y1, x4, y4;
X    double    xmid, ymid;
X
X    x1 = a1; y1 = b1;
X    x4 = a4; y4 = b4;
X
X    xmid = (a2 + a3) / 2;
X    ymid = (b2 + b3) / 2;
X    if (fabs(x1 - xmid) < Threshold && fabs(y1 - ymid) < Threshold) {
X    fprintf(tfp, "\t(%.3f,%.3f)\n", xmid, ymid);
X    } else {
X    quadratic_spline(x1, y1, ((x1+a2)/2), ((y1+b2)/2),
X             ((3*a2+a3)/4), ((3*b2+b3)/4), xmid, ymid);
X    }
X
X    if (fabs(xmid - x4) < Threshold && fabs(ymid - y4) < Threshold) {
X    fprintf(tfp, "\t(%.3f,%.3f)\n", x4, y4);
X    } else {
X    quadratic_spline(xmid, ymid, ((a2+3*a3)/4), ((b2+3*b3)/4),
X             ((a3+x4)/2), ((b3+y4)/2), x4, y4);
X    }
X}
X
Xgenepic_itp_spline(spl)
XF_spline *spl;
X{
X    F_point *p1, *p2;
X    FPoint pt1l, pt1r, pt2l, pt2r, tmpfpt;
X    F_control *cp1, *cp2;
X
X    p1 = spl->points;
X    convertCS(p1);
X    cp1 = spl->controls;
X    pt1l.x = cp1->lx;
X    pt1l.y = cp1->ly;
X    pt1r.x = cp1->rx;
X    pt1r.y = cp1->ry;
X    fconvertCS(&pt1l);
X    fconvertCS(&pt1r);
X
X    if (spl->back_arrow) {
X    tmpfpt.x = p1->x;
X    tmpfpt.y = p1->y;
X    fdraw_arrow_head(&pt1r, &tmpfpt,
X        spl->back_arrow->ht, spl->back_arrow->wid);
X        if (Verbose) fprintf(tfp, "%%\n");
X    }
X
X    for (p2 = p1->next, cp2 = cp1->next; p2 != NULL;
X     p1 = p2, pt1r = pt2r, p2 = p2->next, cp2 = cp2->next) {
X    fprintf(tfp, "\\%s(%d,%d)", LnCmd, p1->x, p1->y);
X    convertCS(p2);
X    pt2l.x = cp2->lx;
X    pt2l.y = cp2->ly;
X    pt2r.x = cp2->rx;
X    pt2r.y = cp2->ry;
X    fconvertCS(&pt2l);
X    fconvertCS(&pt2r);
X    bezier_spline((double) p1->x, (double) p1->y,
X              pt1r.x, pt1r.y,
X              pt2l.x, pt2l.y,
X              (double) p2->x, (double) p2->y);
X    fprintf(tfp, "\n");
X    }
X
X    if (spl->for_arrow) {
X    tmpfpt.x = p1->x;
X    tmpfpt.y = p1->y;
X    fdraw_arrow_head(&pt2l, &tmpfpt,
X             spl->for_arrow->ht, spl->for_arrow->wid);
X    if (Verbose) fprintf(tfp, "%%\n");
X    }
X}
X
Xstatic bezier_spline(a0, b0, a1, b1, a2, b2, a3, b3)
Xdouble    a0, b0, a1, b1, a2, b2, a3, b3;
X{
X    double    x0, y0, x3, y3;
X    double    sx1, sy1, sx2, sy2, tx, ty, tx1, ty1, tx2, ty2, xmid, ymid;
X
X    x0 = a0; y0 = b0;
X    x3 = a3; y3 = b3;
X    if (fabs(x0 - x3) < Threshold && fabs(y0 - y3) < Threshold) {
X    fprintf(tfp, "\t(%.3f,%.3f)\n", x3, y3);
X    } else {
X    tx = (a1 + a2) / 2;        ty = (b1 + b2) / 2;
X    sx1 = (x0 + a1) / 2;    sy1 = (y0 + b1) / 2;
X    sx2 = (sx1 + tx) / 2;    sy2 = (sy1 + ty) / 2;
X    tx2 = (a2 + x3) / 2;    ty2 = (b2 + y3) / 2;
X    tx1 = (tx2 + tx) / 2;    ty1 = (ty2 + ty) / 2;
X    xmid = (sx2 + tx1) / 2;    ymid = (sy2 + ty1) / 2;
X
X    bezier_spline(x0, y0, sx1, sy1, sx2, sy2, xmid, ymid);
X    bezier_spline(xmid, ymid, tx1, ty1, tx2, ty2, x3, y3);
X    }
X}
X
Xvoid genepic_ellipse(ell)
XF_ellipse *ell;
X{
X    F_point pt;
X
X    set_linewidth(ell->thickness);
X    pt.x = ell->center.x;
X    pt.y = ell->center.y;
X    convertCS(&pt);
X    if (TeXLang == EEpic || TeXLang == EEpic_emu ||
X      ell->radiuses.x != ell->radiuses.y ||
X          ell->radiuses.x > MaxCircleRadius) {
X    set_pattern(ell->area_fill);
X        fprintf(tfp, "\\put(%d,%d){", pt.x, pt.y );
X#ifndef OLDCODE
X        if (EllipseCmd == 0) {
X        if (ell->area_fill < UNFILLED) ell->area_fill = UNFILLED;
X        fprintf(tfp, "%s", FillCommands[(int) ell->area_fill]);
X#  ifdef DrawOutLine
X        if (ell->area_fill != UNFILLED && OutLine == 0) OutLine = 1;
X#  endif
X        }
X     fprintf(tfp, EllCmdstr[EllipseCmd],EllCmdkw[EllipseCmd], "",
X           2 * ell->radiuses.x, 2 * ell->radiuses.y);
X#  ifdef DrawOutLine
X    if (OutLine == 1) {
X        OutLine=0;
X            fprintf(tfp, "\\put(%d,%d){", pt.x, pt.y );
X        fprintf(tfp, EllCmdstr[EllipseCmd],EllCmdkw[EllipseCmd], "",
X           2 * ell->radiuses.x, 2 * ell->radiuses.y);
X    }
X#  endif
X#else
X    fprintf(tfp, EllCmdstr[EllipseCmd], EllCmdkw[EllipseCmd],
X           (EllipseCmd==0 && ell->area_fill==BLACK_FILL ? "*" : ""),
X           2 * ell->radiuses.x, 2 * ell->radiuses.y);
X#endif
X    } else {
X        fprintf(tfp, "\\put(%d,%d){\\circle", pt.x, pt.y);
X        if (ell->area_fill == BLACK_FILL) {
X            fputc('*', tfp);
X        }
X        fprintf(tfp, "{%d}}\n", 2*ell->radiuses.x);
X    }
X}
X
Xvoid genepic_text(text)
XF_text *text;
X{
X    F_point pt;
X    char *tpos, *cp, *esc_cp, *special_index;
X
X    pt.x=text->base_x;
X    pt.y=text->base_y;
X    convertCS(&pt);
X    switch (text->type) {
X    case T_LEFT_JUSTIFIED:
X    case DEFAULT:
X    tpos = "[lb]";
X    break;
X    case T_CENTER_JUSTIFIED:
X    tpos = "[b]";
X    break;
X    case T_RIGHT_JUSTIFIED:
X    tpos = "[rb]";
X    break;
X    default:
X    fprintf(stderr, "unknown text position type\n");
X    exit(1);
X    }
X    fprintf(tfp, "\\put(%d,%d){\\makebox(0,0)%s{\\raisebox{0pt}[0pt][0pt]{",
X           pt.x, pt.y, tpos);
X    /* Output a shortstack in case there are multiple lines. */
X    fprintf(tfp, "\\shortstack" );
X    /* Output the justification for the shortstack. */
X    switch (text->type) {
X    case T_LEFT_JUSTIFIED:
X    case DEFAULT:
X    fprintf(tfp, "[l]");
X    break;
X    case T_CENTER_JUSTIFIED:
X    break;
X    case T_RIGHT_JUSTIFIED:
X    fprintf(tfp, "[r]");
X    break;
X    default:
X    fprintf(stderr, "unknown text position type\n");
X    exit(1);
X    }
X    fprintf(tfp, "{{\\%s%s ", TEXFONTSIZE(text->size), TEXFONT(text->font));
X    if (text->font && text->font != DEFAULT_FONT)
X    /* This loop escapes special LaTeX characters. */
X    for(cp = text->cstring; *cp; cp++) {
X              if (special_index=strchr(latex_text_specials, *cp)) {
X          /* Write out the replacement.  Implementation note: we can't
X         use puts since that will output an additional newline. */
X          esc_cp=latex_text_mappings[special_index-latex_text_specials];
X          while (*esc_cp)
X        fputc(*esc_cp++, tfp);
X        }
X        else if (*cp == TEXT_LINE_SEP) {
X          /* Handle multi-line text strings. The problem being addressed here
X         is a LaTeX bug where LaTeX is unable to handle a font which
X         spans multiple lines.  What we are doing here is closing off
X         the current font, starting a new line, and then resuming with
X         the current font. */
X          fprintf(tfp, "} \\\\\n");
X          fprintf(tfp, "{\\%s%s ", TEXFONTSIZE(text->size), TEXFONT(text->font));
X        }
X        else
X        fputc(*cp, tfp);
X          }
X    else
X    for(cp = text->cstring; *cp; cp++) {
X      if (*cp == TEXT_LINE_SEP) {
X          /* Handle multi-line text strings. */
X          fprintf(tfp, "} \\\\\n");
X          fprintf(tfp, "{\\%s%s ", TEXFONTSIZE(text->size), TEXFONT(text->font));
X        }
X        else
X          fputc(*cp, tfp);
X      }
X    fprintf(tfp, "}}}}}\n");
X}
X
Xvoid genepic_arc(arc)
XF_arc *arc;
X{
X    FPoint pt1, pt2, ctr, tmp;
X    double r1, r2, th1, th2, theta;
X    double dx1, dy1, dx2, dy2;
X    double arrowfactor;
X
X    ctr.x = arc->center.x;
X    ctr.y = arc->center.y;
X    pt1.x = arc->point[0].x;
X    pt1.y = arc->point[0].y;
X    pt2.x = arc->point[2].x;
X    pt2.y = arc->point[2].y;
X    fconvertCS(&ctr);
X    fconvertCS(&pt1);
X    fconvertCS(&pt2);
X
X    dx1 = pt1.x - ctr.x;
X    dy1 = pt1.y - ctr.y;
X    dx2 = pt2.x - ctr.x;
X    dy2 = pt2.y - ctr.y;
X
X    rtop(dx1, dy1, &r1, &th1);
X    rtop(dx2, dy2, &r2, &th2);
X    arrowfactor = (r1+r2) / 30.0;
X    if (arrowfactor > 1) arrowfactor = 1;
X    set_linewidth(arc->thickness);
X    if (arc->for_arrow) {
X    arc_tangent(&ctr, &pt2, arc->direction, &tmp);
X    fdraw_arrow_head(&tmp, &pt2,
X             arc->for_arrow->ht*arrowfactor,
X             arc->for_arrow->wid*arrowfactor);
X        if (Verbose) fprintf(tfp, "%%\n");
X    }
X    if (arc->back_arrow) {
X    arc_tangent(&ctr, &pt1, !arc->direction, &tmp);
X    fdraw_arrow_head(&tmp, &pt1,
X             arc->back_arrow->ht*arrowfactor,
X             arc->back_arrow->wid*arrowfactor);
X        if (Verbose) fprintf(tfp, "%%\n");
X    }
X    if (TeXLang == EEpic) {
X    set_pattern(arc->area_fill);
X        fprintf(tfp, "\\put(%4.3lf,%4.3lf){", ctr.x, ctr.y);
X    } else {
X    fprintf(tfp, "\\drawline");
X    }
X    if (TeXLang == EEpic) {
X    if (arc->area_fill < UNFILLED) arc->area_fill = UNFILLED;
X    fprintf(tfp, "%s", FillCommands[(int) arc->area_fill]);
X#ifdef DrawOutLine
X    if (arc->area_fill != UNFILLED && OutLine==0) OutLine=1;
X#endif
X    }
X    if (arc->direction) {
X    theta = th2 - th1;
X    if (theta < 0) theta += 2 * M_PI;
X    th2 = 2*M_PI-th2;
X    if (TeXLang == EEpic) {
X        fprintf(tfp, "\\arc{%4.3f}{%2.4f}{%2.4f}}\n", 2*r1, th2, th2+theta);
X#ifdef DrawOutLine
X        if (OutLine==1) {
X        OutLine=0;
X            fprintf(tfp, "\\put(%4.3lf,%4.3lf){", ctr.x, ctr.y);
X        fprintf(tfp, "\\arc{%4.3f}{%2.4f}{%2.4f}}\n", 2*r1, th2, th2+theta);
X        }
X#endif
X        } else {
X            drawarc(&ctr, r1, 2*M_PI - th2 - theta, theta);
X        }
X    } else {
X    theta = th1 - th2;
X    if (theta < 0) theta += 2 * M_PI;
X    th1 = 2*M_PI-th1;
X    if (TeXLang == EEpic) {
X        fprintf(tfp, "\\arc{%4.3f}{%2.4f}{%2.4f}}\n", 2*r2, th1, th1+theta);
X#ifdef DrawOutLine
X        if (OutLine==1) {
X        OutLine=0;
X        fprintf(tfp, "\\arc{%4.3f}{%2.4f}{%2.4f}}\n", 2*r2, th1, th1+theta);
X        }
X#endif
X        } else {
X            drawarc(&ctr, r2, 2*M_PI - th1 - theta, theta);
X        }
X    }
X}
X
Xdrawarc(ctr, r, th1, angle)
XFPoint *ctr;
Xdouble r, th1, angle;
X{
X    double arclength, delta;
X    int division, pt_count = 0;
X
X
X    division = angle * r / Threshold;
X    delta = angle / division;
X    division++;
X    while (division-- > 0) {
X        if (++pt_count > PtPerLine) {
X            fprintf(tfp, "\n\t");
X            pt_count = 1;
X        }
X        fprintf(tfp, "(%.3lf,%.3lf)", ctr->x + cos(th1) * r,
X                                ctr->y + sin(th1) * r);
X        th1 += delta;
X    }
X    fprintf(tfp, "\n");
X}
X
Xstatic arc_tangent(pt1, pt2, direction, pt3)
XFPoint *pt1, *pt2, *pt3;
Xint direction;
X{
X    if (direction) {
X    pt3->x = pt2->x + (pt2->y - pt1->y);
X    pt3->y = pt2->y - (pt2->x - pt1->x);
X    } else {
X    pt3->x = pt2->x - (pt2->y - pt1->y);
X    pt3->y = pt2->y + (pt2->x - pt1->x);
X    }
X}
X
Xrtop(x, y, r, th)
Xdouble x, y, *r, *th;
X{
X    *r = hypot(x,y);
X    *th = acos(x/(*r));
X    if (*th < 0) *th = M_PI + *th;
X    if (y < 0) *th = 2*M_PI - *th;
X}
X
Xstatic draw_arrow_head(pt1, pt2, arrowht, arrowwid)
XF_point *pt1, *pt2;
Xdouble arrowht, arrowwid;
X{
X    FPoint fpt1, fpt2;
X
X    fpt1.x = pt1->x;
X    fpt1.y = pt1->y;
X    fpt2.x = pt2->x;
X    fpt2.y = pt2->y;
X    fdraw_arrow_head(&fpt1, &fpt2, arrowht, arrowwid);
X}
X
Xfdraw_arrow_head(pt1, pt2, arrowht, arrowwid)
XFPoint *pt1, *pt2;
Xdouble arrowht, arrowwid;
X{
X    double x1, y1, x2, y2;
X    double x,y, xb,yb,dx,dy,l,sina,cosa;
X    double xc, yc, xd, yd;
X
X    x1 = pt1->x;
X    y1 = pt1->y;
X    x2 = pt2->x;
X    y2 = pt2->y;
X
X    if (Verbose) fprintf(tfp, "%%\n%% arrow head\n%%\n");
X
X    dx = x2 - x1;  dy = y1 - y2;
X    l = hypot(dx,dy);
X    sina = dy / l;  cosa = dx / l;
X    xb = x2*cosa - y2*sina;
X    yb = x2*sina + y2*cosa;
X    x = xb - arrowht;
X    y = yb - arrowwid / 2;
X    xc = x*cosa + y*sina;
X    yc = -x*sina + y*cosa;
X    y = yb + arrowwid / 2;
X    xd = x*cosa + y*sina;
X    yd = -x*sina + y*cosa;
X
X    fprintf(tfp, "\\%s(%4.3f,%4.3f)(%4.3f,%4.3f)(%4.3f,%4.3f)\n", LnCmd,
X        xc, yc, x2, y2, xd, yd);
X}
X
X#ifndef MSDOS
Xstricmp(s, t)
Xchar *s, *t;
X{
X    char a, b;
X
X    for (;;) {
X        a= *s++; b= *t++;
X        a = islower(a) ? toupper(a) : a;
X        b = islower(b) ? toupper(b) : b;
X        if (a != b) break;
X        if (a == '\0') return(0);
X    }
X    return(a - b);
X}
X#endif
X
Xstruct driver dev_epic = {
X         genepic_option,
X    genepic_start,
X    genepic_arc,
X    genepic_ellipse,
X    genepic_line,
X    genepic_spline,
X    genepic_text,
X    genepic_end,
X    INCLUDE_TEXT
X};
END_OF_FILE
if test 28053 -ne `wc -c <'transfig/fig2dev/dev/genepic.c'`; then
    echo shar: \"'transfig/fig2dev/dev/genepic.c'\" unpacked with wrong size!
fi
# end of 'transfig/fig2dev/dev/genepic.c'
fi
echo shar: End of archive 5 \(of 6\).
cp /dev/null ark5isdone
MISSING=""
for I in 1 2 3 4 5 6 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 6 archives.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0
--
Please send comp.sources.unix-related mail to [e-mail].
Use a domain-based address or give alternate paths, or you may lose out.