/*
   [FC] CHALLENGER [SCENE 4 CLEAR : CONGRATULATIONS!] (C)HUDSON SOFT 1985
   FlMML MML by LinearDrive
   date:2011-06-20 [FlMML c.s.7997]
   JASRAC: 050-5463-0
*/


#OCTAVE REVERSE
#VELOCITY REVERSE


/* エンベロープ定義 */
$EF= @e1, 0,112, 0, 0;
$EE= @e1, 0,108, 0, 0;
$ED= @e1, 0,103, 0, 0;
$EC= @e1, 0, 98, 0, 0;
$EB= @e1, 0, 92, 0, 0;
$EA= @e1, 0, 86, 0, 0;
$E9= @e1, 0, 80, 0, 0;
$E8= @e1, 0, 73, 0, 0;
$E7= @e1, 0, 66, 0, 0;
$E6= @e1, 0, 59, 0, 0;
$E5= @e1, 0, 51, 0, 0;
$E4= @e1, 0, 43, 0, 0;
$E3= @e1, 0, 35, 0, 0;
$E2= @e1, 0, 27, 0, 0;
$E1= @e1, 0, 18, 0, 0;
$E0= @e1, 0,  9, 0, 0;


/* 音量バランス定義 */
$VS15= @v63;
$VT=   @v124;


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


/* RP2A03 SQUARE-A */
$MA0=
   $M l12 @5@w1 o5 $VS15
   $E6
;
$MA1= 
   g+ag+ e&ec+ rr<a&a&a>c+
   aba f+&f+d rr<b> d+&d+&d+
   c+&c+e g+&g+a b&b>c+< g+&g+e
   d&df+ a&a>c+& c+&c+&c+& c+&c+&c+<
   brr  rr>e& e&e< b&b&b g+
   f+rr rr>d& d&d< a&a&a f+
   d&d<b> d&df+ a&af a&a>d
   c+rr c&c c+& c+&c+&c+& c+&c+&c+
;


/* RP2A03 SQUARE-B */
$MB0=
   $M l12 @5@w1 o5 $VS15
   $E6
;
$MB1=
   rrr rrr rre f+ec+
   d&df+ rrr >c+dc+< a&a&a
   rrr rre g+&g+a b&b>c+<
   arr d&d f+&f+&f+ d&d&d&d
   e&ed+ e&e g+&g+&g+ e&e&e&e
   d&d c+ d&d f+& f+&f+&f+&f+&f+ d
   rrr<a&a&a>d&d&d f<b>d
   g+rr g&g g+& g+&g+&g+& g+&g+&g+
;


/* RP2A03 TRIANGLE */
$MC0=
   $M l12 @6-1 o3 $VT @e1,0,0,127,0 q8
;
$MC1=
   arr rra4r a6e
   brr rrb4r >c6<g>
   c+6c+ rrc+4r <g+4>
   drr rr<d4d a6>d
   c+6c+ rrr rr>c+4<c+<
   b6b rrr rr>b4<b
   e4 e4 e6e e4
   arr g+6 a24& a2 r24
;


/* 再生 */
t200
$MA0 $MA1;
$MB0 $MB1;
$MC0 $MC1;


/* EOF */