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