* input/regression/font-name.ly: don't use PS fonts for

compatibility reasons.

* mutopia/claop.py (accents): update to 1.8

diff --git a/ChangeLog b/ChangeLog
index ee6dd8a627d39cb2b6b44cb709dcad6a0e96a0e0..f9ca87e63d3e3b218fcc58e3080d4946a065b6d9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2003-07-29  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+       * input/regression/font-name.ly: don't use PS fonts for
+       compatibility reasons. 
+
        * mutopia/claop.py (accents): update to 1.8
 
        * Documentation/user/music-glossary.tely (Top): remove 13pt.

diff --git a/input/mutopia/claop.py b/input/mutopia/claop.py
index cae831896db02cb3f67e501fc38b99abc94f2b38..efef518631a601431a14d27f5cd8c99d027fa7ff 100644 (file)
--- a/input/mutopia/claop.py
+++ b/input/mutopia/claop.py
@@ -273,7 +273,7 @@ sys.stdout.write (r"""
     \notes <
        \property Score.BarNumber \override #'padding = #2.5
        \property Score.autoBeamSettings \override
-         #'(end * * * *) = #(make-moment 1 4)
+         #'(end * * * *) = #(ly:make-moment 1 4)
        \property Score.skipBars = ##t
        \context StaffGroup <
            \property StaffGroup.Stem \override #'direction = #1

diff --git a/input/regression/font-name.ly b/input/regression/font-name.ly
index 211ea2da9c02ef6e2e56a2f4cbed6f27598bb111..8af926acd7f6d52330abb703137ca75a07fe3d3d 100644 (file)
--- a/input/regression/font-name.ly
+++ b/input/regression/font-name.ly
@@ -5,18 +5,33 @@
     texidoc = "Using other fonts can be done by setting font-name for
 the appropriate object. This may include Postscript fonts that are
 available through (La)TeX.
+
 "
 
 
 }
 
+%{
+
+ Postscript fonts are switched off by default,
+ for compatibility with TeX installations that have no
+ PS fonts installed.
+%}
+
 \score {
     \notes {
        \property Staff.TimeSignature   \set #'font-name = #"cmr17"
-       \property Score.skipBars = ##t 
-       \property Staff.MultiMeasureRestText \set  #'font-name = #"putri8r"
-       c'1_\markup { \override #'(font-name . "ptmb8r")
-                         { This text is bold Times Roman } }
+       \property Score.skipBars = ##t
+
+       % use font-name putri8r for Utopia Italic :
+       
+       \property Staff.MultiMeasureRestText \set  #'font-name = #"cmss12"
+
+
+       % use "ptmb8r" for Times Roman
+       
+       c'1_\markup { \override #'(font-name . "cmdunh10")
+                         { This text is Dunhill } }
 
             R1*21^"Wait for Utopia Italic"
             }