+2006-09-17 Han-Wen Nienhuys <hanwen@lilypond.org>
+
+ * scm/framework-ps.scm (dump-stencil-as-EPS): naming pad-eps-boxes.
+
+ * scm/backend-library.scm: option naming: gs-font-load*s*
+
+ * scm/framework-eps.scm (dump-stencils-as-EPSes): rename option to
+ include-eps-fonts
+
2006-09-17 Joe Neeman <joeneeman@gmail.com>
* scm/define-music-types.scm (music-descriptions): remove
% /setgray { 1 add } bind def
-% To let gs load fonts from builddir, do:
-% export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm
-
-
/set-ps-scale-to-lily-scale {
lily-output-units output-scale mul dup scale
} bind def
"
(search-gs)
(if (ly:get-option 'verbose) "" "-q")
- (if (ly:get-option 'gs-font-load)
+ (if (ly:get-option 'gs-load-fonts)
" -dNOSAFER "
" -dSAFER ")
paper-size-string
(dump-stencil-as-EPS
paper line system-base-name
- (ly:get-option 'eps-font-include))
+ (ly:get-option 'include-eps-fonts))
(if do-pdf
(postscript->pdf 0 0 (string-append system-base-name ".eps")))
(lambda (x y) (string<? (cadr x) (cadr y))))))
- (font-loader (if (ly:get-option 'gs-font-load)
+ (font-loader (if (ly:get-option 'gs-load-fonts)
load-font-via-GS
load-font))
;;
(list
- (if (ly:get-option 'eps-pad-boxes)
+ (if (ly:get-option 'pad-eps-boxes)
(min left-overshoot (car xext))
(car xext))
(car yext) (cdr xext) (cdr yext))))