*** empty log message ***

[lilypond.git] / ps / music-drawing-routines.ps

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index fff7dfd7528b822a22710fa9003a823011b41a1f..64bd1bf56afe42cac3cba210877347f0c3cbb2b4 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -33,6 +33,25 @@
   b4_Inc_state restore
 } bind def 
 
+
+%<font> <encoding> <name> reencode-font
+/reencode-font
+{
+    /name exch def
+    /encoding exch def
+    dup length
+    dict begin {
+       1 index /FID ne {def} {pop
+       pop} ifelse
+    }
+    forall
+    /Encoding encoding
+    def currentdict
+    end
+    name exch definefont
+} bind def
+
+
 % llx lly urx ury URI
 /mark_URI
 {