home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / music / arrg02 / ag02_a.mml next >
Text File  |  1980-01-02  |  3KB  |  180 lines
  1. #ifdef    ag02_a
  2. #    include    "arrg02.h"
  3. #endif
  4. .next
  5. /*---------------------------------------------------------------------------
  6. $TEMPO    r4.    /* a-, b-, d-, e-    */
  7.         r4.
  8. #define    A    l8c4{c<a-}
  9.     $T_MELA $MELA $A
  10.     $T_MELB $MELB $A
  11.     r4.
  12.     r4.
  13.     r4.
  14.     r4.
  15.     r4.
  16.     r4.
  17.     $T_BASPCM $BASPCM l8<c>c<a->
  18.     r4.
  19.     r4.
  20.     $DRUMS 
  21.     $DRUMS l8$T_SNR r4     $SNR
  22.     $DRUMS l8$T_BSD $BSD r $BSD
  23. .next
  24. /*---------------------------------------------------------------------------
  25.     r1.    /*    Ｆm(f,a-,c)    */
  26.     r1.
  27. #define    A    f2.&f4.a-4&{a->c}
  28.     $A
  29.     $A
  30.     $T_CODE $CODE l8>c4 c  c c c  c4 c  c c c 
  31.     $T_CODE $CODE l8 a-4a- a-a-a- a-4a- a-a-a-
  32.     $T_CODE $CODE l8 f4 f  f f f  f4 f  f f f
  33.     r1.
  34.     $T_STRG $STRG l8f1&f2
  35.     $T_STRG $STRG l8c1&c2
  36.     l8 <fff fff fff fff>
  37.     r1.
  38.     r1.
  39.     $DA_01
  40.     $DB_01
  41.     $DC_01
  42. .next
  43. /*---------------------------------------------------------------------------
  44.     r1.    /*    Ｆm(f,a-,c)    */
  45.     r1.
  46. #define    A    f4.a-4&{a->c}f4.<f4.
  47.     $A
  48.     $A
  49.     l8 c4 c  c c c  c4 c  c c c 
  50.     l8 a-4a- a-a-a- a-4a- a-a-a-
  51.     l8 f4 f  f f f  f4 f  f f f
  52.     r1.
  53.     f1&f2
  54.     c1&c2
  55.     l8 <fff fff fff fff>
  56.     r1.
  57.     r1.
  58.     $DA_01
  59.     $DB_01
  60.     $DC_01
  61. .next
  62. /*---------------------------------------------------------------------------
  63.     r1.    /*    Ｃ(c,g,e)    Ｅdim(e,g,b-) */
  64.     r1.
  65. #define    A    >c4.&c4d $cho(d,128,4,x,-200,0)&d32&d16&d4&d8&{dced}4
  66.     $A
  67.     $A
  68.     c4c ccc e4 e  e e e
  69.     g4g ggg b-4b- b-b-b-
  70.     e4e eee g4 g  g g g
  71.     r1.
  72.     e4.&e4. g4.&g4.
  73.     c4.&c4. e4.&e4.
  74.     l8 <ggg ggg ggg ggg>
  75.     r1.
  76.     r1.
  77.     $DA_01
  78.     $DB_01
  79.     $DC_01
  80. .next
  81. /*---------------------------------------------------------------------------
  82.     r1.    /*    Ｃ(c,g,e)    Ｇ♭(g-,a-,d-) */
  83.     r1.
  84. #define    A    '#200c4rr4rr4r<d-4{d-<b-}8
  85.     $A
  86.     $A
  87.     c4c ccc c4c d-d-d-
  88.     g4g ggg g4g a-a-a-
  89.     e4e eee e4e g-g-g-
  90.     r1.
  91.     e4.&e4.&e4.g-4.
  92.     c4.&c4.&c4.d-4.
  93.     l8 <ggg ggg ggg g-g-g->
  94.     r1.
  95.     r1.
  96.     $DA_01
  97.     $DB_01
  98.     $DC_01
  99. .next
  100. /*---------------------------------------------------------------------------
  101.     r1.    /*    Ｇ♭(g-,a-,d-) */
  102.     r1.
  103. #define    A    b-2.&g-4b-4&b-{b->d-}8
  104.     $A
  105.     $A
  106.     d-4d- d-d-d- d-4d- d-d-d-
  107.     a-4a- a-a-a- a-4a- a-a-a-
  108.     g-4g- g-g-g- g-4g- g-g-g-
  109.     r1.
  110.     g-1&g-2
  111.     d-1&d-2
  112.     l8 <g-g-g- g-g-g- g-g-g- g-g-g->
  113.     r1.
  114.     r1.
  115.     $DA_01
  116.     $DB_01
  117.     $DC_01
  118. .next
  119. /*---------------------------------------------------------------------------
  120.     r1.    /*    Ｇ♭(g-,a-,d-) */
  121.     r1.
  122. #define    A    g-4.b-4&{b->d-}g-4.<g-4.
  123.     $A
  124.     $A
  125.     d-4d- d-d-d- d-4d- d-d-d-
  126.     a-4a- a-a-a- a-4a- a-a-a-
  127.     g-4g- g-g-g- g-4g- g-g-g-
  128.     r1.
  129.     g-1&g-2
  130.     d-1&d-2
  131.     l8 <g-g-g- g-g-g- g-g-g- g-g-g->
  132.     r1.
  133.     r1.
  134.     $DA_01
  135.     $DB_01
  136.     $DC_01
  137. .next
  138. /*---------------------------------------------------------------------------
  139.     r1.    /*    Ｄ♭(d-,f,a-),    Ｆ♯dim(f+,a,c) */
  140.     r1.
  141. #define    A    >d-4.&d-4e-$cho(e-,128,8,x,-200,0)&e-16&e-4&e-&{e-d-}{fe-}
  142.     $A
  143.     $A
  144.     d-4d- d-d-d- c 4c  c c c 
  145.     a-4a- a-a-a- a4a   a a a 
  146.     f4 f  f f f  f+4f+ f+f+f+
  147.     r1.
  148.     f4.&f4.        a4.&a4.
  149.     d-4.&d-4.    c4.&c4.
  150.     l8     <fff fff f+f+f+ f+f+f+>
  151.     r1.
  152.     r1.
  153.     $DA_01
  154.     $DB_01
  155.     $DC_01
  156. .next
  157. /*---------------------------------------------------------------------------
  158.     r1.    /*    Ｄ♭ */
  159.     r1.
  160. #define    A    d-4r r4rr2.
  161.     $A
  162.     $A
  163.     d-4d- d-d-d- d-4d- d-d-d-
  164.     a-4a- a-a-a- a-4a- a-a-a-
  165.     f4f   fff    f4f   fff
  166.     r1.
  167.     f4.&f4.&    f4.&f4.
  168.     d-4.&d-4.&    d-4.&d-4.
  169.     l8     <fff fff fff fff>
  170.     r1.
  171.     r1.
  172.     $DA_01
  173.     $DB_01
  174.     $DC_01
  175. .next
  176. /*---------------------------------------------------------------------------
  177. #ifdef    ag02_a
  178. .    end
  179. #endif
  180.