From 73d52f2f26c7d4d21d4c776cd60df8ac7da0405b Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 29 Jul 2003 00:09:48 +0000
Subject: [PATCH] * input/regression/font-name.ly: don't use PS fonts for
 compatibility reasons.

* mutopia/claop.py (accents): update to 1.8
---
 ChangeLog                     |  3 +++
 input/mutopia/claop.py        |  2 +-
 input/regression/font-name.ly | 23 +++++++++++++++++++----
 3 files changed, 23 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ee6dd8a627..f9ca87e63d 100644
--- 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 cae831896d..efef518631 100644
--- 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 211ea2da9c..8af926acd7 100644
--- 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"
 	     }
-- 
2.39.2