+(define-public (output-classic-framework basename book scopes fields)
+ (let* ((filename (format #f "~a.texstr" basename))
+ (outputter (ly:make-paper-outputter
+ (open-file filename "wb")
+ (ly:get-option 'backend)))
+ (paper (ly:paper-book-paper book))
+ (lines (ly:paper-book-systems book)))
+ (ly:outputter-dump-string outputter (header basename))
+ (for-each
+ (lambda (system)
+ (ly:outputter-dump-stencil outputter (paper-system-stencil system)))
+ lines)
+ (ly:outputter-dump-string outputter (footer))))