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 (use-modules (guile) (lily))
   9
  10 (define-public (output-framework-gnome outputter book scopes fields basename)
  11   (let* ((bookpaper (ly:paper-book-book-paper book))
  12          (pages (list->vector (ly:paper-book-pages book))))
  13
  14     (ly:outputter-dump-stencil
  15      outputter
  16      (ly:make-stencil (list 'main outputter bookpaper pages)
  17                       '(0 . 0) '(0 . 0)))))
  18