home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / music / comp03 / cp03_g.mml < prev    next >
Text File  |  1980-01-02  |  4KB  |  155 lines
  1. /*    "cp03_g.mml"
  2. /*
  3. /*    【Ｇ】パート
  4. /*
  5. #ifdef    cp03_g
  6. #    include    "comp03.h"
  7.     $TEMPO
  8. .    next
  9. #endif
  10. /*-------------------------------------------------------
  11.     r1
  12.     r1
  13.     $T_CODE    $CODE    l8    a1&    a2.aa    /*    Ａm(a,e,c)    */
  14.     $T_CODE    $CODE    l8    e1&    e2.ee
  15.     $T_EPIANO    $EPIANO    [#9 l8a4a8.a16aaaa    a4a8.a16aaaa
  16.     $T_EPIANO    $EPIANO    [#9 l8e4e8.e16eeee    e4e8.e16eeee
  17.     $T_BASS        %d%0    $BASS    [#8    $BsA_01    $BsA_02
  18.     $T_SBASS    %d%2    $SBASS    [#8    $BsA_01    $BsA_02
  19.     $DRUMS    $T_CLS [#16$CLS(4)r4$T_HH l8$CHH$CHH$OHH(4)    $DA_02
  20.     $DRUMS    $DB_01                                        $DB_01
  21.     $DRUMS    $T_BSD l8$BSD(4)$T_HH$OHH(4)$T_BSD$BSD(4)r4    $DC_02
  22. /*--------------------------------------------------------
  23.     r1
  24.     r1
  25.     g1&    g2.gg    /*    Ｇ(g,d,b)    */
  26.     d1&    d2.dd
  27.     g4g8.g16gggg    g4g8.g16gggg
  28.     d4d8.d16dddd    d4d8.d16dddd
  29.     $BsG_01    $BsG_02
  30.     $BsG_01    $BsG_02
  31.     $DA_01    $DA_02
  32.     $DB_01    $DB_01
  33.     $DC_01    $DC_02
  34. /*--------------------------------------------------------
  35.     r1
  36.     r1
  37.     a1&    a2.aa    /*    Ａm(a,e,c)    */
  38.     e1&    e2.ee
  39.     a4a8.a16aaaa    a4a8.a16aaaa
  40.     e4e8.e16eeee    e4e8.e16eeee
  41.     $BsA_01    $BsA_02
  42.     $BsA_01    $BsA_02
  43.     $DA_01    $DA_02
  44.     $DB_01    $DB_01
  45.     $DC_01    l8$T_BSD $BSD(4)r4$BSD(4)$BSD$BSD
  46. /*--------------------------------------------------------
  47.     r1
  48.     r1
  49.     g1    ]#4b1    /*    Ｇ(g,d,b)    */
  50.     d1    ]#4g1    
  51.     g4g8.g16gggg    ]#4b4b8.b16bbbb
  52.     d4d8.d16dddd    ]#4g4g8.g16gggg
  53.     $BsG_01    $BsG_02
  54.     $BsG_01    $BsG_02
  55.     $DA_01    $DA_02
  56.     $DB_01    $DB_01
  57.     $DC_01    l8$T_BSD$BSD(4)r4$BSD r$BSD $BSD(16)$BSD(16)
  58. /*--------------------------------------------------------
  59.  
  60. /*
  61. /*    フェードアウト用にマクロを定義しなおす
  62. /*
  63. #undef    BsA_01
  64. #undef    BsA_02
  65. #define    BsA_01    l8a4[#4a8.[#3a16[#1>c[#2d[#2    $_BsA_01
  66. #define    _BsA_01    $cho(e,64,6,sqr,-1200,0)&e32[#2<a&[#2
  67. #define    BsA_02    a[#2a[#2{a[#1a[#1r[#1a[#1}4>c[#2d[#2    $_Bs_Am_02
  68. #define    _Bs_Am_02    $cho(e,64,6,sqr,-1200,0)&e32[#2<r[#2
  69.  
  70. #undef    BsG_01
  71. #undef    BsG_02
  72. #define    BsG_01    g4[#4g8.[#3g16[#1b[#2>c[#2    $_BsG_01
  73. #define    _BsG_01    $cho(d,64,6,sqr,-1200,0)&d32[#4<g&[#2
  74. #define    BsG_02    g[#2g[#2{g[#1g[#1r[#1g[#1}4b[#2>c[#2    $_BsG_02
  75. #define    _BsG_02    $cho(d,64,6,sqr,-1200,0)&d32<[#2r[#2
  76.  
  77. #undef    SNR    
  78. #define    SNR    {%c '#120g-%c-1g&g&%c-2g&g&%c-3g&g&%c-4g}
  79.  
  80. #undef    DA_01
  81. #undef    DA_02
  82. #define    DA_01    l8$CHH[#2$CHH[#2$OHH(4)[#4$CHH[#2$CHH[#2$OHH(4)[#4
  83. #define    DA_02    l8$CHH[#2$CHH[#2$OHH(8.)[#3$CHH(16)[#1$CHH[#2$CHH[#2$OHH(4)[#4
  84.  
  85. #undef    DB_01    
  86. #define    DB_01    l8r4 [#8$SNR r[#6r4[#8$SNR r[#6
  87.  
  88. #undef    DC_01
  89. #undef    DC_02
  90. #define    DC_01    l8$BSD(4)[#5r4[#4$BSD(4)[#5r4[#4
  91. #define    DC_02    l8$BSD(4)[#5r4[#4$BSD[#3$BSD[#2r4[#4
  92. /*
  93. /*    【フェードアウト】
  94. /*
  95. /*    　本当はてれてれとフェードアウトさせるのは嫌いなんだけど，そういう
  96. /*    曲になっちまった。
  97. /*
  98. /*-------------------------------------------------------
  99.     r1
  100.     r1
  101.     $T_CODE    $CODE    l8    a1&[#16    a2.[#8a[#2a[#2    /*    Ａm(a,e,c)    */
  102.     $T_CODE    $CODE    l8    e1&[#16    e2.[#8e[#2e[#2
  103. #define    A    l8a4[#4a8.[#3a16[#1a[#2a[#2a[#2a[#2
  104. #define    B      a4[#4a8.[#3a16[#1a[#2a[#2a[#2a[#2
  105.     $T_EPIANO    $EPIANO    [#9    $A    $B
  106. #define    A    l8e4[#4e8.[#3e16[#1e[#2e[#2e[#2e[#2
  107. #define    B    e4[#4e8.[#3e16[#1e[#2e[#2e[#2e[#2
  108.     $T_EPIANO    $EPIANO    [#9    $A    $B
  109.     $T_BASS        %d%0    $BASS    [#8    $BsA_01    $BsA_02
  110.     $T_SBASS    %d%2    $SBASS    [#8    $BsA_01    $BsA_02
  111.     $DRUMS    $T_CLS [#16$CLS(4)r4$T_HH [#16l8$CHH[#2$CHH[#2$OHH(4)[#4    $DA_02
  112.     $DRUMS    $T_SNR    $DB_01                                            $DB_01
  113.     $DRUMS    $T_BSD l8$BSD(4)$T_HH[#4$OHH(4)$T_BSD[#6$BSD(4)[#4r4    $DC_02
  114. /*--------------------------------------------------------
  115.     r1
  116.     r1
  117.     g1&[#16    g2.[#12g[#2g[#2    /*    Ｇ(g,d,b)    */
  118.     d1&[#16    d2.[#12d[#2d[#2
  119.     g4[#4g8.[#3g16[#1g[#2g[#2g[#2g[#2    g4[#4g8.[#3g16[#1g[#2g[#2g[#2g[#2
  120.     d4[#4d8.[#3d16[#1d[#2d[#2d[#2d[#2    d4[#4d8.[#4d16[#1d[#2d[#2d[#2d[#2
  121.     $BsG_01    $BsG_02
  122.     $BsG_01    $BsG_02
  123.     $DA_01    $DA_02
  124.     $DB_01    $DB_01
  125.     $DC_01    $DC_02
  126. /*--------------------------------------------------------
  127.     r1
  128.     r1
  129.     a1&[#16    a2.[#8a[#2a[#2    /*    Ａm(a,e,c)    */
  130.     e1&[#16    e2.[#8e[#2e[#2
  131.     a4[#4a8.[#3a16[#1a[#2a[#2a[#2a[#2    a4[#4a8.[#3a16[#1a[#2a[#2a[#2a[#2
  132.     e4[#4e8.[#3e16[#1e[#2e[#2e[#2e[#2    e4[#4e8.[#3e16[#1e[#2e[#2e[#2e[#2
  133.     $BsA_01    $BsA_02
  134.     $BsA_01    $BsA_02
  135.     $DA_01    $DA_02
  136.     $DB_01    $DB_01
  137.     $DC_01    $DC_02
  138. /*--------------------------------------------------------
  139.     r1
  140.     r1
  141.     g1&[#16    b1[#16
  142.     d1&[#16    g1[#16
  143.     g4[#4g8.[#3g16[#1g[#2g[#2g[#2g[#2    b4[#4b8.[#3b16[#1b[#2b[#2b[#2b[#2
  144.     d4[#4d8.[#3d16[#1d[#2d[#2d[#2d[#2    g4[#4g8.[#4g16[#1g[#2g[#2g[#2g[#2
  145.     $BsG_01    $BsG_02
  146.     $BsG_01    $BsG_02
  147.     $DA_01    $DA_02
  148.     $DB_01    $DB_01
  149.     $DC_01    $DC_02
  150. /*--------------------------------------------------------
  151. #ifdef    cp03_g
  152. .    end
  153. #endif
  154. /*    end of "cp03_g.mml"    */
  155.