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
  20 (define (define-fonts paper)
  21    ;; UGH. FIXME.
  22    (format "(globalscale ~a)\n" (ly:paper-outputscale paper)))
  23
  24
  25 (define-public (output-framework outputter book scopes fields basename )
  26   (let* ((paper (ly:paper-book-paper book))
  27          (pages (ly:paper-book-pages book))
  28          )
  29     (ly:outputter-dump-string outputter (define-fonts paper))
  30     (for-each
  31      (lambda (page)
  32        (ly:outputter-dump-stencil outputter page))
  33      pages)))
  34
  35
  36
  37 (define-public (convert-to-ps . args) #t)
  38 (define-public (convert-to-pdf . args) #t)
  39 (define-public (convert-to-png . args) #t)
  40 (define-public (convert-to-dvi . args) #t)
  41 (define-public (convert-to-tex . args) #t)