[PATCH] Docs: added snippet for numeric easy note heads

[David Pounder <pounderd@xxxxxxxxxxx>]

---
 .../snippets/adding-fingerings-to-tablatures.ly    |    2 +-
 .../snippets/beam-endings-in-score-context.ly      |    2 +-
 .../snippets/beam-grouping-in-7-8-time.ly          |    2 +-
 ...time-signature-without-affecting-the-beaming.ly |    2 +-
 .../snippets/chordchanges-for-fretboards.ly        |    2 +-
 Documentation/snippets/clip-systems.ly             |    2 +-
 Documentation/snippets/compound-time-signatures.ly |    2 +-
 .../conducting-signs,-measure-grouping-signs.ly    |    2 +-
 ...olling-spanner-visibility-after-a-line-break.ly |    2 +-
 .../snippets/displaying-complex-chords.ly          |    2 +-
 ...accidentals-for-each-note-including-naturals.ly |    2 +-
 .../dynamics-custom-text-spanner-postfix.ly        |    2 +-
 .../snippets/dynamics-text-spanner-postfix.ly      |    2 +-
 .../snippets/faking-a-hammer-in-tablatures.ly      |    2 +-
 Documentation/snippets/grouping-beats.ly           |    2 +-
 Documentation/snippets/guitar-slides.ly            |    2 +-
 Documentation/snippets/incipit.ly                  |    2 +-
 Documentation/snippets/makam-example.ly            |    2 +-
 .../making-slurs-with-complex-dash-structure.ly    |    2 +-
 Documentation/snippets/modern-tab-text-clef.ly     |    2 +-
 .../snippets/new/numbers-as-easy-note-heads.ly     |   51 ++++++++++++++++++
 .../snippets/non-default-tuplet-numbers.ly         |    2 +-
 .../snippets/non-traditional-key-signatures.ly     |    2 +-
 .../snippets/numbers-as-easy-note-heads.ly         |   56 ++++++++++++++++++++
 .../piano-template-with-centered-dynamics.ly       |    2 +-
 Documentation/snippets/pitches.snippet-list        |    1 +
 .../snippets/reverting-default-beam-endings.ly     |    2 +-
 .../snippets/snap-pizzicato-bartok-pizzicato.ly    |    2 +-
 .../stem-and-beam-behavior-in-tablature.ly         |    2 +-
 29 files changed, 134 insertions(+), 26 deletions(-)
 create mode 100644 Documentation/snippets/new/numbers-as-easy-note-heads.ly
 create mode 100644 Documentation/snippets/numbers-as-easy-note-heads.ly

