home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / music / comp03 / cp03_f.mml < prev    next >
Text File  |  1980-01-02  |  5KB  |  158 lines
  1. /*    "cp03_f.mml"
  2. /*
  3. /*    【Ｆ】パート
  4. /*
  5. #ifdef    cp03_f
  6. #    include    "comp03.h"
  7.     $TEMPO
  8. .    next
  9. #endif
  10. #ifndef    F_PASS
  11. #    define    F_PASS    通過したよん
  12. #    define    DA_F01    l16$T_HH]#24$CHH$CHH$CHH$CHH$OHH(8)$CHH$CHH $_DA_F01
  13. #    define    _DA_F01    $CHH$CHH$CHH$CHH$OHH$CHH$OHH(8)
  14. #    define    DA_F02    l16$T_HH]#24$CHH$CHH$CHH$CHH$OHH(8)$CHH$CHH $_DA_F02
  15. #    define    _DA_F02    $CHH$CHH$OHH(8)$CHH$CHH$OHH(8)
  16. #endif
  17. /*
  18. /*    ノートアサインを途中で変えるというのは禁じ手なのだが…。
  19. /*
  20. .next
  21. .    noteasn    3    bnd    0-127:+24
  22. .    noteasn    4    bnd    0-127:-24
  23. .next
  24. /--------------------------------------------------------------------
  25.     $T_MELC    $MELC e1&    e1
  26.     $T_MELC $MELC c1&    c1
  27. #define    A    a4$cho(a,64,112,x,0,-6000)
  28.     $T_BACK3A    $BACK3A    $A    /* この辺の展開は超適当に入れてンだよ    */
  29.     $T_BACK3B    $BACK3B    $A
  30.     $T_EPIANO    $EPIANO    ]#4l4aaaa    aaaa    /*    Ａm(a,e,c)    */
  31.     $T_EPIANO    $EPIANO    ]#4l4eeee    eeee
  32. #define    A    l16aaeee8aafff8]#8($cho(a,64,8,sqr,-1600,0))2[#8
  33.     $T_BASS        %d%0    $BASS    ]#6    $A    $A
  34.     $T_SBASS    %d%2    $SBASS    ]#6    $A    $A
  35.     $DRUMS    $DA_F01    $DA_F02
  36.     $DRUMS    $DB_01    $T_SNR l8r4$SNR r  r$SNR $T_TT $TT1(16)$TT2(16) r8
  37.     $DRUMS    l8$T_BSD$BSD(4)r4$BSD(4)$BSD$BSD    $DC_01
  38. /--------------------------------------------------------------------
  39.      d1&    d1
  40.     <b1&    b1>
  41. #define    A [#12$vib(a,64,16,sin,-6000,230,15)($cho(a,64,16,sqr,-5000,-2000)[#6)3
  42. #define    B u0]#20$vib(g,64,64,sin,0,-600,15)
  43.     $A    $B    
  44.     $A    $B
  45.     gggg    gggg
  46.     dddd    dddd
  47. #define    A    ggddd8ggddd8]#8($cho(g,64,8,sqr,-1600,0))2[#8
  48.     $A    ggddd8ggddd8>]#12($cho(g,64,8,sqr,-1600,0))2[#12<
  49.     $A    ggddd8ggddd8 ]#8 ($cho(g,64,8,sqr,-1600,0))2[#8
  50.     $DA_F01    $DA_F02
  51.     $DB_01    $DB_01
  52.     $DC_01    l8$T_BSD$BSD(4)r4$BSD(4)$DRUMS_B$T_HH%c+11$CHH%c-11$CHH$DRUMS
  53. /--------------------------------------------------------------------
  54.      c1&    c1
  55.     <a1&    a1>
  56. #define    A    $vib(f,64,24,sin,0,120,45)&$cho(f,128,16,x,0,-1200)
  57. #define    B    $cho(f,64,32,x,-800,2000)&$cho(f,64,64,x^2,2000,-4000)
  58.     $BACK3A    $A    $B
  59.     $BACK3B    $A    $B
  60.     ffff    ffff
  61.     cccc    cccc
  62. #define    A    ffccc8ffccc8]#8($cho(f,64,8,sqr,-1600,0))2[#8
  63.     ffccc8ffccc8>]#12($cho(f,64,8,sqr,-1600,0))2[#12<    $A
  64.     ffccc8ffccc8 ]#8 ($cho(f,64,8,sqr,-1600,0))2[#8      $A
  65.     $DA_F01    $DA_F02
  66.     $DB_01    $DB_01
  67.     l8$T_BSD$BSD(4)r4$BSD(4)$T_CLP[#24$CLP_R$CLP_L    $DC_01
  68. /--------------------------------------------------------------------
  69.      d1        e1
  70.     <b1        b1>
  71. #define    A    [#20
  72. #define    B    ($cho(f,128,16,sqr,1000,-1300)]#4$cho(f,128,16,sqr,1000,-1300)[#8)2
  73. #define    C    ]#18$cho(f,64,16,sqr,1800,-2000)]#4$cho(f,64,16,sqr,800,-3000)
  74. #define    D    ]#8$cho(b,64,64,x^2,-800,8100)
  75.     $A    $B    $C    $D
  76.     $A    $B    $C    $D
  77.     gggg    bbbb    /*    Ｇ(g,d,b) Ｇ6(g,e,d,b)
  78.     dddd    gggg
  79. #define    A    l16ggddd8ggddd8]#8($cho(g,64,8,sqr,-1600,0))2[#8
  80.     $A    $A
  81.     $A    $A
  82.     $DA_F01    $DA_F02
  83.     $DB_01    l8$T_SNR r4$SNR rr4$SNR(8)$T_TT[#30{r$TM2$TM3}8
  84.     $DC_01    $T_BSD$BSD(4)r4$BSD(4)r{$BSD r$BSD}8
  85. /*===================================================================
  86. /--------------------------------------------------------------------
  87.     e1&    e1
  88.     c1&    c1
  89. #define    A    $cho(a,64,16,x^2,-1200,-600)&$cho(a,64,16,sqr,-600,0)&
  90. #define    B    $cho(a,64,96,x^2,0,-4800)
  91.     $BACK3A    $A    $B
  92.     $BACK3B    $A    $B
  93.     aaaa    aaaa    /*    Ａm(a,e,c)    */
  94.     eeee    eeee
  95. #define    A    aaeee8aafff8]#8($cho(a,64,8,sqr,-1600,0))2[#8
  96.     aaeee8aafff8>]#12($cho(a,64,8,sqr,-1600,0))2[#12<    $A
  97.     aaeee8aafff8 ]#8 ($cho(a,64,8,sqr,-1600,0))2[#8      $A
  98.     $DA_F01    $DA_F02
  99.     $DB_01    $T_SNR l8r4$SNR r  r$SNR $T_TT $TT1(16)$TT2(16) r8
  100.     $DC_01    l8$T_BSD$BSD(4)r4$BSD(4)$T_TT[#32$TT4$TT4
  101. /--------------------------------------------------------------------
  102.      d1&    d1
  103.     <b1&    b1>
  104. #define    A    $cho(g,128,16,sqr,-1400,0)&g8&$cho(g,64,16,sqr,-120,1200)&
  105. #define    B    ($cho(g,48,8,x,0,-2000))6$cho(g,64,32,x^2,0,-3200)
  106.     $A    $B
  107.     $A    $B
  108.     gggg    gggg
  109.     dddd    dddd
  110. #define    A    ggddd8ggddd8]#8($cho(g,64,8,sqr,-1600,0))2[#8
  111.     $A    $A
  112.     $A    $A
  113.     $DA_F01    $DA_F02
  114.     $DB_01    $DB_01
  115.     $DC_01    $DC_01
  116. /--------------------------------------------------------------------
  117.      c1&    c1
  118.     <a1&    a1>
  119. #define    A    $cho(f,64,32,x^2,-2000,3100)
  120. #define    B    [#16($cho(f,128,16,sqr,2300,0)]#4$cho(f,128,16,sqr,2300,0)[#8)2
  121. #define    C    ($cho(f,128,16,sqr,2300,0)]#4$cho(f,128,16,sqr,2300,0)[#8)2
  122. #define    D    ]#24$cho(f,64,32,sqr,0,5200)
  123.     $A    $B    $C    $D
  124.     $A    $B    $C    $D
  125.     ffff    ffff
  126.     cccc    cccc
  127. #define    A    ffccc8ffccc8]#8($cho(f,64,8,sqr,-1600,0))2[#8
  128.     $A    ffccc8ffccc8>]#12($cho(f,64,8,sqr,-1600,0))2[#12<
  129.     $A    ffccc8ffccc8 ]#8 ($cho(f,64,8,sqr,-1600,0))2[#8  
  130.     $DA_F01    $DA_F02
  131.     $DB_01    $DB_01
  132.     $DC_01    l8$T_BSD$BSD(4)r4$BSD(4)$DRUMS_B$T_HH%c+11$CHH%c-11$CHH$DRUMS
  133. /--------------------------------------------------------------------
  134.      d1        e1
  135.     <b1        b1>
  136. #define    A    $cho(g,64,128,x^2,6000,-8100)u0
  137.     $BACK3A    $A
  138.     $BACK3B    $A
  139.     gggg    bbbb    /*    Ｇ(g,d,b) Ｇ6(g,e,d,b)
  140.     dddd    gggg
  141. #define    A    l16ggddd8ggddd8]#8($cho(g,64,8,sqr,-1600,0))2[#8
  142.     $A    $A
  143.     $A    $A
  144.     $DA_F01    $DA_F02
  145.     $DB_01    $DB_01
  146.     $DC_01    $DC_01
  147. /--------------------------------------------------------------------
  148. .next
  149. .    noteasn    3    bnd    0-127:0
  150. .    noteasn    4    bnd    0-127:0
  151. .next
  152. #include    "cp03_f2.mml"
  153. /--------------------------------------------------------------------
  154. #ifdef    cp03_f
  155. .    end
  156. #endif
  157. /*    end of "cp03_f.mml"    */
  158.