* scm/framework-ps.scm (output-variables): separately scale the

[lilypond.git] / lily / open-type-font.cc

diff --git a/lily/open-type-font.cc b/lily/open-type-font.cc
index 9664dd43ba779d0f2e72dc0f681ae44d2c391126..627a35aae4dac2f5eaa0821e7535845160d869e6 100644 (file)
--- a/lily/open-type-font.cc
+++ b/lily/open-type-font.cc
@@ -176,7 +176,7 @@ Open_type_font::get_indexed_char (int signed_idx) const
   Box b (Interval (-hb, m.width - hb),
         Interval (-vb, m.height - vb));
 
-  b.scale (design_size () * Real (point_constant) / face_->units_per_EM);
+  b.scale (design_size ()  / Real (face_->units_per_EM));
   return b;
 }
 
@@ -214,7 +214,7 @@ Open_type_font::design_size () const
                               quickly. --hwn.
                              */
                             scm_from_int (1));
-  return scm_to_double (entry);
+  return scm_to_double (entry) * Real (point_constant);
 }