#TITLE 英雄伝説Ⅲ 白き魔女(OPNA) / ギドナ
#ARTIST Falcom Sound Team J.D.K. (old name for 'jdk')
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：- / MML coded: 2015/04/15 rev.1 / C minor


/* Ini ====================================================================== */

/* All part 1 */  $ALL1  = t100.74 ; /* (128time/76.233sec)*60sec %1=6.204ms */
/* All part 2 */  $ALL2  = x2      ; /* 96dB dynamic range */
/* Note shift */  $NS    = ns0     ; /* expect rhythm part */
/*     Repeat */  $LOOP  = 20      ;

/* Volume @V0～127 [default=122] */
/* YM2608 FM_a  */  $FMa  = @V122 ;
/* YM2608 FM_b  */  $FMb  = @V122 ;
/* YM2608 FM_c  */  $FMc  = @V122 ;
/* YM2608 FM_d  */  $FMd  = @V122 ;
/* YM2608 FM_e  */  $FMe  = @V122 ;
/* YM2608 FM_f  */  $FMf  = @V122 ;
/* YM2608 SSG_a */  $SSGa = @V122 ;
/* YM2608 SSG_b */  $SSGb = @V122 ;
/* YM2608 SSG_c */  $SSGc = @V122 ;

/* Detune default */  $DT0  = @D6 ;
/* Detune FM      */  $DTFz = @D0 ;
/* Detune SSG_b   */  $DTSb = @D16 ;


/* Data ===================================================================== */

/* --FM-- */

#OPN@1 { /* a01 */
  4,  5,
 31,  0,  0,  0,  0, 21,  0,  2,  7,  0,
 18, 15,  9,  6,  3,  0,  0,  2,  7,  0,
 31,  0,  0,  0,  0, 20,  0,  2,  3,  0,
 31, 15,  9,  6,  3,  0,  0,  2,  3,  0,  15 }

#OPN@2 { /* a09 */
  4,  5,
 31,  0,  0,  0,  0, 12,  0,  3,  7,  0,
 18, 15,  1,  7,  3,  0,  0,  3,  7,  0,
 31,  0,  0,  0,  0,  3,  0,  4,  3,  0,
 31, 15,  1,  7,  3,  0,  0,  4,  3,  0,  15 }

#OPN@3 { /* a21 */
  3,  7,
 31,  0,  0,  5,  0, 30,  1,  2,  1,  0,
 31,  0,  0,  5,  0, 33,  1,  4,  0,  0,
 31,  0,  0,  4,  0, 42,  1,  6,  7,  0,
 20, 14,  0,  6,  4,  0,  1,  4,  0,  0,  15 }

#OPN@4 { /* b09 - bass */
  3,  0,
 31, 31,  7, 15,  2, 12,  3,  1,  7,  0,
 31, 18,  1, 15,  7, 28,  1,  3,  0,  0,
 31, 18,  1, 15,  0, 28,  2,  1,  3,  0,
 31, 18,  3, 15,  2,  0,  2,  1,  0,  0,  15 }

#OPN@5 { /* c09 - tom&bd */
  6,  7,
 31, 13,  5,  5,  2,  0,  0, 15,  6,  0,
 31, 17, 10,  6,  5,  0,  0,  0,  3,  0,
 31, 17,  4,  6, 10,  0,  0,  0,  3,  0,
 31, 12,  9,  7,  8,  0,  0,  0,  3,  0,  15 }

#OPN@6 { /* c09 - hh */
  0,  7,
 31,  0,  0,  0,  0,  0,  0, 15,  0,  0,
 31,  0,  0,  0,  0,  0,  0, 13,  0,  0,
 31,  0,  0,  0,  0,  0,  0, 10,  0,  0,
 31, 18, 15,  7, 10,  0,  0,  1,  0,  0,  15 }

#OPN@7 { /* d09 */
  4,  5,
 31,  0,  0,  0,  0, 22,  0,  4,  7,  0,
 18, 15,  1,  6,  3,  0,  0,  4,  7,  0,
 31,  0,  0,  0,  0, 23,  0,  4,  3,  0,
 31, 15,  1,  6,  3,  0,  0,  4,  3,  0,  15 }

#OPN@8 { /* d13 - distortion guitar */
  0,  0,
 31,  0,  0, 15,  0, 50,  0, 15,  3,  0,
 31,  0,  0, 15,  0, 30,  0,  6,  3,  0,
 31, 10,  0, 15,  1, 30,  0, 14,  3,  0,
 21,  0,  0, 15,  0,  0,  0,  8,  0,  0,  15 }

