release: 1.5.46

[lilypond.git] / scm / ps.scm

diff --git a/scm/ps.scm b/scm/ps.scm
index b7c1072b8fca2704e77c24c13536c95a76bba9d1..dbc58a79c29611015a3c1bdb4fcb15f0a2448a35 100644 (file)
--- a/scm/ps.scm
+++ b/scm/ps.scm
@@ -90,12 +90,19 @@
   (string-append
    "/" command
    " { /"
-   (car name-mag)
+   (capitalize-font-name (car name-mag))
    " findfont "
    "20 " (ly-number->string (cdr name-mag)) " mul "
    "output-scale div scalefont setfont } bind def "
    "\n"))
 
+;; Ugh, the Bluesky type1 fonts for computer modern use capitalized 
+;; postscript font names.
+(define (capitalize-font-name name)
+  (if (equal? (substring name 0 2) "cm")
+      (string-upcase name)
+      name))
+
 (define (beam width slope thick)
   (string-append
    (numbers->string (list slope width thick)) " draw_beam" ))