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)