The R Project SVN R

Rev

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

Rev 27536 Rev 27680
Line 1659... Line 1659...
1659 
			  R_GE_gcontext *gc,
 1659 
			  R_GE_gcontext *gc,
1660 
			  double* ascent, double* descent,
 1660 
			  double* ascent, double* descent,
1661 
			  double* width, NewDevDesc *dd)
 1661 
			  double* width, NewDevDesc *dd)
1662 
{
 1662 
{
1663 
    PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific;
 1663 
    PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific;
- 
 
 1664 
    int face = gc->fontface;
- 
 
 1665 
 
- 
 
 1666 
    if(face < 1 || face > 5) face = 1;
1664 
 
 1667 
 
1665 
    PostScriptMetricInfo(c, ascent, descent, width,
 1668 
    PostScriptMetricInfo(c, ascent, descent, width,
1666 
			 &(pd->metrics[gc->fontface-1]));
 1669 
			 &(pd->metrics[face-1]));
1667 
    *ascent = floor(gc->cex * gc->ps + 0.5) * *ascent;
 1670 
    *ascent = floor(gc->cex * gc->ps + 0.5) * *ascent;
1668 
    *descent = floor(gc->cex * gc->ps + 0.5) * *descent;
 1671 
    *descent = floor(gc->cex * gc->ps + 0.5) * *descent;
1669 
    *width = floor(gc->cex * gc->ps + 0.5) * *width;
 1672 
    *width = floor(gc->cex * gc->ps + 0.5) * *width;
1670 
}
 1673 
}
1671 
 
 1674