/******************************************************************************
/*                                                                            *
/*                                                                            *
/*                                                                            *
/******************************************************************************
.title BGMその２
.mmltype fb386
.partmax 14
.fm  FM_1_F1.FMB
.pcm pcmfrc.PMB 
.part 0  0 
.part 1  1
.part 2  2
.part 3  3
.part 4  4
.part 5  5
.part 6  6
.part 7  7
.part 8  8
.part 9  9
.part 10 10
/
.subpart md1    0
.subpart md2    1
.subpart bass   2
.subpart syn1   3
.subpart syn2   4
.subpart hsc    5
.subpart hit1   6
.subpart hit2   7
.subpart bdrum  8
.subpart sdrum  9
/*****************************  MML  ******************************************
#define  md1    t170q8v/120@17
#define  md2        q8v/120@17
#define  bass       q6v/118@27
#define  syn1       q8v/118@12
#define  syn2       q8v/118@12
#define  hsc        q8v/127@22
#define  hit1       q8v/127@1%l10
#define  hit2       q8v/127@2%l10
#define  bdrum      q8v/127@1%l10
#define  sdrum      q8v/127@1%r10u0
.playsub
.next
/**************************マクロ定義/ 演奏 ***********************************
#define  md1a   o4l8eab>e4<bae f+b>c+f+4c+<bf+ g>cdg4dc<g a>dea4ed<a
#define  md2a   o4l8eab>e4<bae f+b>c+f+4c+<bf+ g>cdg4dc<g a>dea4e<
#define  bassa  v15o2l8(aaaaaaaa)3 aaaaaa>a<a (aaaaaaaa)3 aaaaaa>a<a
#define  syn1a  v11o3a1&a1&a1&a1 a1&a1&a1 v14o1@68a1@12
#define  syn2a  v11o3e1&e1&e1&e1 e1&e1&e1&e1
#define  syn1b  v11o3a1&a1&a1&a1 a1&a1&$cho(a,32,32,x,0,8100)&$vib(a,128,128,sin,8100,91,30)u0
#define  syn2b  v11o3e1&e1&e1&e1 e1&e1&$cho(e,32,32,x,0,8100)&$vib(e,128,128,sin,8100,91,30)u0
#define  hsca   @v127o5l16(ae<a>e)32
#define  bdrum_i v12o2l8 (c4c4 cc16c16r4)8
#define  sdrum_i v13o2l8 (r4r4 r4d4)7 r4r4 r4d16r16d16d16
#define  bdruma v12o2l8 (c4r4 cc16c16r4)8
#define  sdruma v13l8 o3a4o2d4 rrd4 (r4d4 rrd4 )6 r4d4 rrd8d16d16 
#define  bdrumb v12o2l8 (c4r4 ccr4)2
#define  sdrumb v14o2l8 (r4d4 rrd4)2
/
#define  md1    v13    u60 $md1a $md1a $md1a $md1a
#define  md2    v12%d7 u-60$md1a $md1a $md1a $md2a %d%0
#define  bass   $bassa $bassa >
#define  syn1   $syn1a $syn1b
#define  syn2   $syn2a $syn2b
#define  hsc    $hsca  $hsca
#define  bdrum  $bdrum_i$bdruma
#define  sdrum  $sdrum_i$sdruma
.playsub
.next
/************************* メロディー *****************************************
#define  md1b   %cv15u0@118l8o3  b1g.b.>dc+.d.e<  b1g.b.>d c+.<b.a 
#define  md2b   %cv13u0@118l8o3  e1d.g.b a.b.>c+< e1d.g.b a.g.f+
#define  md1c      u50 g1&g2 c.e.g a1&a2d.f+.ab1&b2.&b8&$cho(b,64,16,x,  0,-2400)&b8&b2.&b1
#define  md2c   %d6u-50g1&g2 c.e.g a1&a2d.f+.ab1&b2.&b8&$cho(b,64,16,x,-50,-2450)&b8&b2.&b1
#define  md1d      u50 g1&g2 c.e.g a1&a2d.f+.ag+16f+16g+8&g+2.&(g+1&)3
#define  md2d   %d6u-50g1&g2 c.e.g a1&a2d.f+.a(g+1&)4
#define  bassb  eeeeeeeed.d.d c+.c+.c+
#define  bassc  (cccccccc)2(dddddddd)2(eeeeeeeeeeeeeee)2dd
#define  syn1c     o2e1g2a2
#define  syn2c     o1b1>d2e2
#define  syn1d     o2g1&g1a1&a1b1&b1&b1&b1
#define  syn2d     o2c1&c1d1&d1e1&e1&e1&e1
#define  hscb    @9v11q7o4l32(g<!4g>e!4g[c!4e<g>!4c])8  (a<!4a>f+!4a[d!4f+<[a!4>d]])8 (b<!4b>g+!4b[e!4g+<[b>!4e]])16
/*#define  hscb    @9v11q7o4l32(g<!2g>e!2g[c!2e<g>!2c])8  (a<!2a>f+!2a[d!2f+<[a!2>d]])8 (b<!2b>g+!2b[e!2g+<[b>!2e]])16
#define  bdrumc (o2c4r4ccr4 c.c.cc.c.c)2
#define  sdrumc (o3a4o2d4r4d4 o3d-.d-.<d>d-.d-.d-)2
#define  sdrumd o3d-4o2d4r4d4r4d4 d16rd16rd16d16
#define  sdrume v13o2l8 r4d4 r4d4 r4d4 r4d8d16d16
/
#define  md1    $md1b $md1b
#define  md2    $md2b $md2b
#define  bass   $bassb $bassb $bassb $bassb
#define  syn1   $syn1c $syn1c $syn1c $syn1c
#define  syn2   $syn2c $syn2c $syn2c $syn2c
#define  hsc    
#define  bdrum  $bdrumc $bdrumc
#define  sdrum  $sdrumc $sdrumc
.playsub
.next
#define  md1    v15$md1c 
#define  md2    v15$md2c 
#define  bass   $bassc 
#define  syn1   $syn1d 
#define  syn2   $syn2d 
#define  hsc    $hscb 
#define  bdrum  $bdrumb $bdrumb $bdrumb $bdrumb 
#define  sdrum  $sdrumd $sdrumd $sdrumb $sdrume 
.playsub
.next
#define  md1    $md1d
#define  md2    $md2d
#define  bass   $bassc
#define  syn1   $syn1d
#define  syn2   $syn2d
#define  hsc    $hscb
#define  bdrum  $bdrumb $bdrumb $bdrumb $bdrumb 
#define  sdrum  $sdrumd $sdrumd $sdrumb $sdrume 
.playsub
.next