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