From 20d2eb96bffa8a5c72c79906522dbf11bb347d02 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 6 Dec 2005 23:13:27 +0000 Subject: [PATCH] *** empty log message *** --- scm/framework-eps.scm | 3 +-- scm/framework-ps.scm | 4 +++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm index 01a09a5a87..5923dca9fe 100644 --- a/scm/framework-eps.scm +++ b/scm/framework-eps.scm @@ -54,8 +54,7 @@ stencil, so LaTeX includegraphics doesn't fuck up the alignment." (rest (cdr stencils))) (dump-stencil-as-EPS - paper - line (format "~a-~a" basename count) + paper line (format "~a-~a" basename count) (ly:output-def-lookup paper 'force-eps-font-include)) (dump-stencils-as-separate-EPS rest (1+ count))))) diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index 8cb006d70a..57f5dcee5f 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -475,7 +475,9 @@ (equal? (format #f "~S" x) "+#.#") (equal? (format #f "~S" x) "-#.#")) 0.0 x)) - (list (car xext) (car yext) (cdr xext) (cdr yext)))) + ;; set left of X to 0, to prevent barnumbers + ;; from sticking out of margin. + (list 0.0 (car yext) (cdr xext) (cdr yext)))) (rounded-bbox (mm-to-bp-box bbox)) (port (ly:outputter-port outputter)) (header (eps-header paper rounded-bbox load-fonts?))) -- 2.39.5