丑の舞

0

新型コロナウイルス終息祈願の曲を作っててみました。厄を払う大太鼓と鳥の声、能の地謡のような祈りの歌。

// 丑の舞(新型コロナウイルス終息祈願)
System.RandomSeed=2021
Tempo=30
Array fushi=("dg","dg","gd","ga","a>c<",">cd<",">de-<",">cd<",">cd<",">d<a",">d<g","gd")
Array haku=("l8","l8","l8","l4","l2","l4.","l4.","l4.")
Array Chant=("","","","")
Array T_int=("@124 q=100 r1^1 o5 ","@48 q=100 r2 o2 ","@53 q=102 o3 ","@53 q=102 o3")
Array T_pan=(127,0,34,94)
Array T_vrn=(60,60,60,60)
Array T_trn=(99,99,09,09)
Int i=0
[4
[(8*4)
Chant(i)=Chant(i)+haku(Random(SizeOf(haku)))+fushi(Random(SizeOf(fushi)))
]
#MML=T_int(i)+Chant(i)
TR(i+1) v.Random(T_vrn(i)) t.Random(T_trn(i)) P(T_pan(i)) #MML
i++
]

丑の舞 - 新型コロナウイルス終息祈願
https://youtu.be/xk8saRj-KA8

Default