/**************************************************************************
 [PC88] SORCERIAN - オープニング - (C)Falcom 1987 by LinearDrive
 JASRAC:045-4683-1
 Original MML by LinearDrive.  2010/09/26(Sun)
 Modified by Yumi.  2010/09/26(Sun)（WAV13を使用したＦＭ音色定義）
 Modified by LinearDrive.  2010/09/29(Wed)（ＦＭ音色パラメータ微調整）
 Modified by LinearDrive.  2010/09/30(Thu)（ＦＭ音色パラメータ微調整）
 Modified by LinearDrive.  2010/10/12(Tue)（WAV13定義内容更新、テンポ修正）
***************************************************************************/

#OCTAVE REVERSE

$POFF = @o0,0 @o0,1 @o0,2 @o0,3 @i0,0 @i0,1 @i0,2 @i0,3;

/* FM音色定義(エレピ) */
$FM00 = x1 $POFF @o1,0 @13-0 @e1,0,0,127,99999      @v118 @d-3;
$FM01 = x1 $POFF @i4,0 @0    @e1,2,15,103,512,0,288 @v119 @d-3;
$FM02 = x1 $POFF @o1,1 @0    @e1,0,0,127,99999      @v119 @d3;
$FM03 = x1 $POFF @i4,1 @0    @e1,0,15,103,512,0,288 @v119 @d3;


$A1=  l16
      t100 o5 r8 d8g8a8b2&b8g8a8b8>c8<b8a8b4&b8>
      f+4e4&e8<b4&b8>f+4e4&e8<b4b8a8b8g2e6&e48f+6&f+48g8r64
      g2f+2 t94 g2 t57 a2 
      t100 r2
      a64b16..a8g4>c4<b8a4g4b2&b8 a64b16..a8g4a4g8g4d+4
      d32d+32d2&dr64>d16..e8e8f8f4<b8>e4d4e2&e8<a8b8>c8d8d4f+8a4c4<
      b2&b8b2b2b8e8g+8b8b4&b8a4&a8e4b8a8g8a4b8>c4<b4&b8a2&a8b8
      a8g8a4b8>c8d1d2&d8
      t96 g8f+8e8f+8g1r32 g1
;

$B1= l16
     r2 o3 g8>d8a2&a4<b8>e8b8a2&a8>b4&b8e4&e8b4b4&b8
     g4g8f+8g8e2<b6&b48b6&b48b8r64>e2d2e2f+2r2>d2d+1r2d2d+4&d+8f4
     c4<b2&b8b2b4&b8b2>c2<<b2&b8r4r8>>f+4<a4g2&g8a2a2g+2
     e4&e8e2&e8 e4&e8e2&e8
     g4&g8f2&f8g4&g8f2a1a2&a8r2>d1r64d1
;

$C1= l16
     r2 r16r64r32. o3 g8>d8b2&b8>e4&e8d+2&d+8<<e8b8>f+8
     g2&g8<d8b8>f+8g2&g8<c+8b8>c+8e2&e8<d2d2d2d2&d64g8>d8a8b2&b8
     <g8>d+8g8>c2&c8<<g8>d8a8b2&b8<g8>d+8g8>c2&c8<<g8>d8a8b2&b8e8
     b8>e8g+2&g+8<<a8>e8a2&a4<d8a8>d8f+2&f+8<g8>d8g8b8<f8>c8f8a8
     <e8b8>d8f+8g+2 <a8>e8g8a2&a8 <a8>e8g8a2&a8 <f8>c8f8a2&a8 <f8>c8f8a2&a8 <d8a8>c8d4a8>c8d1&d8 
     t90 <<g8>c8d8g8 t87 a8>c8 t84 d8 t77 e8 t66 g1
;

$Ev1=@E1,0,2,127,2,103,544,0,288;
$Ev2=@E1,0,2,127,2,103,288;
$Ev3=@E1,0,2,127,2,103,640,0,288;
$D1= x1 q16@q0 @3 ns0 @d12 v11 l16 o5
     r2
     $Ev1 g2&g8g8d8g8a4&a8b4&b8a4g4&g8g4&g8e8f+8g4&g8g4&g8f+8g8
     >b12g12e12g12e12c+12<<g6&g48g6&g48g8a2a2a2  $Ev3  a2&a64
     $Ev2 g1>c4&c8d+4f4g1&g8>c4&c8d+4<g4
     $Ev1 g1&g8g+4&g+8g+2b1&b8a4&a8a4  (f+4d2&d8c2e1) 
     c4&c8c2&c8 c4&c8c2&c8 c4&c8c2&c8 c4&c8c2g1f+2&f+8r2>c1<b1
;

