Create percussion namespace

1 files changed, 82 insertions, 0 deletions

diff --git a/src/midi/percussion.clj b/src/midi/percussion.clj
new file mode 100644
index 0000000..21fcee9
--- /dev/null
+++ b/src/midi/percussion.clj
@@ -0,0 +1,82 @@
+(ns midi.percussion
+  "General MIDI percussion instrument mappings (MIDI notes 35-81).
+
+  In General MIDI, channel 10 is reserved for percussion where each
+  note number represents a different percussion instrument rather than pitch.")
+
+;; Bass Drums
+(def acoustic-bass-drum 35)
+(def bass-drum-1 36)
+(def kick 36)  ; alias for bass-drum-1
+
+;; Snares
+(def side-stick 37)
+(def acoustic-snare 38)
+(def hand-clap 39)
+(def electric-snare 40)
+(def snare 38)  ; alias for acoustic-snare
+
+;; Toms
+(def low-floor-tom 41)
+(def high-floor-tom 43)
+(def low-tom 45)
+(def low-mid-tom 47)
+(def hi-mid-tom 48)
+(def high-tom 50)
+
+;; Hi-Hats
+(def closed-hi-hat 42)
+(def pedal-hi-hat 44)
+(def open-hi-hat 46)
+
+;; Cymbals
+(def crash-cymbal-1 49)
+(def ride-cymbal-1 51)
+(def chinese-cymbal 52)
+(def ride-bell 53)
+(def splash-cymbal 55)
+(def crash-cymbal-2 57)
+(def ride-cymbal-2 59)
+(def crash 49)  ; alias for crash-cymbal-1
+(def ride 51)   ; alias for ride-cymbal-1
+
+;; Percussion
+(def tambourine 54)
+(def cowbell 56)
+(def vibraslap 58)
+
+;; Latin Percussion - Bongos & Congas
+(def hi-bongo 60)
+(def low-bongo 61)
+(def mute-hi-conga 62)
+(def open-hi-conga 63)
+(def low-conga 64)
+
+;; Latin Percussion - Timbales
+(def high-timbale 65)
+(def low-timbale 66)
+
+;; Latin Percussion - Agogos
+(def high-agogo 67)
+(def low-agogo 68)
+
+;; Latin Percussion - Others
+(def cabasa 69)
+(def maracas 70)
+(def short-whistle 71)
+(def long-whistle 72)
+(def short-guiro 73)
+(def long-guiro 74)
+(def claves 75)
+
+;; Wood Blocks
+(def hi-wood-block 76)
+(def low-wood-block 77)
+
+;; Cuicas
+(def mute-cuica 78)
+(def open-cuica 79)
+
+;; Triangles
+(def mute-triangle 80)
+(def open-triangle 81)