+
+ (for-each
+ (lambda (sys)
+ (if (or
+ (ly:paper-system-title? sys)
+ (and (pair? to-dump-systems)
+ (ly:paper-system-title? (car to-dump-systems))))
+ (set! to-dump-systems (cons sys to-dump-systems))))
+ systems)
+
+ (dump-stencil-as-EPS
+ paper
+ (stack-stencils Y DOWN 0.0
+ (map ly:paper-system-stencil (reverse to-dump-systems)))
+ (format "~a.preview" basename)
+ #t)
+
+ (postprocess-output book framework-ps-module
+ (format "~a.preview.eps" basename)
+ (completize-formats (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 'outputscale))
+ (titles (take-while ly:paper-system-title? systems))
+ (non-title (find (lambda (x)
+ (not (ly:paper-system-title? x))) systems))
+ (dump-me
+ (stack-stencils Y DOWN 0.0
+ (map ly: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)
+ (completize-formats (ly:output-formats)))
+
+ ))
+ )