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