* scm/framework-svg.scm (output-framework): put scaling in

[lilypond.git] / scm / output-gnome.scm

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index 83ce839bae5ee07f72aa99a8d9c1a6b52b272281..f1a5dc5688356cd5e277177b64b1f45fc7f04efa 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -151,7 +151,7 @@ lilypond -fgnome input/simple-song.ly
   (* 1.85
      (if (string? font)
         12
-        (* output-scale (font-size font)))))
+        (* output-scale (modified-font-metric-font-scaling font)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Wrappers from guile-gnome TLA