Our happiness Christmas（おまけ有り）

レイン望

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

/*投稿予定日：2018/12/18*/
Int Xmas = 1 //1以外を指定でオマケ曲を再生
If(Xmas=1){
//皆さんのクリスマスが楽しいひと時でありますように
曲名{"Our happiness Christmas"}作者{"レイン望"}
音源初期化|拍子(4,4)|Tempo=140
Function BASE1(Str BASE){[3'BASE']'BASE'6,100'BASE'12,100}
Function CHD1(Str CHORD) {r4'CHORD'4,30r6'CHORD'12+6.}
Function CHD2(Str CHORD,Str CHORD2) {r4'CHORD'4,30r6'CHORD2'12+6.}
//主旋律,副旋律
/* 1 メロ
2 ストリングス
3 エレピ装飾
5 クワイア
6 クリスタル
9 ハープ */
#1Z={ @15o6l2ag#f#edc#"be"a1+1 }
#1A={ o6l4[rag+f+edc+de2"ar6"a12dc+"a"bc+2Div{c+de}2f+2r6c+12f+6g+12a2er6"a12dc+:"a"f+6"e12]"a"b }
#1B={ v+20o6[crDiv{cde}2drgf6e12c2r6"g12c6d12efec"gr<Div{gab}2>c2r6"g12c6d12efec:c<bag>]c<bag#a1v-20 }
#1C={ o6"a1 }
#2Z={ @49o6v65P(64+16)q105Time(5:1:0)l2a1>c+e<a1g+c+f+1ead1e,15 }
#2A={ Str Str1={c+2.g+6e12f+1}Time(17:1:0)Str1|Time(25:1:0)Str1|Time(53:1:0)Str1|Time(61:1:0)Str1 }
#2B={ v+5l2[c1gb`c2.b6a12gag2.f6e12c1,70"a"g"a"b]|l2a`d`c#ab2+6c#12b4a2g#2EP.T(127,20,!1+1)e1+1,90EP(127)v-5 }
#2C={ v+20l1al2g+ba2+4g+6a12g+c+f#2+4g#6f#12el4"arl2dal4ag#f#el2aDiv{ab`c#}2b`e4`d6`c#12ar6e12a6b12l4`c#`d`c#bf#2+4g#6f#12l2ea4r4dal4ag#f#g#EP.T(127,127,!1,127,30,!1+1+1)a1+1+1+1v-20 }
#3Z={ Time(12:1:0)P(64-16)@5o6v75t.N(-12,0,12)'eg#b'1t(0) }
#3A={ [o5v95l12r2^6a>ede<|r2^6eag+a|r2^6a>ede<|r2^6eag+a|o6"a1r-1c+2Div{c+g+e}2c+1r-1f+4^6g+24e24f+2|r1^1]/*o6[r1+1+1+2|l4r6a12g+Sub{f+4^6g+24a24bg+b4+6c+24b24a2}l4d4^6e24f+24g+eg+4^6a24g+24f+2|r1+1]*/}
#3B={ o6[Time(34:1:0)/*Sub{e6"b12f6f24g24f6e12+6.}*/c6"g12d6d24e24d6c12+6.|r1+1] }
#5B={ Time(45:1:0)P(32)@53o5l2v90q110Sub{<a`d`c#ab1ag#e1+1,90>}a`d`c#ab1ag#EP.T(127,20,!1+1)e1+1,90EP(127) }
#6A={ @99o8q90v60P(127)Str Cr1={l1c#f#l2aede"a1}Time(17:1:0)Cr1|Time(25:1:0)Cr1 }
#6B={ l2[c1gb`c1gag2.f6e12c1,70"a1"b1]"a1+1 }
#6C={ Time(53:1:0)Cr1|Time(61:1:0)Cr1 }
#9Z={ Time(5:1:0)@47v65P(0)o5l12q105[a`c+`e`a`e`c+][eg+b`ebg+][f+a`c+`f+`c+a][c+eg+`c+g+e]|[df+a`daf+]eg+b`ebg+a`c+`e`a`e`c+[df+a`daf+]t.N(0,4,8)'eg+b'1t(0) }
#9A={ o5[[a`c+`e`a`e`c+][eg+b`ebg+][a`c+`e`a`e`c+][df+a`daf+][c+eg+`