$CE = @P64  ;
$V0E   = @X118 ; /* 127-14 +5 */
$V16   = @X110 ;
$V19   = @X107 ;
$V1B   = @X105 ;
$V1C   = @X104 ;
$V1F   = @X101 ;
$V21   = @X99 ;
$V22   = @X98 ;
$V23   = @X97 ;
$V25   = @X95 ;
$V28   = @X92 ;
$V29   = @X91 ;
$V2B   = @X89 ;

$LE = @P1   ; /* use $Vxx_F */
$RI = @P127 ;
$V23_F = @X89  ; /* 127-35 +5 -8 */
$V26_F = @X86  ;
$V29_F = @X83  ;


/* --SSG-- */

#WAV13 0,80 F2 F7 F9 FA FA F9 F8 F7 F6 F5 F4 F3 F2 F1 F0 EF EE EC EB EA E9 E8 E7 E6 E5 E4 E4 E3 E1 E0 E0 DF DE DD DD DC DB DB DA D9 D8 D8 D7 D6 D6 D5 D5 D4 D3 D3 D2 D1 D1 D0 D0 CF CF CE CE CD CD CC CB CB CA CA C9 C9 C9 C8 C8 C7 C7 C6 C6 C5 C5 C4 C4 C4 C3 C3 C2 C2 C1 C1 C1 C0 C0 C0 BF BF BE BE BE BD BD BC BC A3 0D 09 06 05 05 05 06 07 08 0A 0B 0C 0D 0E 0F 10 11 12 14 15 16 17 18 19 1A 1A 1B 1C 1D 1E 1F 20 21 21 22 23 23 24 25 25 26 27 28 29 29 2A 2A 2B 2B 2C 2D 2D 2E 2F 2F 30 30 31 31 32 32 33 33 34 35 35 35 36 36 37 37 38 38 38 39 3A 3A 3A 3B 3B 3C 3C 3C 3D 3D 3E 3E 3F 3F 3F 40 40 40 41 41 42 42 43 43 43

$Ex0 = @E1,0,0,127,0 ;


/* FM_a ===================================================================== */

$Fa0   = q16 @Q0 ;
$Fa01  = @14-1 $CE $V19 l8 o3 /:2 /:4 cg / <c2.> :/ b2. :/ ;
$Fa09a = @14-2 $LE $V26_F l16 ;
$Fa09b = o5 /:4 rrcr r>b-r<c rcrc cr>b-&<c :/ ;
$Fa13  = @Q1 $CE $V1B o4 /:2 g8.g8.f4f8f16f+8. :/ ;
$Fa21  = @14-3 $CE $V16 l4 o4 /:2 g.gg8b-8a-8 :/ g.c.e-8f8 g8.a-8.b-8f16&g16f. ;
$Fa25  = /:2 g.gg8b-8a-8 :/ a-.a-a-8b-8<c8 c2d2 ;
$Fa29  = c1&c1 ;
$Fa31  = @Q0 @14-2 $LE $V26_F l16 o5 /:2 rrcr r>b-r<c rcrc cr>b-&<c :/ ;

$ALL1 $ALL2 $NS $FMa $DT0
$Fa0 $Fa01 $Fa09a /:$LOOP $Fa09b $Fa13 $Fa09a $Fa09b $Fa13 $Fa21 $Fa25 $Fa29 $Fa31 :/
;


/* FM_b ===================================================================== */

$Fb0   = q16 @Q0 ;
$Fb01  = @14-1 $CE $V19 l4 o4 /:2 re-2. rd2. rc+2. rc2. :/ ;
$Fb09a = @14-4 $V0E ;
$Fb09b = l16 o3 /:4 c8.>b-<cc8>b-< / c8.>b-<ccrr :/ cg&b-<c e-&c>b-&g ;
$Fb13  = /:2 c8.c8.>b-4b-8b-16b8.< :/ ;
$Fb21  = l8 cccccccc >b-b-b-b-b-b-b-b- aaaaaaaa a-a-a-a-b-b-b-b- ;
$Fb25  = <cccccccc >b-b-b-b-b-b-b-b- ffffffff gggggggg ;
$Fb29  = l16 o3 /:2 c8.>b-<cc8>b-< c8.>b-<ccrr :/ ;

$ALL1 $ALL2 $NS $FMb $DT0
$Fb0 $Fb01 $Fb09a /:$LOOP $Fb09b $Fb13 $Fb09b $Fb13 $Fb21 $Fb25 $Fb29 $Fb29 :/
;


/* FM_c ===================================================================== */

