home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 3
/
FREEWARE.BIN
/
towns_os
/
taropyon
/
music
/
comp03
/
cp03_e.mml
< prev
next >
Wrap
Text File
|
1980-01-02
|
2KB
|
84 lines
/* "cp03_e.mml"
/*
/* 【E】パート
/*
#ifdef cp03_e
# include "comp03.h"
$TEMPO
. next
# include "cp03_d.mml"
#endif
#ifndef E_PASS
# define E_PASS 通過したよん
# define DA_E01 l16$T_HH]#24$CHH$CHH$CHH$CHH$OHH(8)$CHH$CHH $_DA_E01
# define _DA_E01 $CHH$CHH$CHH$CHH$OHH$CHH$OHH(8)
# define DA_E02 l16$T_HH]#24$CHH$CHH$CHH$CHH$OHH(8)$CHH$CHH $_DA_E02
# define _DA_E02 $CHH$CHH$OHH(8)$CHH$CHH$OHH(8)
#endif
/--------------------------------------------------------------------
$T_MELC $MELC [#12e1& e1
$T_MELC $MELC [#12c1& c1
$T_CODE2 $CODE2 ]#6a1 a1 /* Am(a,e,c) */
$T_CODE2 $CODE2 ]#6e1 e1
$T_EPIANO $EPIANO ]#6l4aaaa aaaa
$T_EPIANO $EPIANO ]#6l4eeee eeee
#define A l8a>a<a>a<a>a<a>a<
#define B a>a<a>a<a]#8l16>ar>cd<[#8r8<l8
$T_BASS %d%0 $BASS ]#2 $A $B
$T_SBASS %d%2 $SBASS ]#2 $A $B
# define A l16rrrr$T_HH]#24$OHH(8)$CHH$CHH $B
# define B $CHH$CHH$CHH$CHH$OHH$CHH$OHH(8)
$DRUMS $A $DA_E02
#define A $T_CLS $CLS(4)$T_SNR$SNR(8)r8r4$SNR(8)r8
$DRUMS $A l8r4$SNR r r$SNR $T_TT $TT1(16)$TT2(16) r8
$DRUMS $DC_01 $DC_02
/--------------------------------------------------------------------
d1& d1
<b1& b1>
g1 g1
d1 d1
gggg gggg
dddd dddd
#define A g>g<g>g<g>g<g>g<
#define B $A
$A $B
$A $B
$DA_E01 $DA_E02
$DB_01 $DB_01
$DC_01 $DC_01
/--------------------------------------------------------------------
c1& c1
<a1& a1>
f1 f1
c1 c1
ffff ffff
cccc cccc
#define A f>f<f>f<f>f<f>f<
#define B $A
$A $B
$A $B
$DA_E01 $DA_E02
$DB_01 $DB_01
$DC_01 $DC_01
/--------------------------------------------------------------------
d1 e1
<b1 b1>
g1 b1 /* G(g,d,b) G6(g,e,d,b)
d1 g1
gggg bbbb
dddd gggg
#define A g>g<g>g<g>g<g>g<
#define B $A
$A $B
$A $B
$DA_E01 $DA_E02
$DB_01 $DB_01
$DC_01 $DC_01
/--------------------------------------------------------------------
#ifdef cp03_e
# include "cp03_f.mml"
# include "cp03_g.mml"
. end
#endif
/* end of "cp03_e.mml" */