mark dooley

On 9/20/2019 at 7:13 AM, Promidi said:

This is a CAL script that I wrote that should do the task. 

After selecting all the notes, run the script.  It asks the nth number of notes to select - in your case , you enter 2

Every nth note will remain selected.

(do
    (int note_number 1)
    (int even 0)
    (int nth 2)
    (getInt nth "Please enter nth note" 2 50)
    (forEachEvent
        (if (== Event.Kind NOTE)
            (do

                (= even (% note_number nth))
                (if (== even 1)
                    (do
                    );exit do
                    (do
                        (delete)
                        (insert Event.Time Event.Chan NOTE Note.Key Note.Vel Note.Dur)
                    )
                );exit if
                (++ note_number)    
            );exit do
        );exit if
    );exit for
);exit do

Thanks Promidi!   I used your CAL on a long HHat sequece to reduce velocity on every other note. What a time saver. Great work!