日曜日, 11月 05, 2006

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

今日は、昨日やった「和楽器のための二つのラプソディー NO.2」に、琴と三味線を２パート、太鼓を１パート加え、８つの楽器で合奏させてみる。これは、結構いい感じにできあがりました。

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

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-10) V(100) v.Random(60) REV(100) q080 音色(SynthDrum)
TR(6) P(64+10) V(100) v.Random(60) REV(100) q080 音色(TaikoDrum)
TR(7) P(64-40) V(100) v.Random(60) REV(100) q080 音色(Shamisen)
TR(8) P(64-60) V(100) v.Random(60) REV(100) q080 音色(Koto)

#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=Compose2(128,(2,4,4,8)) #Part6=Compose2(120,(2,4,4,8))
#Part7=Compose1(120,(2,4,4,8)) #Part8=Compose1(120,(2,4,4,8))

Tempo(112)

TR(1) #Part1 TR(2) #Part2 TR(3) #Part3 TR(4) #Part4
TR(5) #Part5 TR(6) #Part6 TR(7) #Part7 TR(8) #Part8

TR(5) Tempo(12) 音色(Applause) c1

//_______ ここまで _______________



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


　

posted by admin @ 7:01 午後