$E1= x1 q16@q0 @3 ns0 @d0 v11 l16 o5
     r2
     $Ev1 g2&g8g8d8g8a4&a8b4&b8a4g4&g8g4&g8e8f+8g4&g8g4&g8f+8g8
     ))r12>b12g12e12g12e12((<<g6&g48g6&g48g8a2a2a2  $Ev3  a2&a64
     $Ev2 g1>c4&c8d+4f4g1&g8>c4&c8d+4<g4 
     $Ev1 g1&g8g+4&g+8g+2b1&b8a4&a8a4  (f+4d2&d8c2e1)
     c4&c8c2&c8 c4&c8c2&c8 c4&c8c2&c8 c4&c8c2g1f+2&f+8r2>c1<b1
;

$F1= x1 q16@q0 @3 ns0 @d0 v11 l16 o4
     r2
     $Ev1 b2&b8b8b8b8b4&b8b4&b8b4>e4&e8e2&e8e4&e8e2&e8
     >b12g12e12g12e12c+12<b12g12e12g12e12c+12d2d2d2  $Ev3 d2&d64
;


/* 演奏(FM) */
$FM00 $A1;
$FM01 $A1;
$FM02 $A1;
$FM03 $A1;

$FM00 $B1;
$FM01 $B1;
$FM02 $B1;
$FM03 $B1;

$FM00 $C1;
$FM01 $C1;
$FM02 $C1;
$FM03 $C1;

/* 演奏(SSG) */
$D1;
$E1;
$F1;



/*
   波形メモリ定義（フィードバック変調済み正弦波）
   【生成式】 y = [TL]sin( rd + [FB][2*pi]last_y )
   【パラメータ】 TL:OPN-TotalLevel, rd:ラジアン, FB:OPN-FB変調率, pi:円周率, last_y:前回のy.
   【生成情報】 １周期分８８０サンプル生成。 TL=21(0.1631..倍), FB=5(0.5倍).
*/
#WAV13 0,8082848687898B8D8F91929496989A9C9D9FA1A3A4A6A8A9ABADAEB0B2B3B5B6B8B9BBBCBEBFC1C2C4C5C6C8C9CACCCDCECFD0D2D3D4D5D6D7D8D9DADBDCDDDEDFE0E1E2E3E4E4E5E6E7E8E8E9EAEBEBECEDEDEEEFEFF0F0F1F1F2F2F3F3F4F4F5F5F6F6F7F7F7F8F8F9F9F9FAFAFAFBFBFBFBFCFCFCFCFDFDFDFDFDFEFEFEFEFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFEFEFEFEFDFDFDFDFDFDFCFCFCFCFCFBFBFBFBFBFAFAFAFAF9F9F9F9F8F8F8F8F7F7F7F7F6F6F6F5F5F5F4F4F4F4F3F3F3F2F2F2F1F1F1F0F0EFEFEFEEEEEEEDEDEDECECEBEBEBEAEAE9E9E9E8E8E7E7E7E6E6E5E5E5E4E4E3E3E2E2E1E1E1E0E0DFDFDEDEDDDDDCDCDCDBDBDADAD9D9D8D8D7D7D6D6D5D5D4D4D3D3D2D2D1D1D0D0CFCFCECECDCDCCCCCBCBCACAC9C9C8C8C7C6C6C5C5C4C4C3C3C2C2C1C1C0BFBFBEBEBDBDBCBCBBBABAB9B9B8B8B7B7B6B5B5B4B4B3B3B2B1B1B0B0AFAFAEADADACACABABAAA9A9A8A8A7A7A6A5A5A4A4A3A2A2A1A1A09F9F9E9E9D9D9C9B9B9A9A999898979796959594949392929191908F8F8E8E8D8C8C8B8B8A89898888878686858584838382828180807F7F7E7D7D7C7C7B7A7A79797877777676757474737372717170706F6E6E6D6D6C6B6B6A6A69686867676665656464636262616160605F5E5E5D5D5C5B5B5A5A59595857575656555454535352525150504F4F4E4E4D4C4C4B4B4A4A4949484747464645454443434242414140403F3F3E3D3D3C3C3B3B3A3A393938383737363635343433333232313130302F2F2E2E2D2D2C2C2B2B2A2A292928282727272626252524242323222221212120201F1F1E1E1D1D1D1C1C1B1B1A1A1A19191818181717161616151514141413131312121111111010100F0F0F0E0E0E0D0D0D0C0C0C0B0B0B0B0A0A0A090909090808080807070707060606060505050505040404040403030303030302020202020202020101010101010101010101010101010101010101010101010101010101010101010101020202020202020303030303040404040505050506060607070708080809090A0A0A0B0B0C0C0D0D0E0E0F0F1010111212131414151616171818191A1B1C1C1D1E1F202122232425262728292A2B2C2D2E2F30323334353638393A3C3D3E404143444647484A4C4D4F5052535557585A5C5D5F61636466686A6C6D6F71737577787A7C7E

/*EOF*/