X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fdrumpitch-init.ly;h=fd7915a8eb325bff5cf8204d2f03341e1bc44439;hb=86922b24296cdb5c122f731d70c9e186b7f6b9bf;hp=0eb93273ee70ce7eba97030b3e588af98a28c3f0;hpb=641486a1a5522a9e66b470d8c762a1f789219573;p=lilypond.git

diff --git a/ly/drumpitch-init.ly b/ly/drumpitch-init.ly
index 0eb93273ee..fd7915a8eb 100644
--- a/ly/drumpitch-init.ly
+++ b/ly/drumpitch-init.ly
@@ -1,5 +1,5 @@
 
-\version "2.4.0"
+\version "2.16.0"
 
 drumPitchNames =
 #'((acousticbassdrum . acousticbassdrum)
@@ -138,6 +138,7 @@ drumPitchNames =
    (trim . mutetriangle)
    (tri . triangle)
    (trio . opentriangle)
+   (tt . tamtam)
    (ua . oneup)
    (ub . twoup)
    (uc . threeup)
@@ -229,7 +230,7 @@ midiDrumPitches = #`(
 )
 
 
-#(map
+#(for-each
   (lambda (k-v)
     (module-define! (current-module)
 		    (car k-v)
@@ -268,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)