Fue and Koto

mugen動画

System.RandomSeed=(2012-22)
Array UTA =
("春","風","の","花","を","散","ら","す","と","見","る","夢","は",
"さ","め","て","も","胸","の","さ","わ","ぐ","な","り","け","り")
Array FUE =
({o5g},{o5a},{o6c},{o6d},{o6e-},{o6g},{o6a},{o7c},{o7d})
Array SOU =
({'o5do4g'},{o5d},{o4g},{o4a},{o4b-},{o5d},{o5e-},{o5g},{o5a},{o5b-},{o6d},{o6e-},{o6g},{o6a})
#ARP="l(64)"
For(Int i=2; i<=13; i++){
　#ARP=#ARP+SOU(i)
}
Int NN Int OTO_1 Int OTO_2
Tempo(64)
#N1="v.Random(40) q(100) M(12) "
#N2="v.Random(40) q(100) M(00) "
For(Int i=0; i<SizeOf(UTA); i++){
　NN=ASC(UTA(i))-ASC(UTA(i))/100*100
　OTO_1=NN-(NN/SizeOf(FUE)*SizeOf(FUE))
　OTO_2=NN-(NN/SizeOf(SOU)*SizeOf(SOU))
　#N1=#N1+"l("+RandomSelect(1,2)+")"+FUE(OTO_1)+ " "
　#N2=#N2+"l("+RandomSelect(2,1)+")"+SOU(OTO_2)+ " "
}
TR(1) @(Piccolo) TrackName="Fue" P(64+24) REV(40) CHO(04) Key(12) r2 #N1
TR(2) @(Koto) TrackName="Koto" P(64-24) REV(40) CHO(10) Key(00) #N2 r2 #ARP

作者からのコメント

文字（コード）から音楽を生成する実験をした作品。アルバム「咲楽」に収録しました。

お気に入り

(^o^)/

ダウンロード数

310

タグ

感謝のコメント

感謝のコメント募集中です!!

♪

この曲に「ありがとう」を伝えませんか？

ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。