From f0466cc0792d776bdd6cea9a5ba2cb1ab2178232 Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Mon, 8 Feb 2010 14:37:58 -0800 Subject: [PATCH] PS backend: remove unused code. --- scm/framework-ps.scm | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index cbc06429dc..7b993fbb2b 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -603,7 +603,6 @@ fonts inline." (define-public (output-preview-framework basename book scopes fields) (let* ((paper (ly:paper-book-paper book)) (systems (ly:paper-book-systems book)) - (scale (ly:output-def-lookup paper 'output-scale)) (to-dump-systems '())) ;; skip booktitles. (if (and (not (ly:get-option 'include-book-title-preview)) @@ -627,26 +626,6 @@ fonts inline." (format "~a.preview.eps" basename) (cons "png" (ly:output-formats))))) -(if #f - (define-public (output-preview-framework basename book scopes fields) - (let* ((paper (ly:paper-book-paper book)) - (systems (ly:paper-book-systems book)) - (scale (ly:output-def-lookup paper 'output-scale)) - (titles (take-while paper-system-title? systems)) - (non-title (find (lambda (x) - (not (paper-system-title? x))) systems)) - (dump-me - (stack-stencils Y DOWN 0.0 - (map paper-system-stencil - (append titles (list non-title)))))) - (output-scopes scopes fields basename) - (dump-stencil-as-EPS paper dump-me - (format "~a.preview" basename) - #t) - (postprocess-output book framework-ps-module - (format "~a.preview.eps" basename) - (ly:output-formats))))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-public (convert-to-pdf book name) -- 2.39.5