1 5cedca1b 2004-05-15 devnull #include <stdio.h>
2 5cedca1b 2004-05-15 devnull #include <math.h>
3 5cedca1b 2004-05-15 devnull #include "pic.h"
4 5cedca1b 2004-05-15 devnull #include "y.tab.h"
6 5cedca1b 2004-05-15 devnull void dotext(obj *);
7 5cedca1b 2004-05-15 devnull void dotline(double, double, double, double, int, double);
8 5cedca1b 2004-05-15 devnull void dotbox(double, double, double, double, int, double);
9 5cedca1b 2004-05-15 devnull void ellipse(double, double, double, double);
10 5cedca1b 2004-05-15 devnull void circle(double, double, double);
11 5cedca1b 2004-05-15 devnull void arc(double, double, double, double, double, double);
12 5cedca1b 2004-05-15 devnull void arrow(double, double, double, double, double, double, double, int);
13 5cedca1b 2004-05-15 devnull void line(double, double, double, double);
14 5cedca1b 2004-05-15 devnull void box(double, double, double, double);
15 5cedca1b 2004-05-15 devnull void spline(double x, double y, double n, ofloat *p, int dashed, double ddval);
16 5cedca1b 2004-05-15 devnull void move(double, double);
17 5cedca1b 2004-05-15 devnull void troff(char *);
18 5cedca1b 2004-05-15 devnull void dot(void);
19 5cedca1b 2004-05-15 devnull void fillstart(double), fillend(int vis, int noedge);
21 5cedca1b 2004-05-15 devnull void print(void)
24 5cedca1b 2004-05-15 devnull int i, j, k, m;
25 5cedca1b 2004-05-15 devnull int fill, vis, invis;
26 5cedca1b 2004-05-15 devnull double x0, y0, x1, y1, ox, oy, dx, dy, ndx, ndy;
28 5f1cf8e6 2004-05-16 devnull x1 = y1 = 0.0; /* Botch? (gcc) */
30 5cedca1b 2004-05-15 devnull for (i = 0; i < nobj; i++) {
31 5cedca1b 2004-05-15 devnull p = objlist[i];
32 5cedca1b 2004-05-15 devnull ox = p->o_x;
33 5cedca1b 2004-05-15 devnull oy = p->o_y;
34 5cedca1b 2004-05-15 devnull if (p->o_count >= 1)
35 5cedca1b 2004-05-15 devnull x1 = p->o_val[0];
36 5cedca1b 2004-05-15 devnull if (p->o_count >= 2)
37 5cedca1b 2004-05-15 devnull y1 = p->o_val[1];
38 5cedca1b 2004-05-15 devnull m = p->o_mode;
39 5cedca1b 2004-05-15 devnull fill = p->o_attr & FILLBIT;
40 5cedca1b 2004-05-15 devnull invis = p->o_attr & INVIS;
41 5cedca1b 2004-05-15 devnull vis = !invis;
42 5cedca1b 2004-05-15 devnull switch (p->o_type) {
43 5cedca1b 2004-05-15 devnull case TROFF:
44 5cedca1b 2004-05-15 devnull troff(text[p->o_nt1].t_val);
46 5cedca1b 2004-05-15 devnull case BOX:
47 5cedca1b 2004-05-15 devnull case BLOCK:
48 5cedca1b 2004-05-15 devnull x0 = ox - x1 / 2;
49 5cedca1b 2004-05-15 devnull y0 = oy - y1 / 2;
50 5cedca1b 2004-05-15 devnull x1 = ox + x1 / 2;
51 5cedca1b 2004-05-15 devnull y1 = oy + y1 / 2;
52 5cedca1b 2004-05-15 devnull if (fill) {
53 5cedca1b 2004-05-15 devnull move(x0, y0);
54 5cedca1b 2004-05-15 devnull fillstart(p->o_fillval);
56 5cedca1b 2004-05-15 devnull if (p->o_type == BLOCK)
57 5cedca1b 2004-05-15 devnull ; /* nothing at all */
58 5cedca1b 2004-05-15 devnull else if (invis && !fill)
59 5cedca1b 2004-05-15 devnull ; /* nothing at all */
60 5cedca1b 2004-05-15 devnull else if (p->o_attr & (DOTBIT|DASHBIT))
61 5cedca1b 2004-05-15 devnull dotbox(x0, y0, x1, y1, p->o_attr, p->o_ddval);
63 5cedca1b 2004-05-15 devnull box(x0, y0, x1, y1);
64 5cedca1b 2004-05-15 devnull if (fill)
65 5cedca1b 2004-05-15 devnull fillend(vis, fill);
66 5cedca1b 2004-05-15 devnull move(ox, oy);
67 5cedca1b 2004-05-15 devnull dotext(p); /* if there are any text strings */
68 5cedca1b 2004-05-15 devnull if (ishor(m))
69 5cedca1b 2004-05-15 devnull move(isright(m) ? x1 : x0, oy); /* right side */
71 5cedca1b 2004-05-15 devnull move(ox, isdown(m) ? y0 : y1); /* bottom */
73 5cedca1b 2004-05-15 devnull case BLOCKEND:
75 5cedca1b 2004-05-15 devnull case CIRCLE:
76 5cedca1b 2004-05-15 devnull if (fill)
77 5cedca1b 2004-05-15 devnull fillstart(p->o_fillval);
78 5cedca1b 2004-05-15 devnull if (vis || fill)
79 5cedca1b 2004-05-15 devnull circle(ox, oy, x1);
80 5cedca1b 2004-05-15 devnull if (fill)
81 5cedca1b 2004-05-15 devnull fillend(vis, fill);
82 5cedca1b 2004-05-15 devnull move(ox, oy);
83 5cedca1b 2004-05-15 devnull dotext(p);
84 5cedca1b 2004-05-15 devnull if (ishor(m))
85 5cedca1b 2004-05-15 devnull move(ox + isright(m) ? x1 : -x1, oy);
87 5cedca1b 2004-05-15 devnull move(ox, oy + isup(m) ? x1 : -x1);
89 5cedca1b 2004-05-15 devnull case ELLIPSE:
90 5cedca1b 2004-05-15 devnull if (fill)
91 5cedca1b 2004-05-15 devnull fillstart(p->o_fillval);
92 5cedca1b 2004-05-15 devnull if (vis || fill)
93 5cedca1b 2004-05-15 devnull ellipse(ox, oy, x1, y1);
94 5cedca1b 2004-05-15 devnull if (fill)
95 5cedca1b 2004-05-15 devnull fillend(vis, fill);
96 5cedca1b 2004-05-15 devnull move(ox, oy);
97 5cedca1b 2004-05-15 devnull dotext(p);
98 5cedca1b 2004-05-15 devnull if (ishor(m))
99 5cedca1b 2004-05-15 devnull move(ox + isright(m) ? x1 : -x1, oy);
101 5cedca1b 2004-05-15 devnull move(ox, oy - isdown(m) ? y1 : -y1);
103 5cedca1b 2004-05-15 devnull case ARC:
104 5cedca1b 2004-05-15 devnull if (fill) {
105 5cedca1b 2004-05-15 devnull move(ox, oy);
106 5cedca1b 2004-05-15 devnull fillstart(p->o_fillval);
108 5cedca1b 2004-05-15 devnull if (p->o_attr & HEAD1)
109 5cedca1b 2004-05-15 devnull arrow(x1 - (y1 - oy), y1 + (x1 - ox),
110 5cedca1b 2004-05-15 devnull x1, y1, p->o_val[4], p->o_val[5], p->o_val[5]/p->o_val[6]/2, p->o_nhead);
111 5cedca1b 2004-05-15 devnull if (invis && !fill)
112 5cedca1b 2004-05-15 devnull /* probably wrong when it's cw */
113 5cedca1b 2004-05-15 devnull move(x1, y1);
115 5cedca1b 2004-05-15 devnull arc(ox, oy, x1, y1, p->o_val[2], p->o_val[3]);
116 5cedca1b 2004-05-15 devnull if (p->o_attr & HEAD2)
117 5cedca1b 2004-05-15 devnull arrow(p->o_val[2] + p->o_val[3] - oy, p->o_val[3] - (p->o_val[2] - ox),
118 5cedca1b 2004-05-15 devnull 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);
119 5cedca1b 2004-05-15 devnull if (fill)
120 5cedca1b 2004-05-15 devnull fillend(vis, fill);
121 5cedca1b 2004-05-15 devnull if (p->o_attr & CW_ARC)
122 5cedca1b 2004-05-15 devnull move(x1, y1); /* because drawn backwards */
123 5cedca1b 2004-05-15 devnull move(ox, oy);
124 5cedca1b 2004-05-15 devnull dotext(p);
126 5cedca1b 2004-05-15 devnull case LINE:
127 5cedca1b 2004-05-15 devnull case ARROW:
128 5cedca1b 2004-05-15 devnull case SPLINE:
129 5cedca1b 2004-05-15 devnull if (fill) {
130 5cedca1b 2004-05-15 devnull move(ox, oy);
131 5cedca1b 2004-05-15 devnull fillstart(p->o_fillval);
133 5cedca1b 2004-05-15 devnull if (vis && p->o_attr & HEAD1)
134 5cedca1b 2004-05-15 devnull 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);
135 5cedca1b 2004-05-15 devnull if (invis && !fill)
136 5cedca1b 2004-05-15 devnull move(x1, y1);
137 5cedca1b 2004-05-15 devnull else if (p->o_type == SPLINE)
138 5cedca1b 2004-05-15 devnull spline(ox, oy, p->o_val[4], &p->o_val[5], p->o_attr & (DOTBIT|DASHBIT), p->o_ddval);
140 5cedca1b 2004-05-15 devnull dx = ox;
141 5cedca1b 2004-05-15 devnull dy = oy;
142 5cedca1b 2004-05-15 devnull for (k=0, j=5; k < p->o_val[4]; k++, j += 2) {
143 5cedca1b 2004-05-15 devnull ndx = dx + p->o_val[j];
144 5cedca1b 2004-05-15 devnull ndy = dy + p->o_val[j+1];
145 5cedca1b 2004-05-15 devnull if (p->o_attr & (DOTBIT|DASHBIT))
146 5cedca1b 2004-05-15 devnull dotline(dx, dy, ndx, ndy, p->o_attr, p->o_ddval);
148 5cedca1b 2004-05-15 devnull line(dx, dy, ndx, ndy);
149 5cedca1b 2004-05-15 devnull dx = ndx;
150 5cedca1b 2004-05-15 devnull dy = ndy;
153 5cedca1b 2004-05-15 devnull if (vis && p->o_attr & HEAD2) {
154 5cedca1b 2004-05-15 devnull dx = ox;
155 5cedca1b 2004-05-15 devnull dy = oy;
156 5cedca1b 2004-05-15 devnull for (k = 0, j = 5; k < p->o_val[4] - 1; k++, j += 2) {
157 5cedca1b 2004-05-15 devnull dx += p->o_val[j];
158 5cedca1b 2004-05-15 devnull dy += p->o_val[j+1];
160 5cedca1b 2004-05-15 devnull arrow(dx, dy, x1, y1, p->o_val[2], p->o_val[3], 0.0, p->o_nhead);
162 5cedca1b 2004-05-15 devnull if (fill)
163 5cedca1b 2004-05-15 devnull fillend(vis, fill);
164 5cedca1b 2004-05-15 devnull move((ox + x1)/2, (oy + y1)/2); /* center */
165 5cedca1b 2004-05-15 devnull dotext(p);
167 5cedca1b 2004-05-15 devnull case MOVE:
168 5cedca1b 2004-05-15 devnull move(ox, oy);
170 5cedca1b 2004-05-15 devnull case TEXT:
171 5cedca1b 2004-05-15 devnull move(ox, oy);
172 5cedca1b 2004-05-15 devnull if (vis)
173 5cedca1b 2004-05-15 devnull dotext(p);
179 5cedca1b 2004-05-15 devnull void dotline(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted line */
181 5cedca1b 2004-05-15 devnull static double prevval = 0.05; /* 20 per inch by default */
182 5cedca1b 2004-05-15 devnull int i, numdots;
183 5cedca1b 2004-05-15 devnull double a, b, dx, dy;
185 5f1cf8e6 2004-05-16 devnull b = 0.0; /* Botch? (gcc) */
187 5cedca1b 2004-05-15 devnull if (ddval == 0)
188 5cedca1b 2004-05-15 devnull ddval = prevval;
189 5cedca1b 2004-05-15 devnull prevval = ddval;
190 5cedca1b 2004-05-15 devnull /* don't save dot/dash value */
191 5cedca1b 2004-05-15 devnull dx = x1 - x0;
192 5cedca1b 2004-05-15 devnull dy = y1 - y0;
193 5cedca1b 2004-05-15 devnull if (ddtype & DOTBIT) {
194 5cedca1b 2004-05-15 devnull numdots = sqrt(dx*dx + dy*dy) / prevval + 0.5;
195 5cedca1b 2004-05-15 devnull if (numdots > 0)
196 5cedca1b 2004-05-15 devnull for (i = 0; i <= numdots; i++) {
197 5cedca1b 2004-05-15 devnull a = (double) i / (double) numdots;
198 5cedca1b 2004-05-15 devnull move(x0 + (a * dx), y0 + (a * dy));
201 5cedca1b 2004-05-15 devnull } else if (ddtype & DASHBIT) {
202 5cedca1b 2004-05-15 devnull double d, dashsize, spacesize;
203 5cedca1b 2004-05-15 devnull d = sqrt(dx*dx + dy*dy);
204 5cedca1b 2004-05-15 devnull if (d <= 2 * prevval) {
205 5cedca1b 2004-05-15 devnull line(x0, y0, x1, y1);
208 5cedca1b 2004-05-15 devnull numdots = d / (2 * prevval) + 1; /* ceiling */
209 5cedca1b 2004-05-15 devnull dashsize = prevval;
210 5cedca1b 2004-05-15 devnull spacesize = (d - numdots * dashsize) / (numdots - 1);
211 5cedca1b 2004-05-15 devnull for (i = 0; i < numdots-1; i++) {
212 5cedca1b 2004-05-15 devnull a = i * (dashsize + spacesize) / d;
213 5cedca1b 2004-05-15 devnull b = a + dashsize / d;
214 5cedca1b 2004-05-15 devnull line(x0 + (a*dx), y0 + (a*dy), x0 + (b*dx), y0 + (b*dy));
216 5cedca1b 2004-05-15 devnull b = a + spacesize / d;
217 5cedca1b 2004-05-15 devnull move(x0 + (a*dx), y0 + (a*dy));
219 5cedca1b 2004-05-15 devnull line(x0 + (b * dx), y0 + (b * dy), x1, y1);
221 5cedca1b 2004-05-15 devnull prevval = 0.05;
224 5cedca1b 2004-05-15 devnull void dotbox(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted or dashed box */
226 5cedca1b 2004-05-15 devnull dotline(x0, y0, x1, y0, ddtype, ddval);
227 5cedca1b 2004-05-15 devnull dotline(x1, y0, x1, y1, ddtype, ddval);
228 5cedca1b 2004-05-15 devnull dotline(x1, y1, x0, y1, ddtype, ddval);
229 5cedca1b 2004-05-15 devnull dotline(x0, y1, x0, y0, ddtype, ddval);
232 5cedca1b 2004-05-15 devnull void dotext(obj *p) /* print text strings of p in proper vertical spacing */
234 5cedca1b 2004-05-15 devnull int i, nhalf;
235 5cedca1b 2004-05-15 devnull void label(char *, int, int);
237 5cedca1b 2004-05-15 devnull nhalf = p->o_nt2 - p->o_nt1 - 1;
238 5cedca1b 2004-05-15 devnull for (i = p->o_nt1; i < p->o_nt2; i++) {
239 5cedca1b 2004-05-15 devnull label(text[i].t_val, text[i].t_type, nhalf);
240 5cedca1b 2004-05-15 devnull nhalf -= 2;
