X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fdrumpitch-init.ly;h=fd7915a8eb325bff5cf8204d2f03341e1bc44439;hb=86922b24296cdb5c122f731d70c9e186b7f6b9bf;hp=6574a762589a9cc271c8fd104d098416be9e6948;hpb=38d7d319eabc906e82fb42002678c6d42a23b6f7;p=lilypond.git

diff --git a/ly/drumpitch-init.ly b/ly/drumpitch-init.ly
index 6574a76258..fd7915a8eb 100644
--- a/ly/drumpitch-init.ly
+++ b/ly/drumpitch-init.ly
@@ -1,5 +1,5 @@
 
-\version "2.12.0"
+\version "2.16.0"
 
 drumPitchNames =
 #'((acousticbassdrum . acousticbassdrum)
@@ -230,7 +230,7 @@ midiDrumPitches = #`(
 )
 
 
-#(map
+#(for-each
   (lambda (k-v)
     (module-define! (current-module)
 		    (car k-v)
@@ -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)