home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / ProAudio / setup.exe / data1.cab / Content_-_CAL / WipeSelectedAutomation.CAL < prev   
Encoding:
Text File  |  1999-11-02  |  427 b   |  23 lines
  1. ;; Wipe Selected Automation.cal
  2. ;;
  3. ;; A CAL program to wipe out pre-selected automation controller data.
  4. ;;
  5. ;; Jamie O'Connell: 02/23/99 [Cakewalk]
  6. ;;
  7.  
  8. (do
  9.     (include "need20.cal")    ; Require version 2.0 or higher of CAL
  10.  
  11.     (forEachEvent
  12.         (do
  13.             (if (|| (&& (== Event.Kind CONTROL) (== Control.Num 7))
  14.                             (&& (== Event.Kind CONTROL) (== Control.Num 10)))
  15.                 (do
  16.              (delete)
  17.                 )
  18.             )
  19.         )
  20.     )
  21. )
  22.  
  23.