The R Project SVN – R – Diff – /trunk/src/main/plotmath.c

     MathPs = ps;
     CurrentStyle = STYLE_D;
     SetFont(PlainFont);
     bbox = RenderElement(expr, 0);
     width  = bboxWidth(bbox);
+    /*
+     * NOTE that we do fabs() here in case the device
+     * runs right-to-left.
+     * This is so that these calculations match those
+     * for string widths and heights, where the width
+     * and height of text is positive no matter how
+     * the device drawing is oriented.
+     */
-    return toDeviceWidth(width, GE_INCHES, dd);
+    return fabs(toDeviceWidth(width, GE_INCHES, dd));
+}
 double GEExpressionHeight(SEXP expr,
 			  int font, double cex, double ps,
 			  GEDevDesc *dd)
     MathPs = ps;
     CurrentStyle = STYLE_D;
     SetFont(PlainFont);
     bbox = RenderElement(expr, 0);
     height = bboxHeight(bbox) + bboxDepth(bbox);
+    /* NOTE that we do fabs() here in case the device
+     * draws top-to-bottom (like an X11 window).
+     * This is so that these calculations match those
+     * for string widths and heights, where the width
+     * and height of text is positive no matter how
+     * the device drawing is oriented.
+     */
-    return toDeviceHeight(height, GE_INCHES, dd);
+    return fabs(toDeviceHeight(height, GE_INCHES, dd));
+}
 void GEMathText(double x, double y, SEXP expr,
 		double xc, double yc, double rot,
 		int col, double gamma, int font, double cex, double ps,

The R Project SVN R