; ------------------------------------------------------------------------------------------------- ; Volume To Expression.cal ; ------------------------------------------------------------------------------------------------- ; ; Author: Eric von Bayer ; Email: CAL @ ericvonbayer.us (remove the spaces) ; WWW: http://www.ericvonbayer.us ; Dates: Aug 2002 ; Version: 1.0 ; Description: ; ; Convert all volume events to expression events ; ; ------------------------------------------------------------------------------------------------- ; Make Sure we're new enough ; ------------------------------------------------------------------------------------------------- (do (if (< VERSION 40) (do (pause "This CAL program requires CAL version 4.0 or higher") (exit) ) ) ; ------------------------------------------------------------------------------------------------- ; Main processing loop ; ------------------------------------------------------------------------------------------------- (forEachEvent (if (&& (== Event.Kind CONTROL) (== Control.Num 7)) (= Control.Num 11) ) ) )