;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
(define-module (scm framework-ps))
"%%BeginPageSetup\n"
(if landscape?
- "page-width output-scale mul 0 translate 90 rotate\n"
+ "page-width output-scale
+ lily-output-units mul
+ mul 0 translate 90 rotate\n"
"")
"%%EndPageSetup\n"
(aname (string-append x ".pfa"))
(bname (string-append x ".pfb"))
(cff-file-name (ly:find-file cffname))
- (a-file-name (ly:kpathsea-find-file aname))
- (b-file-name (ly:kpathsea-find-file bname)))
+ )
(cond
((and bare-file-name (string-match "\\.pfb" bare-file-name))
(ly:pfb->pfa bare-file-name))
""))))
(filter string? font-names))))
pfas))
-
(display (procset "music-drawing-routines.ps") port)
(display (procset "lilyponddefs.ps") port)