The R Project SVN – R – Diff – /branches/R-exp-R5/src/main/plotmath.c

 /* BBOXes are in INCHES (see MetricUnit) */
 void GExpressionBBox(SEXP expr, int units, double *width,
 		     double *height, double *depth, DevDesc *dd)
+{
+    BBOX bbox;
+    MathDevice = dd;
+/* The following two lines don't look right to me, but I inserted them
+   because otherwise you get trouble if you calculate BBoxes without
+   plotting any math first... Similar problem in the next two functions
+	 --pd */
+    CurrentStyle = STYLE_D;
+    SetFont(PlainFont);
-    BBOX bbox = RenderElement(expr, 0);
+    bbox = RenderElement(expr, 0);
     *width  = bboxWidth(bbox);
     *height  = bboxHeight(bbox);
     *depth  = bboxDepth(bbox);
     if (units != INCHES) {
 	*width = GConvertXUnits(*width, INCHES, units, dd);
+    }
+}
 double GExpressionWidth(SEXP expr, int units, DevDesc *dd)
+{
+    BBOX bbox;
+    double width;
+    MathDevice = dd;
+    CurrentStyle = STYLE_D;
+    SetFont(PlainFont);
-    BBOX bbox = RenderElement(expr, 0);
+    bbox = RenderElement(expr, 0);
-    double width  = bboxWidth(bbox);
+    width  = bboxWidth(bbox);
     if (units == INCHES)
 	return width;
     else
 	return GConvertXUnits(width, INCHES, units, dd);
+}
 double GExpressionHeight(SEXP expr, int units, DevDesc *dd)
+{
+    BBOX bbox;
+    double height;
+    MathDevice = dd;
+    CurrentStyle = STYLE_D;
+    SetFont(PlainFont);
-    BBOX bbox = RenderElement(expr, 0);
+    bbox = RenderElement(expr, 0);
-    double height = bboxHeight(bbox) + bboxDepth(bbox);
+    height = bboxHeight(bbox) + bboxDepth(bbox);
     if (units == INCHES)
 	return height;
     else
 	return GConvertYUnits(height, INCHES, units, dd);
+}

The R Project SVN R

(root)/branches/R-exp-R5/src/main/plotmath.c @ 63243 – Rev 2124 → 2679