![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to print.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / pic|
Return to print.c CVS log | Up to [Research Unix] / researchv10no / cmd / pic |
1.1 root 1: #include <stdio.h>
2: #include <math.h>
3: #include "pic.h"
4: #include "y.tab.h"
5:
6: void dotext(obj *);
7: void dotline(double, double, double, double, int, double);
8: void dotbox(double, double, double, double, int, double);
9: void ellipse(double, double, double, double);
10: void circle(double, double, double);
11: void arc(double, double, double, double, double, double);
12: void arrow(double, double, double, double, double, double, double, int);
13: void line(double, double, double, double);
14: void box(double, double, double, double);
15: void spline(double x, double y, double n, ofloat *p, int dashed, double ddval);
16: void move(double, double);
17: void troff(char *);
18: void dot(void);
19: void fillstart(double), fillend(int vis, int noedge);
20:
21: void print(void)
22: {
23: obj *p;
24: int i, j, k, m;
25: double x0, y0, x1, y1, ox, oy, dx, dy, ndx, ndy;
26:
27: for (i = 0; i < nobj; i++) {
28: p = objlist[i];
29: ox = p->o_x;
30: oy = p->o_y;
31: if (p->o_count >= 1)
32: x1 = p->o_val[0];
33: if (p->o_count >= 2)
34: y1 = p->o_val[1];
35: m = p->o_mode;
36: switch (p->o_type) {
37: case TROFF:
38: troff(text[p->o_nt1].t_val);
39: break;
40: case BOX:
41: case BLOCK:
42: x0 = ox - x1 / 2;
43: y0 = oy - y1 / 2;
44: x1 = ox + x1 / 2;
45: y1 = oy + y1 / 2;
46: if (p->o_attr & FILLBIT) {
47: move(x0, y0);
48: fillstart(p->o_fillval);
49: }
50: if (p->o_type == BLOCK)
51: ; /* nothing at all */
52: else if (p->o_attr & INVIS && !(p->o_attr & FILLBIT))
53: ; /* nothing at all */
54: else if (p->o_attr & (DOTBIT|DASHBIT))
55: dotbox(x0, y0, x1, y1, p->o_attr, p->o_ddval);
56: else
57: box(x0, y0, x1, y1);
58: if (p->o_attr & FILLBIT)
59: fillend(!(p->o_attr & INVIS), p->o_attr&FILLBIT);
60: move(ox, oy);
61: dotext(p); /* if there are any text strings */
62: if (ishor(m))
63: move(isright(m) ? x1 : x0, oy); /* right side */
64: else
65: move(ox, isdown(m) ? y0 : y1); /* bottom */
66: break;
67: case BLOCKEND:
68: break;
69: case CIRCLE:
70: if (p->o_attr & FILLBIT)
71: fillstart(p->o_fillval);
72: if ((p->o_attr & INVIS) == 0 || p->o_attr & FILLBIT)
73: circle(ox, oy, x1);
74: if (p->o_attr & FILLBIT)
75: fillend(!(p->o_attr & INVIS), p->o_attr&FILLBIT);
76: move(ox, oy);
77: dotext(p);
78: if (ishor(m))
79: move(ox + isright(m) ? x1 : -x1, oy);
80: else
81: move(ox, oy + isup(m) ? x1 : -x1);
82: break;
83: case ELLIPSE:
84: if (p->o_attr & FILLBIT)
85: fillstart(p->o_fillval);
86: if ((p->o_attr & INVIS) == 0 || p->o_attr & FILLBIT)
87: ellipse(ox, oy, x1, y1);
88: if (p->o_attr & FILLBIT)
89: fillend(!(p->o_attr & INVIS), p->o_attr&FILLBIT);
90: move(ox, oy);
91: dotext(p);
92: if (ishor(m))
93: move(ox + isright(m) ? x1 : -x1, oy);
94: else
95: move(ox, oy - isdown(m) ? y1 : -y1);
96: break;
97: case ARC:
98: if (p->o_attr & FILLBIT) {
99: move(ox, oy);
100: fillstart(p->o_fillval);
101: }
102: if (p->o_attr & HEAD1)
103: arrow(x1 - (y1 - oy), y1 + (x1 - ox),
104: x1, y1, p->o_val[4], p->o_val[5], p->o_val[5]/p->o_val[6]/2, p->o_nhead);
105: if (p->o_attr & INVIS && !(p->o_attr & FILLBIT))
106: /* probably wrong when it's cw */
107: move(x1, y1);
108: else
109: arc(ox, oy, x1, y1, p->o_val[2], p->o_val[3]);
110: if (p->o_attr & HEAD2)
111: arrow(p->o_val[2] + p->o_val[3] - oy, p->o_val[3] - (p->o_val[2] - ox),
112: 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);
113: if (p->o_attr & FILLBIT)
114: fillend(!(p->o_attr & INVIS), p->o_attr&FILLBIT);
115: if (p->o_attr & CW_ARC)
116: move(x1, y1); /* because drawn backwards */
117: move(ox, oy);
118: dotext(p);
119: break;
120: case LINE:
121: case ARROW:
122: case SPLINE:
123: if (p->o_attr & FILLBIT) {
124: move(ox, oy);
125: fillstart(p->o_fillval);
126: }
127: if (p->o_attr & HEAD1)
128: 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);
129: if (p->o_attr & INVIS && !(p->o_attr & FILLBIT))
130: move(x1, y1);
131: else if (p->o_type == SPLINE)
132: spline(ox, oy, p->o_val[4], &p->o_val[5], p->o_attr & (DOTBIT|DASHBIT), p->o_ddval);
133: else {
134: dx = ox;
135: dy = oy;
136: for (k=0, j=5; k < p->o_val[4]; k++, j += 2) {
137: ndx = dx + p->o_val[j];
138: ndy = dy + p->o_val[j+1];
139: if (p->o_attr & (DOTBIT|DASHBIT))
140: dotline(dx, dy, ndx, ndy, p->o_attr, p->o_ddval);
141: else
142: line(dx, dy, ndx, ndy);
143: dx = ndx;
144: dy = ndy;
145: }
146: }
147: if (p->o_attr & HEAD2) {
148: dx = ox;
149: dy = oy;
150: for (k = 0, j = 5; k < p->o_val[4] - 1; k++, j += 2) {
151: dx += p->o_val[j];
152: dy += p->o_val[j+1];
153: }
154: arrow(dx, dy, x1, y1, p->o_val[2], p->o_val[3], 0.0, p->o_nhead);
155: }
156: if (p->o_attr & FILLBIT)
157: fillend(!(p->o_attr & INVIS), p->o_attr&FILLBIT);
158: move((ox + x1)/2, (oy + y1)/2); /* center */
159: dotext(p);
160: break;
161: case MOVE:
162: case TEXT:
163: move(ox, oy);
164: dotext(p);
165: break;
166: }
167: }
168: }
169:
170: void dotline(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted line */
171: {
172: static double prevval = 0.05; /* 20 per inch by default */
173: int i, numdots;
174: double a, b, dx, dy;
175:
176: if (ddval == 0)
177: ddval = prevval;
178: prevval = ddval;
179: /* don't save dot/dash value */
180: dx = x1 - x0;
181: dy = y1 - y0;
182: if (ddtype & DOTBIT) {
183: numdots = sqrt(dx*dx + dy*dy) / prevval + 0.5;
184: if (numdots > 0)
185: for (i = 0; i <= numdots; i++) {
186: a = (double) i / (double) numdots;
187: move(x0 + (a * dx), y0 + (a * dy));
188: dot();
189: }
190: } else if (ddtype & DASHBIT) {
191: double d, dashsize, spacesize;
192: d = sqrt(dx*dx + dy*dy);
193: if (d <= 2 * prevval) {
194: line(x0, y0, x1, y1);
195: return;
196: }
197: numdots = d / (2 * prevval) + 1; /* ceiling */
198: dashsize = prevval;
199: spacesize = (d - numdots * dashsize) / (numdots - 1);
200: for (i = 0; i < numdots-1; i++) {
201: a = i * (dashsize + spacesize) / d;
202: b = a + dashsize / d;
203: line(x0 + (a*dx), y0 + (a*dy), x0 + (b*dx), y0 + (b*dy));
204: a = b;
205: b = a + spacesize / d;
206: move(x0 + (a*dx), y0 + (a*dy));
207: }
208: line(x0 + (b * dx), y0 + (b * dy), x1, y1);
209: }
210: prevval = 0.05;
211: }
212:
213: void dotbox(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted or dashed box */
214: {
215: dotline(x0, y0, x1, y0, ddtype, ddval);
216: dotline(x1, y0, x1, y1, ddtype, ddval);
217: dotline(x1, y1, x0, y1, ddtype, ddval);
218: dotline(x0, y1, x0, y0, ddtype, ddval);
219: }
220:
221: void dotext(obj *p) /* print text strings of p in proper vertical spacing */
222: {
223: int i, nhalf;
224: void label(char *, int, int);
225:
226: nhalf = p->o_nt2 - p->o_nt1 - 1;
227: for (i = p->o_nt1; i < p->o_nt2; i++) {
228: label(text[i].t_val, text[i].t_type, nhalf);
229: nhalf -= 2;
230: }
231: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.