The R Project SVN R

Rev

Rev 37301 | Rev 37317 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 37301 Rev 37302
Line 1850... Line 1850...
1850 
	*u = TeX(sigma9, gc, dd);
 1850 
	*u = TeX(sigma9, gc, dd);
1851 
	*v = TeX(sigma12, gc, dd);
 1851 
	*v = TeX(sigma12, gc, dd);
1852 
	phi = theta;
 1852 
	phi = theta;
1853 
    }
 1853 
    }
1854 
    delta = (*u - bboxDepth(numBBox)) - (a + 0.5 * theta);
 1854 
    delta = (*u - bboxDepth(numBBox)) - (a + 0.5 * theta);
- 
 
 1855 
    /*
- 
 
 1856 
     * Numerators and denominators on fractions appear too far from
- 
 
 1857 
     * horizontal bar.
- 
 
 1858 
     * Reread of Knuth suggests removing "+ theta" components below.
- 
 
 1859 
     */
1855 
    if (delta < phi)
 1860 
    if (delta < phi)
1856 
	*u += (phi - delta) + theta;
 1861 
	*u += (phi - delta); /* + theta; */
1857 
    delta = (a + 0.5 * theta) - (bboxHeight(denomBBox) - *v);
 1862 
    delta = (a + 0.5 * theta) - (bboxHeight(denomBBox) - *v);
1858 
    if (delta < phi)
 1863 
    if (delta < phi)
1859 
	*v += (phi - delta) + theta;
 1864 
	*v += (phi - delta); /* + theta; */
1860 
}
 1865 
}
1861 
 
 1866 
 
1862 
static void NumDenomHShift(BBOX numBBox, BBOX denomBBox,
 1867 
static void NumDenomHShift(BBOX numBBox, BBOX denomBBox,
1863 
			   double *numShift, double *denomShift)
 1868 
			   double *numShift, double *denomShift)
1864 
{
 1869 
{