The R Project SVN R

Rev

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

Rev 62648 Rev 64644
Line 29... Line 29...
29 
 
 29 
 
30 
#include <ctype.h>
 30 
#include <ctype.h>
31 
#include <rlocale.h>
 31 
#include <rlocale.h>
32 
 
 32 
 
33 
 
 33 
 
34 
#include <Rmath.h>
 34 
#include <Rmath.h> // provides M_2PI
35 
#include <R_ext/GraphicsEngine.h>
 35 
#include <R_ext/GraphicsEngine.h>
36 
 
 36 
 
37 
 
 37 
 
38 
/*
 38 
/*
39 
 *  TeX Math Styles
 39 
 *  TeX Math Styles
Line 1521... Line 1521...
1521 
    double totalwidth = bboxWidth(bbox) + bboxItalic(bbox);
 1521 
    double totalwidth = bboxWidth(bbox) + bboxItalic(bbox);
1522 
    double delta = totalwidth * (1 - 2 * DELTA) / NTILDE;
 1522 
    double delta = totalwidth * (1 - 2 * DELTA) / NTILDE;
1523 
    double start = DELTA * totalwidth;
 1523 
    double start = DELTA * totalwidth;
1524 
    double accentGap = ACCENT_GAP * XHeight(gc, dd);
 1524 
    double accentGap = ACCENT_GAP * XHeight(gc, dd);
1525 
    double hatHeight = 0.5 * HAT_HEIGHT * XHeight(gc, dd);
 1525 
    double hatHeight = 0.5 * HAT_HEIGHT * XHeight(gc, dd);
1526 
    double c = 8 * atan(1.0) / NTILDE;
 1526 
    double c = M_2PI / NTILDE;
1527 
    double x[NTILDE + 3], y[NTILDE + 3];
 1527 
    double x[NTILDE + 3], y[NTILDE + 3];
1528 
    double baseX, baseY, xval, yval;
 1528 
    double baseX, baseY, xval, yval;
1529 
    int i;
 1529 
    int i;
1530 
 
 1530 
 
1531 
    if (draw) {
 1531 
    if (draw) {