#TITLE プリンセスメーカー2 (OPN) / プロフィール決定
#ARTIST Masahiro Kajihara (KAJA)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：- / MML coded: 2015/04/14 rev.0 / D Major


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

/* All part 1 */  $ALL1  = t105.70 ; /* (64time/36.330sec)*60sec %1=5.913ms */
/* All part 2 */  $ALL2  = x2      ; /* 96dB dynamic range */
/* Note shift */  $NS    = ns0     ; /* expect rhythm part */
/*     Repeat */  $LOOP  = 32      ;

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

/* Detune default */  $DT0  = @D8 ;
/* Detune FM_down */  $DTFd = @D0 ;


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

/* --FM-- */

#OPN@1 { /* a01 - bass1 */
  2,  7,
 28,  8,  4,  4,  1, 40,  2,  1,  7,  0,
 28,  0,  0,  4,  0, 50,  2, 12,  3,  0,
 28,  0,  0,  4,  0, 40,  2,  3,  7,  0,
 26,  8,  4,  6,  1,  0,  2,  1,  3,  0,  15 }

#OPN@2 { /* a09 - bass2 */
  3,  7,
 27, 14,  0,  7,  3, 34,  0,  8,  7,  0,
 31,  8,  0,  7,  6, 54,  0,  0,  3,  0,
 31, 20,  0,  7,  6, 15,  0,  0,  7,  0,
 31,  6,  0,  8, 14,  0,  0,  1,  0,  0,  15 }

#OPN@3 { /* b01 - melo1 */
  4,  0,
 28, 12,  0,  3,  4, 40,  1, 15,  3,  0,
 26,  8,  4,  7,  3,  0,  1,  1,  3,  0,
 28, 12,  0,  3,  4, 40,  1, 15,  7,  0,
 26,  8,  4,  7,  3,  0,  1,  1,  7,  0,  15 }

#OPN@4 { /* b08 - melo2 */
  4,  7,
 31,  0,  0,  4,  0, 27,  0,  2,  7,  0,
 18,  0,  0,  7,  0,  0,  0,  2,  7,  0,
 31,  0,  0,  4,  0, 25,  0,  1,  3,  0,
 18,  0,  0,  7,  0,  0,  0,  1,  3,  0,  15 }

#OPN@5 { /* c01 - delay melo1(2op) */
  6,  0,
 28, 12,  0,  3,  4, 40,  1, 15,  3,  0,
 26,  8,  4,  7,  3,  0,  1,  1,  3,  0,
  0,  0,  0,  0,  0,127,  0,  0,  0,  0,
  0,  0,  0,  0,  0,127,  0,  0,  0,  0,  15 }

#OPN@6 { /* c08 - delay melo2(2op) */
  6,  7,
 31,  0,  0,  4,  0, 27,  0,  2,  7,  0,
 18,  0,  0,  7,  0,  0,  0,  2,  7,  0,
  0,  0,  0,  0,  0,127,  0,  0,  0,  0,
  0,  0,  0,  0,  0,127,  0,  0,  0,  0,  15 }

#OPN@7 { /* c01 - sine wave(1op) */
  6,  0,
  0,  0,  0,  0,  0,127,  0,  0,  0,  0,
  0,  0,  0,  0,  0,127,  0,  0,  0,  0,
 26,  8,  4,  6,  1,  0,  2,  1,  3,  0,
  0,  0,  0,  0,  0,127,  0,  0,  0,  0,  15 }

$V10   = @X116 ; /* 127-16 +5 */
$V12   = @X114 ;
$V15   = @X111 ;
$V17   = @X109 ;
$V18   = @X108 ;
$V19   = @X107 ;
$V1C   = @X104 ;
$V1D   = @X103 ;
$V1F   = @X101 ;
$V20   = @X100 ;
$V21   = @X99 ;
$V24   = @X96 ;
$V25   = @X95 ;
$V27   = @X93 ;
$V28   = @X92 ;

