1 ;;;; framework-tex.scm --
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 2004--2006 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)
20 (define (header filename)
22 \\input{lilypond-tex-metrics}
23 \\documentclass{article}
24 \\lilyglobalscale{1.0}
25 \\lilymetricsfile{~a.textmetrics}
34 (define-public (output-classic-framework basename book scopes fields)
35 (let* ((filename (format "~a.texstr" basename))
36 (outputter (ly:make-paper-outputter
37 (open-file filename "wb")
39 (paper (ly:paper-book-paper book))
40 (lines (ly:paper-book-systems book)))
41 (ly:outputter-dump-string outputter (header basename))
44 (ly:outputter-dump-stencil outputter (paper-system-stencil system)))
46 (ly:outputter-dump-string outputter (footer))))
48 (define-public (output-framework basename book scopes fields )
49 (let* ((filename (format "~a.texstr" basename))
51 (ly:make-paper-outputter
52 (open-file filename "wb")
54 (paper (ly:paper-book-paper book))
55 (pages (ly:paper-book-pages book)))
56 (ly:outputter-dump-string outputter (header basename))
59 (ly:outputter-dump-stencil outputter page))
61 (ly:outputter-dump-string outputter (footer))))
63 (define-public (convert-to-ps . args) #t)
64 (define-public (convert-to-pdf . args) #t)
65 (define-public (convert-to-png . args) #t)
66 (define-public (convert-to-dvi . args) #t)
67 (define-public (convert-to-tex . args) #t)