1 ;;;; framework-tex.scm --
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 (define-module (scm framework-texstr)
8 #:export (output-framework-tex
9 output-classic-framework-tex))
11 (use-modules (ice-9 regex)
19 (define (header filename)
21 \\input{lilypond-tex-metrics}
22 \\documentclass{article}
23 \\lilyglobalscale{1.0}
24 \\lilymetricsfile{~a.textmetrics}
33 (define-public (output-classic-framework basename book scopes fields)
34 (let* ((filename (format "~a.texstr" basename))
35 (outputter (ly:make-paper-outputter
36 (open-file filename "wb")
38 (paper (ly:paper-book-paper book))
39 (lines (ly:paper-book-systems book)))
40 (ly:outputter-dump-string outputter (header basename))
43 (ly:outputter-dump-stencil outputter (paper-system-stencil system)))
45 (ly:outputter-dump-string outputter (footer))))
47 (define-public (output-framework basename book scopes fields )
48 (let* ((filename (format "~a.texstr" basename))
50 (ly:make-paper-outputter
51 (open-file filename "wb")
53 (paper (ly:paper-book-paper book))
54 (pages (ly:paper-book-pages book)))
55 (ly:outputter-dump-string outputter (header basename))
58 (ly:outputter-dump-stencil outputter page))
60 (ly:outputter-dump-string outputter (footer))))
62 (define-public (convert-to-ps . args) #t)
63 (define-public (convert-to-pdf . args) #t)
64 (define-public (convert-to-png . args) #t)
65 (define-public (convert-to-dvi . args) #t)
66 (define-public (convert-to-tex . args) #t)