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