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