scm/framework-texstr.scm

   1 ;;;; framework-tex.scm --
   2 ;;;;
   3 ;;;;  source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c)  2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   6
   7 (define-module (scm framework-texstr)
   8   #:export (output-framework-tex
   9             output-classic-framework-tex))
  10
  11 (use-modules (ice-9 regex)
  12              (ice-9 string-fun)
  13              (ice-9 format)
  14              (guile)
  15              (srfi srfi-1)
  16              (srfi srfi-13)
  17              (lily))
  18
  19 (define (header filename)
  20   (format  "% header
  21 \\input{lilypond-tex-metrics}
  22 \\documentclass{article}
  23 \\lilyglobalscale{1.0}
  24 \\lilymetricsfile{~a.textmetrics}
  25 \\begin{document}
  26 " filename))
  27
  28 (define (footer)
  29   "
  30 \\end{document}
  31 ")
  32
  33
  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))
  37          )
  38     (ly:outputter-dump-string outputter (header basename))
  39     (for-each
  40      (lambda (system)
  41        (ly:outputter-dump-stencil outputter (ly:paper-system-stencil system)))
  42      lines)
  43     (ly:outputter-dump-string outputter (footer))))
  44
  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))
  48          )
  49     (ly:outputter-dump-string outputter (header basename))
  50     (for-each
  51      (lambda (page)
  52        (ly:outputter-dump-stencil outputter page))
  53      pages)
  54     (ly:outputter-dump-string outputter (footer))))
  55
  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)