From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 28 Jul 2003 12:17:43 +0000 (+0000)
Subject: add file.
X-Git-Tag: release/1.7.30~48
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=233502a2ba9a55497febe0282fb716ed1e303dda;p=lilypond.git

add file.
---

diff --git a/ChangeLog b/ChangeLog
index bede7436c5..46556ebe98 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2003-07-28  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+	* input/regression/font-name.ly: add file.
+
 	* scm/document-backend.scm (grob-doc): remove <hr> from
 	lilypond-internals
 
diff --git a/input/regression/font-name.ly b/input/regression/font-name.ly
new file mode 100644
index 0000000000..211ea2da9c
--- /dev/null
+++ b/input/regression/font-name.ly
@@ -0,0 +1,26 @@
+\version "1.7.28"
+
+\header {
+
+    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.
+"
+
+
+}
+
+\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 } }
+
+	     R1*21^"Wait for Utopia Italic"
+	     }
+    
+    \paper { raggedright = ##t }
+
+}