;;DelCont.CAL
;;  (Delete Controler)
;;  Written By 蛞蝓なめちゃん, 1998/12/24
;;                 odasan@ma.catv.ne.jp
;;  機  能 : 指定した Controler の、重複している後ろの方を削除します。
;;  使用法 : 対象範囲の音を選択して、本 program を実行します。
;;  注  意 : クリップにまたがった範囲指定をすると、うまく動作しないことがあ
;;           ります。トラックごとにクリップを結合してから実行しましょう。
;;   UNDO  : 編集メニューの「元に戻す」で、
;;           「CAL(forEachEvent)」を取消せば、元に戻ります。

(do
    (int cont 11)       ;; Controler Number 初期値=11 (Expression)
    (int value 999)
    (getInt cont "Controler Number" 0 127)
    (forEachEvent
        (if (&& (== Event.Kind CONTROL) (== cont Control.Num))
            (if (== value Control.Val)
                (delete)
                (= value Control.Val)
            )
        )
    )
)