• Register
  • Help
Results 1 to 2 of 2

Topic: Sonar users: CAL script that converts GM brush MIDI to JABB brush MIDI

Share/Bookmark
  1. #1

    Sonar users: CAL script that converts GM brush MIDI to JABB brush MIDI

    Hello,

    I have written a simple SONAR CAL script that converts a GM brush drum MIDI track into a JABB brush drum MIDI track. Of course, the brush stir aftertouch data have to be added after conversion!

    Please note that LH and RH are used alternatively during the conversion for acoustic snare and closed hi hat.

    If you are interested, please use it at your own risk, as it has not been extensively tested (but it worked for me on 3 of my drum tracks). And please tell me if you find a problem.

    The CAL code will be joined in the next reply.
    Pierre Laroche

  2. #2

    Re: Sonar users: CAL script that converts GM brush MIDI to JABB brush MIDI

    HTML Code:
    ;   This CAL Converts GM mapped brush drum tracks to JABB brush tracks.
    ;   LH and RH are targetted alternatively for acoustic snare and closed hi hat.
    ;   The following notes are not targetted in the JABB brush kit:
    ;   - 44 Half open hi hat
    ;
    ;   Developed by Pierre Laroche
    ;   2005-12-17
    ;
    
    ;
    ; Variable declaration
    ;
    
    (do
      (dword dwSnareCount 0)
      (dword dwHiHatCount 0)
    )
    
    (if (== Event.Kind NOTE)
    
        (do
    
          (if (== Note.Key 38)
        	(do
    
        	  (if (== (% dwSnareCount 2) 0) 
        	    (= Note.Key 38)				; Acoustic Snare -> Snare LH
        	    (= Note.Key 39) 			; Acoustic Snare -> Snare RH
        	  )
    
        	  (++ dwSnareCount)
    
            ) ; do
            
          ) ; if
    
          (if (== Note.Key 42)
        	(do
    
        	  (if (== (% dwHiHatCount 2) 0) 
        	    (= Note.Key 42)				; Closed hi hat -> Closed hi hat LH
        	    (= Note.Key 43) 			; Closed hi hat -> Closed hi hat RH
        	  )
    
        	  (++ dwHiHatCount)
        	  
        	) ; do
        	
          ) ; if
    
          (if (== Note.Key 35) (= Note.Key 35)) 	; Acoustic Bass Drum -> Bass drum 1
          (if (== Note.Key 36) (= Note.Key 36)) 	; Bass drum          -> Bass drum 2
          (if (== Note.Key 40) (= Note.Key 37)) 	; Brush swirl        -> Snare stir
          (if (== Note.Key 41) (= Note.Key 41)) 	; Low Floor Tom      -> Low tom
          (if (== Note.Key 43) (= Note.Key 48)) 	; High Floor Tom     -> High tom
          (if (== Note.Key 44) (= Note.Key 40)) 	; Pedal hi hat       -> Foot closed high hat
          (if (== Note.Key 45) (= Note.Key 41)) 	; Low tom            -> Low tom
          (if (== Note.Key 46) (= Note.Key 46)) 	; Open hi hat        -> Open hi hat
          (if (== Note.Key 47) (= Note.Key 45)) 	; Low-mid tom        -> Mid tom
          (if (== Note.Key 48) (= Note.Key 48)) 	; High-mid tom       -> High tom
          (if (== Note.Key 49) (= Note.Key 49)) 	; Crash cymbal 1     -> Crash cymbal
          (if (== Note.Key 50) (= Note.Key 48)) 	; High tom           -> High tom
          (if (== Note.Key 51) (= Note.Key 50)) 	; Ride cymbal 1      -> Ride cymbal 1
          (if (== Note.Key 52) (= Note.Key 52)) 	; Chinese cymbal     -> Sizzle cymbal
          (if (== Note.Key 53) (= Note.Key 53)) 	; Ride bell          -> Garbage can lid (wire brush)
          (if (== Note.Key 54) (= Note.Key 54)) 	; Tambourine         -> Garbage can lid (brush handle)
          (if (== Note.Key 55) (= Note.Key 55)) 	; Splash cymbal      -> Garbage can lid (blastik)
          (if (== Note.Key 59) (= Note.Key 51)) 	; Ride cymbal 2      -> Ride cymbal 2
    	  
        ) ; do
    
    ) ; if
    Pierre Laroche

Go Back to forum

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •