月曜日, 10月 16, 2006

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

昨日やってみた「ドリア旋法による古風な愛の歌」、あんなに単純なアルゴリズムなのに、なかなか雰囲気のある曲ができたような気がする。

今日は、昨日と同じものを楽器を変えてやってみたい。歌の部分をイングリッシュホルン、伴奏の部分をギターにしてみた。伴奏の部分のみギターっぽくするため、パートを一つ増やしてみた。

//_ ドリア旋法による古風な愛の歌

Function Compose(Int NoN, Array LoN){
Array Scale=({レ},{ミ},{ファ},{ソ},{ラ},{シ},{`ド},{`レ})
 Str ML={}
 [(NoN)
  ML=ML+Scale(Random(0,8))+RandomSelect(LoN)
 ]
 Result=ML
}

#Oboe=Compose(68,(1,2,4))
#Harp1=Compose(68,(1,2,4))
#Harp2=Compose(68,(1,2,4))
#Harp3=Compose(68,(1,2,4))

Tempo(112)

TR(1) P(64+30) V(120) v.Random(60) REV(100) q080 音色(EnglishHorn)
TR(2) P(64-30) V(060) v.Random(60) REV(100) q080 音色(SteelcGuitar)
TR(3) P(64-40) V(060) v.Random(60) REV(100) q080 音色(NylonGuitar)
TR(4) P(64-50) V(060) v.Random(60) REV(100) q080 音色(NylonGuitar)

TR(1) #Oboe TR(2) #Harp1 TR(3) #Harp2 TR(4) #Harp3

//_______ ここまで _______________