Hi,
On Mon, 6 Mar 2006, Tapio Tuovila wrote:
> as no one seems to be particularly interested in this 'point and click
> -stuff' I decided to elaborate my message a little:
>
> Seems like something happened to p&c between 2.7.36 and 2.7.37.
That helped, thank you! I just bisected through these revisions, and the
"culprit" was this commit:
(grob-cause): replace backslashes by /
(glyph-string): use ~$ for less decimals for glyph-string and
grob-cause.
It tries to make the PostScript more readable by formatting decimal
numbers with only two digits after the dot. However, you need to pass it a
number, not a formatted string... Please find attached a patch which fixes
that.
Ciao,
Dscho
diff-tree a641ce9cfd9beeabe4932bfe23039168432d6872 (from
e669606a8b7b340a3f937e011d26f7522a94fb3f)
Author: Johannes Schindelin <[EMAIL PROTECTED]>
Date: Tue Mar 7 13:19:10 2006 +0100
fix point-and-click
diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 6b7a86b..4898de5 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -175,10 +175,10 @@
(if (and (< 0 (interval-length x-ext))
(< 0 (interval-length y-ext)))
(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)))
- (ly:number->string (+ (cdr offset) (cdr y-ext)))
+ (+ (car offset) (car x-ext))
+ (+ (cdr offset) (car y-ext))
+ (+ (car offset) (cdr x-ext))
+ (+ (cdr offset) (cdr y-ext))
;; TODO
;;full escaping.
_______________________________________________
lilypond-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-devel
