From: hanwen <hanwen>
Date: Wed, 6 Apr 2005 10:31:53 +0000 (+0000)
Subject: (munge-lily-font-name): new function
X-Git-Tag: release/2.5.23~209
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1bd25a505a9144352d0d99182eb1d6e9ee3fc931;p=lilypond.git

(munge-lily-font-name): new function
(write-preamble): hack: insert PFA equivalent of CFF into
.PS. This makes LilyPond output printable on normal PS printers
again.
---

diff --git a/mf/GNUmakefile b/mf/GNUmakefile
index 3f4ab66c0c..bd4e0ab3e6 100644
--- a/mf/GNUmakefile
+++ b/mf/GNUmakefile
@@ -56,7 +56,7 @@ MFTRACE_FLAGS=$(if $(ENCODING_FILE),--encoding $(ENCODING_FILE),) --no-afm
 # 2. are not included with teTeX
 #
 
-$(outdir)/%.cff.ps $(outdir)/%.cff $(outdir)/%.otf $(outdir)/%.svg: $(outdir)/%.pe
+$(outdir)/%.cff.ps $(outdir)/PFA%.pfa $(outdir)/%.cff $(outdir)/%.otf $(outdir)/%.svg: $(outdir)/%.pe
 	(cd $(outdir) && $(FONTFORGE) -script $(notdir $<))
 	$(PYTHON) $(buildscript-dir)/ps-embed-cff.py $(basename $<).cff `cat $(basename $<).fontname` $(basename $<).cff.ps
 
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index ecc78b5e47..23cb0841c2 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -144,7 +144,7 @@
   (define (extract-names font)
     (if (ly:pango-font? font)
 	(map car (ly:pango-font-physical-fonts font))
-	(list (ly:font-name font))))
+	(list (munge-lily-font-name (ly:font-name font)))))
   
   (let* ((fonts (ly:paper-fonts paper))
 	 (names (apply append (map extract-names fonts)))