home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / music / comp04 / cp04_d.mml < prev    next >
Text File  |  1980-01-02  |  2KB  |  77 lines
  1. #ifdef    cp04_d
  2. #    include    "comp04.h"
  3.     $TEMPO
  4. .    next
  5. #endif
  6. /*====================================================================
  7.     r1    r1
  8.     r1    r1
  9.     r1    r1
  10. #define    A    l8(b-g>d<g)4
  11.     %d%0 $T_BACB    $BACB    $A
  12.     %d%24$T_BACB    $BACB    $A
  13.     %d%0 $T_BASFM    $BASFM          $BsG_01    $BsG_02
  14.     %d%4 $T_BASFM    $BASFM >[#9     $BsG_01    $BsG_02
  15.     %d%0 $T_BASS        $BASS           $BsG_01    $BsG_02
  16.     %d%4 $T_BASS        $BASS  >[#9     $BsG_01    $BsG_02
  17. #ifdef    CLS_CONT
  18. #    undef    CLS_CONT
  19. #    define    A           $CLS(8) r8
  20. #else
  21. #    define    A    $T_BRS $BRS(8) r8
  22. #endif
  23.     $DRUMS        $A l8 $T_BRS ($BRS)2r4                    r1
  24.     $DRUMS        $DA_01                                    $DA_02
  25.     $DRUMS        l8r $T_BRS $BRS $T_SNR $SNR4 r4 $SNR4    $DB_02
  26.     $DRUMS        $DC_03                                    $DC_03
  27. /*----------------------------------------------------------------------
  28.     r1
  29.     r1
  30.     r1
  31. #define    A    (af>c<f)4
  32.     $A
  33.     $A
  34.     $BsF_01    $BsF_02
  35.     $BsF_01    $BsF_02
  36.     $BsF_01    $BsF_02
  37.     $BsF_01    $BsF_02
  38.     $DD_01    r1
  39.     $DA_01    $DA_02
  40.     $DB_02    $DB_02
  41.     $DC_01    $DC_02
  42. /*----------------------------------------------------------------------
  43.     r1
  44.     r1
  45.     r1
  46. #define    A    (b-g>d<g)4
  47.     $A
  48.     $A
  49.     $BsG_01    $BsG_02
  50.     $BsG_01    $BsG_02
  51.     $BsG_01    $BsG_02
  52.     $BsG_01    $BsG_02
  53.     $DD_01    r1
  54.     $DA_01    $DA_02
  55.     $DB_02    $DB_02
  56.     $DC_03    $DC_03
  57. /*----------------------------------------------------------------------
  58.     r1
  59.     r1
  60.     r1
  61. #define    A    (af>c<f)3
  62.     $A    $T_BACA $BACA l8 ggrg&
  63.     $A    $T_BACA $BACA l8 ddrd&
  64.     $BsF_01    $BsF_03
  65.     $BsF_01    $BsF_03
  66.     $BsF_01    $BsF_03
  67.     $BsF_01    $BsF_03
  68. #define    CLS_CONT
  69.     $DD_01    $DD_02
  70.     $DA_01    l8$T_HH ($CHH)4 $CHH $OHH & $OHH r
  71.     $DB_02    l8$T_TT $TT1 $TT1 $T_SNR $SNR4 $SNR8$SNR8 r4
  72.     $DC_01    l8$T_BSD $BSD $BSD r4r4 [#16{r$BSD$BSD}8]#16 $BSD
  73. /*--------------------------------------------------------------------
  74. #ifdef    cp04_d
  75. .    end
  76. #endif
  77.