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 >
Text File  |  1980-01-02  |  2KB  |  67 lines

  1. #ifdef    ag02_c
  2. #    include    "arrg02.h"
  3. #endif
  4. .next
  5. /*---------------------------------------------------------------------------
  6. $TEMPO        r1.    /*    Gdim(g,b-,d-) */
  7.             r1.
  8. #define    A    l16>>e<b->geb-g eg<b->e<gb->< eg<b->e<gb- eg<b->e<gb-
  9.     $T_MELA $MELA $A
  10.     $T_MELB $MELB $A
  11.     $T_CODE $CODE l8>d-d-d- d-d-d- d-d-d- d-d-d-
  12.     $T_CODE $CODE l8 b-b-b- b-b-b- b-b-b-
  13.     $T_CODE $CODE l8 ggg ggg ggg ggg
  14.     r1.
  15.     r1.
  16.     r1.
  17.     $T_BASPCM $BASPCM l8    <ggg ggg ggg ggg>
  18.     r1.
  19.     $DRUMS $T_CLS $CLS(4.)$CLS(4.)$CLS(4.)$CLS(4.)
  20.     $DRUMS $T_HH l16($OHH$CHH$CHH$CHH$CHH$CHH)4
  21.     $DRUMS $DB_01
  22.     $DRUMS l8$T_BSD ($BSD(4.))4
  23. .next
  24. /*---------------------------------------------------------------------------
  25.     r1.    /*    Gdim(g,b-,d-)    D♭(d-,f,a-) */
  26.     r1.
  27. #define    A    l16eg<b->e <gb-> egb->deg l8b-rr>d-rr
  28.     $A
  29.     $A
  30.     d-d-d- d-d-d- d-d-d- d-d-d-
  31.     b-b-b- b-b-b- b-b-b- a-a-a-
  32.     ggg ggg ggg fff
  33.     r1.
  34.     r1.
  35.     r1.
  36.     l8<ggg ggg ggg fff>
  37.     r1.
  38.     r1.
  39.     $T_HH l16($OHH$CHH$CHH$CHH$CHH$CHH)4
  40.     l8$T_SNR ($SNR8)12
  41.     l8$T_BSD ($BSD(4.))4
  42. .next
  43. /*---------------------------------------------------------------------------
  44. #define    R    %576
  45.     r2.    r$R    r2.    /*    C(c,e,g)    */
  46.     r2. r$R    r2.
  47. #define    A    c2.&c4.r$R    r4.
  48.     $A
  49.     $A
  50.     c4.&c4.&    c$R    r2.
  51.     g4.&g4.&    g$R    r2.
  52.     e4.&e4.&    e$R    r2.
  53.     r1.
  54.     $T_STRG $STRG l8g4.&g4.& g$R    r2.
  55.     $T_STRG $STRG l8e4.&e4.& e$R    r2.
  56.     l8<ggg ggg g4.r$R  rrr>
  57.     r1. r$R
  58.     r1. r$R
  59.     $T_HH l8 ($CHH)6    r$R    r2.
  60.     $T_SNR r2.             r$R    r2.
  61.     $T_BSD $BSD(4.)r4.    r$R    r4.r4{r $BSD $BSD}8
  62. .next
  63. /*---------------------------------------------------------------------------
  64. #ifdef    ag02_c
  65. .    end
  66. #endif
  67.