From: Trevor Daniels <t.daniels@treda.co.uk>
Date: Sun, 30 Dec 2012 10:00:09 +0000 (+0000)
Subject: Doc: simplify example changing default fonts (3027)
X-Git-Tag: release/2.17.10-1~18
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fea0441e6d856d653aebcdb8d293e45bdec7844c;p=lilypond.git

Doc: simplify example changing default fonts (3027)

  The original function required the global staff size
  to be re-entered as myStaffSize, but this can be calculated
  from the value of staff-height, so avoiding having to
  replicate the value.
---

diff --git a/Documentation/notation/text.itely b/Documentation/notation/text.itely
index 04ae36c4c5..6a33b69084 100644
--- a/Documentation/notation/text.itely
+++ b/Documentation/notation/text.itely
@@ -1501,8 +1501,9 @@ Snippets:
 
 It is possible to change the fonts to be used as the default fonts in
 the @emph{roman}, @emph{sans} and @emph{typewriter} font families by
-specifying them, in that order, as shown in the example below.  For an
-explanation of fonts, see @ref{Fonts explained}.
+specifying them, in that order, as shown in the example below, which
+automatically scales the fonts with the value set for the global staff
+size.  For an explanation of fonts, see @ref{Fonts explained}.
 
 @cindex font families, setting
 @cindex fonts, changing for entire document
@@ -1511,12 +1512,11 @@ explanation of fonts, see @ref{Fonts explained}.
 
 @lilypond[verbatim,quote]
 \paper  {
-  myStaffSize = #20
   #(define fonts
     (make-pango-font-tree "Times New Roman"
                           "Nimbus Sans"
                           "Luxi Mono"
-                           (/ myStaffSize 20)))
+                           (/ (* staff-height pt) 2)))
 }
 
 \relative c'{