/*
   [FC] KING'S KNIGHT - Field - (C)SQUARE 1986 by LinearDrive
   date:2011-05-20
*/


#OCTAVE REVERSE
#VELOCITY REVERSE


/* ＦＣ三角波定義 */
/*       |---.---l---.---|---.---l---.--- */
#WAV10 0,89ABCDEFFEDCBA987654321001234567


/* エンベロープ定義 */
$EF= @e1, 0,112, 0, 0;
$EE= @e1, 0,108, 0, 0;
$ED= @e1, 0,104, 0, 0;
$EC= @e1, 0,100, 0, 0;
$EB= @e1, 0, 96, 0, 0;
$EA= @e1, 0, 90, 0, 0;
$E9= @e1, 0, 84, 0, 0;
$E8= @e1, 0, 76, 0, 0;
$E7= @e1, 0, 68, 0, 0;
$E6= @e1, 0, 60, 0, 0;
$E5= @e1, 0, 51, 0, 0;
$E4= @e1, 0, 43, 0, 0;
$E3= @e1, 0, 34, 0, 0;
$E2= @e1, 0, 26, 0, 0;
$E1= @e1, 0, 17, 0, 0;
$E0= @e1, 0,  9, 0, 0;


/* 音量スケール定義 */
$VS15= @v90;
$VT=   @v127;


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


/* RP2A03 SQUARE-A */
$MAI=
   $M l12 @5@w1 o5 $VS15
;
$MA1=
   $E6
   /:2
     f4 err f4 err drd ede f4 err
     f4 err drd ede g4 f+rr g4 f+rr
     ere f+ef+ g4 f+rr g4 f+rr ere f+ef+
   :/
;
$MA2=
   $EC a4 ag+f+ g+4 e4 $E3 l24 <brbbbr br>erf+r l12 $EC b2
   $EC g4 gf+e f+4 d4  $E3 l24 <araaar ar>drer  l12 $EC a2
   $EC a4 ag+f+ g+4 e4 $E3 l24 <brbbbr br>erf+r l12 $EC b2
   a+4 a+ag a4 f4 >c4 c<ba b2
   r1 r1
   $EF
   /:2
     c2. cde f4 e4 d4 c4
     e1<a+1>
     c2. cdd+ f4 d+4 d4 c4
     c2. cdc <b1>
   :/
   /:2
     e2.efe g2.f6e
     c1 c2.cdc
     d+2.d6c f2.d+6c
     g2.>c<g>c< b1
   :/
   /:4 r1 r1 :/
   $EC a4 ag+f+ g+4 e4 $E3 l24 <brbbbr br>erf+r l12 $EC b2
   $EC g4 gf+e f+4 d4  $E3 l24 <araaar ar>drer  l12 $EC a2
   $EC a4 ag+f+ g+4 e4 $E3 l24 <brbbbr br>erf+r l12 $EC b2
   a+4 a+ag a4 f4 >c4 c<ba b2
   /:2
     c2. cde f4 e4 d4 c4
     e1<a+1>
     c2. cdd+ f4 d+4 d4 c4
     c2. cdc <b1>
   :/
   /:2
     e2.efe g2.f6e
     c1 c2.cdc
     d+2.d6c f2.d+6c
     g2.>c<g>c< b1
   :/
   /:4 r1 r1 :/
;


/* RP2A03 SQUARE-B */
$MBI=
   $M l12 @5@w6 o5 $VS15
;
$MB1=
   $E8
   /:2
     c4 crr c4 crr ccc ccc c4 crr
     c4 crr ccc ccc d4 drr d4 drr
     ddd ddd d4 drr d4 drr ddd ddd
   :/
   <
