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
  13 ;; dump?
  14 (define (dump-page outputter page page-number page-count)
  15   (ly:outputter-dump-stencil outputter page))
  16
  17 (define-public (output-framework-gnome outputter book scopes fields basename)
  18   (let* ((bookpaper (ly:paper-book-book-paper book))
  19          (pages (list->vector (map ly:page-stencil
  20                                    (ly:paper-book-pages book)))))
  21
  22     (ly:outputter-dump-stencil
  23      outputter
  24      (ly:make-stencil (list 'main outputter pages) '(0 . 0) '(0 . 0)))))
  25