From 17d30f93199ca086f9803ae293d58863aed859df Mon Sep 17 00:00:00 2001 From: hanwen Date: Thu, 2 Mar 2006 15:38:57 +0000 Subject: [PATCH] (grob-cause): replace backslashes by / (glyph-string): use ~$ for less decimals for glyph-string and grob-cause. --- ChangeLog | 1 + scm/output-ps.scm | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3352597293..7c59e3d9e4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,7 @@ 2006-03-02 Han-Wen Nienhuys * 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 diff --git a/scm/output-ps.scm b/scm/output-ps.scm index efc5ad3ca3..91c4dc55d6 100644 --- 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))) -- 2.39.5