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