$Fc0   = q16 @Q0 ;
$Fc01  = @14-1 $CE $V19 l4 o4 /:2 rg2. rf+2. rf2. re2. :/ ;
$Fc09a = @14-5 @L1800,384,2-1,0,1,0 ns0 ; /* reset ns (drums isnot tone part) */
$Fc09b = l4 o4 $V2B g<e- $V28 >g<e- $V25 >g<e- $V22 >g<e- $V1F >g<e- $V1C >g<e- $V19 >g<e- $V16 >g<e- ;
$Fc13  = l16 o4 $V16 /:2 g8<e->g8<e->g8 / <aag-g-e-e-cc> :/ l24 g<aag-g-g-e-e-e-ccc ;
$Fc15  = l4 o4 $V19 /:7 g<e-> :/ g<e-8e-16e-16 ;
$Fc21  = l16 o4 /:3 @14-5 g @14-6 ggg @14-5 <e-8 @14-6 >g @14-5 g g @14-6 g @14-5 g @14-6 g @14-5 <e-8 @14-6 >gg :/ ;
$Fc24  = @14-5 g @14-6 ggg @14-5 <e-8 @14-6 >g @14-5 g g @14-6 g @14-5 g @14-6 g @14-5 <e-8aa ;
$Fc28  = @14-5 g @14-6 ggg @14-5 <e-8 @14-6 >g @14-5 g <aag-g-e-8cc ;
$Fc29  = l4 o4 $V19 /:6 g<e-> :/ g l24 <aaag-g-g->g8g8<e-4 ;

$ALL1 $ALL2 $NS $FMc $DT0
$Fc0 $Fc01 $Fc09a $Fc09b /:$LOOP $Fc13 $Fc15 $Fc13 $Fc21 $Fc24 $Fc21 $Fc28 $Fc29 / $Fc15 :/
;


/* FM_d ===================================================================== */

$Fd0   = q16 @Q0 ;
$Fd01  = @14-1 $LE $V29_F l8 o3 r16 /:2 /:4 cg / <c2.> :/ / b2. :/  b2&b8. ;
$Fd09  = @Q0 @14-7 $CE $V23 o3 /:2 g1 e-2f2 :/ ;
$Fd13  = @Q2 @14-8 $RI $V23_F /:2 g8.g8.f4f8f16f+8. :/;
$Fd21  = @Q2 l16 $V26_F c2.. @Q6 $V23_F cc @Q2 $V26_F >b-2.. @Q6 $V23_F b-b- @Q2 $V26_F <c1 >a-2b-2 ;
$Fd25  = <c1 >b-2. @Q0 $V23_F >b-*<e%21&b-*g%26&g*d%25&d*>a%24& @Q2 $V26_F <a-1 f2g2 ;
$Fd29  = /:2 < /:4 @Q8 cc @Q2 c8 :/ > /:2 @Q8 a-a- @Q2 a-8 :/ /:2 @Q8 b-b- @Q2 b-8 :/ :/ ;

$ALL1 $ALL2 $NS $FMd
$Fd0 $DTFz $Fd01 $DT0 /:$LOOP $Fd09 $Fd13 $Fd09 $Fd13 $Fd21 $Fd25 $Fd29 :/
;


/* FM_e ===================================================================== */

$Fe0   = q16 @Q0 ;
$Fe01  = @14-1 $LE $V29_F l4 o4 r16 /:2 re-2. rd2. rc+2. r / c2. :/  c2&c8. ;
$Fe09  = @Q0 @14-7 $CE $V23 o3 /:2 e1 c2d2 :/ ;
$Fe13  = r%4 @Q2 @14-8 $LE $V23_F /:2 g8.g8.f4f8f16 / f+8. :/ f+%68 ;
$Fe19  = r%4 @Q2 @14-8 $LE $V23_F /:2 g8.g8.f4f8f16 f+8. :/ ;
$Fe21  = $Fd21 ;
$Fe25  = $Fd25 ;
$Fe29  = /:2 < /:4 @Q8 cc @Q2 c8 :/ > /:2 @Q8 a-a- @Q2 a-8 :/ @Q8 b-b- @Q2 b-8 @Q8 b-b- @Q2 / b-8 :/ b-%44 ;

$ALL1 $ALL2 $NS $FMe $DT0
$Fe0 $DTFz $Fe01 $DT0 /:$LOOP $Fe09 $Fe13 $Fe09 $Fe19 $Fe21 $Fe25 $Fe29 :/
;


/* FM_f ===================================================================== */

