* input/proportional.ly (staffKind): bugfix.

[lilypond.git] / scm / framework-tex.scm

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 568c5e7c409632c845b35bd2dfde25534cf2e935..a6b28b1d23f9bca887c56fc464f498df8c7e674a 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -1,8 +1,9 @@
-;;;; framework-tex.scm --
-;;;;
-;;;;  source file of the GNU LilyPond music typesetter
-;;;;
-;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;
+;; framework-tex.scm -- structure for TeX output
+;;
+;; source file of the GNU LilyPond music typesetter
+;;
+;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 (define-module (scm framework-tex)
   #:export (output-framework-tex       
@@ -190,7 +191,7 @@
 
 (define-public (output-framework basename book scopes fields)
   (let* ((filename (format "~a.tex" basename))
-        (outputter  (ly:make-paper-outputter filename "tex"))
+        (outputter  (ly:make-paper-outputter (open-file filename "wb") "tex"))
         (paper (ly:paper-book-paper book))
         (pages (ly:paper-book-pages book))
         (last-page (car (last-pair pages)))
@@ -232,7 +233,8 @@
 (define-public (output-classic-framework
                basename book scopes fields)
   (let* ((filename (format "~a.tex" basename))
-        (outputter  (ly:make-paper-outputter filename "tex"))
+        (outputter  (ly:make-paper-outputter
+                     (open-file filename "w") "tex"))
         (paper (ly:paper-book-paper book))
         (lines (ly:paper-book-systems book))
         (last-line (car (last-pair lines))))
@@ -258,7 +260,7 @@
 (define-public (output-preview-framework
                basename book scopes fields)
   (let* ((filename (format "~a.tex" basename))
-        (outputter  (ly:make-paper-outputter filename
+        (outputter  (ly:make-paper-outputter (open-file filename "wb")
                                              "tex"))
         (paper (ly:paper-book-paper book))
         (lines (ly:paper-book-systems book))
@@ -300,9 +302,7 @@
     (postscript->png
      (if (number? resolution)
         resolution
-        (assoc
-         'resolution
-         (ly:get-option 'command-line-settings)))
+        (ly:get-option 'resolution))
 
      (if (string? papersizename)
         papersizename
@@ -373,3 +373,4 @@
 
 (define-public (convert-to-tex book name)
   #t)
+