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