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"
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 
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 
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 
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