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