1 ;;;; framework-scm.scm -- output full-page stencil expressions
3 (define-module (scm framework-scm))
15 (define format ergonomic-simple-format)
17 (define-public (output-framework basename book scopes fields)
18 (let* ((file (open-output-file (format "~a.scm" basename))))
20 (display ";;Creator: LilyPond\n" file)
21 (display ";; raw SCM output\n" file)
25 (display ";;;;;;;;;;;;;;;;;;;;;;;;;;\n;;;PAGE\n" file)
26 ;; The following two lines are alternates
27 ;(pretty-print (ly:stencil-expr page) file)
28 (write (ly:stencil-expr page) file)
30 (map page-stencil (ly:paper-book-pages book)))))
32 (define-public output-classic-framework output-framework)
34 (define-public (convert-to-ps . args) #t)
35 (define-public (convert-to-pdf . args) #t)
36 (define-public (convert-to-png . args) #t)