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

(do
    (long bend 10000)
    (forEachEvent
        (if (== Event.Kind WHEEL)
            (if (== bend Wheel.Val)
                (delete)
                (= bend Wheel.Val)
            )
        )
    )
)