From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 11 Dec 2004 18:48:23 +0000 (+0000)
Subject: (named-glyph): Use it.
X-Git-Tag: release/2.5.14~447
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dbf5da66c2cfa0eb994ced9468d2da51872ba734;p=lilypond.git

(named-glyph): Use it.
---

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)