home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 3
/
FREEWARE.BIN
/
towns_os
/
taropyon
/
music
/
arrg01
/
ag01_b.mml
< prev
next >
Wrap
Text File
|
1980-01-02
|
3KB
|
127 lines
#ifdef ag01_b
# include "arrg01.h"
#endif
.next
/*---------------------------------------------------------------------------
$TEMPO r1 r1 /* G,C,G,A7(a,g,e,c+)
r1 r1
#define A l8>d2$cho(e,128,8,x,-400,0)&e16def d2.e4
$T_MELA $MELA $A
$T_MELB $MELB $A
$T_MELC $MELC $A
$T_BACK $BACK l8>dd&ddcc&cc dd&dd ddee
$T_BACK $BACK l8 bb&bbgg&gg bb&bb bb>c+c+<
$T_BACK $BACK l8 gg&ggee&ee gg&gg ggaa
r1 r1
r1 r1
$T_BASPCM $BASPCM l16<grgg grgg> crcc crcc <grgg grgg grgg araa>
r1 r1
$DRUMS $T_CLS $CLS(4)r4r2 r1
#define A l4 r $T_RID ($RID)3
$DRUMS $A $DD_A1 /* ライドシンバル */
$DRUMS $DB_A1 $DB_A1
$DRUMS $DC_06 $DC_07
.next
/*---------------------------------------------------------------------------
r1 r1 /* Dm(d,a,f),G7(f,d,b,g), C */
r1 r1
#define A frfr$cho(f,128,8,x,-400,0)&f16efg f2e4g4
$A
$A
$A
dd&dd dd&dd cc&cc cc&cc
aa&aa bb&bb gg&gg gg&gg
ff&ff gg&gg ee&ee ee&ee
r1 r1
r1 r1
drdd drdd <grgg gr>d<g> crcc crcc crcc crcc
l8$DRUMS_B $T_CLP $CLP r $CLP r r2 r1
r1 r1
$DD_A1 $DD_A1
$DB_A1 $DB_A1
$DC_07 $DC_07
.next
/*---------------------------------------------------------------------------
r1 r1 /* F(f,a,c),D7(d,f+,a,c) G,A7(a,c+,e,g)
r1 r1
#define A >crcr$cho(c,128,8,x,-400,0)&c16<b>cd cc<bbaagg
$A
$A
$A
cc&cc dd&dd dd&dd ddc+c+
aa&aa aa&aa bb&bb bbaa
ff&ff f+f+&f+f+ gg&gg ggee
r1 r1
r1 r1
frff frff drdd drdd <grgg grgg grgg ar>e<a>
l8$DRUMS_B $T_CLP $CLP r $CLP r r2 $PRCUS $T_CBL ($CBL r)4
r1 l8$T_TT [#12 r$TT1 r$TT2 r$TT3 r$TT4
$DD_A1 $DD_A1
$DB_A1 $DB_A1
$DC_07 $DC_07
.next
/*---------------------------------------------------------------------------
r1 r1 /* G(g,b,d),D7(d,f+,a,c), G */
r1 r1
#define A g2$cho(a,128,8,x,-400,0)&a16gaf+ g4r4r2
$A
$A
$A
dd&dd dd&dd dd&dd dd&dd
bb&bb aa&aa bb&bb bb&bb
gg&gg f+f+&f+f+ gg&gg gg&gg
r1 r1
r1 r1
<grgg grgg> drdd drdd <grgg grgg grgg gr>d<g>
r1 r1
#define A $T_TT {$TT2 $TT3}16 r8r4r2
$A l8$T_TT {[#8$TT2 $TT2 $TT3 }2 $TT4 r ]#8 l16$TT1 $TT2
$DD_A1 $DD_A1
$DB_A1 $T_SNR r4 $SNR4 r4 $SNR8 $SNR(16)$SNR(16)
$DC_07 $DC_07
.next
/*---------------------------------------------------------------------------
/*===========================================================================
r1 r1 /* G,C,G */
r1 r1
#define A l8>d2$cho(e,128,8,x,-400,0)&e16def d2.e4
$MELA $A
$MELB $A
$MELC $A
$BACK l8>dd&dd cc&cc dd&dd dd&dd
$BACK l8 bb&bb gg&gg bb&bb bb&bb
$BACK l8 gg&gg ee&ee gg&gg gg&gg
r1 r1
r1 r1
$BASPCM l16<grgg grgg> crcc crcc <grgg grgg grgg gr>d<g>
r1 r1
$T_CLS $CLS(4)r4r2 r1
#define A l4 r $T_RID ($RID)3
$A $DD_A1 /* ライドシンバル */
$DB_A1 $DB_A1
$DC_06 $DC_07
.next
/*---------------------------------------------------------------------------
r1 r1 /* G7(f,d,b,g) G(g,b,d) */
r1 r1
#define A frfrfede
$A d4r4refd
$A d4r4r2
$A %d%0 %c g2&gefd $T_MELC
dd&dd dd&dd dd&dd dd&dd
gg&gg gg&gg bb&bb bb&bb
ff&ff ff&ff gg&gg gg&gg
r1 r1
r1 r1
<grgg grgg grgg gr>d<g grgg grgg grgg gr>d<g>
l8$DRUMS_B $T_CLP $CLP r $CLP r r2 r2r$PRCUS $T_CBL $CBL$CBL$CBL
r1 r2l8 r $T_TT $TT1 $TT2 $TT3
$DD_A1 $DD_A1
$DB_A1 $DB_A1
$DC_07 $DC_07
.next
/*---------------------------------------------------------------------------
#ifdef ag01_b
. end
#endif