;; CCLinear.CAL
;; コントローラを直線で描きます。
;;
;;  Written By 蛞蝓なめちゃん, 1998/12/23
;;             odasan@ma.catv.ne.jp
;;  機  能 : 指定した範囲に、コントローラを曲線で挿入します。
;;  使用法 : 対象範囲の音を選択して、本 program を実行します。
;;           ・コントローラは、初期値で 11 (Expression) です。
;;             他のナンバーに変えるときは、下記プログラム中の ccno の値を
;;             書換えてください。
;;           ・実行すると、"Start Value" と "Last Value" を尋ねてきますので、
;;             範囲の最初の値と最後の値を指定します。
;;           ・指定範囲内で同じナンバーのコントローラが選択状態にある場合は、
;;             それを削除します。
;;           ・下記プログラム中の step の値を書換えると、コントローラ値を間引
;;             きながら書込みます。初期値は 1 ですが、たとえば 2 にするとデー
;;             タ量は半分になります。
;;			 ・計算の結果、複数の値が同じタイミングにくる場合は、最初の値だけ
;;             書込みます。
;;           ・挿入する Controler は、指定範囲内にある最初のイベントと同じ
;;             Channel に書込みます。指定範囲内にイベントがない場合は Channel
;;             1 に書込みます。
;;   注  意  ・program 本体 "_CCCurve.CAL" を同一ディレクトリに置いてください。
;;           ・曲線のデータは別途ファイルを読み込みますので、使用する曲線の種
;;             類に合った CAL ファイルを同一ディレクトリに置いてください。
;;             現在用意してあるのは、以下のデータです。
;;             円弧(楕円)のふっくらタイプ  "_CircleA.CAL"
;;             円弧(楕円)の鋭いタイプ      "_CircleB.CAL"
;;             正弦曲線                    "_Sin.CAL"
;;             直線                        "_Linear.CAL"
;;   UNDO  : 編集メニューの「元に戻す」では挿入したコントローラの数だけ
;;           戻らにゃならんので、フィルタで指定してまとめて削除してしまいま
;;           しょう。でも実行前にあったコントローラの復活はできません。

(do (int ccno 11)               ;; controler No.  初期値は #11 (expression)
    (int step 1)                ;; step 初期値は 1
    (include "_Linear.CAL")
    (include "_CCCurve.CAL")
)