Free little CAL program to set program changes quickly

Author
williamcopper
Max Output Level: -68 dBFS
  • Total Posts : 1120
  • Joined: 2014/11/03 09:22:03
  • Location: Virginia, USA
  • Status: offline
2015/03/20 18:00:26 (permalink)

Free little CAL program to set program changes quickly

Sonar platinum still hasn't fixed the Bank/Patch Select dialog, so it takes what seems like forever to make a simple change of program number.   Here's a CAL program that does it.   I have it assigned to the A key, so three fast key strokes and it's done.   Only sets one patch number, but if you select many notes all of which require the same patch, it will put the patch number in front of each note.    The body uses CAL's deceptive IF-ELSE structure, so it looks for a NOTE or else a PATCH.   It uses a fixed bank number, but you could add another getInt statement to ask for bank number, if you like.
 
;  add_patch.cal
;
;  Set patch for selection of notes or existing patches
;
;

(do
  (int adjval  1)
  (int new_bank 1)    ; New Bank number
  (int new_patch 1)
 
  (getInt new_patch "New Patch Number: " 1 126 )

 
)

;; Body

(do

  (if (== Event.Kind NOTE)
      (insert (- Event.Time 3) Event.Chan PATCH  new_patch new_bank )
      
      (if (== Event.Kind PATCH) (do
           (delete)
           (insert Event.Time Event.Chan PATCH new_patch new_bank)
         )
      )      
   )
)


#1

1 Reply Related Threads

    robert_e_bone
    Moderator
    • Total Posts : 8968
    • Joined: 2007/12/26 22:09:28
    • Location: Palatine, IL
    • Status: offline
    Re: Free little CAL program to set program changes quickly 2015/03/20 22:26:14 (permalink)
    Thanks - I'll hang on to it.  I almost always set up a new instance of whatever synth I am needing/wanting a different preset for, so that everything is separate - effects, levels, whatever.
     
    But, it looks like it would come in handy for whenever I would choose to do a preset change, so again - thanks.
     
    Bob Bone
     

    Wisdom is a giant accumulation of "DOH!"
     
    Sonar: Platinum (x64), X3 (x64) 
    Audio Interfaces: AudioBox 1818VSL, Steinberg UR-22
    Computers: 1) i7-2600 k, 32 GB RAM, Windows 8.1 Pro x64 & 2) AMD A-10 7850 32 GB RAM Windows 10 Pro x64
    Soft Synths: NI Komplete 8 Ultimate, Arturia V Collection, many others
    MIDI Controllers: M-Audio Axiom Pro 61, Keystation 88es
    Settings: 24-Bit, Sample Rate 48k, ASIO Buffer Size 128, Total Round Trip Latency 9.7 ms  
    #2
    Jump to:
    © 2025 APG vNext Commercial Version 5.1