The R Project SVN R

Rev

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

Rev 44421 Rev 44431
Line 942... Line 942...
942 
{
 942 
{
943 
    return (gc->fontface == ItalicFont ||
 943 
    return (gc->fontface == ItalicFont ||
944 
	    gc->fontface == BoldItalicFont);
 944 
	    gc->fontface == BoldItalicFont);
945 
}
 945 
}
946 
 
 946 
 
- 
 
 947 
extern int Rf_AdobeSymbol2ucs2(int n);
947 
static BBOX GlyphBBox(int chr, pGEcontext gc, pGEDevDesc dd)
 948 
static BBOX GlyphBBox(int chr, pGEcontext gc, pGEDevDesc dd)
948 
{
 949 
{
949 
    BBOX bbox;
 950 
    BBOX bbox;
950 
    double height, depth, width;
 951 
    double height, depth, width;
- 
 
 952 
    int chr1 = chr;
- 
 
 953 
    if(dd->dev->wantSymbolUTF8) chr1 = -Rf_AdobeSymbol2ucs2(chr);
951 
    GEMetricInfo(chr, gc, &height, &depth, &width, dd);
 954 
    GEMetricInfo(chr1, gc, &height, &depth, &width, dd);
952 
    bboxHeight(bbox) = fromDeviceHeight(height, MetricUnit, dd);
 955 
    bboxHeight(bbox) = fromDeviceHeight(height, MetricUnit, dd);
953 
    bboxDepth(bbox)  = fromDeviceHeight(depth, MetricUnit, dd);
 956 
    bboxDepth(bbox)  = fromDeviceHeight(depth, MetricUnit, dd);
954 
    bboxWidth(bbox)  = fromDeviceHeight(width, MetricUnit, dd);
 957 
    bboxWidth(bbox)  = fromDeviceHeight(width, MetricUnit, dd);
955 
    bboxItalic(bbox) = 0;
 958 
    bboxItalic(bbox) = 0;
956 
    bboxSimple(bbox) = 1;
 959 
    bboxSimple(bbox) = 1;