;NotePan.CAL by David Baay, modified significantly from the original by Alisa Miller
;
; This CAL script will insert alternating Pan (CC10) events 30 ticks before each note event at 1:01:030 or later.
; If any notes occur before 1:01:030, the Track Pan should be set to the value equal to the left pan setting that you
; intend to set using the CAL to set the initial pan position before playback starts.
;
(do
 (int count 0)
 (int left 0)
 (int right 127)
 (int position 127)
;
;Get Min and Max Pan values to determine Pan changes
 (getInt left "Enter the left pan amount" 0 64)
 (getInt right "Enter the right pan amount" 64 127)
 (= position right)
   (forEachEvent
     (if (&& (>= Event.Time 3) (== Event.Kind NOTE))
       (do
         (insert (- Event.Time 3) Event.Chan CONTROL 10 (= Control.Val position))
         (if (<= position 64)
           (= position right)
           (= position left); else
         );end if
       );end do
     ); end if
  );end for
);end do
 

;
;NotePan.CAL by Alisa Miller
;Thanks to David Baay (brundlefly) for useful ideas
;
;This CAL program will insert a user-defined alternating panning (CC 10) for each note event within a selected region or a clip at user-defined time from 0 to 240 ticks (1/16 of the project tempo) before the note.
; IMPORTANT! Some notes at the beginning of the project may need manual adjustment.

(do
  (int count 0)
  (int left 64)
  (int right 64)
  (int time 3)
  (= Now From)
  
;; Get Min and Max Pan values to determine Pan changes
 (getInt left "Enter the left pan amount?" 0 127)
 (getInt right "Enter the right pan amount?" 0 127)
 (getInt time "Enter the predelay time in ticks" 0 240)
    (forEachEvent 
      (if (< Now Thru)
      (if (&& (== Event.Kind NOTE) (>= Event.Time time))
        (do
            (if (== count 0)
                (insert (- Event.Time (- time 1)) Event.Chan CONTROL 10 (= Control.Val left))
             )
                (++ count)
                (insert (- Event.Time time) Event.Chan CONTROL 10 (= Control.Val right))
            (if (== count 2)
                    (= count 0) ; if count is 2, reset to 0
            )
        )
      )
      )
    )
)

SilverBlueMedallion
nice update.  for anyone using a PPQN other than 960, you will need to modify the file accordingly for the ticks.

rogeriodec

Soundwise
 
That's the beauty of CAL - you can modify or create any script the way you need.

Hello!
Would you find it easy to create a CAL script for this topic (How to select just the top or bottom MIDI notes)?
The idea would be an interface that would ask which note (known as "voice" in Sibelius) to keep selected: top note, bottom note, or first note, 2nd note, and so on.
For the CAL Script to work, it needs all the events to be pre-selected, so the idea is to do the reverse, deselect the unwanted notes and leave only the desired notes selected.
I'm even trying to venture to learn CAL Script, but I did not find anything that could deselect notes.
Could you help?
 

brundlefly

SilverBlueMedallion
It was programmed to change the paramter 30 ticks behind the note... BUT if at 96 PPQN, 30 ticks is more than a quarter note.  Would need to set the CAL script for 3 ticks, no?

I thought you're 'nice update' reponse was to Alisa's update which lets you enter the desired tick value. You can easily add the 'time' variable my version if you prefer it.