#TITLE Passenger (西新井ver.)
#ARTIST 倉橋由紀

$LOOP = 2; /*ループ回数*/
$noise  = 1; /*スピーカーノイズの有無 (1:あり 0:なし)*/
$delay  = 1; /*ディレイの有無         (1:あり 0:なし)*/
$stereo = 1; /*ステレオ化             (1:する 0:しない)*/


/* General Setting */
#OCTAVE REVERSE
#FMGAIN 10
#USING POLY 4
$PL = @P0   @L2,1,10-1 r%0;
$PR = @P127 @L8,1,10-1 r%0;
$wait     = %144;
$wait_noi = %138;

/* Instrument */
$pno = @14-1@F1,0,108,50 @X120;
$bas = @14-2@F1,0,102,30 @X115;
$str = @14-3@F1,0,114,60 @X75 ;
$bel = @14-4@F1,0,103,10 @X80 ;

/* Channel */
$cmn = Q16@pl4 @r5,0;
$cmnS{v}  = $cmn @V124 @D+50;
$cmnD1{v} = $cmn @V110 @D+46 r%53;
$cmnD2{v} = $cmn @V98  @D+42 r%109;
$fm1S  = 1      $pno $cmnS;
$fm2S  = 1      $bas $cmnS;
$fm3S  = 1      $str $cmnS;
$fm4S  = 1      $bel $cmnS;
$fm1D1 = $delay $pno $cmnD1;
$fm2D1 = $delay $bas $cmnD1;
$fm3D1 = $delay $str $cmnD1;
$fm4D1 = $delay $bel $cmnD1;
$fm1D2 = $delay $pno $cmnD2;
$fm2D2 = $delay $bas $cmnD2;
$fm3D2 = $delay $str $cmnD2;
$fm4D2 = $delay $bel $cmnD2;

/* Tempo */
/:$LOOP T104r$wait /:7r1:/r2.T52r4:/
;
/* Delay Cut */
@o1,0 @5@W8 X2 o0@D+50 Q16
@V118/:$stereo @V108:/
r$wait/:$LOOP @E1,0,0,127,0/:7e1&:/e2..@E1,0,700,0,0e8 &e$wait:/
;


$phr1 = /:ed+e<b>c+<a>d+e <b>eg+bag+f+e /eg+f+ed+f+ed+ c+ed+c+<b>d+f+<b>:/ eg+beag+f+e f+c+d+<a[g+2> r%4e%188];
$fm1 = l8 /:$LOOP o5 r$wait $phr1:/;
/:$fm1S  /:$stereo $PL:/ $fm1:/;
/:$fm1D1 /:$stereo $PL:/ $fm1:/;
/:$fm1D2 /:$stereo $PL:/ $fm1:/;
/:$stereo
/:$fm1S  $PR$fm1:/;
/:$fm1D1 $PR$fm1:/;
/:$fm1D2 $PR$fm1:/;
:/;
/:$fm4S  /:$stereo $PL:/ $fm1:/;
/:$fm4D1 /:$stereo $PL:/ $fm1:/;
/:$fm4D2 /:$stereo $PL:/ $fm1:/;
/:$stereo
/:$fm4S  $PR$fm1:/;
/:$fm4D1 $PR$fm1:/;
/:$fm4D2 $PR$fm1:/;
:/;

$phr2 = e</:ef+g+a>c+<ba g+beg+a4b4> /c+4<a+4b4g+4 e4f+4b4a4 g+:/ e4d4c+4<a4 b4<b4>e2;
$fm2 = @14-2l8 /:$LOOP o3 r$wait $phr2:/;
/:$fm2S  /:$stereo $PL:/ $fm2:/;
/:$fm2D1 /:$stereo $PL:/ $fm2:/;
/:$fm2D2 /:$stereo $PL:/ $fm2:/;
/:$stereo
/:$fm2S  $PR$fm2:/;
/:$fm2D1 $PR$fm2:/;
/:$fm2D2 $PR$fm2:/;
:/;

$phr3 = g+2/:e2 eg+b>ef+2 /g+4c+4f+4<b4 g+4a+4b2 >e2<:/ g+2e4a4 f+2g+2;
$fm3 = @14-3l8 /:$LOOP o4 r$wait $phr3:/;
/:$fm3S  /:$stereo $PL:/ $fm3:/;
/:$fm3D1 /:$stereo $PL:/ $fm3:/;
/:$fm3D2 /:$stereo $PL:/ $fm3:/;
/:$stereo
/:$fm3S  $PR$fm3:/;
/:$fm3D1 $PR$fm3:/;
/:$fm3D2 $PR$fm3:/;
:/;

$puchi = @2@V100e%6;
$noi = @X70/:$stereo @X50:/ @E1,0,1,100,0o1@D+50Q16  $puchi @4@N20@V4e$wait_noi /:$LOOP /:8e1&:/ e$wait:/ $puchi;
/:$noise /:$stereo $PL:/ $noi:/;
/:$stereo
/:$noise $PR $noi:/;
:/;


#OPN@1{
 4 6
 28 00 08 00 01 039 2 06 7 0
 26 10 07 06 01 000 1 02 0 0
 28 00 08 00 01 041 2 06 0 0
 26 10 07 06 01 000 1 02 3 0
}
#OPN@2{
 4 2
 21 10 04 06 02 040 1 06 1 0
 22 10 04 07 03 000 1 02 5 1
 21 10 04 06 02 038 1 03 5 0
 22 10 04 07 03 000 1 01 1 1
}
#OPN@3{
 4 5
 31 00 00 05 00 029 0 02 3 0
 18 00 00 06 00 000 0 04 3 0
 31 00 00 05 00 026 0 02 7 0
 18 00 00 06 00 000 0 04 7 0
}
#OPN@4{
 4 7
 31 21 12 04 06 010 1 14 7 0 
 31 16 08 07 03 000 1 04 7 0 
 31 21 12 04 06 005 1 14 3 0 
 31 16 08 07 03 000 1 04 3 0
}

#WAV10 1,0

#CODING Rikumaru
/*参考: https://www.youtube.com/watch?v=2l8H4DNh2l8*/