home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / music / arrg03 / ag03_a.mml next >
Text File  |  1980-01-02  |  8KB  |  333 lines
  1. #ifdef    ag03_a
  2. #    include    "arrg03.h"
  3. #endif
  4. /*---------------------------------------------------------------------------
  5. $TEMPO    r1    r1    /*    Ｆ(f,a,c)    1,2 */
  6.         r1    r1
  7. #define    A    l8>f4&f8.<[#6a16]#6>a4&a8.[#6f16]#6    >c2.<[#4{b-ag}4]#4
  8.     $T_MELA $MELA    $A
  9.     $T_MELB $MELB    $A
  10.     $T_BACK $BACK l8 aaa&a aaa&a    aaa&a aaa&a
  11.     $T_BACK $BACK l8 ccc&c ccc&c    ccc&c ccc&c
  12.     r1
  13.     r1
  14.     $T_STRG $STRG l8    f1&    f1
  15.     $T_STRG $STRG l8    a1&    a1
  16.     $T_BASPCM $BASPCM l8    ffffffff    ffffffff
  17.     r1
  18.     $T_OCHIT $OCHIT f4r4a4r4    r1
  19.     $DRUMS l8$T_CLS $CLS(4) $T_HH $OHH(4) $T_CLS $CLS(4)$T_HH $OHH(4) $DA_01
  20.     $DRUMS $DB_A1    $T_SNR r4 $SNR4 r4 $T_TT {$TT1$TT2$TT2$TT3}4
  21.     $DRUMS $DC_01    $DC_02
  22. .next
  23. /*---------------------------------------------------------------------------
  24.     r1    r1    /*    Ｃ(c,e,g)    3,4 */
  25.     r1    r1
  26. #define    A    l8f+4g4r2    c2e4g4
  27.     $A
  28.     $A
  29.     l8 ggg&g ggg&g    ggg&g ggg&g
  30.     l8 eee&e eee&e    eee&e eee&e
  31.     r1
  32.     r1
  33.     c1&    c1
  34.     <g1&    g1>
  35.     l8    cccccccc    cccccccc
  36.     r1
  37.     $T_OCHIT $OCHIT f+4g4r2    r1
  38.     $DA_01    $DA_01
  39.     $T_SNR $SNR4 $SNR4 r4 $SNR4 $DB_A1
  40.     $DC_01    $DC_02
  41. .next
  42. /*---------------------------------------------------------------------------
  43.     r1    r1    /*    Ｃ(c,e,g)    Ｆ(f,a,c)    5,6, */
  44.     r1    r1
  45. #define    A    l8b-2&b->dc<b-    g+aa4r2
  46.     $A
  47.     $A
  48.     ggg&g ggg&g    aaa&a aaa&a
  49.     eee&e eee&e    ccc&c ccc&c
  50.     r1
  51.     r1
  52.     c1        f1
  53.     <g1>    c1
  54.     l8    cccccccc    ffffffff
  55.     r1
  56.     r1    $T_OCHIT $OCHIT l8f+aaar2
  57.     $DA_01    $DA_01
  58.     $DB_A1    l8$T_TT $TT2 $TT2 $T_SNR $SNR8 $T_TT $TT3 r4 $T_SNR $SNR4
  59.     $DC_01    $DC_02
  60. .next
  61. /*---------------------------------------------------------------------------
  62.     r1    r1    /*    Ｆ(f,a,c)    Ｂ♭(b-,d,f)    7,8 */
  63.     r1    r1
  64. #define    A    l8>!#+6c2<<a4.a    >c<b-b-4r2
  65.     $A
  66.     $A
  67.     aaa&a aaa&a    fff&f fff&f
  68.     ccc&c ccc&c    ddd&d ddd&d
  69.     r1
  70.     r1
  71.     f1    d1
  72.     c1    <b-1>
  73.     l8    cccccccc    <b-b-b-b-b-b-b-b->
  74.     r1
  75.     $DRUMS $T_CLS $CLS(4) r4r2    r1
  76.     l8rr$T_HH $OHH$CHH $CHH$CHH$OHH$CHH    $DA_01
  77.     $DB_A1    l8$T_TT $TT1 $TT2 $T_SNR $SNR4 r4 $SNR4
  78.     $DC_01    $DC_02
  79. .next
  80. /*---------------------------------------------------------------------------
  81.     r1    r1    /*    Ｂdim(b,d,f)    Ｆ(f,a,c)    9,10 */
  82.     r1    r1
  83. #define    A    l8>>!#+4d2<<b4.b    >c4>c2<[#3{b-agf}4]#3
  84.     $A
  85.     $A
  86.     fff&f fff&f    aaa&a aaa&a
  87.     ddd&d ddd&d    ccc&c ccc&c
  88.     r1
  89.     r1
  90.     f1    f1
  91.     <b1>    c1
  92.     l8    cccccccc    <bbbbbbbb>
  93.     r1
  94.     $DRUMS $T_CLS $CLS(4) r4r2    r1
  95.     l8rr$T_HH $OHH$CHH $CHH$CHH$OHH$CHH    $DA_01
  96.     $DB_A1    $T_SNR r4 $SNR4 r4 {$SNR$SNR$SNR$SNR}4
  97.     $DC_01    $DC_02
  98. .next
  99. /*---------------------------------------------------------------------------
  100.     r1    r1    /*    Ｃ7(c,e,g,b-)    Ｆ(f,a,c)    11, 12 */
  101.     r1    r1
  102. #define    A    f4r4a2
  103.     !#+6e2.&e{de}8                    $A
  104.     !#+6$vib(e,64,64,sin,0,60,45)u0    $A
  105.     ggg&g ggg&g    aaa&a aaa&a
  106.     eee&e eee&e    ccc&c ccc&c
  107.     r1
  108.     r1
  109.     c1        f1
  110.     <b-1>    c1
  111.     l8    cccccccc    <bbbbbbbb>
  112.     r1
  113.     $DRUMS $T_RID $RID(4)r4r2    r1
  114.     $DA_01    $DA_01
  115.     $DB_A1    $T_SNR r4 $SNR4 r4 $SNR8 $T_TT [#20{$TT2$TT3}8
  116.     $DC_01    $DC_02
  117. .next
  118. /*---------------------------------------------------------------------------
  119.     r1    r1    /*    Ｅdim(e,g,b-) Ａ7(a,c+,g,e)    Ｄm(d,f,a) Ａ7    13, 14 */
  120.     r1    r1
  121. #define    A    a4&[#3{afd}4{gec+}4]#3
  122.     b-2c+2    <[#16g48&a-48&]#16a48&>a16&a8 $A
  123.     b-2c+2    a4                            $A
  124.     ggg&g       ggg&g    aaa&a aag&g
  125.     <b-b-b-&b-> eee&e    fff&f ffe&e
  126.     r1
  127.     r1
  128.     e2  c+2        d2.c+4
  129.     <b-2a2         a2.a4>
  130.     l8    eeee<aaaa>    dddddd<aa>
  131.     r1
  132.     r1
  133.     $DA_01    l8$T_HH $CHH(8.)$CHH(16)$OHH(4) r2
  134. #define    A    $T_TT {$TT1$TT2$TT3$TT2$TT3$TT4}2
  135.     $DB_A1    $T_SNR r4 $SNR4 $A
  136.     $DC_01    $DC_02
  137. .next
  138. /*---------------------------------------------------------------------------
  139.     r1    r1    /*    Ｄm(d,f,a)    Ｃ7(c,e,g,b-)    15,16 */
  140.     r1    r1
  141. #define    A    d8.e16f4rfga    b-rb-4&[#6{b-gge}4{ecg<b-}4]#6
  142.     $A
  143.     $A
  144.     aaa&a aaa&a    ggg&g ggg&g
  145.     fff&f fff&f    eee&e eee&e
  146.     r1
  147.     r1
  148.     d1        c1
  149.     <a1     b-1>
  150.     l8    dddddddd    cccccccc
  151.     r1
  152.     r1
  153.     $DA_01    $DA_01
  154. #define    A    $T_TT {r $TT1 $TT1 $TT2  $T_SNR$SNR $T_TT $TT2 $TT3 $TT4 }2
  155.     $DB_A1    $T_SNR r4 $SNR4 $A
  156.     $DC_01    $DC_02
  157. .next
  158. /*---------------------------------------------------------------------------
  159.     r1    r1    /*    Ｆ(f,a,c)    Ｂ♭(b-,d,f) Ｇm7(g,b-,d,f) 17,18 */
  160.     r1    r1
  161. #define    A    >c<b-a2r4    >f2edc<b-
  162.     $A
  163.     $A
  164.     aaa&a aaa&a    aaa&a ff f&f
  165.     ccc&c ccc&c    ccc&c dd d&d
  166.     r1
  167.     r1
  168.     f1        f2 d4 <b-4>
  169.     c1         c2<b-4 g4>
  170.     l8    ffffffff    ffff<b-b-gg>
  171.     r1
  172.     r1
  173.     $DA_01    $DA_01
  174.     $DB_A1    $DB_A1
  175.     $DC_01    $DC_02
  176. .next
  177. /*---------------------------------------------------------------------------
  178.     r1    r1    /*    Ｃ7sus4(c,f,g,b-) Ｃ(c,e,g)    Ｃ♯dim(c+,e,g) Ｄm(d,f,a) */
  179.     r1    r1    /* 19,20 */
  180. #define    A    ag&g2>c4    b-4a4r2
  181.     $A
  182.     $A
  183.     ggg&g ggg&g    gg a&a aaa&a
  184.     fff&f ffe&e    ee f&f fff&f
  185.     r1
  186.     r1
  187.      c2.c4            c+4d4&d2
  188.     <b-2.g4             g4 a4&a2>
  189.     l8    cccccccc    c+c+dddddd
  190.     r1
  191.     r1
  192.     $DA_01    $DA_01
  193.     $DB_A1    $DB_A1
  194.     $DC_01    $DC_02
  195. .next
  196. /*---------------------------------------------------------------------------
  197.     r1    r1    /*    Ｆ(f,a,c) Ｂ♭(b-,d,f) Ｇm7(g,b-,d,f)    21,22 */
  198.     r1    r1    /*        Ｃsus4(c,f,g,b-) Ｇ7(g,b,d,f) Ｃsus4 Ｃ7(c,e,g,b-) */
  199. #define    A    ]#2>!#+4f2edc<b-    ag&g2>c4
  200.     $A
  201.     $A
  202.     aaa&a ff f&f    fff&f ff g&g
  203.     ccc&c ff f&f    ddd&d dd e&e
  204.     r1
  205.     r1
  206.      f2d4<b-4>    c8  d8&d2 c4
  207.     <a2b-4g4      b-8 b8&b2 b-4>
  208.     l8    ffff <b-b-gg> c<ggggg>cc
  209.     r1
  210.     r1
  211.     $DA_01    $DA_01
  212.     $DB_A1    $DB_A1
  213.     $DC_01    $DC_02
  214. .next
  215. /*---------------------------------------------------------------------------
  216.     r1    r1    /*    Ｆ(f,a,c) Ｆ7(f,g,c,e-)    23,24 */
  217.     r1    r1
  218. #define    A    <f4r4r2    >>c2<<a4.a
  219.     $A
  220.     $A
  221.     aaa&a aaa&a    ggg&g ggg&g
  222.     ccc&c ccc&c    ccc&c ccc&c
  223.     r1
  224.     r1
  225.     f1    f1
  226.     c1    e-1
  227.     l8    ffffffff    ffffffff
  228.     r1
  229.     r1 $DRUMS $T_CLS $CLS(4)r4r2
  230.     $DA_01    l8rr $T_HH $CHH $CHH $CHH$CHH$OHH$CHH
  231.     $DB_A1    $DB_A1
  232.     $DC_01    $DC_02
  233. .next
  234. /*---------------------------------------------------------------------------
  235.     r1    r1    /*    Ｂ♭(b-,d,f)    Ｂdim(b,d,f)    25, 26 */
  236.     r1    r1
  237. #define    A    >c<b-b-4r2    >>d2<<b4.b
  238.     $A
  239.     $A
  240.     fff&f fff&f    fff&f fff&f
  241.     ddd&d ddd&d    ddd&d ddd&d
  242.     r1
  243.     r1
  244.     d1        d1
  245.     <b-1    b1>
  246.     l8    <b-b-b-b-b-b-b-b-    bbbbbbbb>
  247.     r1
  248.     r1 $DRUMS $T_CLS $CLS(4)r4r2
  249.     $DA_01    l8rr $T_HH $CHH $CHH $CHH$CHH$OHH$CHH
  250.     $DB_A1    $DB_A1
  251.     $DC_01    $DC_02
  252. .next
  253. /*---------------------------------------------------------------------------
  254.     r1    r1    /*    Ｆ(f,a,c)    Ｃ7(c,e,g,b-)    27,28 */
  255.     r1    r1
  256. #define    A    >c4f4&fc<af
  257.     $A    e2g4.[#8{fg}8]#8
  258.     $A    $vib(e,64,32,sin,0,60,45)$vib(g,64,32,sin,0,60,45)u0
  259.     aaa&a aaa&a    ggg&g ggg&g
  260.     ccc&c ccc&c    eee&e eee&e
  261.     r1
  262.     r1
  263.     f1        e1
  264.     c1        c1
  265.     l8    ffffffff    cccccccc
  266.     r1
  267.     r1    $DRUMS $T_RID $RID(4)r4 $RID(4)r4
  268.     $DA_01    $DA_01
  269.     $DB_A1    $DB_A1
  270.     $DC_01    l8$T_BSD $BSD(4) r$BSD $BSD(4) r$BSD
  271. .next
  272. /*---------------------------------------------------------------------------
  273.     r1    r1    /*    Ｆ(f,a,c) Ｃ7(c,e,g,b-)    29,30 */
  274.     r1    r1
  275. #define    A    f4r4r4a8.[#4f16]#4    >c4c4c4c4
  276.     $A
  277.     $A
  278.     aaa&a aaa&a    ggg&g ggg&g
  279.     ccc&c ccc&c    eee&e eee&e
  280.     r1
  281.     r1
  282.     f1        e1
  283.     c1        c1
  284.     l8    ffffffff    cccccccc
  285.     r1
  286.     r1    $T_OCHIT $OCHIT c4c4r2
  287.     $DA_01    $DA_01
  288.     $DB_A1    $DB_A1
  289.     $DC_01    $DC_02
  290. .next
  291. /*---------------------------------------------------------------------------
  292.     r1    r1    /*    Ｆ(f,a,c) Ｃ7(c,e,g,b-)    31,32 */
  293.     r1    r1
  294. #define    A    c4f4r4<a8.[#4f16]#4    >c4c4c4.[#8{<b-ag}8]#8
  295.     $A
  296.     $A
  297.     aaa&a aaa&a    ggg&g ggg&g
  298.     ccc&c ccc&c    eee&e eee&e
  299.     r1
  300.     r1
  301.     f1        e1
  302.     c1        c1
  303.     l8    ffffffff    cccccccc
  304.     r1
  305.     $DRUMS $T_CLS $CLS(4)$CLS(4)r2    $T_OCHIT $OCHIT c4c4r2
  306.     l8rr$T_HH $OHH$CHH $CHH$CHH$OHH$CHH    $DA_01
  307.     $DB_A1    $T_SNR r4 $SNR4 r4 $SNR8 $T_TT {$TT1$TT2$TT3}8
  308.     $DC_01    $DC_02
  309. .next
  310. /*---------------------------------------------------------------------------
  311.     r1    r1    /*    Ｆ(f,a,c)    33,34 */
  312.     r1    r1
  313. #define    A    f4r4>]#4c4r4    ]#4'#100f4
  314.     $A
  315.     $A
  316.     aaa&a aaa&a    ]#4a4
  317.     ccc&c ccc&c    ]#4c4
  318.     r1
  319.     r1
  320.     f2f4r4    ]#4f4
  321.     c2c4r4    ]#4c4
  322.     l8    fffff4rr    ]#4f4
  323.     r1
  324.     r2$T_OCHIT $OCHIT ]#4c4r4 ]#4f4
  325.     $DA_01    $T_CLS $CLS(4)
  326.     $DB_A1    $T_SNR $SNR(4)
  327.     $DC_01    $T_BSD $BSD(4)
  328. .next
  329. /*---------------------------------------------------------------------------
  330. #ifdef    ag03_a
  331. .    end
  332. #endif
  333.