The R Project SVN R

Rev

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

Rev 19875 Rev 19876
Line 3010... Line 3010...
3010 
	return height;
 3010 
	return height;
3011 
    else
 3011 
    else
3012 
	return GConvertYUnits(height, DEVICE, units, dd);
 3012 
	return GConvertYUnits(height, DEVICE, units, dd);
3013 
}
 3013 
}
3014 
 
 3014 
 
- 
 
 3015 
/* This is just here to satisfy the Rgraphics.h API.
- 
 
 3016 
 * This allows new graphics API (GraphicsDevice.h, GraphicsEngine.h)
- 
 
 3017 
 * to be developed alongside.
- 
 
 3018 
 * Could be removed if Rgraphics.h ever gets REPLACED by new API
- 
 
 3019 
 * NOTE that base graphics code no longer calls this -- the base
- 
 
 3020 
 * graphics system directly calls the graphics engine for mathematical
- 
 
 3021 
 * annotation (GEMathText)
- 
 
 3022 
 */
- 
 
 3023 
void GMathText(double x, double y, int coords, SEXP expr,
- 
 
 3024 
	       double xc, double yc, double rot,
- 
 
 3025 
	       DevDesc *dd)
- 
 
 3026 
{
- 
 
 3027 
    GConvert(&x, &y, coords, DEVICE, dd);
- 
 
 3028 
    GEMathText(x, y, expr, xc, yc, rot,
- 
 
 3029 
	       Rf_gpptr(dd)->col, Rf_gpptr(dd)->gamma, Rf_gpptr(dd)->font,
- 
 
 3030 
	       Rf_gpptr(dd)->cex, Rf_gpptr(dd)->ps, (GEDevDesc*) dd);
- 
 
 3031 
}
- 
 
 3032 
 
3015 
void GMMathText(SEXP str, int side, double line, int outer,
 3033 
void GMMathText(SEXP str, int side, double line, int outer,
3016 
		double at, int las, DevDesc *dd)
 3034 
		double at, int las, DevDesc *dd)
3017 
{
 3035 
{
3018 
    int coords = 0, subcoords;
 3036 
    int coords = 0, subcoords;
3019 
    double xadj, yadj = 0, angle = 0;
 3037 
    double xadj, yadj = 0, angle = 0;