From dbf5da66c2cfa0eb994ced9468d2da51872ba734 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 11 Dec 2004 18:48:23 +0000 Subject: [PATCH] (named-glyph): Use it. --- scm/output-gnome.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm index 9a7af133c4..d427b2c9b7 100644 --- a/scm/output-gnome.scm +++ b/scm/output-gnome.scm @@ -148,7 +148,7 @@ lilypond -fgnome input/simple-song.ly (force-output (current-error-port))) (define (debugf string . rest) - (if #f + (if #t (apply stderr (cons string rest)))) (define (utf8 i) @@ -286,6 +286,7 @@ lilypond -fgnome input/simple-song.ly (define (placebox x y expr) (debugf "item: ~S\n" expr) + (debugf "x,y: ~S,~S\n" x y) (let ((item expr)) ;;(if item ;; FIXME ugly hack to skip #unspecified ... @@ -323,6 +324,8 @@ lilypond -fgnome input/simple-song.ly (list->offsets accum (cddr coords))))) (define (named-glyph font name) + (debugf "glyph:~S\n" name) + (debugf "index:~S\n" (ly:font-get-glyph-index font name)) (text font (integer->char (ly:font-get-glyph-index font name)))) (define (polygon coords blotdiameter) -- 2.39.5