From: Werner Lemberg Date: Sat, 11 Sep 2004 14:09:47 +0000 (+0000) Subject: * scm/framework-ps.scm (reencode-font): Handling font scaling X-Git-Tag: release/2.3.16~4 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e85fc00cabc5e8b3da9c3a053811c2518d10037a;p=lilypond.git * scm/framework-ps.scm (reencode-font): Handling font scaling and reencoding differently to work around a bug in gs 8.30 and earlier. Update callers. --- diff --git a/ChangeLog b/ChangeLog index 4e514dc084..467fb79d03 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2004-09-11 Matthias Neeracher + + * scm/framework-ps.scm (reencode-font): Handling font scaling + and reencoding differently to work around a bug in gs 8.30 and + earlier. + Update callers. + 2004-09-11 Han-Wen Nienhuys * lily/*-engraver.cc: remove all Protected_scm objects to fix GC diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index 007763e95a..bb04b7efbf 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -76,11 +76,11 @@ "/" command " { /" fontname " findfont " (ly:number->string scaling) " output-scale div scalefont } bind def\n")) - (define (reencode-font plain encoding command) + (define (reencode-font fontname encoding scaling command) (let ((coding-vector (get-coding-command encoding))) (string-append - plain " " coding-vector " /" command " reencode-font\n" - "/" command "{ /" command " findfont 1 scalefont } bind def\n"))) + "/" fontname " findfont " coding-vector " /" command " reencode-font\n" + "/" command "{ /" command " findfont " (ly:number->string scaling) " output-scale div scalefont } bind def\n"))) (define (standard-tex-font? x) (or (equal? (substring x 0 2) "ms") @@ -121,7 +121,7 @@ (define-font plain fontname scaling) (if (equal? input-encoding font-encoding) "" - (reencode-font plain input-encoding command))))) + (reencode-font fontname input-encoding scaling command))))) (define (font-load-encoding encoding) (let ((filename (get-coding-filename encoding)))