From 8622ca2a972c9b5ff43a192721a13a2059c8f349 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Thu, 17 Mar 2005 09:03:32 +0000 Subject: [PATCH] (music-font?): Bugfix: use "Emmentaler". Fixes symbol placement. --- ChangeLog | 3 +++ scm/output-gnome.scm | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 41f7f91bae..dc6c241c5a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2005-03-17 Jan Nieuwenhuizen + * scm/output-gnome.scm (music-font?): Bugfix: use "Emmentaler". + Fixes symbol placement. + * lily/spanner.cc: * lily/stencil.cc: Use "libc-extention.hh" (WAS: ). 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 #: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) -- 2.39.5