From f605c1bfb0803efce1fad4472820360b7d40e0bd Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 26 Jan 2007 16:45:42 +0100 Subject: [PATCH] run clip-systems in EPS mode too. --- scm/framework-eps.scm | 3 +++ scm/framework-ps.scm | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm index cf9bec54b3..fab2d77177 100644 --- a/scm/framework-eps.scm +++ b/scm/framework-eps.scm @@ -146,6 +146,9 @@ stencil, so LaTeX includegraphics doesn't fuck up the alignment." (define-public (output-framework basename book scopes fields) (output-scopes scopes fields basename) + (if (ly:get-option 'clip-systems) + (clip-system-EPSes basename book)) + (dump-stencils-as-EPSes (map page-stencil (ly:paper-book-pages book)) book basename)) diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index a277acb741..28579ebc96 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -603,7 +603,7 @@ )) -(define (clip-system-EPSes basename paper-book) +(define-public (clip-system-EPSes basename paper-book) (define do-pdf (member "pdf" (ly:output-formats))) (define (clip-score-systems basename systems) -- 2.39.5