home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 3
/
FREEWARE.BIN
/
towns_os
/
taropyon
/
music
/
arrg02
/
ag02_c.mml
< prev
next >
Wrap
Text File
|
1980-01-02
|
2KB
|
67 lines
#ifdef ag02_c
# include "arrg02.h"
#endif
.next
/*---------------------------------------------------------------------------
$TEMPO r1. /* Gdim(g,b-,d-) */
r1.
#define A l16>>e<b->geb-g eg<b->e<gb->< eg<b->e<gb- eg<b->e<gb-
$T_MELA $MELA $A
$T_MELB $MELB $A
$T_CODE $CODE l8>d-d-d- d-d-d- d-d-d- d-d-d-
$T_CODE $CODE l8 b-b-b- b-b-b- b-b-b-
$T_CODE $CODE l8 ggg ggg ggg ggg
r1.
r1.
r1.
$T_BASPCM $BASPCM l8 <ggg ggg ggg ggg>
r1.
$DRUMS $T_CLS $CLS(4.)$CLS(4.)$CLS(4.)$CLS(4.)
$DRUMS $T_HH l16($OHH$CHH$CHH$CHH$CHH$CHH)4
$DRUMS $DB_01
$DRUMS l8$T_BSD ($BSD(4.))4
.next
/*---------------------------------------------------------------------------
r1. /* Gdim(g,b-,d-) D♭(d-,f,a-) */
r1.
#define A l16eg<b->e <gb-> egb->deg l8b-rr>d-rr
$A
$A
d-d-d- d-d-d- d-d-d- d-d-d-
b-b-b- b-b-b- b-b-b- a-a-a-
ggg ggg ggg fff
r1.
r1.
r1.
l8<ggg ggg ggg fff>
r1.
r1.
$T_HH l16($OHH$CHH$CHH$CHH$CHH$CHH)4
l8$T_SNR ($SNR8)12
l8$T_BSD ($BSD(4.))4
.next
/*---------------------------------------------------------------------------
#define R %576
r2. r$R r2. /* C(c,e,g) */
r2. r$R r2.
#define A c2.&c4.r$R r4.
$A
$A
c4.&c4.& c$R r2.
g4.&g4.& g$R r2.
e4.&e4.& e$R r2.
r1.
$T_STRG $STRG l8g4.&g4.& g$R r2.
$T_STRG $STRG l8e4.&e4.& e$R r2.
l8<ggg ggg g4.r$R rrr>
r1. r$R
r1. r$R
$T_HH l8 ($CHH)6 r$R r2.
$T_SNR r2. r$R r2.
$T_BSD $BSD(4.)r4. r$R r4.r4{r $BSD $BSD}8
.next
/*---------------------------------------------------------------------------
#ifdef ag02_c
. end
#endif