1 /* 2 * Copyright 2005 Sun Microsystems, Inc. All rights reserved. 3 * Use is subject to license terms. 4 */ 5 6 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */ 7 /* All Rights Reserved */ 8 9 /* 10 * Copyright (c) 1980 Regents of the University of California. 11 * All rights reserved. The Berkeley software License Agreement 12 * specifies the terms and conditions for redistribution. 13 */ 14 15 #pragma ident "%Z%%M% %I% %E% SMI" 16 17 #include "e.h" 18 #include "e.def" 19 20 void 21 bshiftb(int p1, int dir, int p2) 22 { 23 int shval, d1, h1, b1, h2, b2; 24 #ifndef NEQN 25 int diffps, effps, effps2; 26 char *sh1, *sh2; 27 #endif /* NEQN */ 28 29 yyval = p1; 30 h1 = eht[p1]; 31 b1 = ebase[p1]; 32 h2 = eht[p2]; 33 b2 = ebase[p2]; 34 #ifndef NEQN 35 effps = EFFPS(ps); 36 effps2 = EFFPS(ps+deltaps); 37 diffps = deltaps; 38 sh1 = sh2 = ""; 39 #endif /* NEQN */ 40 if (dir == SUB) { /* subscript */ 41 #ifndef NEQN 42 /* top 1/2m above bottom of main box */ 43 d1 = VERT(EM(0.5, effps2)); 44 #else /* NEQN */ 45 d1 = VERT(1); 46 #endif /* NEQN */ 47 shval = - d1 + h2 - b2; 48 if (d1+b1 > h2) /* move little sub down */ 49 shval = b1-b2; 50 ebase[yyval] = b1 + max(0, h2-b1-d1); 51 eht[yyval] = h1 + max(0, h2-b1-d1); 52 #ifndef NEQN 53 if (rfont[p1] == ITAL && lfont[p2] == ROM) 54 sh1 = "\\|"; 55 if (rfont[p2] == ITAL) 56 sh2 = "\\|"; 57 #endif /* NEQN */ 58 } else { /* superscript */ 59 #ifndef NEQN 60 /* 4/10 up main box */ 61 d1 = VERT(EM(0.2, effps)); 62 #else /* NEQN */ 63 d1 = VERT(1); 64 #endif /* NEQN */ 65 ebase[yyval] = b1; 66 #ifndef NEQN 67 shval = -VERT((4 * (h1-b1)) / 10) - b2; 68 if (VERT(4*(h1-b1)/10) + h2 < h1-b1) /* raise little super */ 69 #else /* NEQN */ 70 shval = -VERT(1) - b2; 71 if (VERT(1) + h2 < h1-b1) /* raise little super */ 72 #endif /* NEQN */ 73 shval = -(h1-b1) + h2-b2 - d1; 74 #ifndef NEQN 75 eht[yyval] = h1 + max(0, h2-VERT((6*(h1-b1))/10)); 76 if (rfont[p1] == ITAL) 77 sh1 = "\\|"; 78 if (rfont[p2] == ITAL) 79 sh2 = "\\|"; 80 #else /* NEQN */ 81 eht[yyval] = h1 + max(0, h2 - VERT(1)); 82 #endif /* NEQN */ 83 } 84 if (dbg) 85 printf(".\tb:b shift b: S%d <- S%d vert %d S%d vert %d; " 86 "b=%d, h=%d\n", yyval, p1, shval, p2, -shval, 87 ebase[yyval], eht[yyval]); 88 #ifndef NEQN 89 printf(".as %d \\v'%du'\\s-%d%s\\*(%d\\s+%d%s\\v'%du'\n", 90 yyval, shval, diffps, sh1, p2, diffps, sh2, -shval); 91 ps += deltaps; 92 if (rfont[p2] == ITAL) 93 rfont[p1] = 0; 94 else 95 rfont[p1] = rfont[p2]; 96 #else /* NEQN */ 97 printf(".as %d \\v'%du'\\*(%d\\v'%du'\n", 98 yyval, shval, p2, -shval); 99 #endif /* NEQN */ 100 ofree(p2); 101 } 102 103 void 104 shift(int p1) 105 { 106 ps -= deltaps; 107 yyval = p1; 108 if (dbg) printf(".\tshift: %d;ps=%d\n", yyval, ps); 109 } 110 111 void 112 shift2(int p1, int p2, int p3) 113 { 114 int effps, h1, h2, h3, b1, b2, b3, subsh, d1, d2, supsh, treg; 115 #ifndef NEQN 116 int effps2; 117 #endif /* NEQN */ 118 119 treg = oalloc(); 120 yyval = p1; 121 if (dbg) printf(".\tshift2 s%d <- %d %d %d\n", yyval, p1, p2, p3); 122 effps = EFFPS(ps+deltaps); 123 #ifndef NEQN 124 eht[p3] = h3 = VERT((eht[p3] * effps) / EFFPS(ps)); 125 ps += deltaps; 126 effps2 = EFFPS(ps+deltaps); 127 #endif /* NEQN */ 128 h1 = eht[p1]; b1 = ebase[p1]; 129 h2 = eht[p2]; b2 = ebase[p2]; 130 #ifndef NEQN 131 b3 = ebase[p3]; 132 d1 = VERT(EM(0.5, effps2)); 133 #else /* NEQN */ 134 h3 = eht[p3]; b3 = ebase[p3]; 135 d1 = VERT(1); 136 #endif /* NEQN */ 137 subsh = -d1+h2-b2; 138 if (d1+b1 > h2) /* move little sub down */ 139 subsh = b1-b2; 140 #ifndef NEQN 141 supsh = -VERT((4*(h1-b1))/10) - b3; 142 d2 = VERT(EM(0.2, effps)); 143 if (VERT(4*(h1-b1)/10)+h3 < h1-b1) 144 #else /* NEQN */ 145 supsh = - VERT(1) - b3; 146 d2 = VERT(1); 147 if (VERT(1)+h3 < h1-b1) 148 #endif /* NEQN */ 149 supsh = -(h1-b1) + (h3-b3) - d2; 150 #ifndef NEQN 151 eht[yyval] = h1 + max(0, h3-VERT((6*(h1-b1))/10)) + max(0, h2-b1-d1); 152 #else /* NEQN */ 153 eht[yyval] = h1 + max(0, h3-VERT(1)) + max(0, h2-b1-d1); 154 #endif /* NEQN */ 155 ebase[yyval] = b1+max(0, h2-b1-d1); 156 #ifndef NEQN 157 if (rfont[p1] == ITAL && lfont[p2] == ROM) 158 printf(".ds %d \\|\\*(%d\n", p2, p2); 159 if (rfont[p2] == ITAL) 160 printf(".as %d \\|\n", p2); 161 #endif /* NEQN */ 162 nrwid(p2, effps, p2); 163 #ifndef NEQN 164 if (rfont[p1] == ITAL && lfont[p3] == ROM) 165 printf(".ds %d \\|\\|\\*(%d\n", p3, p3); 166 else 167 printf(".ds %d \\|\\*(%d\n", p3, p3); 168 #endif /* NEQN */ 169 nrwid(p3, effps, p3); 170 printf(".nr %d \\n(%d\n", treg, p3); 171 printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, treg, treg, p2); 172 #ifndef NEQN 173 printf(".as %d \\v'%du'\\s%d\\*(%d\\h'-\\n(%du'\\v'%du'\\\n", 174 p1, subsh, effps, p2, p2, -subsh+supsh); 175 printf("\\s%d\\*(%d\\h'-\\n(%du+\\n(%du'\\s%d\\v'%du'\n", 176 effps, p3, p3, treg, effps2, -supsh); 177 #else /* NEQN */ 178 printf(".as %d \\v'%du'\\*(%d\\h'-\\n(%du'\\v'%du'\\\n", 179 p1, subsh, p2, p2, -subsh+supsh); 180 printf("\\*(%d\\h'-\\n(%du+\\n(%du'\\v'%du'\n", 181 p3, p3, treg, -supsh); 182 #endif /* NEQN */ 183 ps += deltaps; 184 #ifndef NEQN 185 if (rfont[p2] == ITAL) 186 rfont[yyval] = 0; /* lie */ 187 #endif /* NEQN */ 188 ofree(p2); ofree(p3); ofree(treg); 189 } 190