(Module): new file.

diff --git a/ChangeLog b/ChangeLog
index 412304cdca647b9e663de054dc71a8200476a970..ae61a5a82232240ff3f9612bd27fe2bf6c5ca64f 100644 (file)
--- 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 (file)
index 0000000..ba3e6c5
--- /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
+    }
+  }
+}