gs-font-load=1: read fonts via ghostscript.
* scm/backend-library.scm (postscript->pdf): Support for
-dgs-font-load=1
+2005-06-09 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+ * scm/framework-ps.scm (write-preamble): Support for -d
+ gs-font-load=1: read fonts via ghostscript.
+
+ * scm/backend-library.scm (postscript->pdf): Support for
+ -dgs-font-load=1
+
2005-06-09 Graham Percival <gperlist@shaw.ca>
* Documentation/user/global.itely: added \layout docs.
2005-06-09 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * scm/framework-ps.scm (write-preamble): make font loading
+ switchable to GS via --define-default gs-font-load=1
+
* lily/lily-parser-scheme.cc: add unistd.h
2005-06-08 Han-Wen Nienhuys <hanwen@xs4all.nl>
(let* ((pdf-name (string-append (basename name ".ps") ".pdf"))
(cmd (format #f
"gs\
- -dSAFER\
+ ~a\
-dCompatibilityLevel=1.4 \
-sPAPERSIZE=~a\
-q\
-c .setpdfwrite\
-f ~S\
"
+ (if (assoc 'gs-font-load
+ (ly:get-option 'command-line-settings))
+ " -dNOSAFER "
+ " -dSAFER ")
(sanitize-command-option papersizename)
pdf-name
name)))
(uniq-list
(sort (apply append all-font-names)
(lambda (x y) (string<? (cadr x) (cadr y))))))
- ;; ttftool/fopencookie is broken on Windows,
- ;; possibly a stack corruption bug.
- (pfas (map load-font font-names)))
+
+
+ (font-loader (if (assoc 'gs-font-load
+ (ly:get-option 'command-line-settings))
+ load-font-via-GS
+ load-font))
+
+ (pfas (map font-loader font-names)))
pfas))
(if load-fonts?