(grob-cause): replace backslashes by /

(glyph-string): use ~$ for less decimals for glyph-string and grob-cause.

diff --git a/ChangeLog b/ChangeLog
index 33525972932323dd2f601680c7fa1b276783aaf3..7c59e3d9e4dc212ca78864ab1cf10cb44491939d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2006-03-02  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
        * scm/output-ps.scm (grob-cause): replace backslashes by /
+       (glyph-string): use ~$ for less decimals for glyph-string and grob-cause.
 
 2006-03-02  Jan Nieuwenhuizen  <janneke@gnu.org>
 

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index efc5ad3ca3b35b7270400c5c836b2fb1ea4cf5a2..91c4dc55d67c396603649464843bde2c8cf1c203 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -154,7 +154,7 @@
                       (g (cadddr item))
                       (prefix (if  (string? g) "/" "")))
 
-                   (format #f " gsave ~a~a glyphshow grestore ~a ~a rmoveto \n" prefix g (+ w x) y)
+                   (format #f " gsave ~a~a glyphshow grestore ~$ ~$ rmoveto \n" prefix g (+ w x) y)
                    ))
                w-x-y-named-glyphs))))
 
@@ -174,7 +174,7 @@
 
          (if (and (< 0 (interval-length x-ext))
                   (< 0 (interval-length y-ext)))
-             (format "~a ~a ~a ~a (textedit://~a:~a:~a:~a) mark_URI\n"
+             (format "~$ ~$ ~$ ~$ (textedit://~a:~a:~a:~a) mark_URI\n"
                      (ly:number->string (+ (car offset) (car x-ext)))
                      (ly:number->string (+ (cdr offset) (car y-ext)))
                      (ly:number->string (+ (car offset) (cdr x-ext)))