From 4c26d26d559fb1483f202c08d39cb4fd3fdecccf Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 2 Jun 2005 09:58:10 +0000
Subject: [PATCH] (Module): new file.

---
 ChangeLog                                |  2 ++
 input/regression/font-family-override.ly | 33 ++++++++++++++++++++++++
 2 files changed, 35 insertions(+)
 create mode 100644 input/regression/font-family-override.ly

diff --git a/ChangeLog b/ChangeLog
index 412304cdca..ae61a5a822 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-06-02  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* input/regression/font-family-override.ly (Module): new file.
+
 	* scm/font.scm (make-pango-font-tree): new function.
 
 	* lily/beam.cc (before_line_breaking): remove warning about less
diff --git a/input/regression/font-family-override.ly b/input/regression/font-family-override.ly
new file mode 100644
index 0000000000..ba3e6c5cba
--- /dev/null
+++ b/input/regression/font-family-override.ly
@@ -0,0 +1,33 @@
+\header {
+
+  texidoc = "The default font families for text can be
+  overridden with @code{make-pango-font-tree}"
+
+}
+
+\version "2.5.27"
+
+\paper  {
+  % change for other default global staff size. 
+  myStaffSize = #20
+  
+  #(define fonts
+    (make-pango-font-tree "Times New Roman" "Helvetica" "Courier" (/ myStaffSize 20)))
+}
+
+\relative {
+
+  c'^\markup { roman: foo \bold bla \italic bar \italic \bold baz }
+  c'_\markup {
+    \override #'(font-family . sans)
+    {
+      sans: foo \bold bla \italic bar \italic \bold baz
+    }
+  }
+  c'^\markup {
+    \override #'(font-family . typewriter)
+    {
+      mono: foo \bold bla \italic bar \italic \bold baz
+    }
+  }
+}  
-- 
2.39.5