水曜日, 4月 26, 2006

OOM_10 尺八のための2声のインベンション NO.2

昨日の「尺八のための2声のインベンション NO.1」は気に入っていただけただろうか。尺八の二重奏も結構よかったような気がする。

そしてお察しの通り、今日はインベンションの続きのNO.2だ。なんかプログラムの作り方もすっきりしてきて、少しは腕が上がったような気がする。

//OOM_10 尺八のための2声のインベンション NO.2

音列=配列!作る ""入れる ""入れる ""入れる ""入れる。
調子=配列!作る "レ"入れる "ミ♭"入れる "ファ"入れる "ソ"入れる "ラ♭"入れる "↑ド"入れる "↑レ"入れる "↑ファ"入れる "↑ソ"入れる "↑ラ♭"入れる "↑↑ド"入れる "↑↑ミ♭"入れる。
尺八=077。

作品:作曲=「|m| 作品=メロディ!作る。n=0。「 n=n+1。l=12。
 「n<m*0.2」!なら「l=6」実行。「n>m*0.8」!なら「l=7」実行。
 音列!1 ((調子! (random(l)) 見る) + "4") 上書き。
 音列!2 ((調子! (random(l)) 見る) + "4") 上書き。
 音列!3 ((調子! (random(l)) 見る) + "8") 上書き。
 作品!(音列!(random(3)) 見る) 追加 
」! (m) 繰り返す」。

そうたくん=楽器!(尺八) 作る(作品! 200 作曲) 設定。
たいきくん=楽器!(尺八) 作る(作品! 200 作曲) 設定。

環=バンド!作る(そうたくん)追加 (たいきくん)追加 88 テンポ 演奏 待つ。

//--------- ここまで ----------



そして実行!ボタンだ。

拍手! 拍手! 拍手! 拍手!