-\version "2.12.0"
+\version "2.16.0"
drumPitchNames =
#'((acousticbassdrum . acousticbassdrum)
)
-#(map
+#(for-each
(lambda (k-v)
(module-define! (current-module)
(car k-v)
(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)