;; GM2NOTION.CAL - Translates General MIDI drum note events to Notion 4 subset - Dallas Hodgson, RockIsland@iname.com ;; ;; Don't expect miracles - Notion 4 reduces things like open/closed hi-hat events to a single "hat type". ;; This is probably true of other "attributable" drum note events as well. See Norton User Guide, pg. 234 (do ;; (include "need20.cal") ; Require version 2.0 or higher of CAL (int notionPitch 0) ; status of current note (pause "Press ENTER to remap General MIDI drums to Notion 4 subset...") (forEachEvent (do (= notionPitch Note.Key) (if (== Event.Kind NOTE) (do (switch Note.Key 44 (= notionPitch 62) ; Pedal Hat <- GM Pedal Hat 35 (= notionPitch 65) ; Bass Drum 1 <- GM Ac Bass Drum 36 (= notionPitch 65) ; Bass Drum 1 <- GM Bass Drum 1 41 (= notionPitch 67) ; 16" Tom 1 <- GM Low Floor Tom 43 (= notionPitch 67) ; 16" Tom 1 <- GM Hi Floor Tom 45 (= notionPitch 69) ; 14" Tom 2 <- GM Low Tom 38 (= notionPitch 72) ; Snare <-l GM Ac Snare 40 (= notionPitch 72) ; Snare <-l GM Elec Snare 47 (= notionPitch 74) ; 12" Tom 4 <- GM Low-Mid tom 48 (= notionPitch 74) ; 12" Tom 4 <- GM Hi-Mid tom 50 (= notionPitch 76) ; 10" Tom 5 <- GM Hi tom 51 (= notionPitch 77) ; Ride <- GM Ride Cymbal 1 53 (= notionPitch 77) ; Ride <- GM Ride Bell 59 (= notionPitch 77) ; Ride <- GM Ride Cymbal 2 42 (= notionPitch 79) ; Hi-Hats <- GM Closed Hat 46 (= notionPitch 79) ; Hi-Hats <- GM Open Hat 49 (= notionPitch 81) ; 18" Crash <- GM Crash 1 57 (= notionPitch 81) ; 18" Crash <- GM Crash 2 55 (= notionPitch 83) ; Splash <- GM Splash Note.Key (pause "Unmappable note, ENTER to continue: " Note.Key) ; everything else ) (= Note.Key notionPitch) ) ) ) ) )