土曜日, 11月 04, 2006

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

今日は、昨日やった「和楽器のための二つのラプソディー NO.1」の尺八のパートの一つを笛に変え、さらに鼓を加えた５つの楽器で合奏させてみる。

//_　和楽器のための二つのラプソディー NO.2

Function Compose1(Int NoN, Array LoN){
　Array Scale=({レ},{レ＃},{ファ},{ソ},{ソ＃},{`ド},{`レ},{`レ＃},{`ファ},{`ソ},{`ソ＃},{``ド},{``レ},{``レ＃})
　Str ML={}
　[(NoN) ML=ML+Scale(Random(0,14))+RandomSelect(LoN)
　] Result=ML
}
Function Compose2(Int NoN, Array LoN){
Array Scale=({ド},{ミ},{ソ})
　Str ML={}[(NoN) ML=ML+Scale(Random(0,3))+RandomSelect(LoN)] Result=ML
}

TR(1) P(64+50) V(080) v.Random(60) REV(100) q080 音色(Piccolo)
TR(2) P(64+30) V(080) v.Random(60) REV(100) q080 音色(Shakuhachi)
TR(3) P(64-30) V(100) v.Random(60) REV(100) q080 音色(Shamisen)
TR(4) P(64-50) V(100) v.Random(60) REV(100) q080 音色(Koto)
TR(5) P(64-00) V(100) v.Random(60) REV(100) q080 音色(SynthDrum)

#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))
#Part5=Compose1(128,(2,4,4,8))

Tempo(112)

TR(1) #Part1 TR(2) #Part2 TR(3) #Part3 TR(4) #Part4 TR(5) #Part5
TR(5) Tempo(12) 音色(Applause) c1

//_______ ここまで _______________



今日も、YAMAHAのXGソフト音源（AC-XG WDM XG Synth）を使って録音してみた。


　
参考：「ドリトル」版の「和楽器のための二つのラプソディー NO.2」
http://mugen-blog.blogspot.com/2006/04/oom12-no2.html
　

posted by admin @ 10:33 午後