1 files changed, 9 insertions, 1 deletions
diff --git a/src/bltGraph.C b/src/bltGraph.C
index fc0bc86..4fbc00a 100644
--- a/src/bltGraph.C
+++ b/src/bltGraph.C
@@ -373,7 +373,15 @@ int Graph::print(const char* ident, PSOutput* psPtr)
   else if (height_ < 2)
     height_ = Tk_ReqHeight(tkwin_);
 
-  psPtr->computeBBox(width_, height_);
+  // scale from points to pica
+  float pica = 25.4 / 72 * 
+    WidthOfScreen(Tk_Screen(tkwin_)) / 
+    WidthMMOfScreen(Tk_Screen(tkwin_));
+
+  width_ /= pica;
+  height_ /= pica;
+
+  psPtr->computeBBox(width_, height_, pica);
   flags |= RESET;
 
   // Turn on PostScript measurements when computing the graph's layout.