add file.

diff --git a/ChangeLog b/ChangeLog
index bede7436c54eab7979b185983c55f8a6ec5804d6..46556ebe98baa6eddae71e7bccbdcaefbae9e6f0 100644 (file)
--- 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 (file)
index 0000000..211ea2d
--- /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 }
+
+}