X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-tex.scm;h=a6b28b1d23f9bca887c56fc464f498df8c7e674a;hb=630fbf3393d88e644e26b1ff70e0514de5fdee56;hp=568c5e7c409632c845b35bd2dfde25534cf2e935;hpb=a26086ffa95fbbddf0a4f27614415932541b4545;p=lilypond.git

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 568c5e7c40..a6b28b1d23 100644
--- 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)
+