/* --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 ;
$Lx0 = @L0,0 ;


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

$LFa1 = @L30,33,0,48,99,0;
$MFa{a} = $V12 %a $V19 %a ;
$MFa2{a} = $V12 %a $V19 %a $V12 %a $V19 %a  ;

$Fa0  = q16 @Q0 $LFa1 ;
$Fa01 = @14-1 $V10 l4 o3 d1 >g1 e2gb a2<c+e ;
$Fa05 = d1 >g1 <dc+>b<c+ d2. @14-2 $Lx0 l8 o4 $MFa{d} ;
$Fa09 = $MFa2{g} $MFa2{g} $MFa2{f+} $MFa2{f+} ;
$Fa11 = $MFa2{e} $MFa{g} $MFa{b} $MFa2{a} $MFa2{d} ;
$Fa15 = $MFa2{e} $MFa2{a} $MFa2{d} $V12 $LFa1 d2 ;

$ALL1 $ALL2 $NS $FMa $DT0
$Fa0 /:$LOOP $Fa01 $Fa05 $Fa09 $Fa11 $Fa09 $Fa15 :/
$Lx0 r%1
; 


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

$LFb1 = @L30,33,0,48,99,0 ;

$Fb0  = q16 @Q0 $LFb1 ;
$Fb01 = @14-3 $V17 l8 o6 /:2 agf+ed4.e f+4.f+edc+d / e1& e1 :/ ;
$Fb07 = d1& d2 $Lx0 r8 @14-4 $V19 $LFb1 o5 df+a ;
$Fb08 = /:2 b4.f+e4f+g a4.ed4ef+ / g4.f+ebag a2& $Lx0 $V21 a $V19 $LFb1 df+a :/ ;
$Fb14 = g4.f+e4dc+ d2&d& $V1D d& $V21 d& $V25 d ;

$ALL1 $ALL2 $NS $FMb $DT0
$Fb0 /:$LOOP $Fb01 $Fb07 $Fb08 $Fb14 :/
$Lx0 r%1
;


/* FM_c (2op) =============================================================== */

$LFc1 = @L30,33,0,48,99,0 ;

$Fc0  = q16 @Q0 $LFc1 r4 ;
$Fc01 = @14-5 $V1F l8 o6 /:2 agf+ed4.e f+4.f+ed / c+d e1& e1 :/ ;
$Fc07 = c+d d1& d2 $Lx0 @14-6 $V1C $LFc1 o5 df ;
$Fc08 = +a /:2 b4.f+e4f+g a4.ed4e / f+ g4.f+ebag a2& $Lx0 $V24 a $V1C $LFc1 df+a :/ ;
$Fc14 = f+ g4.f+e4dc+ d2&d& $V20 d& $V24 d& $V27 d $Lx0 r ;

$ALL1 $ALL2 $NS $FMc $DTFd
$Fc0 /:$LOOP $Fc01 $Fc07 $Fc08 $Fc14 :/
;


/* FM_d (1op) =============================================================== */

$LFd1 = @L30,33,0,48,99,0 ;
$MFd{a} = $V15 %a $V1C %a ;
$MFd2{a} = $V15 %a $V1C %a $V15 %a $V1C %a  ;

$Fd0  = q16 @Q0 @14-7 $LFd1 ;
$Fd01 = $V15 l1 o5 ab b<c+ >ab a&a8a8<d8f+8a2 ;
$Fd09 = $Lx0 l8 o5 $MFd2{b} $MFd2{b} < $MFd2{c+} $MFd2{c+} ;
$Fd11 = $MFd2{d} $MFd2{d} $MFd2{e} $MFd{f+} $MFd{d} ;
$Fd15 = $MFd2{e} $MFd2{e} $MFd2{f+} $V15 $LFd1 f+2 ;

$ALL1 $ALL2 $NS $FMd $DT0
$Fd0 /:$LOOP $Fd01 $Fd09 $Fd11 $Fd09 $Fd15 :/
;


/* FM_e (1op) =============================================================== */

$LFe1 = @L30,33,0,48,99,0 ;
$MFe{a} = $V18 %a $V20 %a ;
$MFe2{a} = $V18 %a $V20 %a $V18 %a $V20 %a  ;

