; ------------------------------------------------------------------------------------------------- ; Force Notes to Last Event at Time.cal ; ------------------------------------------------------------------------------------------------- ; ; Author: Eric von Bayer ; Email: CAL @ ericvonbayer.us (remove the spaces) ; WWW: http://www.ericvonbayer.us ; Dates: January 2005 ; Version: 1.0 ; Description: ; ; Update NOTE events to be the last events on a given tick (delete them and reinsert them.) This can be ; used to undo the damage "Bounce to Clip" can sometimes do. ; ; ------------------------------------------------------------------------------------------------- ; 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 (do (if (== Event.Kind NOTE) (do (insert Event.Time Event.Chan NOTE Note.Key Note.Vel Note.Dur) (delete) ) ) ) ) )