水曜日, 11月 01, 2006

「サクラ」でアルゴリズム作曲 - 10.2 -

今日は、昨日やった「尺八のための２声のインベンション NO.2」の尺八の数を４本にしてみる。高音の１尺６寸管と低音の２尺４寸管を加えて合奏しているような感じになる。まるでリコーダーの４重奏のようだ。

//_　尺八のための4声のインベンション

Function Compose1(Int NoN, Array LoN){
　Array Scale=({レ},{レ＃},{ファ},{ソ},{ソ＃},{`ド},{`レ},{`レ＃},{`ファ},{`ソ},{`ソ＃},{``ド},{``レ},{``レ＃})
　Str ML={}
　[(NoN) ML=ML+Scale(Random(0,14))+RandomSelect(LoN)
　] Result=ML
}
TR(1) P(64-50) V(100) v.Random(60) REV(100) q080 音色(Shakuhachi) o5
TR(2) P(64-20) V(100) v.Random(60) REV(100) q080 音色(Shakuhachi) o4
TR(3) P(64+20) V(100) v.Random(60) REV(100) q080 音色(Shakuhachi) o4
TR(4) P(64+50) V(100) v.Random(60) REV(100) q080 音色(Shakuhachi) o3

#Part1=Compose1(120,(2,4,4,8))
#Part2=Compose1(120,(2,4,4,8))
#Part3=Compose1(120,(2,4,4,8))
#Part4=Compose1(120,(2,4,4,8))

Tempo(112)

TR(1) #Part1 TR(2) #Part2 TR(3) #Part3 TR(4) #Part4

//_______ ここまで _______________




　

posted by admin @ 2:22 午前