Add an alternative Drum Style - agostini-drums-style.ly

Issue 4128

This allows the typesetting of a standard drum kit
on a normal five-line staff.

A style of notation created by Dante Agostini a
French drummer and teacher (also known for his drum
school which was founded in 1965).

diff --git a/Documentation/fr/notation/percussion.itely b/Documentation/fr/notation/percussion.itely
index efc23e6291ee54fac5f1918941bb5027cc2f13ab..77a97f4f288d17ae39c52a867623063a82fae135 100644 (file)
--- a/Documentation/fr/notation/percussion.itely
+++ b/Documentation/fr/notation/percussion.itely
@@ -292,6 +292,38 @@ sûr, vous n'êtes pas obligé de tous les utiliser si la musique en
 prévoit moins ; par exemple, les trois toms des lignes du milieu
 sont @code{tommh}, @code{tomml}, et @code{tomfh}.
 
+
+@item agostini-drums-style
+Inventé par le percussioniste français Dante Agostini en 1965, cette notation
+est comunément utilisée en France mais aussi autre part.
+
+@lilypond[quote,line-width=10.0\cm]
+nam = \lyricmode {
+  cymc cyms cymr hh hhc hho hhho hhp
+  cb hc bd sn ss tomh tommh tomml toml tomfh tomfl }
+mus = \drummode {
+  cymc cyms cymr hh hhc hho hhho hhp \break
+  cb hc bd sn ss tomh tommh tomml toml tomfh tomfl s16 }
+\score {
+  << \new DrumStaff \with {
+       \remove "Bar_engraver"
+       \remove "Time_signature_engraver"
+       \hide Stem
+       \override Stem.Y-extent = ##f
+       drumStyleTable = #agostini-drums-style
+     } \mus
+     \new Lyrics \nam
+  >>
+  \layout {
+    \context {
+      \Score
+      \override LyricText.font-family = #'typewriter
+      \override BarNumber.transparent =##T
+    }
+  }
+}
+@end lilypond
+
 @item timbales-style
 Ce style permet de saisir une partie de timbales, sur une portée à deux
 lignes.

diff --git a/Documentation/notation/percussion.itely b/Documentation/notation/percussion.itely
index c44799e1756d4acb047a7ac2c86627aa6776c27e..9a4c0757d33c1bf56a87e0f4057dbd37b0dbfef4 100644 (file)
--- a/Documentation/notation/percussion.itely
+++ b/Documentation/notation/percussion.itely
@@ -267,6 +267,37 @@ toms, simply select the toms that produce the desired result.  For
 example, to get toms on the three middle lines you use
 @code{tommh}, @code{tomml}, and @code{tomfh}.
 
+@item agostini-drums-style
+Invented by the French percussionist Dante Agostini in 1965, this notation is
+commonly employed in France but also elsewhere.
+
+@lilypond[quote,line-width=10.0\cm]
+nam = \lyricmode {
+  cymc cyms cymr hh hhc hho hhho hhp
+  cb hc bd sn ss tomh tommh tomml toml tomfh tomfl }
+mus = \drummode {
+  cymc cyms cymr hh hhc hho hhho hhp \break
+  cb hc bd sn ss tomh tommh tomml toml tomfh tomfl s16 }
+\score {
+  << \new DrumStaff \with {
+       \remove "Bar_engraver"
+       \remove "Time_signature_engraver"
+       \hide Stem
+       \override Stem.Y-extent = ##f
+       drumStyleTable = #agostini-drums-style
+     } \mus
+     \new Lyrics \nam
+  >>
+  \layout {
+    \context {
+      \Score
+      \override LyricText.font-family = #'typewriter
+      \override BarNumber.transparent =##T
+    }
+  }
+}
+@end lilypond
+
 @item timbales-style
 This typesets timbales on a two line staff:
 

diff --git a/ly/drumpitch-init.ly b/ly/drumpitch-init.ly
index 1d9385c4b19638a46906655b3c0c9e6d3fcc19c4..fd7915a8eb325bff5cf8204d2f03341e1bc44439 100644 (file)
--- a/ly/drumpitch-init.ly
+++ b/ly/drumpitch-init.ly
@@ -269,6 +269,40 @@ midiDrumPitches = #`(
       (ridecymbalb cross #f 5)
       ))
 
+
+   (agostini-drums-style .
+     ((acousticbassdrum () #f -6)
+      (bassdrum () #f -5)
+      (sidestick cross #f 0)
+      (acousticsnare () #f 1)
+      (snare () #f 0)
+      (handclap triangle #f 0)
+      (electricsnare () #f 0)
+      (lowfloortom () #f -3)
+      (closedhihat cross #f 5)
+      (hihat cross #f 5)
+      (highfloortom () #f -2)
+      (pedalhihat cross #f -7)
+      (lowtom () #f -3)
+      (openhihat xcircle #f 5)
+      (halfopenhihat xcircle #f 5)
+      (lowmidtom () #f 2)
+      (himidtom () #f 3)
+      (crashcymbala cross #f 7)
+      (crashcymbal cross #f 8)
+      (hightom () #f 3)
+      (ridecymbala cross #f 6)
+      (ridecymbal cross #f 6)
+      (chinesecymbal mensural #f 6)
+      (ridebell mi #f 7)
+      (splashcymbal diamond #f 6)
+      (cowbell triangle #f 6)
+      (crashcymbalb cross #f 6)
+      (vibraslap diamond #f 4)
+      (ridecymbalb cross #f 7)
+      ))
+
+
    (timbales-style .
      ((losidestick cross #f -1)
       (lotimbale () #f -1)

diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm
index f694a677785e161377c386b352eac6d764918acb..4b458c013c0b42790f98ea89745a5464f04f0417 100644 (file)
--- a/scm/define-context-properties.scm
+++ b/scm/define-context-properties.scm
@@ -285,8 +285,8 @@ slurred note, one above and one below the chord.")
 instruments (symbols) to pitches.")
      (drumStyleTable ,hash-table? "A hash table which maps drums to
 layout settings.  Predefined values: @samp{drums-style},
-@samp{timbales-style}, @samp{congas-style}, @samp{bongos-style}, and
-@samp{percussion-style}.
+@samp{agostini-drums-style}, @samp{timbales-style}, @samp{congas-style},
+@samp{bongos-style}, and @samp{percussion-style}.
 
 The layout style is a hash table, containing the drum-pitches (e.g.,
 the symbol @samp{hihat}) as keys, and a list