From: Trevor Daniels <t.daniels@treda.co.uk>
Date: Mon, 3 Aug 2009 09:11:34 +0000 (+0100)
Subject: Add predefs \harmonicsOn and \harmonicsOff
X-Git-Tag: release/2.13.4-1~210^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b47c0218d6a20688bcec76d5c01855c9d075e68e;p=lilypond.git

Add predefs \harmonicsOn and \harmonicsOff

 - Docs: NR 2.3 Unfretted strings: change text and
   examples to match
---

diff --git a/Documentation/notation/unfretted-strings.itely b/Documentation/notation/unfretted-strings.itely
index 5b1a35c9a4..63c40b4393 100644
--- a/Documentation/notation/unfretted-strings.itely
+++ b/Documentation/notation/unfretted-strings.itely
@@ -133,25 +133,24 @@ Notation Reference:
 
 @strong{@i{Natural harmonics}}
 
+@cindex note heads, diamond-shaped
+@cindex diamond-shaped note heads
 @cindex natural harmonics
 @cindex harmonics, natural
+@funindex \harmonicsOn
+@funindex \harmonicsOff
 
 Natural harmonics can be notated in several ways.  A diamond-shaped
 note head generally means to touch the string where you would stop
 the note if it were not a diamond.
 
-@warning{Harmonics @strong{must} be defined inside a chord
-construct even if there is only a single note.}
-
-@c TODO If the default for harmonicDots is changed, change this
-Dotted harmonics indicated with @code{\harmonic} do not show the
-dots.  The context property @code{harmonicDots} should be set if
-dots are required.
-
 @lilypond[verbatim,quote,relative=2]
-<d\harmonic>4 <e\harmonic>2.
-\set harmonicDots = ##t
-<d\harmonic>4 <e\harmonic>2.
+d4 e4.
+\harmonicsOn
+d8 e e
+d4 e4.
+\harmonicsOff
+d8 e e
 @end lilypond
 
 Alternatively a normal note head is shown at the pitch to be
@@ -174,10 +173,21 @@ Artificial harmonics are notated with two notes, one with a normal
 note head indicating the stopped position and one with an open
 diamond note head to indicate the harmonic position.
 
+@c TODO If the default for harmonicDots is changed, change this
+Artificial harmonics indicated with @code{\harmonic} do not show the
+dots.  The context property @code{harmonicDots} should be set if
+dots are required.
+
 @lilypond[verbatim,quote,relative=1]
-<e a\harmonic>2  <c g'\harmonic>
+<e a\harmonic>2.  <c g'\harmonic>4
+\set harmonicDots = ##t
+<e a\harmonic>2.  <c g'\harmonic>4
 @end lilypond
 
+@warning{@code{@bs{}harmonic} @strong{must} be placed inside a
+chord construct even if there is only a single note.  Normally
+@code{@bs{}harmonicsOn} would be used in this situation.}
+
 
 @seealso
 Music Glossary:
diff --git a/ly/property-init.ly b/ly/property-init.ly
index 79ddd427c4..fd5c766ef7 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -361,6 +361,10 @@ italianChords = {
   \set chordPrefixSpacer = #0.4
 }
 
+harmonicsOn = \override NoteHead #'style = #'harmonic
+
+harmonicsOff = \revert NoteHead #'style
+
 improvisationOn = {
   \set squashedPosition = #0
   \override NoteHead #'style = #'slash