(music-font?): Bugfix: use "Emmentaler".

Fixes symbol placement.

diff --git a/ChangeLog b/ChangeLog
index 41f7f91bae6b8d98f72c4863b38f489e3092bd95..dc6c241c5af9b12eb520aff31e7a1877146d301a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-03-17  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * scm/output-gnome.scm (music-font?): Bugfix: use "Emmentaler".
+       Fixes symbol placement.
+
        * lily/spanner.cc: 
        * lily/stencil.cc: Use "libc-extention.hh" (WAS:
        <libc-extention.hh>).

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index f1a5dc5688356cd5e277177b64b1f45fc7f04efa..244b37d4ab683fb489affe82fb05a4bf356da203 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -137,7 +137,7 @@ lilypond -fgnome input/simple-song.ly
 (define (music-font? font)
   (let ((family (car (font-name-style font))))
     (string=? (substring family 0 (min (string-length family) 10))
-             "emmentaler")))
+             "Emmentaler")))
 
 ;;; FONT may be font smob, or pango font string
 (define (pango-font-name font)
@@ -383,7 +383,8 @@ lilypond -fgnome input/simple-song.ly
 (define (text font s)
   (make <gnome-canvas-text>
     #:parent (canvas-root)
-    #:x 0.0 #:y 0.0
+    ;;#:x 0.0 #:y 0.0
+    #:x 0.0 #:y (if (music-font? font) 0.15 0.69)
     #:anchor (if (music-font? font) 'west 'south-west)
     #:font (pango-font-name font)
     #:size-points (canvas-font-size font)