雨の中で

レイン望

MML先頭 2000 文字だけ表示していますダウンロード全文を見る

曲名{"雨の中で"}作者{"レイン望"}/*完成日：2016.08.01*/
音源初期化
Tempo 108 拍子 6,8
//------------------------------------------------------------------------------
Str V_RDM={v.Random(10)}
//------------------------------------------------------------------------------
TR=1P(64)V_RDM //主旋律
TR=2P(32)V_RDM //短和音
TR=3P(96)V_RDM //長和音
TR=4P(64)V_RDM
TR=5P(96)V_RDM
//A------------------------------------------------------------------------------
#TR1A={ @1o6v105l4.e^8l8del4.gag4.+4.+4.+4. l4.e^8l8del4.g`cl8bage4.+4.+8de
l4.ff4g8aa4b8l4agl8gfe4.+8de l4fecgcl8cdc4.+4."b4.+4. }
#TR2A={ v60o4q100l4.+4.+4.+4.'ceg''g"bd' l4.+4.'"beg''"bdg'l4.+4.+4.'cea''"beg'4.
l4.+4.'fac''gbd'l4.'egb''dgb''cea'4.+4. 'dfa'4.+4.+4.'dfa'4.l4.+4.['g"bd'] }
Time(1:1:0) PLAY(, #TR1A, #TR2A,)
//B------------------------------------------------------------------------------
Function CHO1(Str Cho1,Str Cho1A){ <'Cho1'1>r-1 r4[10'Cho1A'8,30] }
Function CHO2(Str Cho2,Str Cho2A){ <'Cho2'2>r-2 r4[4 'Cho2A'8,30] }
Function CHO3(Str Cho3,Str Cho3A){ <'Cho3'4>'Cho3A'8,30 }
#TR1b={ o6l4.e4.+8l8del4.gag4.+4.+4.+4. l4.e^8l8del4.g`cl8bage4.+4.+8de
l4.ff4g8aa4b8`cb4a8g4.+8l8ed c4.r"ggl4fedl8edc8+4.+4.@1"a#d#g }
#TR2b={ o5
CHO1(ceg,ce)CHO1(gbd,dg) CHO2(egb,eg)CHO3(egb,eg)CHO3(gbd,dg)<'cea'1>r-2.[7'ea'8,30][3'dg'8,30]
CHO2(fac,cf)CHO2(gbd,dg)CHO3(egb,eg)CHO3(dgb,dg)CHO2(ace,ca) CHO2(dfa,df)CHO2(gbd,dg)CHO1(ceg,ce) }
#TR3b={ o5v60q110
l4"gc8ec8"gc8l8ec"g l4"bd8gd8"bd8l8gd"b
l4"g"b8e"b8"g"b8d"b8 ce8ae8ce8ag8
l4"ac8fc8"bd8l8gd"b l4"be8ge8ce8l8aec
l4"f"a8c"a8"gc8ge8 "gc8ec8"gc8l8ec"g }
#TR4b={ @50Time(31:3:0)v50o4q105'ceg'4.^^}
Time(17:1:0) PLAY(, #TR1b, #TR2b, #TR3b, #TR4b,)
//C------------------------------------------------------------------------------
#TR1c={ [a#4.a#4`ca#4.+8gd# g#4g8+4.+4.+8 cg:
g2fcd#4.f4. l4.dfe2 l8d#g]
g2fcc4.+4d# g2fcc4.d#4.
d4.+4.+4.+4. r4.+4.+4.+4. }
#TR2c={ o4l4.+4. 'e-gb-''b-df''ce-g'4.^'gb-d'4. 'dgb-''ce-g''cfa''b-deg'
o5<'e-gb-'2>r-2r4[4 'e-g'8,