From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Thu, 17 Mar 2005 09:03:32 +0000 (+0000)
Subject: (music-font?): Bugfix: use "Emmentaler".
X-Git-Tag: release/2.5.16~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8622ca2a972c9b5ff43a192721a13a2059c8f349;p=lilypond.git

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

diff --git a/ChangeLog b/ChangeLog
index 41f7f91bae..dc6c241c5a 100644
--- 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 f1a5dc5688..244b37d4ab 100644
--- 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)