-;;;; framework-svg.scm --
+;;
+;; framework-svg.scm -- structure for SVG output
;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2005 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2004--2006 Jan Nieuwenhuizen <janneke@gnu.org>
(define-module (scm framework-svg))
(define-public (output-framework basename book scopes fields)
(let* ((filename (format "~a.svg" basename))
- (outputter (ly:make-paper-outputter filename
+ (outputter (ly:make-paper-outputter (open-file filename "wb")
(ly:output-backend)))
(dump (lambda (str) (display str (ly:outputter-port outputter))))
(paper (ly:paper-book-paper book))
`(width . ,(format #f "~s" page-width))
`(height . ,(format #f "~s" page-height))))
-; (dump (dump-fonts outputter paper))
+ (dump (dump-fonts outputter paper))
(dump
(string-append
;; FIXME: only use pages if there are more than one, pageSet is