/* * TransFig: Facility for Translating Fig code * Copyright (c) 1985 Supoj Sutantavibul * Copyright (c) 1991 Micah Beck * * 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. * * The X Consortium, and any party obtaining a copy of these files from * the X Consortium, directly or indirectly, 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, distribute, sublicense, * and/or sell 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. This license includes without * limitation a license to do the foregoing actions under any patents of * the party supplying this software to the X Consortium. */ /* * genibmgl.c : IBMGL driver for fig2dev * IBM 6180 Color Plotter with * IBM Graphics Enhancement Cartridge * Author E. Robert Tisdale, University of California, 1/92 * (edwin@cs.ucla.edu) * * adapted from: * * genpictex.c : PiCTeX driver for fig2dev * * Author Micah Beck, Cornell University, 4/88 * Color, rotated text and ISO-chars added by Herbert Bauer 11/91 */ static set_style(); #if defined(hpux) || defined(SYSV) || defined(SVR4) #include #endif #include #if defined(SYSV) || defined(SVR4) #include #else #include #endif #include #include #include "fig2dev.h" #include "object.h" #include "pi.h" #define FALSE 0 #define TRUE 1 #define FONTS 35 #define COLORS 8 #define PATTERNS 21 #define DPR 180.0/M_PI /* degrees/radian */ #define DELTA M_PI/36.0 /* radians */ #define DEFAULT_FONT_SIZE 11 /* points */ #define POINT_PER_INCH 72.27 /* points/inch */ #define CMPP 254.0/7227.0 /* centimeters/point */ #define UNITS_PER_INCH 1016.0 /* plotter units/inch */ #define HEIGHT 7650.0 /* plotter units */ #define ISO_A4 10900.0 /* plotter units */ #define ANSI_A 10300.0 /* plotter units */ #define SPEED_LIMIT 128.0 /* centimeters/second */ #ifdef IBMGEC static int ibmgec = TRUE; #else static int ibmgec = FALSE; #endif static int reflected = FALSE; static int fonts = FONTS; static int colors = COLORS; static int patterns = PATTERNS; static int line_color = DEFAULT; static int line_style = SOLID_LINE; static int fill_pattern = DEFAULT; static double dash_length = DEFAULT; /* in pixels */ #ifdef A4 static double pagelength = ISO_A4/UNITS_PER_INCH; #else static double pagelength = ANSI_A/UNITS_PER_INCH; #endif static double pageheight = HEIGHT/UNITS_PER_INCH; static double pen_speed = SPEED_LIMIT; static double xz = 0.0; /* inches */ static double yz = 0.0; /* inches */ static double xl = 0.0; /* inches */ static double yl = 0.0; /* inches */ static double xu = 32.25; /* inches */ static double yu = 32.25; /* inches */ static int pen_number[] = { 1, 2, 3, 4, 5, 6, 7, 8, 1}; static double pen_thickness[] = {.3,.3,.3,.3,.3,.3,.3,.3,.3}; static int line_type[] = {1, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6,-1,-1,-1,-1,-1,-1,-1,-1}; static double line_space[] = {.5,.5,.5,.5,.5,.5,.5,.5,.5,.5,.5,.5,.5,.5,.5,.5,.5,.5,.5,.3,.3}; static int fill_type[] = {3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 1, 2}; static double fill_space[] = {.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1}; static double fill_angle[] = {0,-45,0,45,90,-45,0,45,90,-45,0,45,90,-45,0,45,90, 0, 0, 0, 0}; static int standard[] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; static int alternate[] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}; static double slant[] = { 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0,10, 0, 0}; static double wide[] = {.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6, .6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6,.6}; static double high[] = {.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8, .8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8,.8}; static void genibmgl_option(opt, optarg) char opt, *optarg; { switch (opt) { case 'a': /* paper size */ #ifdef A4 pagelength = ANSI_A/UNITS_PER_INCH; #else pagelength = ISO_A4/UNITS_PER_INCH; #endif break; case 'c': /* Graphics Enhancement */ ibmgec = !ibmgec; /* Cartridge emulation */ break; case 'd': /* position and window */ sscanf(optarg, "%lf,%lf,%lf,%lf", &xl,&yl,&xu,&yu); /* inches */ break; case 'f': /* user's characters */ { FILE *ffp; int font; if ((ffp = fopen(optarg, "r")) == NULL) fprintf(stderr, "Couldn't open %s\n", optarg); else for (font = 0; font <= fonts; font++) fscanf(ffp, "%d%d%lf%lf%lf", &standard[font], /* 0-4 6-9 30-39*/ &alternate[font], /* 0-4 6-9 30-39*/ &slant[font], /* degrees */ &wide[font], /* ~1.0 */ &high[font]); /* ~1.0 */ fclose(ffp); } break; case 'l': /* user's fill patterns */ { FILE *ffp; int pattern; if ((ffp = fopen(optarg, "r")) == NULL) fprintf(stderr, "Couldn't open %s\n", optarg); else for (pattern = 0; pattern < patterns; pattern++) fscanf(ffp, "%d%lf%d%lf%lf", &line_type[pattern], /* -1-6 */ &line_space[pattern], /* inches */ &fill_type[pattern], /* 1-5 */ &fill_space[pattern], /* inches */ &fill_angle[pattern]); /* degrees */ fclose(ffp); } break; case 'L': /* language */ break; case 'm': /* magnify and offset */ sscanf(optarg, "%lf,%lf,%lf", &mag,&xz,&yz); /* inches */ break; case 'p': /* user's colors */ { FILE *ffp; int color; if ((ffp = fopen(optarg, "r")) == NULL) fprintf(stderr, "Couldn't open %s\n", optarg); else for (color = 0; color <= colors; color++) fscanf(ffp, "%d%lf", &pen_number[color], /* 1-8 */ &pen_thickness[color]); /* millimeters */ fclose(ffp); } break; case 'P': /* portrait mode */ landscape = FALSE; orientspec = TRUE; /* user-specified */ break; case 's': /* set default font size */ font_size = atoi(optarg) ? atoi(optarg): DEFAULT_FONT_SIZE; break; case 'S': /* select pen velocity */ pen_speed = atof(optarg); break; case 'v': reflected = TRUE; /* mirror image */ break; default: put_msg(Err_badarg, opt, "ibmgl"); exit(1); break; } } static double ppi; /* pixels/inch */ static double cpi; /* cent/inch */ static double cpp; /* cent/pixel */ static double wcmpp = CMPP; /* centimeter/point */ static double hcmpp = CMPP; /* centimeter/point */ static int flipped = FALSE; /* flip Y coordinate */ void genibmgl_start(objects) F_compound *objects; { int P1x, P1y, P2x, P2y; int Xll, Yll, Xur, Yur; double Xmin,Xmax,Ymin,Ymax; double height, length; if (fabs(mag) < 1.0/2048.0){ fprintf(stderr, "|mag| < 1/2048\n"); exit(1); } if (xl < xu) if (0.0 < xu) if (xl < pagelength) { xl = (0.0 < xl) ? xl: 0.0; xu = (xu < pagelength) ? xu: pagelength; } else { fprintf(stderr, "xll >= %.2f\n", pagelength); exit(1); } else { fprintf(stderr, "xur <= 0.0\n"); exit(1); } else { fprintf(stderr, "xur <= xll\n"); exit(1); } if (yl < yu) if (0.0 < yu) if (yl < pageheight) { yl = (0.0 < yl) ? yl: 0.0; yu = (yu < pageheight) ? yu: pageheight; } else { fprintf(stderr, "yll >= %.2f\n", pageheight); exit(1); } else { fprintf(stderr, "yur <= 0.0\n"); exit(1); } else { fprintf(stderr, "yur <= yll\n"); exit(1); } ppi = objects->nwcorner.x; cpi = mag*100.0/sqrt((xu-xl)*(xu-xl) + (yu-yl)*(yu-yl)); cpp = cpi/ppi; if (objects->nwcorner.y == 2) flipped = TRUE; /* IBMGL start */ fprintf(tfp, "IN;\n"); /* initialize plotter */ if (!landscape) { /* portrait mode */ fprintf(tfp, "RO90;\n"); /* rotate 90 degrees */ Xll = yl*UNITS_PER_INCH; Xur = yu*UNITS_PER_INCH; Yll = (pagelength - xu)*UNITS_PER_INCH; Yur = (pagelength - xl)*UNITS_PER_INCH; length = yu - yl; height = xu - xl; P1x = Xll; P2x = Xur; if (reflected) /* upside-down text */ hcmpp = -hcmpp; if (reflected^flipped) { /* reflected or flipped */ P1y = Yur; /* but not both */ P2y = Yll; } else { /* normal */ P1y = Yll; P2y = Yur; } Xmin = xz; Xmax = xz + (yu - yl)/mag; Ymin = yz; Ymax = yz + (xu - xl)/mag; } else { /* landscape mode */ Xll = xl*UNITS_PER_INCH; Yll = yl*UNITS_PER_INCH; Yur = yu*UNITS_PER_INCH; Xur = xu*UNITS_PER_INCH; length = xu - xl; height = yu - yl; if (reflected) { /* flipped or not */ wcmpp = -wcmpp; /* backward text */ P1x = Xur; P2x = Xll; } else { /* normal */ P1x = Xll; P2x = Xur; } if (flipped) { /* reflected or not */ P1y = Yur; P2y = Yll; } else { P1y = Yll; P2y = Yur; } } Xmin = xz; Ymin = yz; Xmax = xz + length/mag; Ymax = yz + height/mag; fprintf(tfp, "IP%d,%d,%d,%d;\n", P1x, P1y, P2x, P2y); fprintf(tfp, "IW%d,%d,%d,%d;\n", Xll, Yll, Xur, Yur); fprintf(tfp, "SC%.4f,%.4f,%.4f,%.4f;\n", Xmin,Xmax,Ymin,Ymax); if (0.0 < pen_speed && pen_speed < SPEED_LIMIT) fprintf(tfp, "VS%.2f;\n", pen_speed); } static arc_tangent(x1, y1, x2, y2, direction, x, y) double x1, y1, x2, y2, *x, *y; int direction; { if (direction) { /* counter clockwise */ *x = x2 - (y2 - y1); *y = y2 + (x2 - x1); } else { *x = x2 + (y2 - y1); *y = y2 - (x2 - x1); } } /* draw arrow heading from (x1, y1) to (x2, y2) */ static draw_arrow_head(x1, y1, x2, y2, arrowht, arrowwid) double x1, y1, x2, y2, arrowht, arrowwid; { double x, y, xb, yb, dx, dy, l, sina, cosa; double xc, yc, xd, yd; int style; double length; dx = x2 - x1; dy = y1 - y2; l = sqrt(dx*dx+dy*dy); sina = dy/l; cosa = dx/l; xb = x2*cosa - y2*sina; yb = x2*sina + y2*cosa; x = xb - arrowht; y = yb - arrowwid/2.0; xc = x*cosa + y*sina; yc = -x*sina + y*cosa; y = yb + arrowwid/2.0; xd = x*cosa + y*sina; yd = -x*sina + y*cosa; /* save line style and set to solid */ style = line_style; length = dash_length; set_style(SOLID_LINE, 0.0); fprintf(tfp, "PA%.4f,%.4f;PD%.4f,%.4f,%.4f,%.4f;PU\n", xc, yc, x2, y2, xd, yd); /* restore line style */ set_style(style, length); } /* * set_style - issue line style commands as appropriate */ static set_style(style, length) int style; double length; { if (style == line_style) switch (line_style) { case SOLID_LINE: break; case DASH_LINE: if (dash_length != length && length > 0.0) { dash_length = length; fprintf(tfp, "LT2,%.4f;\n", dash_length*2.0*cpp); } break; case DOTTED_LINE: if (dash_length != length && length > 0.0) { dash_length = length; fprintf(tfp, "LT1,%.4f;\n", dash_length*2.0*cpp); } break; } else { line_style = style; switch (line_style) { case SOLID_LINE: fprintf(tfp, "LT;\n"); break; case DASH_LINE: if (dash_length != length && length > 0.0) dash_length = length; if (dash_length > 0.0) fprintf(tfp, "LT2,%.4f;\n", dash_length*2.0*cpp); else fprintf(tfp, "LT2,-1.0;\n"); break; case DOTTED_LINE: if (dash_length != length && length > 0.0) dash_length = length; if (dash_length > 0.0) fprintf(tfp, "LT1,%.4f;\n", dash_length*2.0*cpp); else fprintf(tfp, "LT1,-1.0;\n"); break; } } } /* * set_width - issue line width commands as appropriate */ static set_width(w) int w; { static int line_width = DEFAULT; /* in pixels */ line_width = w; } /* * set_color - issue line color commands as appropriate */ static set_color(color) int color; { static int number = 0; /* 1 <= number <= 8 */ static double thickness = 0.3; /* pen thickness in millimeters */ if (line_color != color) { line_color = color; color = (colors + color)%colors; if (number != pen_number[color]) { number = pen_number[color]; fprintf(tfp, "SP%d;\n", pen_number[color]); } if (thickness != pen_thickness[color]) { thickness = pen_thickness[color]; fprintf(tfp, "PT%.4f;\n", pen_thickness[color]); } } } static fill_polygon(pattern, color) int pattern; int color; { if (0 < pattern && pattern < patterns) { int style; double length; set_color(color); if (fill_pattern != pattern) { fill_pattern = pattern; fprintf(tfp, "FT%d,%.4f,%.4f;", fill_type[pattern], fill_space[pattern], reflected ? -fill_angle[pattern]: fill_angle[pattern]); } /* save line style */ style = line_style; length = dash_length; fprintf(tfp, "LT%d,%.4f;FP;\n", line_type[pattern], line_space[pattern]*cpi); /* restore line style */ line_style = DEFAULT; dash_length = DEFAULT; set_style(style, length); } } void arc(sx, sy, cx, cy, theta, delta) double sx, sy, cx, cy, theta, delta; { if (ibmgec) if (delta == M_PI/36.0) /* 5 degrees */ fprintf(tfp, "AA%.4f,%.4f,%.4f;", cx, cy, theta*DPR); else fprintf(tfp, "AA%.4f,%.4f,%.4f,%.4f;", cx, cy, theta*DPR, delta*DPR); else { double alpha; if (theta < 0.0) delta = -fabs(delta); else delta = fabs(delta); for (alpha = delta; fabs(alpha) < fabs(theta); alpha += delta) { fprintf(tfp, "PA%.4f,%.4f;\n", cx + (sx - cx)*cos(alpha) - (sy - cy)*sin(alpha), cy + (sy - cy)*cos(alpha) + (sx - cx)*sin(alpha)); } fprintf(tfp, "PA%.4f,%.4f;\n", cx + (sx - cx)*cos(theta) - (sy - cy)*sin(theta), cy + (sy - cy)*cos(theta) + (sx - cx)*sin(theta)); } } void genibmgl_arc(a) F_arc *a; { if (a->thickness != 0 || ibmgec && 0 <= a->fill_style && a->fill_style < patterns) { double x, y; double cx, cy, sx, sy, ex, ey; double dx1, dy1, dx2, dy2, theta; set_style(a->style, a->style_val); set_width(a->thickness); set_color(a->pen_color); cx = a->center.x/ppi; cy = a->center.y/ppi; sx = a->point[0].x/ppi; sy = a->point[0].y/ppi; ex = a->point[2].x/ppi; ey = a->point[2].y/ppi; dx1 = sx - cx; dy1 = sy - cy; dx2 = ex - cx; dy2 = ey - cy; theta = atan2(dy2, dx2) - atan2(dy1, dx1); if (a->direction^flipped) { if (theta < 0.0) theta += 2.0*M_PI; } else { if (theta > 0.0) theta -= 2.0*M_PI; } if (a->thickness != 0 && a->back_arrow) { arc_tangent(cx, cy, sx, sy, a->direction^flipped, &x, &y); draw_arrow_head(x, y, sx, sy, a->back_arrow->ht/ppi, a->back_arrow->wid/ppi); } fprintf(tfp, "PA%.4f,%.4f;PM;PD;", sx, sy); arc(sx, sy, cx, cy, theta, DELTA); fprintf(tfp, "PU;PM2;\n"); if (a->thickness != 0) fprintf(tfp, "EP;\n"); if (a->thickness != 0 && a->for_arrow) { arc_tangent(cx, cy, ex, ey, !a->direction^flipped, &x, &y); draw_arrow_head(x, y, ex, ey, a->for_arrow->ht/ppi, a->for_arrow->wid/ppi); } if (0 < a->fill_style && a->fill_style < patterns) fill_polygon(a->fill_style, a->fill_color); } } void genibmgl_ellipse(e) F_ellipse *e; { if (e->thickness != 0 || ibmgec && 0 <= e->fill_style && e->fill_style < patterns) { int j; double alpha = 0.0; double angle; double delta; double x0, y0; double a, b; double x, y; set_style(e->style, e->style_val); set_width(e->thickness); set_color(e->pen_color); a = e->radiuses.x/ppi; b = e->radiuses.y/ppi; x0 = e->center.x/ppi; y0 = e->center.y/ppi; angle = (flipped ? -e->angle: e->angle); delta = (flipped ? -DELTA: DELTA); x = x0 + cos(angle)*a; y = y0 + sin(angle)*a; fprintf(tfp, "PA%.4f,%.4f;PM;PD;\n", x, y); for (j = 1; j <= 72; j++) { alpha = j*delta; x = x0 + cos(angle)*a*cos(alpha) - sin(angle)*b*sin(alpha); y = y0 + sin(angle)*a*cos(alpha) + cos(angle)*b*sin(alpha); fprintf(tfp, "PA%.4f,%.4f;\n", x, y); } fprintf(tfp, "PU;PM2;\n"); if (e->thickness != 0) fprintf(tfp, "EP;\n"); if (0 < e->fill_style && e->fill_style < patterns) fill_polygon((int)e->fill_style, e->fill_color); } } void swap(i, j) int *i, *j; { int t; t = *i; *i = *j; *j = t; } void genibmgl_line(l) F_line *l; { if (l->thickness != 0 || ibmgec && 0 <= l->fill_style && l->fill_style < patterns) { F_point *p, *q; set_style(l->style, l->style_val); set_width(l->thickness); set_color(l->pen_color); p = l->points; q = p->next; switch (l->type) { case T_POLYLINE: case T_BOX: case T_POLYGON: if (q == NULL) /* A single point line */ fprintf(tfp, "PA%.4f,%.4f;PD;PU;\n", p->x/ppi, p->y/ppi); else { if (l->thickness != 0 && l->back_arrow) draw_arrow_head(q->x/ppi, q->y/ppi, p->x/ppi, p->y/ppi, l->back_arrow->ht/ppi, l->back_arrow->wid/ppi); fprintf(tfp, "PA%.4f,%.4f;PM;PD%.4f,%.4f;\n", p->x/ppi, p->y/ppi, q->x/ppi, q->y/ppi); while (q->next != NULL) { p = q; q = q->next; fprintf(tfp, "PA%.4f,%.4f;\n", q->x/ppi, q->y/ppi); } fprintf(tfp, "PU;PM2;\n"); if (l->thickness != 0) fprintf(tfp, "EP;\n"); if (l->thickness != 0 && l->for_arrow) draw_arrow_head(p->x/ppi, p->y/ppi, q->x/ppi, q->y/ppi, l->for_arrow->ht/ppi, l->for_arrow->wid/ppi); if (0 < l->fill_style && l->fill_style < patterns) fill_polygon((int)l->fill_style, l->fill_color); } break; case T_ARC_BOX: { int llx, lly, urx, ury; double x0, y0, x1, y1; double dx, dy, angle; llx = urx = p->x; lly = ury = p->y; while ((p = p->next) != NULL) { if (llx > p->x) llx = p->x; if (urx < p->x) urx = p->x; if (lly > p->y) lly = p->y; if (ury < p->y) ury = p->y; } x0 = llx/ppi; x1 = urx/ppi; dx = l->radius/ppi; if (flipped) { y0 = ury/ppi; y1 = lly/ppi; dy = -dx; angle = -M_PI/2.0; } else { y0 = lly/ppi; y1 = ury/ppi; dy = dx; angle = M_PI/2.0; } fprintf(tfp, "PA%.4f,%.4f;PM;PD;\n", x0, y0 + dy); arc(x0, y0 + dy, x0 + dx, y0 + dy, angle, DELTA); fprintf(tfp, "PA%.4f,%.4f;\n", x1 - dx, y0); arc(x1 - dx, y0, x1 - dx, y0 + dy, angle, DELTA); fprintf(tfp, "PA%.4f,%.4f;\n", x1, y1 - dy); arc(x1, y1 - dy, x1 - dx, y1 - dy, angle, DELTA); fprintf(tfp, "PA%.4f,%.4f;\n", x0 + dx, y1); arc(x0 + dx, y1, x0 + dx, y1 - dy, angle, DELTA); fprintf(tfp, "PA%.4f,%.4f;PU;PM2;\n", x0, y0 + dy); if (l->thickness != 0) fprintf(tfp, "EP;\n"); if (0 < l->fill_style && l->fill_style < patterns) fill_polygon((int)l->fill_style, l->fill_color); } break; case T_PIC_BOX: break; } } } #define THRESHOLD .05 /* inch */ static bezier_spline(a0, b0, a1, b1, a2, b2, a3, b3) double a0, b0, a1, b1, a2, b2, a3, b3; { double x0, y0, x3, y3; double sx1, sy1, sx2, sy2, tx, ty, tx1, ty1, tx2, ty2, xmid, ymid; x0 = a0; y0 = b0; x3 = a3; y3 = b3; if (fabs(x0 - x3) < THRESHOLD && fabs(y0 - y3) < THRESHOLD) fprintf(tfp, "PA%.4f,%.4f;\n", x3, y3); else { tx = (a1 + a2 )/2.0; ty = (b1 + b2 )/2.0; sx1 = (x0 + a1 )/2.0; sy1 = (y0 + b1 )/2.0; sx2 = (sx1 + tx )/2.0; sy2 = (sy1 + ty )/2.0; tx2 = (a2 + x3 )/2.0; ty2 = (b2 + y3 )/2.0; tx1 = (tx2 + tx )/2.0; ty1 = (ty2 + ty )/2.0; xmid = (sx2 + tx1)/2.0; ymid = (sy2 + ty1)/2.0; bezier_spline(x0, y0, sx1, sy1, sx2, sy2, xmid, ymid); bezier_spline(xmid, ymid, tx1, ty1, tx2, ty2, x3, y3); } } static void genibmgl_itp_spline(s) F_spline *s; { F_point *p1, *p2; F_control *cp1, *cp2; double x1, x2, y1, y2; p1 = s->points; cp1 = s->controls; x2 = p1->x/ppi; y2 = p1->y/ppi; if (s->thickness != 0 && s->back_arrow) draw_arrow_head(cp1->rx/ppi, cp1->ry/ppi, x2, y2, s->back_arrow->ht/ppi, s->back_arrow->wid/ppi); fprintf(tfp, "PA%.4f,%.4f;PD;\n", x2, y2); for (p2 = p1->next, cp2 = cp1->next; p2 != NULL; p1 = p2, cp1 = cp2, p2 = p2->next, cp2 = cp2->next) { x1 = x2; y1 = y2; x2 = p2->x/ppi; y2 = p2->y/ppi; bezier_spline(x1, y1, (double)cp1->rx/ppi, cp1->ry/ppi, (double)cp2->lx/ppi, cp2->ly/ppi, x2, y2); } fprintf(tfp, "PU;\n"); if (s->thickness != 0 && s->for_arrow) draw_arrow_head(cp1->lx/ppi, cp1->ly/ppi, x2, y2, s->for_arrow->ht/ppi, s->for_arrow->wid/ppi); } static quadratic_spline(a1, b1, a2, b2, a3, b3, a4, b4) double a1, b1, a2, b2, a3, b3, a4, b4; { double x1, y1, x4, y4; double xmid, ymid; x1 = a1; y1 = b1; x4 = a4; y4 = b4; xmid = (a2 + a3)/2.0; ymid = (b2 + b3)/2.0; if (fabs(x1 - xmid) < THRESHOLD && fabs(y1 - ymid) < THRESHOLD) fprintf(tfp, "PA%.4f,%.4f;\n", xmid, ymid); else { quadratic_spline(x1, y1, ((x1+a2)/2.0), ((y1+b2)/2.0), ((3.0*a2+a3)/4.0), ((3.0*b2+b3)/4.0), xmid, ymid); } if (fabs(xmid - x4) < THRESHOLD && fabs(ymid - y4) < THRESHOLD) fprintf(tfp, "PA%.4f,%.4f;\n", x4, y4); else { quadratic_spline(xmid, ymid, ((a2+3.0*a3)/4.0), ((b2+3.0*b3)/4.0), ((a3+x4)/2.0), ((b3+y4)/2.0), x4, y4); } } static void genibmgl_ctl_spline(s) F_spline *s; { F_point *p; double cx1, cy1, cx2, cy2, cx3, cy3, cx4, cy4; double x1, y1, x2, y2; p = s->points; x1 = p->x/ppi; y1 = p->y/ppi; p = p->next; x2 = p->x/ppi; y2 = p->y/ppi; cx1 = (x1 + x2)/2.0; cy1 = (y1 + y2)/2.0; cx2 = (x1 + 3.0*x2)/4.0; cy2 = (y1 + 3.0*y2)/4.0; if (closed_spline(s)) fprintf(tfp, "PA%.4f,%.4f;PD;\n ", cx1, cy1); else { if (s->thickness != 0 && s->back_arrow) draw_arrow_head(cx1, cy1, x1, y1, s->back_arrow->ht/ppi, s->back_arrow->wid/ppi); fprintf(tfp, "PA%.4f,%.4f;PD%.4f,%.4f;\n", x1, y1, cx1, cy1); } for (p = p->next; p != NULL; p = p->next) { x1 = x2; y1 = y2; x2 = p->x/ppi; y2 = p->y/ppi; cx3 = (3.0*x1 + x2)/4.0; cy3 = (3.0*y1 + y2)/4.0; cx4 = (x1 + x2)/2.0; cy4 = (y1 + y2)/2.0; quadratic_spline(cx1, cy1, cx2, cy2, cx3, cy3, cx4, cy4); cx1 = cx4; cy1 = cy4; cx2 = (x1 + 3.0*x2)/4.0; cy2 = (y1 + 3.0*y2)/4.0; } x1 = x2; y1 = y2; p = s->points->next; x2 = p->x/ppi; y2 = p->y/ppi; cx3 = (3.0*x1 + x2)/4.0; cy3 = (3.0*y1 + y2)/4.0; cx4 = (x1 + x2)/2.0; cy4 = (y1 + y2)/2.0; if (closed_spline(s)) { quadratic_spline(cx1, cy1, cx2, cy2, cx3, cy3, cx4, cy4); fprintf(tfp, "PU;\n"); } else { fprintf(tfp, "PA%.4f,%.4f;PU;\n", x1, y1); if (s->thickness != 0 && s->for_arrow) draw_arrow_head(cx1, cy1, x1, y1, s->for_arrow->ht/ppi, s->for_arrow->wid/ppi); } } void genibmgl_spline(s) F_spline *s; { if (s->thickness != 0) { set_style(s->style, s->style_val); set_width(s->thickness); set_color(s->pen_color); if (int_spline(s)) genibmgl_itp_spline(s); else genibmgl_ctl_spline(s); } if (0 < s->fill_style && s->fill_style < patterns) fprintf(stderr, "Spline area fill not implemented\n"); } #define FONT(T) ((-1 < (T) && (T) < fonts) ? (T): fonts) void genibmgl_text(t) F_text *t; { static int font = DEFAULT; /* font */ static int size = DEFAULT; /* font size in points */ static int rigid = 0; /* rigid text */ static int cs = 0; /* standard character set */ static int ca = 0; /* alternate character set */ static double theta = 0.0; /* character slant in degrees */ static double angle = 0.0; /* label direction in radians */ double width; /* character width in centimeters */ double height; /* character height in centimeters */ if (font != FONT(t->font)) { font = FONT(t->font); if (cs != standard[font]) { cs = standard[font]; fprintf(tfp, "CS%d;", cs); } if (ca != alternate[font]) { ca = alternate[font]; fprintf(tfp, "CA%d;", ca); } if (theta != slant[font]) { theta = slant[font]; fprintf(tfp, "SL%.4f;", tan(theta*M_PI/180.0)); } } if (size != t->size || rigid != t->flags&RIGID_TEXT) { size = t->size ? t->size: font_size; rigid = (t->flags&RIGID_TEXT); width = size*wcmpp*wide[font]; height = size*hcmpp*high[font]; rigid = (t->flags&RIGID_TEXT); if (rigid) fprintf(tfp, "SI%.4f,%.4f;", width, height); else fprintf(tfp, "SI%.4f,%.4f;", width*mag, height*mag); } if (angle != t->angle) { angle = t->angle; fprintf(tfp, "DI%.4f,%.4f;", cos(angle), sin(reflected ? -angle: angle)); } set_color(t->color); fprintf(tfp, "PA%.4f,%.4f;\n", t->base_x/ppi, t->base_y/ppi); switch (t->type) { case DEFAULT: case T_LEFT_JUSTIFIED: break; case T_CENTER_JUSTIFIED: fprintf(tfp, "CP%.4f,0.0;", -(double)(strlen(t->cstring)/2.0)); break; case T_RIGHT_JUSTIFIED: fprintf(tfp, "CP%.4f,0.0;", -(double)(strlen(t->cstring))); break; default: fprintf(stderr, "unknown text position type\n"); exit(1); } fprintf(tfp, "LB%s\003\n", t->cstring); } void genibmgl_end() { /* IBMGL ending */ fprintf(tfp, "PU;SP;IN;\n"); } struct driver dev_ibmgl = { genibmgl_option, genibmgl_start, genibmgl_arc, genibmgl_ellipse, genibmgl_line, genibmgl_spline, genibmgl_text, genibmgl_end, EXCLUDE_TEXT };