;; NOTION2GM.CAL - Translates Notion 4 percussion note events to General MIDI - 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 gmNote 0) ; status of current note (int unRecNotes 0) ; unrecognized note count (pause "Press ENTER to remap Notion 4 drums to General MIDI...") (forEachEvent (do (= gmNote Note.Key) (if (== Event.Kind NOTE) (do (switch Note.Key 62 (= gmNote 44) ; Pedal Hat -> GM Pedal Hat 65 (= gmNote 35) ; Bass Drum 1 -> GM Ac Bass Drum 67 (= gmNote 43) ; 16" Tom 1 -> GM Hi Floor Tom 69 (= gmNote 45) ; 14" Tom 2 -> GM Low Tom 72 (= gmNote 38) ; Snare -> GM Ac Snare 74 (= gmNote 47) ; 12" Tom 4 -> GM Low-Mid tom 76 (= gmNote 50) ; 10" Tom 5 -> GM Hi tom 77 (= gmNote 51) ; Ride -> GM Ride Cymbal 1 79 (= gmNote 42) ; Hi-Hats -> GM Closed Hat 81 (= gmNote 49) ; 18" Crash -> GM Crash 1 83 (= gmNote 56) ; Splash -> GM Crash 2 (which is what it sounds like) Note.Key (++ unRecNotes) ; everything else ) (= Note.Key gmNote) ) ) ) ) (pause "Number of unrecognized notes: " unRecNotes) )