(glyph-string): use ~$ for less decimals for glyph-string and grob-cause.
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>
(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))))
(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)))