diff --git a/Documentation/snippets/adding-fingerings-to-tablatures.ly b/Documentation/snippets/adding-fingerings-to-tablatures.ly
index 99fee75..29bd928 100644
--- a/Documentation/snippets/adding-fingerings-to-tablatures.ly
+++ b/Documentation/snippets/adding-fingerings-to-tablatures.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: c8446d6eb2fadbf8931a867741572582759935ad
diff --git a/Documentation/snippets/beam-endings-in-score-context.ly b/Documentation/snippets/beam-endings-in-score-context.ly
index 55d59d4..16840b3 100644
--- a/Documentation/snippets/beam-endings-in-score-context.ly
+++ b/Documentation/snippets/beam-endings-in-score-context.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/beam-grouping-in-7-8-time.ly b/Documentation/snippets/beam-grouping-in-7-8-time.ly
index ef8b5fa..8938ad8 100644
--- a/Documentation/snippets/beam-grouping-in-7-8-time.ly
+++ b/Documentation/snippets/beam-grouping-in-7-8-time.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/changing-the-time-signature-without-affecting-the-beaming.ly b/Documentation/snippets/changing-the-time-signature-without-affecting-the-beaming.ly
index 6d13b94..301d6c5 100644
--- a/Documentation/snippets/changing-the-time-signature-without-affecting-the-beaming.ly
+++ b/Documentation/snippets/changing-the-time-signature-without-affecting-the-beaming.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.5
-\version "2.13.10"
+\version "2.13.5"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/chordchanges-for-fretboards.ly b/Documentation/snippets/chordchanges-for-fretboards.ly
index 5d7fdf5..bc0cb17 100644
--- a/Documentation/snippets/chordchanges-for-fretboards.ly
+++ b/Documentation/snippets/chordchanges-for-fretboards.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.0
-\version "2.13.10"
+\version "2.13.0"
 
 \header {
 %% Translation of GIT committish: da7ce7d651c3a0d1bfed695f6e952975937a1c79
diff --git a/Documentation/snippets/clip-systems.ly b/Documentation/snippets/clip-systems.ly
index 7a63a51..eb29f20 100644
--- a/Documentation/snippets/clip-systems.ly
+++ b/Documentation/snippets/clip-systems.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
   lsrtags = "paper-and-layout"
diff --git a/Documentation/snippets/compound-time-signatures.ly b/Documentation/snippets/compound-time-signatures.ly
index 7ac2b64..f513f2d 100644
--- a/Documentation/snippets/compound-time-signatures.ly
+++ b/Documentation/snippets/compound-time-signatures.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/conducting-signs,-measure-grouping-signs.ly b/Documentation/snippets/conducting-signs,-measure-grouping-signs.ly
index d5e68a1..a1eb77e 100644
--- a/Documentation/snippets/conducting-signs,-measure-grouping-signs.ly
+++ b/Documentation/snippets/conducting-signs,-measure-grouping-signs.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/controlling-spanner-visibility-after-a-line-break.ly b/Documentation/snippets/controlling-spanner-visibility-after-a-line-break.ly
index 6dd977b..3f8e219 100644
--- a/Documentation/snippets/controlling-spanner-visibility-after-a-line-break.ly
+++ b/Documentation/snippets/controlling-spanner-visibility-after-a-line-break.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.1
-\version "2.13.10"
+\version "2.13.1"
 
 \header {
   lsrtags = "expressive-marks, tweaks-and-overrides"
diff --git a/Documentation/snippets/displaying-complex-chords.ly b/Documentation/snippets/displaying-complex-chords.ly
index a1f8986..d3227a0 100644
--- a/Documentation/snippets/displaying-complex-chords.ly
+++ b/Documentation/snippets/displaying-complex-chords.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.1
-\version "2.13.10"
+\version "2.13.1"
 
 \header {
   lsrtags = "simultaneous-notes, chords"
diff --git a/Documentation/snippets/dodecaphonic-style-accidentals-for-each-note-including-naturals.ly b/Documentation/snippets/dodecaphonic-style-accidentals-for-each-note-including-naturals.ly
index 59578fa..fcf0083 100644
--- a/Documentation/snippets/dodecaphonic-style-accidentals-for-each-note-including-naturals.ly
+++ b/Documentation/snippets/dodecaphonic-style-accidentals-for-each-note-including-naturals.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/dynamics-custom-text-spanner-postfix.ly b/Documentation/snippets/dynamics-custom-text-spanner-postfix.ly
index 418c26a..af2cd3b 100644
--- a/Documentation/snippets/dynamics-custom-text-spanner-postfix.ly
+++ b/Documentation/snippets/dynamics-custom-text-spanner-postfix.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
   lsrtags = "expressive-marks, tweaks-and-overrides"
diff --git a/Documentation/snippets/dynamics-text-spanner-postfix.ly b/Documentation/snippets/dynamics-text-spanner-postfix.ly
index fb142b7..d563039 100644
--- a/Documentation/snippets/dynamics-text-spanner-postfix.ly
+++ b/Documentation/snippets/dynamics-text-spanner-postfix.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
   lsrtags = "expressive-marks, tweaks-and-overrides"
diff --git a/Documentation/snippets/faking-a-hammer-in-tablatures.ly b/Documentation/snippets/faking-a-hammer-in-tablatures.ly
index 14eda99..fa692ac 100644
--- a/Documentation/snippets/faking-a-hammer-in-tablatures.ly
+++ b/Documentation/snippets/faking-a-hammer-in-tablatures.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
   lsrtags = "fretted-strings"
diff --git a/Documentation/snippets/grouping-beats.ly b/Documentation/snippets/grouping-beats.ly
index e083b9e..7ecafb1 100644
--- a/Documentation/snippets/grouping-beats.ly
+++ b/Documentation/snippets/grouping-beats.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/guitar-slides.ly b/Documentation/snippets/guitar-slides.ly
index fe3fc57..7876f45 100644
--- a/Documentation/snippets/guitar-slides.ly
+++ b/Documentation/snippets/guitar-slides.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
   lsrtags = "fretted-strings"
diff --git a/Documentation/snippets/incipit.ly b/Documentation/snippets/incipit.ly
index e43dc84..334a5c1 100644
--- a/Documentation/snippets/incipit.ly
+++ b/Documentation/snippets/incipit.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/makam-example.ly b/Documentation/snippets/makam-example.ly
index 3c203d0..843f717 100644
--- a/Documentation/snippets/makam-example.ly
+++ b/Documentation/snippets/makam-example.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.0
-\version "2.13.10"
+\version "2.13.0"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/making-slurs-with-complex-dash-structure.ly b/Documentation/snippets/making-slurs-with-complex-dash-structure.ly
index 3a6e98d..99d0bb1 100644
--- a/Documentation/snippets/making-slurs-with-complex-dash-structure.ly
+++ b/Documentation/snippets/making-slurs-with-complex-dash-structure.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.1
-\version "2.13.10"
+\version "2.13.1"
 
 \header {
 %% Translation of GIT committish: da7ce7d651c3a0d1bfed695f6e952975937a1c79
diff --git a/Documentation/snippets/modern-tab-text-clef.ly b/Documentation/snippets/modern-tab-text-clef.ly
index 05ef6ba..e6dcb08 100644
--- a/Documentation/snippets/modern-tab-text-clef.ly
+++ b/Documentation/snippets/modern-tab-text-clef.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
   lsrtags = "staff-notation, fretted-strings"
diff --git a/Documentation/snippets/new/numbers-as-easy-note-heads.ly b/Documentation/snippets/new/numbers-as-easy-note-heads.ly
new file mode 100644
index 0000000..2df46c5
--- /dev/null
+++ b/Documentation/snippets/new/numbers-as-easy-note-heads.ly
@@ -0,0 +1,51 @@
+\version "2.13.11"
+
+\header {
+  lsrtags = "pitches"
+  texidoc = "
+Easy notation note heads use the @code{note-names} property
+of the @code{NoteHead} object to determine what appears inside
+the note head.  By overriding this property, it is possible
+to print numbers representing the scale-degree.
+
+A simple engraver can be created to do this for every note head
+object it sees.
+"
+  doctitle = "Numbers as easy note heads"
+}
+
+#(define Ez_numbers_engraver (list
+  (cons 'acknowledgers
+   (list
+     (cons 'note-head-interface
+       (lambda (engraver grob source-engraver)
+         (let* (
+           (context (ly:translator-context engraver))
+           (tonic-pitch (ly:context-property context 'tonic))
+           (tonic-name (ly:pitch-notename tonic-pitch))
+           (grob-pitch (ly:event-property (event-cause grob) 'pitch))
+           (grob-name (ly:pitch-notename grob-pitch))
+           (delta (modulo (- grob-name tonic-name) 7))
+           (note-names (make-vector 7 (number->string (+ 1 delta)))))
+        (ly:grob-set-property! grob 'note-names note-names))))))))
+
+\layout {
+  \context {
+    \Voice
+    \consists \Ez_numbers_engraver
+  }
+}
+
+\relative c' {
+  \easyHeadsOn
+  c4 d e f
+  g4 a b c \break
+
+  \key a \major
+  a,4 b cis d
+  e4 fis gis a \break
+
+  \key d \dorian
+  d,4 e f g
+  a4 b c d
+}
diff --git a/Documentation/snippets/non-default-tuplet-numbers.ly b/Documentation/snippets/non-default-tuplet-numbers.ly
index a33cf86..3f23559 100644
--- a/Documentation/snippets/non-default-tuplet-numbers.ly
+++ b/Documentation/snippets/non-default-tuplet-numbers.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.1
-\version "2.13.10"
+\version "2.13.1"
 
 \header {
 %% Translation of GIT committish: da7ce7d651c3a0d1bfed695f6e952975937a1c79
diff --git a/Documentation/snippets/non-traditional-key-signatures.ly b/Documentation/snippets/non-traditional-key-signatures.ly
index c11c6d4..15e0dcb 100644
--- a/Documentation/snippets/non-traditional-key-signatures.ly
+++ b/Documentation/snippets/non-traditional-key-signatures.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.0
-\version "2.13.10"
+\version "2.13.0"
 
 \header {
 %% Translation of GIT committish: da7ce7d651c3a0d1bfed695f6e952975937a1c79
diff --git a/Documentation/snippets/numbers-as-easy-note-heads.ly b/Documentation/snippets/numbers-as-easy-note-heads.ly
new file mode 100644
index 0000000..9ccb261
--- /dev/null
+++ b/Documentation/snippets/numbers-as-easy-note-heads.ly
@@ -0,0 +1,56 @@
+% Do not edit this file; it is automatically
+% generated from Documentation/snippets/new
+% This file is in the public domain.
+%% Note: this file works from version 2.13.11
+\version "2.13.11"
+
+\header {
+  lsrtags = "pitches"
+  texidoc = "
+Easy notation note heads use the @code{note-names} property
+of the @code{NoteHead} object to determine what appears inside
+the note head.  By overriding this property, it is possible
+to print numbers representing the scale-degree.
+
+A simple engraver can be created to do this for every note head
+object it sees.
+"
+  doctitle = "Numbers as easy note heads"
+} % begin verbatim
+
+
+#(define Ez_numbers_engraver (list
+  (cons 'acknowledgers
+   (list
+     (cons 'note-head-interface
+       (lambda (engraver grob source-engraver)
+         (let* (
+           (context (ly:translator-context engraver))
+           (tonic-pitch (ly:context-property context 'tonic))
+           (tonic-name (ly:pitch-notename tonic-pitch))
+           (grob-pitch (ly:event-property (event-cause grob) 'pitch))
+           (grob-name (ly:pitch-notename grob-pitch))
+           (delta (modulo (- grob-name tonic-name) 7))
+           (note-names (make-vector 7 (number->string (+ 1 delta)))))
+        (ly:grob-set-property! grob 'note-names note-names))))))))
+
+\layout {
+  \context {
+    \Voice
+    \consists \Ez_numbers_engraver
+  }
+}
+
+\relative c' {
+  \easyHeadsOn
+  c4 d e f
+  g4 a b c \break
+
+  \key a \major
+  a,4 b cis d
+  e4 fis gis a \break
+
+  \key d \dorian
+  d,4 e f g
+  a4 b c d
+}
diff --git a/Documentation/snippets/piano-template-with-centered-dynamics.ly b/Documentation/snippets/piano-template-with-centered-dynamics.ly
index 829d32c..322fe8a 100644
--- a/Documentation/snippets/piano-template-with-centered-dynamics.ly
+++ b/Documentation/snippets/piano-template-with-centered-dynamics.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/pitches.snippet-list b/Documentation/snippets/pitches.snippet-list
index d6f0217..496bd05 100644
--- a/Documentation/snippets/pitches.snippet-list
+++ b/Documentation/snippets/pitches.snippet-list
@@ -8,6 +8,7 @@ dodecaphonic-style-accidentals-for-each-note-including-naturals.ly
 generating-random-notes.ly
 makam-example.ly
 non-traditional-key-signatures.ly
+numbers-as-easy-note-heads.ly
 ottava-text.ly
 preventing-extra-naturals-from-being-automatically-added.ly
 preventing-natural-signs-from-being-printed-when-the-key-signature-changes.ly
diff --git a/Documentation/snippets/reverting-default-beam-endings.ly b/Documentation/snippets/reverting-default-beam-endings.ly
index 50e8925..3e9345e 100644
--- a/Documentation/snippets/reverting-default-beam-endings.ly
+++ b/Documentation/snippets/reverting-default-beam-endings.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/snap-pizzicato-bartok-pizzicato.ly b/Documentation/snippets/snap-pizzicato-bartok-pizzicato.ly
index 049f350..75977e4 100644
--- a/Documentation/snippets/snap-pizzicato-bartok-pizzicato.ly
+++ b/Documentation/snippets/snap-pizzicato-bartok-pizzicato.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
diff --git a/Documentation/snippets/stem-and-beam-behavior-in-tablature.ly b/Documentation/snippets/stem-and-beam-behavior-in-tablature.ly
index 37dcb5b..3ac98d2 100644
--- a/Documentation/snippets/stem-and-beam-behavior-in-tablature.ly
+++ b/Documentation/snippets/stem-and-beam-behavior-in-tablature.ly
@@ -2,7 +2,7 @@
 % generated from Documentation/snippets/new
 % This file is in the public domain.
 %% Note: this file works from version 2.13.4
-\version "2.13.10"
+\version "2.13.4"
 
 \header {
 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
-- 
1.6.0.4


------=_Part_21885_7422887.1263339875492--


---
----
Join the Frogs!