CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/05/10 21:38:51
Modified files:
scm : backend-library.scm framework-ps.scm
Log message:
(load-font-via-GS): new function.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/backend-library.scm.diff?tr1=1.21&tr2=1.22&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/framework-ps.scm.diff?tr1=1.102&tr2=1.103&r1=text&r2=text
Patches:
Index: lilypond/scm/backend-library.scm
diff -u lilypond/scm/backend-library.scm:1.21
lilypond/scm/backend-library.scm:1.22
--- lilypond/scm/backend-library.scm:1.21 Tue May 10 07:29:38 2005
+++ lilypond/scm/backend-library.scm Tue May 10 21:38:51 2005
@@ -35,7 +35,7 @@
(let* ((pdf-name (string-append (basename name ".ps") ".pdf" ))
(cmd (format #f
"gs\
- -dCompatibilityLevel=1.2\
+ -dCompatibilityLevel=1.4 \
-dSAFER\
-sPAPERSIZE=~a\
-q\
Index: lilypond/scm/framework-ps.scm
diff -u lilypond/scm/framework-ps.scm:1.102 lilypond/scm/framework-ps.scm:1.103
--- lilypond/scm/framework-ps.scm:1.102 Tue May 10 21:16:53 2005
+++ lilypond/scm/framework-ps.scm Tue May 10 21:38:51 2005
@@ -234,7 +234,7 @@
(define (load-font-via-GS font-name-filename)
(define (ps-load-file name)
- (format "(~a) (r) file .loadfontfile " name))
+ (format "(~a) (r) file .loadfont " name))
(let* ((font (car font-name-filename))
(name (cadr font-name-filename))
@@ -245,7 +245,7 @@
(munge-lily-font-name name)
(cond
((string-match "([eE]mmentaler|[Aa]ybabtu)" file-name)
- (ps-load-file (munge-lily-font-name file-name)))
+ (ps-load-file (ly:find-file (format "~a.pfa" (munge-lily-font-name
file-name)))))
((string? bare-file-name)
(ps-load-file (munge-lily-font-name file-name)))
(else
@@ -315,7 +315,7 @@
(sort (apply append all-font-names)
(lambda (x y) (string<? (cadr x) (cadr y))))))
- (pfas (map load-font-via-GS font-names)))
+ (pfas (map load-font font-names)))
pfas))
(if load-fonts?
_______________________________________________
Lilypond-cvs mailing list
Lilypond-cvs@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
