home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 3
/
FREEWARE.BIN
/
towns_os
/
taropyon
/
music
/
comp02
/
cp02_e.mml
< prev
next >
Wrap
Text File
|
1980-01-02
|
3KB
|
103 lines
#ifdef cp02_e
# include "comp02.h"
$TEMPO
. next
/*------------------------
$T_MELA /* Melody
$T_MELB
$T_CODE /* CODE
$T_CODE
$T_GUTFM
$T_GUITAR
$T_GUITAR
$T_OCHIT
$T_BASS
$T_SBASS
$DRUMS
$DRUMS
$DRUMS
$DRUMS
#endif
#ifndef E_PATH
# define E_PATH
# define PR01E $T_RID ($RID(4))4
# define PB01E $T_BSD $BSD(4)r4$BSD(4)r4
# define PB02E $T_BSD $BSD(4)r4$BSD(4)r8$BSD(8)
#endif
/*----------------------------------------------------------------
$T_MELA $MELA %d%0 %c[#16 e4e4&e2 e1 /* Am(a,e,c) A(a,e,c-)
$T_MELB $MELB %d%0 %c[#16 c4c4&c2 c-1
%d%0 $CODE [#8 l4aaaa aaaa
%d%0 $CODE q#80[#8 l4eeee eeee
#define A l8!#+8$cho(a,64,16,x,-8000,0)&$cho(a,64,8,x,-2300,0)&a8&a2&
#define B a4.eab&b>c<
$T_GUTFM $GUTFM ]#12 $A $B
$T_GUITAR $GUITAR ]#6 $A $B
$T_GUITAR $GUITAR <]#12 $A $B
$OCHIT a4r4r2 r1
#define A l8aaaaaaaa aaaaaaa&{a!#+6a!a}
$BASS $A
$SBASS $A
$T_CLS$CLS(4)r4r2 r1
r2$T_RID $RID(4)$RID(4) $PR01E
$T_SNR r4$SNR(4)r8 $T_TT$TT3(8)$T_SNR $SNR(4) r4$SNR(4)r8 $SNR(8)$SNR(4)
$T_BSD $BSD(4)r4$BSD(4 ) $BSD(4)r4$BSD(4)r4
/*-------------------------------------------------------------------------
#include "cp02_e2.mml"
/*-------------------------------------------------------------------------
b1 b1 /* Em e,b,g */
g1 g1
eeee eeee
<bbbb bbbb>
#define A e2&$cho(e,64,32,x^2,0,-600) u0e1
$A
$A
$A
r1
eeeeeeee eeeeeeee
eeeeeeee eeeeeeee
$CLS(8)r8r4r2 $CLS(4)r4r2
$PR01E $PR01E
$PS01 r4 [#14$SNR(8)$SNR(8) $SNR(8)]#4$SNR(8) {(]#3$SNR)4}4
$PB01E $BSD(4)$T_TT [#10$TT4(8)$TT4(8) $TT4(8)]#4$TT2(8) {(]#2$TT4)4}4
/*-------------------------------------------------------------------------
e4e4&e2 e1 /* Am(a,e,c) A(a,e,c-)
c4c4&c2 c-1
aaaa aaaa
eeee eeee
#define A l8!#+8$cho(a,64,16,x,-8000,0)&$cho(a,64,8,x,-2300,0)&a8&a2&
#define B a4.eab&b>c<
$GUTFM ]#12 $A $B
$GUITAR ]#6 $A $B
$GUITAR <]#12 $A $B
$OCHIT a4r4r2 r1
#define A l8aaaaaaaa aaaaaaa&{a!#+6a!a}
$BASS $A
$SBASS $A
$T_CLP!#+8$CLP(4)$CLS4 r2 r1
$PR01E $PR01E
$T_SNR r4$SNR(4)r8$T_TT$TT3(8)$T_SNR$SNR(4) r4$SNR(4)r8 $SNR(8)$SNR(4)
$T_BSD $BSD(4)r4$BSD(4) $BSD(4)r4$BSD(4)r4
/*----------------------------------------------------
#include "cp02_e2.mml"
/*----------------------------------------------------------
b1 >e1 $T_MELA /* Em e,b,g */
g1 b1 $T_MELB
eeee eeee
<bbbb bbbb
#define A e2&$cho(e,64,32,x^2,0,-600) ]#8>$cho(e,64,32,sqr,-8100,0)&e2u0
$A
$A
$A
r1
eeeeeeee >eeeeeeee<
eeeeeeee eeeeeeee
$CLS(8)r8r4r2 $CLS(4)r4r2
$PR01E $PR01E
$PS01 r4$SNR(8)$SNR(8)$SNR(8)$SNR(8)$SNR(8){$SNR$SNR}8
$PB01E $BSD(4)r4r8$BSD(8)$T_TT $TT2(8)$TT3(16)$TT3(16)
/*----------------------------------------------------
/* end of "cp02_e.mml" */