X-Git-Url: https://git.donarmstrong.com/?p=lilypond.git;a=blobdiff_plain;f=scm%2Fframework-svg.scm;h=85cbe1c2c11bb52a4473a6757de4b150819a525b;hp=a4cf2e996055305dbeb36730dc78247b0a1016a4;hb=HEAD;hpb=50ba2171c6a88789ef5ed3673a4c6a4549400113

diff --git a/scm/framework-svg.scm b/scm/framework-svg.scm
index a4cf2e9960..85cbe1c2c1 100644
--- a/scm/framework-svg.scm
+++ b/scm/framework-svg.scm
@@ -197,3 +197,11 @@ src: url('~a');
                                   (map paper-system-stencil
                                        (reverse to-dump-systems)))
                   (format #f "~a.preview.svg" basename))))
+
+(define (output-crop-framework basename book scopes fields)
+  (let* ((paper (ly:paper-book-paper book))
+         (systems (relevant-book-systems book))
+         (page-stencils (stack-stencils Y DOWN 0.0
+                                        (map paper-system-stencil
+                                             (reverse (reverse systems))))))
+    (dump-preview paper page-stencils (format #f "~a.cropped.svg" basename))))