scm/framework-gnome.scm

   1 ;;;; framework-gnome.scm --
   2 ;;;;
   3 ;;;;  source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c)  2004 Jan Nieuwenhuizen <janneke@gnu.org>
   6
   7 (define-module (scm framework-gnome))
   8
   9 (use-modules
  10  (guile)
  11  (lily)
  12  (scm output-gnome))
  13
  14 ;; dump?
  15 (define (dump-page outputter page page-number page-count)
  16   (ly:outputter-dump-stencil outputter (ly:page-stencil page)))
  17
  18 (define-public (output-framework-gnome outputter book scopes fields basename)
  19   (let* ((bookpaper (ly:paper-book-book-paper book))
  20          (pages (ly:paper-book-pages book))
  21          (page-number 0)
  22          (page-count (length pages)))
  23
  24     (for-each
  25      (lambda (page)
  26        (set! page-number (1+ page-number))
  27        (dump-page outputter page page-number page-count))
  28      pages)))
  29
  30
  31
  32
  33