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);
19 void fillstart(double), fillend(int vis, int noedge);
26 double x0, y0, x1, y1, ox, oy, dx, dy, ndx, ndy;
28 x1 = y1 = 0.0; /* Botch? (gcc) */
30 for (i = 0; i < nobj; i++) {
39 fill = p->o_attr & FILLBIT;
40 invis = p->o_attr & INVIS;
44 troff(text[p->o_nt1].t_val);
54 fillstart(p->o_fillval);
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);
67 dotext(p); /* if there are any text strings */
69 move(isright(m) ? x1 : x0, oy); /* right side */
71 move(ox, isdown(m) ? y0 : y1); /* bottom */
77 fillstart(p->o_fillval);
85 move(ox + isright(m) ? x1 : -x1, oy);
87 move(ox, oy + isup(m) ? x1 : -x1);
91 fillstart(p->o_fillval);
93 ellipse(ox, oy, x1, y1);
99 move(ox + isright(m) ? x1 : -x1, oy);
101 move(ox, oy - isdown(m) ? y1 : -y1);
106 fillstart(p->o_fillval);
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);
112 /* probably wrong when it's cw */
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);
121 if (p->o_attr & CW_ARC)
122 move(x1, y1); /* because drawn backwards */
131 fillstart(p->o_fillval);
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);
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);
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);
148 line(dx, dy, ndx, ndy);
153 if (vis && p->o_attr & HEAD2) {
156 for (k = 0, j = 5; k < p->o_val[4] - 1; k++, j += 2) {
160 arrow(dx, dy, x1, y1, p->o_val[2], p->o_val[3], 0.0, p->o_nhead);
164 move((ox + x1)/2, (oy + y1)/2); /* center */
179 void dotline(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted line */
181 static double prevval = 0.05; /* 20 per inch by default */
185 b = 0.0; /* Botch? (gcc) */
190 /* don't save dot/dash value */
193 if (ddtype & DOTBIT) {
194 numdots = sqrt(dx*dx + dy*dy) / prevval + 0.5;
196 for (i = 0; i <= numdots; i++) {
197 a = (double) i / (double) numdots;
198 move(x0 + (a * dx), y0 + (a * dy));
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);
208 numdots = d / (2 * prevval) + 1; /* ceiling */
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));
216 b = a + spacesize / d;
217 move(x0 + (a*dx), y0 + (a*dy));
219 line(x0 + (b * dx), y0 + (b * dy), x1, y1);
224 void dotbox(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted or dashed box */
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);
232 void dotext(obj *p) /* print text strings of p in proper vertical spacing */
235 void label(char *, int, int);
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);