1 ;;;; framework-tex.scm --
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 2004 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}
34 (define-public (output-classic-framework outputter book scopes fields basename)
35 (let* ((paper (ly:paper-book-paper book))
36 (lines (ly:paper-book-systems book))
38 (ly:outputter-dump-string outputter (header basename))
41 (ly:outputter-dump-stencil outputter (ly:paper-system-stencil system)))
43 (ly:outputter-dump-string outputter (footer))))
45 (define-public (output-framework outputter book scopes fields basename)
46 (let* ((paper (ly:paper-book-paper book))
47 (pages (ly:paper-book-pages book))
49 (ly:outputter-dump-string outputter (header basename))
52 (ly:outputter-dump-stencil outputter page))
54 (ly:outputter-dump-string outputter (footer))))
56 (define-public (convert-to-ps . args) #t)
57 (define-public (convert-to-pdf . args) #t)
58 (define-public (convert-to-png . args) #t)
59 (define-public (convert-to-dvi . args) #t)
60 (define-public (convert-to-tex . args) #t)