home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / ProAudio / setup.exe / data1.cab / Content_-_CAL / WipeAllAutomation.CAL < prev    next >
Encoding:
Text File  |  1999-11-02  |  514 b   |  33 lines
  1. ;; Wipe All Automation.cal
  2. ;;
  3. ;; A CAL program to wipe out 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.  
  12.     (TrackSelect 1 -1)
  13.     (= From 0)
  14.     (= Thru End)
  15.  
  16.     (forEachEvent
  17.         (do
  18.             (if (|| (&& (== Event.Kind CONTROL) (== Control.Num 7))
  19.                             (&& (== Event.Kind CONTROL) (== Control.Num 10)))
  20.                 (do
  21.              (delete)
  22.                 )
  23.             )
  24.         )
  25.     )
  26.     
  27.     (TrackSelect 0 -1)
  28.     (= From 0)
  29.     (= Thru 0)
  30.  
  31. )
  32.  
  33.