(add-cmr-fonts): caps is eccc, ecsc is slanted caps.

diff --git a/ChangeLog b/ChangeLog
index c34663cc5d4892d8f44de3492d3cb0558c2271ba..7a657984d449c1b200945e1a1a57c213b0b6a16b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-04-11  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+       * scm/font.scm (add-cmr-fonts): caps is eccc, ecsc is slanted caps.
+
        * scm/output-ps.scm (text): split string into spaces, use moveto
        for setting space. 
        

diff --git a/ly/declarations-init.ly b/ly/declarations-init.ly
index 26d8cc733c21eaf82942364a388a89c85b330643..4a295f466f68a7a83a30a6b4c2a1c9c7981b10bc 100644 (file)
--- a/ly/declarations-init.ly
+++ b/ly/declarations-init.ly
@@ -64,7 +64,7 @@ melismaEnd = #(make-span-event 'ManualMelismaEvent STOP)
       )
 
     #(define text-font-defaults
-      '((font-encoding . latin1)
+      '((font-encoding . TeX-tex)
        (baseline-skip . 2)
        (word-space . 0.6)
        ))

diff --git a/scm/font.scm b/scm/font.scm
index d6e4549dad6f0e64714a6fbdf03451a9a72b8bf0..01c3d10aebf5c2ccfea0141ac50a7e71ee0b03ff 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -297,6 +297,9 @@
                )))
      
      (#(roman caps medium) .
+      (10.0 . #(,(delay (ly:font-load "eccc10")))))
+
+     (#(roman slanted-caps medium) .
       (10.0 . #(,(delay (ly:font-load "ecsc10")))))
 
      (#(roman upright bold-narrow ) .