/*
   [FC] MOTHER - Mother Earth - [タイトル画面] (C)Nintendo 1989
   FlMML MML by LinearDrive
   date:2011-06-04 [FlMML c.s.7997]
   JASRAC: 110-7252-1
*/


#OCTAVE REVERSE
#VELOCITY REVERSE


/* エンベロープ定義 */
$EA1= @e1, 0, 0,48,4,48,11,8, 0,24,4,24,11,8, 0,16,4,16,11,8, 0;
$EA2= @e1, 0, 0,64,2,64,13,8, 0,32,2,32,13,8, 0,24,2,24,13,8, 0,16,2,16,13,8, 0;

$EB1= @e1, 0, 0,16,13,64, 10,64,0,56,2,56, 0,24, 0;
$EB2= @e1, 0, 0,16,13,64, 10,64,0,56,2,56, 0,32, 0;
$EB3= @e1, 0, 0,16,15,56,  6,56,4,32, 0;

$ED0= @e1, 0, 0,120,9,0, 0;


/* 音量バランス定義 */
$VS15= @v87;
$VT=   @v119;
$VN15= @v63;


/* シーケンサ初期化 */
$M= r8 x0 q16 @q0 o5 ns0 @d0 @x127 v0
;


/* RP2A03 SQUARE-A */
$MA0=
   $M l8 @5@w6 o6 @d3 $VS15 @l15,18,2-1,40,0,0
;
$MA1= 
   $EA1
   /:4 rb>d4<rb>d4< rb>d4<rgb4 :/ <
   /:2
     rb>d4<rb>d4< rb>d4<rb>d4<
     rg>c4<ra>c+4< ra16>d16& d<a16>d16& d<a16>d16& d<a16>d16<
   :/
   $EA2
   /:2
     bd>d<dad>d<d ad>d<dgd>d<d
     ge>c<eae>c+<e f+>d<e>d<d>d<c>d<
   :/
   bgb>dgd<a>c< bgb>dgd<a>c
;


/* RP2A03 SQUARE-B */
$MB0=
   $M l8 @5@w4 o5 $VS15 @l15,18,2-1,48,0,0
;
$MB1=
   r1 r1
   r1 r1
   $EB1 @w4
   /:2 b2>d2 g4.ag2< :/
   $EB2 @w6
   /:2
     b4>cdd2 <a4b>c<b2
     g2g2 f+4e4d4c4
   :/
   /:2
     b4>cdd4e4 <a4b>c<b2
     g4aef+gab f+4e4d4c4
   :/
   $EB3 @w4
   <b2a4>d4< b2a4>d4
;


/* RP2A03 TRIANGLE */
$LT2{%n}= @l0,0,0,0,0,0 %n8& @l25,18,2-1,0,0,0 %n4.&;
$L2{%n}=  @l0,0,0,0,0,0 %n8& @l10,18,2-1,0,0,0 %n4.&;
$L4{%n}=  @l0,0,0,0,0,0 %n8& @l10,18,2-1,0,0,0 %n8&;
$MC0=
   $M l8 @6-1 o5 $VT @e1,0,0,120,0
;
$MC1=
   /:2 $LT2{g} $LT2{f+} $LT2{f} $LT2{e} :/ <
   /:2 $L2{g} $L2{f+} $L2{f} $L2{e} :/
   /:2
     $L2{g} $L2{f+} $L2{f} $L2{e}
     $L2{c} $L2{c+} $L4{d} $L4{c} <$L4{b} $L4{a}>
   :/
   <
   /:2
     $L2{g} $L2{f+} $L2{f} $L2{e}
     >$L2{c} $L2{c+} $L4{d} $L4{c} < $L4{b} $L4{a}
   :/
   $L2{g} $L2{f} $L2{g} $L2{f}
   >>
;


/* RP2A03 NOISE */
$MD0=
   $M l4 @7 o0 ns1 $VN15 $ED0
;
$MD1=
   /:13 rcrc rcrc :/
;


/* 再生 */
$LOOP=32;
t64.29
$MA0 /:$LOOP $MA1 :/;
$MB0 /:$LOOP $MB1 :/;
$MC0 /:$LOOP $MC1 :/;
$MD0 /:$LOOP $MD1 :/;


/* EOF */