;
$MB2=
       b6b6b6 b6b6b6 $EF b1
   $E6 a6a6a6 a6a6a6 $EF a1
   $E6 b6b6b6 b6b6b6 $EF b1
   >
   $E6 c6c6c6 c6c6c6 d6d6d6 d6d6d6
   r1 r1
   <
   /:2
     $EF e2. $E9 efg a4 g4 f4 e4
     a+6a+6a+6 a+a+a+a+a+a+ $EF f6f6f6 $EA ffffff
     d+2.d+fg g+4 g4 f4 d+4
     $E8 d6d6d6 dddddd g6g6g6 gggggg
   :/
   >
   /:2
     $EA c4< b4 a4 g4 e4 f4 g4 a4
     a+6a+6a+6 a+6>c6g6 $E2 >cc24c24c ccc cc24c24c ccc<
     $EA c4<a+4 g+4 g4 f4 g4 g+4 a+4>
     $E8 d6d6d6 dddddd g4 f4 e4 d4
   :/
   < $EA
   cfg >c<gf cfg >c<gf cfg cfg cfg cfg
   <a+>d+f a+fd+ <a+>d+f a+fd+ <a+>d+f <a+>d+f <a+>d+f <a+>d+f
   cfg >c<gf cfg >c<gf cfg cfg cfg cfg
   c+f+g+ >c+<g+f+ c+f+g+ >c+<g+f+ dga >d<ag dga >d<ag

       b6b6b6 b6b6b6 $EF b1
   $E6 a6a6a6 a6a6a6 $EF a1
   $E6 b6b6b6 b6b6b6 $EF b1
   >
   $E6 c6c6c6 c6c6c6 d6d6d6 d6d6d6
   <
   /:2
     $EF e2. $E9 efg a4 g4 f4 e4
     a+6a+6a+6 a+a+a+a+a+a+ $EF f6f6f6 $EA ffffff
     d+2.d+fg g+4 g4 f4 d+4
     $E8 d6d6d6 dddddd g6g6g6 gggggg
   :/
   >
   /:2
     $EA c4< b4 a4 g4 e4 f4 g4 a4
     a+6a+6a+6 a+6>c6g6 $E2 >cc24c24c ccc cc24c24c ccc<
     $EA c4<a+4 g+4 g4 f4 g4 g+4 a+4>
     $E8 d6d6d6 dddddd g4 f4 e4 d4
   :/
   < $EA
   cfg >c<gf cfg >c<gf cfg cfg cfg cfg
   <a+>d+f a+fd+ <a+>d+f a+fd+ <a+>d+f <a+>d+f <a+>d+f <a+>d+f
   cfg >c<gf cfg >c<gf cfg cfg cfg cfg
   c+f+g+ >c+<g+f+ c+f+g+ >c+<g+f+ dga >d<ag dga >d<ag
;


/* RP2A03 TRIANGLE */
$MCI=
   $M l12 @10-0 o4 $VT @e1,0,0,127,0 q10
;
$MC1=
   /:2
     crc fg>c< crc fg>c<  crc fg>c< crc fg>c<
     crc fg>c< crc fg>c<  drd ga>d< drd ga>d<
     drd ga>d< drd ga>d<  drd ga>d< drd ga>d<
   :/
;
$MC2=
   ere eee >eee ere<  ere eee >eee eee<
   drd ddd >ddd drd<  drd ddd >ddd ddd<
   ere eee >eee ere<  ere eee >eee eee<
   frf a+>cf< frf a+>cf<  frf >cdg< frf >cdg<

   crc fg>c< crc fg>c<  crc fg>c< crc fg>c<

   /:4
     crc fg>c< crc fg>c<  crc fg>c< crc fg>c<
     <a+ra+> d+fa+ <a+ra+> d+fa+  <a+ra+> d+fa+ <a+ra+> d+fa+
     <g+rg+> c+d+g+ <g+rg+> c+d+g+  <g+rg+> c+d+g+ <g+rg+> c+d+g+
     <grg> cdg <grg> cdg  <grg> cdg <grg> cdg
   :/

   crc fg>c< crc fg>c<  crc fg>c< crc fg>c<
   <a+ra+> d+fa+ <a+ra+> d+fa+  <a+ra+> d+fa+ <a+ra+> d+fa+
   crc fg>c< crc fg>c<  crc fg>c< crc fg>c<
   c+rc+ f+g+>c+< c+rc+ f+g+>c+<  drd ga>d< drd ga>d<

   ere eee >eee ere<  ere eee >eee eee<
   drd ddd >ddd drd<  drd ddd >ddd ddd<
   ere eee >eee ere<  ere eee >eee eee<
   frf a+>cf< frf a+>cf<  frf >cdg< frf >cdg<

   /:4
     crc fg>c< crc fg>c<  crc fg>c< crc fg>c<
     <a+ra+> d+fa+ <a+ra+> d+fa+  <a+ra+> d+fa+ <a+ra+> d+fa+
     <g+rg+> c+d+g+ <g+rg+> c+d+g+  <g+rg+> c+d+g+ <g+rg+> c+d+g+
     <grg> cdg <grg> cdg  <grg> cdg <grg> cdg
   :/

   crc fg>c< crc fg>c<  crc fg>c< crc fg>c<
   <a+ra+> d+fa+ <a+ra+> d+fa+  <a+ra+> d+fa+ <a+ra+> d+fa+
   crc fg>c< crc fg>c<  crc fg>c< crc fg>c<
   c+rc+ f+g+>c+< c+rc+ f+g+>c+<  drd ga>d< drd ga>d<
;


/* 再生 */
$LOOP=16;
t150
$MAI $MA1 /:$LOOP $MA2 :/;
$MBI $MB1 /:$LOOP $MB2 :/;
$MCI $MC1 /:$LOOP $MC2 :/;


/* EOF */