月曜日, 10月 23, 2006

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

今日は、「二面の箏による即興的断章」のパートの一つを十七弦にしてみる。箏というのは、普通は十三弦で、昨日までのスケールの定義も実際の十三弦の平調子に設定してある。

箏
http://ja.wikipedia.org/wiki/%E7%AD%9D

今日は向かって右の方から出しているパートの音を１オクターブ下にすることで、低音パートを受け持つ十七弦の感じを出してみる。

//_　二面の箏による即興的断章

Function Compose(Int NoN, Array LoN){
Array Scale=({レ},{"ソ},{"ラ},{"ラ#},{レ},{レ#},{ソ},{ラ},{ラ#},{`レ},{`レ#},{`ソ},{`ラ})
　Str ML={}
　[(NoN)
　　ML=ML+Scale(Random(0,13))+RandomSelect(LoN)
　]
　Result=ML
}

TR(1) P(64-30) V(100) v.Random(60) REV(100) q080 音色(Koto) o5
TR(2) P(64-30) V(100) v.Random(60) REV(100) q080 音色(Koto) o5
TR(3) P(64+30) V(100) v.Random(60) REV(100) q080 音色(Koto) o4

//_一章
#Part1=Compose(50,(1,2,4)) #Part2=Compose(50,(1,2,4))
#Part3=Compose(50,(1,2,4))
Tempo(096)
TR(1) #Part1 TR(2) #Part2 TR(3) #Part3
INT Pos=Time INT N=0 [3 N++ TR(N) Time(Pos) [4 r1] ]

//_二章
#Part1=Compose(100,(1,2,4)) #Part2=Compose(100,(1,2,4))
#Part3=Compose(100,(1,2,4))
Tempo(240)
TR(1) #Part1 TR(2) #Part2 TR(3) #Part3

//_______ ここまで _______________




　

posted by admin @ 8:39 午後