From 479cccf0c18575e40583525cd1d4a855568f2db3 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 20 Oct 2006 14:29:13 +0000 Subject: [PATCH] * scripts/lilypond-book.py (main): use -deps-box-padding=-3 * scm/framework-ps.scm (dump-stencil-as-EPS): use eps-box-padding, a number. --- ChangeLog | 5 +++++ scm/framework-ps.scm | 4 ++-- scm/lily.scm | 2 +- scripts/lilypond-book.py | 2 +- 4 files changed, 9 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index ec521e356d..1d96c8bcec 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2006-10-20 Han-Wen Nienhuys + * scripts/lilypond-book.py (main): use -deps-box-padding=-3 + + * scm/framework-ps.scm (dump-stencil-as-EPS): use eps-box-padding, + a number. + * scm/define-grob-properties.scm (all-user-grob-properties): remove outdated doc. diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index 9207b181fb..aa0696bbc3 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -487,7 +487,7 @@ (let* ((xext (ly:stencil-extent dump-me X)) (yext (ly:stencil-extent dump-me Y)) - (left-overshoot -3) + (left-overshoot (number? (ly:get-option 'eps-box-padding))) (bbox (map (lambda (x) @@ -502,7 +502,7 @@ ;; (list - (if (ly:get-option 'pad-eps-boxes) + (if left-overshoot (min left-overshoot (car xext)) (car xext)) (car yext) (cdr xext) (cdr yext))))) diff --git a/scm/lily.scm b/scm/lily.scm index 48fcc61657..807adcb485 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -32,7 +32,7 @@ (include-book-title-preview #t "include book-titles in preview images.") (include-eps-fonts #t "Include fonts in separate-system EPS files.") - (pad-eps-boxes #f "Pad EPS bounding boxes to guarantee alignment between systems") + (eps-box-padding #f "Pad EPS bounding box left edge by this much to guarantee alignment between systems") (gui #f "running from gui; redirect stderr to log file") diff --git a/scripts/lilypond-book.py b/scripts/lilypond-book.py index bb04079563..f64deb6343 100644 --- a/scripts/lilypond-book.py +++ b/scripts/lilypond-book.py @@ -1802,7 +1802,7 @@ def main (): if global_options.verbose: global_options.process_cmd += " --verbose " - global_options.process_cmd += " -dread-file-list -dpad-eps-boxes " + global_options.process_cmd += " -dread-file-list -deps-box-padding=-3 " identify () -- 2.39.2