![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to print.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / pic|
Return to print.c CVS log | Up to [Research Unix] / researchv9 / cmd / pic |
1.1 ! root 1: #include <stdio.h> ! 2: #include "pic.h" ! 3: #include "y.tab.h" ! 4: ! 5: print() ! 6: { ! 7: obj *p; ! 8: int i, j, k, m; ! 9: float x0, y0, x1, y1, ox, oy, dx, dy, ndx, ndy; ! 10: ! 11: for (i = 0; i < nobj; i++) { ! 12: p = objlist[i]; ! 13: ox = p->o_x; ! 14: oy = p->o_y; ! 15: if (p->o_count >= 1) ! 16: x1 = p->o_val[0]; ! 17: if (p->o_count >= 2) ! 18: y1 = p->o_val[1]; ! 19: m = p->o_mode; ! 20: switch (p->o_type) { ! 21: case TROFF: ! 22: troff(text[p->o_nt1].t_val); ! 23: break; ! 24: case BOX: ! 25: case BLOCK: ! 26: move(ox, oy); ! 27: dotext(p); /* if there are any text strings */ ! 28: x0 = ox - x1 / 2; ! 29: y0 = oy - y1 / 2; ! 30: x1 = ox + x1 / 2; ! 31: y1 = oy + y1 / 2; ! 32: if (p->o_attr & INVIS || p->o_type == BLOCK) ! 33: ; /* nothing at all */ ! 34: else if (p->o_attr & (DOTBIT|DASHBIT)) ! 35: dotbox(x0, y0, x1, y1, p->o_attr, p->o_ddval); ! 36: else ! 37: box(x0, y0, x1, y1); ! 38: if (ishor(m)) ! 39: move(isright(m) ? x1 : x0, oy); /* right side */ ! 40: else ! 41: move(ox, isdown(m) ? y0 : y1); /* bottom */ ! 42: break; ! 43: case BLOCKEND: ! 44: break; ! 45: case CIRCLE: ! 46: move(ox, oy); ! 47: dotext(p); ! 48: if ((p->o_attr & INVIS) == 0) ! 49: circle(ox, oy, x1); ! 50: if (ishor(m)) ! 51: move(ox + isright(m) ? x1 : -x1, oy); ! 52: else ! 53: move(ox, oy + isup(m) ? x1 : -x1); ! 54: break; ! 55: case ELLIPSE: ! 56: move(ox, oy); ! 57: dotext(p); ! 58: if ((p->o_attr & INVIS) == 0) ! 59: ellipse(ox, oy, x1, y1); ! 60: if (ishor(m)) ! 61: move(ox + isright(m) ? x1 : -x1, oy); ! 62: else ! 63: move(ox, oy - isdown(m) ? y1 : -y1); ! 64: break; ! 65: case ARC: ! 66: move(ox, oy); ! 67: dotext(p); ! 68: if (p->o_attr & HEAD1) ! 69: arrow(x1 - (y1 - oy), y1 + (x1 - ox), ! 70: x1, y1, p->o_val[4], p->o_val[5], p->o_val[5]/p->o_val[6]/2, p->o_nhead); ! 71: if (p->o_attr & INVIS) ! 72: /* probably wrong when it's cw */ ! 73: move(x1, y1); ! 74: else ! 75: arc(ox, oy, x1, y1, p->o_val[2], p->o_val[3]); ! 76: if (p->o_attr & HEAD2) ! 77: arrow(p->o_val[2] + p->o_val[3] - oy, p->o_val[3] - (p->o_val[2] - ox), ! 78: 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); ! 79: if (p->o_attr & CW_ARC) ! 80: move(x1, y1); /* because drawn backwards */ ! 81: break; ! 82: case LINE: ! 83: case ARROW: ! 84: case SPLINE: ! 85: move((ox + x1)/2, (oy + y1)/2); /* center */ ! 86: dotext(p); ! 87: if (p->o_attr & HEAD1) ! 88: 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); ! 89: if (p->o_attr & INVIS) ! 90: move(x1, y1); ! 91: else if (p->o_type == SPLINE) ! 92: spline(ox, oy, p->o_val[4], &p->o_val[5], p->o_attr & (DOTBIT|DASHBIT), p->o_ddval); ! 93: else { ! 94: dx = ox; ! 95: dy = oy; ! 96: for (k=0, j=5; k < p->o_val[4]; k++, j += 2) { ! 97: ndx = dx + p->o_val[j]; ! 98: ndy = dy + p->o_val[j+1]; ! 99: if (p->o_attr & (DOTBIT|DASHBIT)) ! 100: dotline(dx, dy, ndx, ndy, p->o_attr, p->o_ddval); ! 101: else ! 102: line(dx, dy, ndx, ndy); ! 103: dx = ndx; ! 104: dy = ndy; ! 105: } ! 106: } ! 107: if (p->o_attr & HEAD2) { ! 108: dx = ox; ! 109: dy = oy; ! 110: for (k = 0, j = 5; k < p->o_val[4] - 1; k++, j += 2) { ! 111: dx += p->o_val[j]; ! 112: dy += p->o_val[j+1]; ! 113: } ! 114: arrow(dx, dy, x1, y1, p->o_val[2], p->o_val[3], 0.0, p->o_nhead); ! 115: } ! 116: break; ! 117: case MOVE: ! 118: case TEXT: ! 119: move(ox, oy); ! 120: dotext(p); ! 121: break; ! 122: } ! 123: } ! 124: } ! 125: ! 126: dotline(x0, y0, x1, y1, ddtype, ddval) /* dotted line */ ! 127: double x0, y0, x1, y1; ! 128: int ddtype; ! 129: double ddval; ! 130: { ! 131: static float prevval = 0.05; /* 20 per inch by default */ ! 132: int i, numdots; ! 133: double a, b, sqrt(), dx, dy; ! 134: ! 135: if (ddval == 0) ! 136: ddval = prevval; ! 137: prevval = ddval; ! 138: /* don't save dot/dash value */ ! 139: dx = x1 - x0; ! 140: dy = y1 - y0; ! 141: if (ddtype & DOTBIT) { ! 142: numdots = sqrt(dx*dx + dy*dy) / prevval + 0.5; ! 143: if (numdots > 0) ! 144: for (i = 0; i <= numdots; i++) { ! 145: a = (double) i / (double) numdots; ! 146: move(x0 + (a * dx), y0 + (a * dy)); ! 147: dot(); ! 148: } ! 149: } else if (ddtype & DASHBIT) { ! 150: double d, dashsize, spacesize; ! 151: d = sqrt(dx*dx + dy*dy); ! 152: if (d <= 2 * prevval) { ! 153: line(x0, y0, x1, y1); ! 154: return; ! 155: } ! 156: numdots = d / (2 * prevval) + 1; /* ceiling */ ! 157: dashsize = prevval; ! 158: spacesize = (d - numdots * dashsize) / (numdots - 1); ! 159: for (i = 0; i < numdots-1; i++) { ! 160: a = i * (dashsize + spacesize) / d; ! 161: b = a + dashsize / d; ! 162: line(x0 + (a*dx), y0 + (a*dy), x0 + (b*dx), y0 + (b*dy)); ! 163: a = b; ! 164: b = a + spacesize / d; ! 165: move(x0 + (a*dx), y0 + (a*dy)); ! 166: } ! 167: line(x0 + (b * dx), y0 + (b * dy), x1, y1); ! 168: } ! 169: prevval = 0.05; ! 170: } ! 171: ! 172: dotbox(x0, y0, x1, y1, ddtype, ddval) /* dotted or dashed box */ ! 173: double x0, y0, x1, y1; ! 174: int ddtype; ! 175: double ddval; ! 176: { ! 177: dotline(x0, y0, x1, y0, ddtype, ddval); ! 178: dotline(x1, y0, x1, y1, ddtype, ddval); ! 179: dotline(x1, y1, x0, y1, ddtype, ddval); ! 180: dotline(x0, y1, x0, y0, ddtype, ddval); ! 181: } ! 182: ! 183: dotext(p) /* print text strings of p in proper vertical spacing */ ! 184: obj *p; ! 185: { ! 186: int i, nhalf; ! 187: ! 188: nhalf = p->o_nt2 - p->o_nt1 - 1; ! 189: for (i = p->o_nt1; i < p->o_nt2; i++) { ! 190: label(text[i].t_val, text[i].t_type, nhalf); ! 191: nhalf -= 2; ! 192: } ! 193: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.