$Fe0  = q16 @Q0 @14-7 $LFe1 ;
$Fe01 = $V15 l1 o6 dd ee dd d&d8d8f+8a8<d2 ;
$Fe09 = $Lx0 l8 o6 $MFe2{d} $MFe2{d} $MFe2{f+} $MFe2{f+} ;
$Fe11 = $MFe2{g} $MFe2{g} $MFe2{a} $MFe{a} $MFe{f+} ;
$Fe15 = $MFe2{g} $MFe2{a} $MFe2{a} $V15 $LFe1 a2 ;

$ALL1 $ALL2 $NS $FMe $DT0
$Fe0 /:$LOOP $Fe01 $Fe09 $Fe11 $Fe09 $Fe15 :/
;


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

/* 127-(15-Level)x4 -6 +5 */
/* Vol n(ms) : B(24) 9(214) 8(403) 7(592) 6(782) 5(970) 4(1159) 3(1349) 2(1538) 1(1728) 0() */
$ExS1 = @E1,0,0,  110,3,110,0,  102,24,102,0,  98,24,98,0,  94,24,94,0,  90,24,90,0,
  86,24,86,0,  82,24,82,0,  78,24,78,0,  74,24,74,0,  70,24,70,0,  0,0 ;
/* Vol n(ms) : B(24) 9(214) 8(261) 7()  */
$ExS2 = @E1,0,0,  110,3,110,0,  102,24,102,0,  98,6,98,0,  94,0 ;

$LSa1 = @L20,33,0,48,99,0 ;
$MSa{a} = @X127 %a @X119 %a ;
$MSa2{a} = @X127 %a @X119 %a @X127 %a @X119 %a  ;

$Sa0  = q16 @Q0 @13-0 @X127 $ExS1 $LSa1 ;
$Sa01 = l1 o6 dd ee dd d&d8d8f+8a8<d2 ;
$Sa09 = $Lx0 l8 o7 $MSa2{d} $MSa2{d} $MSa2{f+} $MSa2{f+} ;
$Sa11 = $MSa2{g} $MSa2{g} $MSa2{a} $MSa{a} $MSa{f+} ;
$Sa15 = $MSa2{g} $MSa2{a} $MSa2{a} $LSa1 $ExS1 @X127 a2 ;

$ALL1 $ALL2 $NS $SSGa $DT0
$Sa0 /:$LOOP $Sa01 $Sa09 $Sa11 $Sa09 $Sa15 :/
;


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

$Sb0  = q16 @Q0 @13-0 @X127 $ExS1 $LSa1 ;
$Sb01 = l1 o5 ab b<c+ >ab a&a8a8<d8f+8a2 ;
$Sb09 = $Lx0 l8 o6 $MSa2{b} $MSa2{b} < $MSa2{c+} $MSa2{c+} ;
$Sb11 = $MSa2{d} $MSa2{d} $MSa2{e} $MSa{f+} $MSa{d} ;
$Sb15 = $MSa2{e} $MSa2{e} $MSa2{f+} $LSa1 $ExS1 @X127 f+2 ;

$ALL1 $ALL2 $NS $SSGb $DT0
$Sb0 /:$LOOP $Sb01 $Sb09 $Sb11 $Sb09 $Sb15 :/
;


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

$Sc0  = q16 @Q0 @13-0 @X127 $ExS1 $LSa1 ;
$Sc01 = l1 o5 f+g ga f+g f+&f+8f+8a8<d8f+2 ;
$Sc09 = $Lx0 l8 o6 $MSa2{g} $MSa2{g} $MSa2{a} $MSa2{a} ;
$Sc11 = $MSa2{b} $MSa2{b} < $MSa2{c+} $MSa{d} > $MSa{a} ;
$Sc15 = $MSa2{b} < $MSa2{c+} $MSa2{d} $LSa1 $ExS1 @X127 d2 ;

$ALL1 $ALL2 $NS $SSGc $DT0
$Sc0 /:$LOOP $Sc01 $Sc09 $Sc11 $Sc09 $Sc15 :/
;