123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238 |
- #include <stdio.h>
- #include <math.h>
- #include "pic.h"
- #include "y.tab.h"
- void dotext(obj *);
- void dotline(double, double, double, double, int, double);
- void dotbox(double, double, double, double, int, double);
- void ellipse(double, double, double, double);
- void circle(double, double, double);
- void arc(double, double, double, double, double, double);
- void arrow(double, double, double, double, double, double, double, int);
- void line(double, double, double, double);
- void box(double, double, double, double);
- void spline(double x, double y, double n, ofloat *p, int dashed, double ddval);
- void move(double, double);
- void troff(char *);
- void dot(void);
- void fillstart(double), fillend(int vis, int noedge);
- void print(void)
- {
- obj *p;
- int i, j, k, m;
- int fill, vis, invis;
- double x0, y0, x1, y1, ox, oy, dx, dy, ndx, ndy;
- for (i = 0; i < nobj; i++) {
- p = objlist[i];
- ox = p->o_x;
- oy = p->o_y;
- if (p->o_count >= 1)
- x1 = p->o_val[0];
- if (p->o_count >= 2)
- y1 = p->o_val[1];
- m = p->o_mode;
- fill = p->o_attr & FILLBIT;
- invis = p->o_attr & INVIS;
- vis = !invis;
- switch (p->o_type) {
- case TROFF:
- troff(text[p->o_nt1].t_val);
- break;
- case BOX:
- case BLOCK:
- x0 = ox - x1 / 2;
- y0 = oy - y1 / 2;
- x1 = ox + x1 / 2;
- y1 = oy + y1 / 2;
- if (fill) {
- move(x0, y0);
- fillstart(p->o_fillval);
- }
- if (p->o_type == BLOCK)
- ; /* nothing at all */
- else if (invis && !fill)
- ; /* nothing at all */
- else if (p->o_attr & (DOTBIT|DASHBIT))
- dotbox(x0, y0, x1, y1, p->o_attr, p->o_ddval);
- else
- box(x0, y0, x1, y1);
- if (fill)
- fillend(vis, fill);
- move(ox, oy);
- dotext(p); /* if there are any text strings */
- if (ishor(m))
- move(isright(m) ? x1 : x0, oy); /* right side */
- else
- move(ox, isdown(m) ? y0 : y1); /* bottom */
- break;
- case BLOCKEND:
- break;
- case CIRCLE:
- if (fill)
- fillstart(p->o_fillval);
- if (vis || fill)
- circle(ox, oy, x1);
- if (fill)
- fillend(vis, fill);
- move(ox, oy);
- dotext(p);
- if (ishor(m))
- move(ox + isright(m) ? x1 : -x1, oy);
- else
- move(ox, oy + isup(m) ? x1 : -x1);
- break;
- case ELLIPSE:
- if (fill)
- fillstart(p->o_fillval);
- if (vis || fill)
- ellipse(ox, oy, x1, y1);
- if (fill)
- fillend(vis, fill);
- move(ox, oy);
- dotext(p);
- if (ishor(m))
- move(ox + isright(m) ? x1 : -x1, oy);
- else
- move(ox, oy - isdown(m) ? y1 : -y1);
- break;
- case ARC:
- if (fill) {
- move(ox, oy);
- fillstart(p->o_fillval);
- }
- if (p->o_attr & HEAD1)
- arrow(x1 - (y1 - oy), y1 + (x1 - ox),
- x1, y1, p->o_val[4], p->o_val[5], p->o_val[5]/p->o_val[6]/2, p->o_nhead);
- if (invis && !fill)
- /* probably wrong when it's cw */
- move(x1, y1);
- else
- arc(ox, oy, x1, y1, p->o_val[2], p->o_val[3]);
- if (p->o_attr & HEAD2)
- arrow(p->o_val[2] + p->o_val[3] - oy, p->o_val[3] - (p->o_val[2] - ox),
- p->o_val[2], p->o_val[3], p->o_val[4], p->o_val[5], -p->o_val[5]/p->o_val[6]/2, p->o_nhead);
- if (fill)
- fillend(vis, fill);
- if (p->o_attr & CW_ARC)
- move(x1, y1); /* because drawn backwards */
- move(ox, oy);
- dotext(p);
- break;
- case LINE:
- case ARROW:
- case SPLINE:
- if (fill) {
- move(ox, oy);
- fillstart(p->o_fillval);
- }
- if (vis && p->o_attr & HEAD1)
- arrow(ox + p->o_val[5], oy + p->o_val[6], ox, oy, p->o_val[2], p->o_val[3], 0.0, p->o_nhead);
- if (invis && !fill)
- move(x1, y1);
- else if (p->o_type == SPLINE)
- spline(ox, oy, p->o_val[4], &p->o_val[5], p->o_attr & (DOTBIT|DASHBIT), p->o_ddval);
- else {
- dx = ox;
- dy = oy;
- for (k=0, j=5; k < p->o_val[4]; k++, j += 2) {
- ndx = dx + p->o_val[j];
- ndy = dy + p->o_val[j+1];
- if (p->o_attr & (DOTBIT|DASHBIT))
- dotline(dx, dy, ndx, ndy, p->o_attr, p->o_ddval);
- else
- line(dx, dy, ndx, ndy);
- dx = ndx;
- dy = ndy;
- }
- }
- if (vis && p->o_attr & HEAD2) {
- dx = ox;
- dy = oy;
- for (k = 0, j = 5; k < p->o_val[4] - 1; k++, j += 2) {
- dx += p->o_val[j];
- dy += p->o_val[j+1];
- }
- arrow(dx, dy, x1, y1, p->o_val[2], p->o_val[3], 0.0, p->o_nhead);
- }
- if (fill)
- fillend(vis, fill);
- move((ox + x1)/2, (oy + y1)/2); /* center */
- dotext(p);
- break;
- case MOVE:
- move(ox, oy);
- break;
- case TEXT:
- move(ox, oy);
- if (vis)
- dotext(p);
- break;
- }
- }
- }
- void dotline(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted line */
- {
- static double prevval = 0.05; /* 20 per inch by default */
- int i, numdots;
- double a, b, dx, dy;
- if (ddval == 0)
- ddval = prevval;
- prevval = ddval;
- /* don't save dot/dash value */
- dx = x1 - x0;
- dy = y1 - y0;
- if (ddtype & DOTBIT) {
- numdots = sqrt(dx*dx + dy*dy) / prevval + 0.5;
- if (numdots > 0)
- for (i = 0; i <= numdots; i++) {
- a = (double) i / (double) numdots;
- move(x0 + (a * dx), y0 + (a * dy));
- dot();
- }
- } else if (ddtype & DASHBIT) {
- double d, dashsize, spacesize;
- d = sqrt(dx*dx + dy*dy);
- if (d <= 2 * prevval) {
- line(x0, y0, x1, y1);
- return;
- }
- numdots = d / (2 * prevval) + 1; /* ceiling */
- dashsize = prevval;
- spacesize = (d - numdots * dashsize) / (numdots - 1);
- for (i = 0; i < numdots-1; i++) {
- a = i * (dashsize + spacesize) / d;
- b = a + dashsize / d;
- line(x0 + (a*dx), y0 + (a*dy), x0 + (b*dx), y0 + (b*dy));
- a = b;
- b = a + spacesize / d;
- move(x0 + (a*dx), y0 + (a*dy));
- }
- line(x0 + (b * dx), y0 + (b * dy), x1, y1);
- }
- prevval = 0.05;
- }
- void dotbox(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted or dashed box */
- {
- dotline(x0, y0, x1, y0, ddtype, ddval);
- dotline(x1, y0, x1, y1, ddtype, ddval);
- dotline(x1, y1, x0, y1, ddtype, ddval);
- dotline(x0, y1, x0, y0, ddtype, ddval);
- }
- void dotext(obj *p) /* print text strings of p in proper vertical spacing */
- {
- int i, nhalf;
- void label(char *, int, int);
- nhalf = p->o_nt2 - p->o_nt1 - 1;
- for (i = p->o_nt1; i < p->o_nt2; i++) {
- label(text[i].t_val, text[i].t_type, nhalf);
- nhalf -= 2;
- }
- }
|