/*
   [FC] MOTHER - Pollyanna (I Believe in You) - [フィールド・単独行動] (C)Nintendo 1989
   FlMML MML by LinearDrive
   date:2011-06-12 [FlMML c.s.7997]
   JASRAC: 082-0874-3
*/


#OCTAVE REVERSE
#VELOCITY REVERSE


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

$EB1= @e1, 0, 0,64,2,64,15,8, 0,32,2,32,15,8, 0,24,2,24,15,8, 0,16,6,16,0,8,11,8, 0;
$EB2= @e1, 0, 0,16,12,64, 10,64,0,56,2,56, 0,24, 0;

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


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


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


/* RP2A03 SQUARE-A */
$MA0=
   $M l8 @5@w4 o5 @d5 $VS15 @l5,32,2-1,96,0,0
   $EA1
   dgbe4f+4f+  f+f+4d2r
   dgbe4f+4f+& f+2..r
;
$MA1= 
   $EA2
   /:
     rf+a>d< rea>c+< rdf+b rdf+a
     gb>d<g f+a>d<f+ fa>c<a eac+a
   :/
   r<b>df+< ra+>df+< ra>df+< rg+b>d
   $EA1
   baga aaga f+1
   $EA2 @w6
   c+<c+f+>c+&c+4<c+4> d<dg>d&d4<d4>
   c+<c+f+a> c+<<a>ea f+<a>df+ adf+a>
   bgdg af+d4 gd<b>d af+d4
   bgdg af+d4
   $EA1 @w4
   bbbb >d<g4f+&  f+2..r
;


/* RP2A03 SQUARE-B */
$MB0=
   $M l8 @5@w4 o6 $VS15 @l10,32,2-1,96,0,0
   $EB1
   gb>dc+4d4d  d<a4b2r
   gb>dc+4d4d& d2..r<<
;
$MB1=
   $EB2
   /:2
     f+f+aa>e4c+d& d2..r
     <bb>ddf+4d<a& a4.gg2
   :/
   f+edef+4b4 >d4f+4b2
   dc+<b>c+dc+<b>c+ d1<
   aaara16r16f+ed&  d2..r
   aaar>edc+d& d&d2r<b>c+
   dc+<b>c+ dc+<b>c+ dc+<b>c+ dr<aa>
   dc+<b>c+ dc+<b>c+ dddd f+d4d&  d2..r <
;


/* RP2A03 TRIANGLE */
$L4P{%n}= @l0,0,0,0,0,0 %n4& @l12,24,2-1,0,0,0 %n8&;
$L2N{%n}= @l0,0,0,0,0,0 %n4& @l12,24,2-1,0,0,0 %n4;
$L2{%n}=  @l0,0,0,0,0,0 %n4& @l12,24,2-1,0,0,0 %n4&;
$L1N{%n}= @l0,0,0,0,0,0 %n4& @l12,24,2-1,0,0,0 %n2.;

$MC0=
   $M l8 @6-1 o4 $VT @e1,0,0,120,0
   $L4P{g}$L2N{a}r  $L4P{d}$L2N{g}r
   $L4P{g}$L2{a}$L1N{d}r
   @l12,24,2-1,96,0,0
;
$MC1=
   @q2
   /:2
     drrd c+rrc+ <brrb arra
     grrg f+rrf+ frrf arra>
   :/ <
   @q12
   bbbb a+a+a+a+ aaaa g+g+g+g+
   gggg aaaa @q1 d1
   @q2
   f+rrf+ r2 grrg r2
   f+rrf+ arra >drrd drrd<
   @q12
   gggg f+f+f+f+ eeee f+f+f+f+
   gggg f+f+f+f+ eeee aaaa @q1 d1 >

;


/* RP2A03 NOISE */
$MD0=
   $M l8 @7 o0 ns1 $VN15 $ED0
   ccccrcrc ccccrcrc ccccrcrc rccrrrrr
;
$MD1=
   /:4
     rcrcrcrc16c16 rcrcrcrc16c16
   :/
   cccccccc cccccccc
   cccccccc ccccrrrr

   ccccrccr ccccrccr
   cccccccc cccccrrc

   cccccccc cccccccc
   cccccccc cccccccc ccccccrr
;


/* RP2A03 DPCM */
$DB= @9-0c;
$DS= @9-1c;
$ME0=
   $M l8 @9-0 o0 ns14 $VD @e1,0,0,305,0
   $DBrr$DBrrrr $DBrr$DBrrrr
   $DBrr$DBr$DBr$DB rrrr$DS16$DS16$DB$DS$DB 
;
$ME1=
   /:4
     $DBr$DSr16$DB16$DB$DB$DSr $DBr$DSr16$DB16$DB$DB$DSr
   :/
   $DBr$DS$DB$DBr$DSr $DBr$DS$DB$DBr$DSr
   $DBr$DS$DB$DBr$DSr $DBr$DS$DB $DS16$DS16$DS $DS$DS

   $DBr$DS$DBr$DS$DSr $DBr$DS$DBr$DS$DSr 
   $DBr$DS$DB$DBr$DSr $DBr$DS$DB$DB$DS$DSr

   $DBr$DS$DB$DBr$DSr $DBr$DS$DB$DBr$DSr
   $DBr$DS$DB$DBr$DSr $DBr$DS$DB$DBr$DSr
   $DBr$DS$DB$DBr$DS16$DS16$DS
;


/* 再生 */
$LOOP=64;
t112.50
$MA0 /:$LOOP $MA1 :/;
$MB0 /:$LOOP $MB1 :/;
$MC0 /:$LOOP $MC1 :/;
$MD0 /:$LOOP $MD1 :/;
$ME0 /:$LOOP $ME1 :/;


/* DPCM定義 */
#WAV9 0,40,0,/////////7ZCBAAAAAAAIEm1qqpKJAFR2raqbff///////Z226tVpUQQIAAABAiQKFGqWrVte/fu3bd3W1u1UkkSEgkSIklIpSpVZbW1rbZt27Zt27a1rdaqKlVKpSRJKgmVolRJU7VEatVqrdZEAKs=

#WAV9 1,40,0,/7cgCwAAAADA//////////8AAAAAAADACwAAgP3//////////xcAAAAAAAAA8P//////flHtRIEQAYIYK0JTgW/Y2+vnv+sf+5UkSAACAODFwL/4//+6Dn7EUGgqVgJvd074RZUgVlBjP/T/8J34IbIgjg0Yz4KviuM/eP0YzgKHWODER+nf8VM7ipc4CKkD3uL4D57sibIHOOJj8ePDe0KvKI4qjkKDWh36seur1mLaoeLQNJyFjq7EenIdplUcuVI9i56dTpYqC+KopJUtu3Kt9JFai1IlTpxaeWrXpI6cdLCitIlnNW0rN7ZFpanFpA==


/* EOF */