$Ff0   = q16 @Q0 ;
$Ff01  = @14-1 $LE $V29_F l4 o4 r16 /:2 rg2. rf+2. rf2. r / e2. :/  e2&e8. ;
$Ff09a = r%4 ;
$Ff09b = @14-2 $RI $V26_F l16 o5 /:4 rrcr r>b-r<c rcrc cr>b-&<c :/ ;
$Ff13  = r%48 @Q1 $CE $V29 o4 /:2 g8.g8.f4f8f16 / f+8. :/ f+16 ;
$Ff21  = r%48 @14-3 $CE $V21 l4 o4 /:2 g.gg8b-8a-8 :/ g.c.e-8f8 g8.a-8.b-8f16&g16f. ;
$Ff25  = $Fa25 ;
$Ff29  = c1&c%336 ;
$Ff31  = @Q0 @14-2 $RI $V26_F l16 o5 /:2 rrcr r>b-r<c rcrc cr>b-&<c :/ ;

$ALL1 $ALL2 $NS $FMf
$Ff0 $DTFz $Ff01 $Ff09a /:$LOOP $Ff09b $Ff13 $Ff09b $Ff13 $Ff21 $Ff25 $Ff29 $Ff31 :/
;


/* SSG_a ==================================================================== */

/* 127-(15-Level)x4 -6 +5 */
/* Vol n(ms) : B(26) 8(200) 7(372) 6(547) 5(721) 4(893) 3(1091) 2(1266) 1(1439) 0() */
$ExS1 = @E1,0,0,  110,3,110,0,  98,22,98,0,  94,22,94,0,  90,22,90,0,  86,22,86,0,  82,22,82,0,
  78,26,78,0,  74,22,74,0,  70,22,70,0,  0,0 ;
/* Vol n(ms) : 7(17) B(40) 7() */
$ExS2 = @E1,0,0,  94,2,94,0,  110,3,110,0,  94,0 ;
/* Vol n(ms) : C(24) 9(123) 8(248) 7(372) 6(473) 5() */
$ExS3 = @E1,0,0,  114,3,114,0,  102,13,102,0,  98,16,98,0,  94,15,94,0,  90,13,90,0,  86,0 ;
/* Vol n(ms) : A(24) 8(123) 7(718) 6(1288) 5() */
$ExS4 = @E1,0,0,  106,3,106,0,  98,13,98,0,  94,75,94,0,  90,73,90,0,  86,0 ;

$Sa0   = $Ex0 q16 @Q0 @13-0 ;
$Sa01  = o5 l4 $ExS1 /:2 rb-2. ra2. rg+2. rg2. :/ ;
$Sa09a = o5 $ExS2 @L11,15,-0,0,0,0 ;
$Sa09b = c1 >a-2b-2< c1 >a-2b-2< @L0,0 ;
$Sa13  = $ExS3 /:2 e-8.e-8.dd8d16e-8. :/ ;
$Sa21  = $ExS4 e-.e-8&e-2 d.d8&d2 e-.e-.c c2d2 ;
$Sa25  = e-.e-8&e-2 d.d8&d2 e-.e-8&e-2 a2b2 ;
$Sa29  = $Sa09a $Sa09b ;

$ALL1 $ALL2 $NS $SSGa $DT0
$Sa0 $Sa01 $Sa09a /:$LOOP $Sa09b $Sa13 $Sa09a $Sa09b $Sa13 $Sa21 $Sa25 $Sa29 :/
;


/* SSG_b ==================================================================== */

$ALL1 $ALL2 $NS $SSGa $DTSb
$Sa0 $Sa01 $Sa09a /:$LOOP $Sa09b $Sa13 $Sa09a $Sa09b $Sa13 $Sa21 $Sa25 $Sa29 :/
;


/* SSG_c ==================================================================== */

$Sc0   = ns0 $Ex0 q16 @Q0 @3@W-50 @N90 ;
$Sc01  = l16 o4 q3 /:32 @X103 b @X91 b @X95 b @X91 b :/ ; /* vol-=3 */
$Sc09  = o6 q16 /:16 @X107a%4&@X95e-%4r%16 @X104a%4&@X91e-%4r%16 @X99a%4&@X91e-%4r%16 @X95a%4&@X87e-%4r%16 :/ ; /* vol-=3 */
$Sc13  = $NS o5 @13-0 @X127 $ExS3 /:2 c8.c8.>b-4b-8b-16b8.< :/ ;
$Sc15a = ns0 $Ex0 @3@W-50 ;
$Sc21  = l4 $ExS4 c.c8&c2 >b-.b-8&b-2 <c.c.>g a-2b-2 ;
$Sc25  = <c.c8&c2 >b-.b-8&b-2 <c.c8&c2 f2g2 ;

$ALL1 $ALL2 $SSGc $DT0
$Sc0 $Sc01 /:$LOOP $Sc09 $Sc13 $Sc15a $Sc09 $Sc13 $Sc21 $Sc25 $Sc15a $Sc09 :/
;