voices.rkt

#lang racket

;; Regular MIDI Voices. These can be used on any channel but 10.
(define acoustic-grand-piano 1)
(define bright-acoustic-piano 2)
(define electric-grand-piano 3)
(define honky-tonk-piano 4)
(define electric-piano-1 5)
(define electric-piano-2 6)
(define harpsichord 7)
(define clavi 8)
(define celesta 9)
(define glockenspiel 10)
(define music-box 11)
(define vibraphone 12)
(define marimba 13)
(define xylophone 14)
(define tubular-bells 15)
(define dulcimer 16)
(define drawbar-organ 17)
(define percussive-organ 18)
(define rock-organ 19)
(define church-organ 20)
(define reed-organ 21)
(define accordion 22)
(define harmonica 23)
(define tango-accordion 24)
(define acoustic-guitar-nylon 25)
(define acoustic-guitar-steel 26)
(define electric-guitar-jazz 27)
(define electric-guitar-clean 28)
(define electric-guitar-muted 29)
(define overdriven-guitar 30)
(define distortion-guitar 31)
(define guitar-harmonics 32)
(define acoustic-bass 33)
(define electric-bass-finger 34)
(define electric-bass-pick 35)
(define fretless-bass 36)
(define slap-bass-1 37)
(define slap-bass-2 38)
(define synth-bass-1 39)
(define synth-bass-2 40)
(define violin 41)
(define viola 42)
(define cello 43)
(define contrabass 44)
(define tremolo-strings 45)
(define pizzicato-strings 46)
(define orchestral-harp 47)
(define timpani 48)
(define string-ensemble-1 49)
(define string-ensemble-2 50)
(define synthstrings-1 51)
(define synthstrings-2 52)
(define choir-aahs 53)
(define voice-oohs 54)
(define synth-voice 55)
(define orchestra-hit 56)
(define trumpet 57)
(define trombone 58)
(define tuba 59)
(define muted-trumpet 60)
(define french-horn 61)
(define brass-section 62)
(define synthbrass-1 63)
(define synthbrass-2 64)
(define soprano-sax 65)
(define alto-sax 66)
(define tenor-sax 67)
(define baritone-sax 68)
(define oboe 69)
(define english-horn 70)
(define bassoon 71)
(define clarinet 72)
(define piccolo 73)
(define flute 74)
(define recorder 75)
(define pan-flute 76)
(define blown-bottle 77)
(define shakuhachi 78)
(define whistle 79)
(define ocarina 80)
(define lead-1-square 81)
(define lead-2-sawtooth 82)
(define lead-3-calliope 83)
(define lead-4-chiff 84)
(define lead-5-charang 85)
(define lead-6-voice 86)
(define lead-7-fifths 87)
(define lead-8-bass-+-lead 88)
(define pad-1-new-age 89)
(define pad-2-warm 90)
(define pad-3-polysynth 91)
(define pad-4-choir 92)
(define pad-5-bowed 93)
(define pad-6-metallic 94)
(define pad-7-halo 95)
(define pad-8-sweep 96)
(define fx-1-rain 97)
(define fx-2-soundtrack 98)
(define fx-3-crystal 99)
(define fx-4-atmosphere 100)
(define fx-5-brightness 101)
(define fx-6-goblins 102)
(define fx-7-echoes 103)
(define fx-8-sci-fi 104)
(define sitar 105)
(define banjo 106)
(define shamisen 107)
(define koto 108)
(define kalimba 109)
(define bag-pipe 110)
(define fiddle 111)
(define shanai 112)
(define tinkle-bell 113)
(define agogo 114)
(define steel-drums 115)
(define woodblock 116)
(define taiko-drum 117)
(define melodic-tom 118)
(define synth-drum 119)
(define reverse-cymbal 120)
(define guitar-fret-noise 121)
(define breath-noise 122)
(define seashore 123)
(define bird-tweet 124)
(define telephone-ring 125)
(define helicopter 126)
(define applause 127)
(define gunshot 128)

;; MIDI Drums. Only can be used on channel 10.
(define acoustic-bass-drum 35)
(define bass-drum-1 36)
(define side-stick 37)
(define acoustic-snare 38)
(define hand-clap 39)
(define electric-snare 40)
(define low-floor-tom 41)
(define closed-hi-hat 42)
(define high-floor-tom 43)
(define pedal-hi-hat 44)
(define low-tom 45)
(define open-hi-hat 46)
(define low-mid-tom 47)
(define hi-mid-tom 48)
(define crash-cymbal-1 49)
(define high-tom 50)
(define ride-cymbal-1 51)
(define chinese-cymbal 52)
(define ride-bell 53)
(define tambourine 54)
(define splash-cymbal 55)
(define cowbell 56)
(define crash-cymbal-2 57)
(define vibraslap 58)
(define ride-cymbal-2 59)
(define hi-bongo 60)
(define low-bongo 61)
(define mute-hi-conga 62)
(define open-hi-conga 63)
(define low-conga 64)
(define high-timbale 65)
(define low-timbale 66)
(define high-agogo 67)
(define low-agogo 68)
(define cabasa 69)
(define maracas 70)
(define short-whistle 71)
(define long-whistle 72)
(define short-guiro 73)
(define long-guiro 74)
(define claves 75)
(define hi-wood-block 76)
(define low-wood-block 77)
(define mute-cuica 78)
(define open-cuica 79)
(define mute-triangle 80)
(define open-triangle 81)

(provide (all-defined-out))