home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / music / comp03 / cp03_b.mml < prev    next >
Text File  |  1980-01-02  |  2KB  |  79 lines
  1. /*    "cp03_b.mml"
  2. /*
  3. /*    【Ｂ】パート
  4. /*
  5. #ifdef    cp03_b
  6. #    include    "comp03.h"
  7.     $TEMPO
  8. .    next
  9. #endif
  10. #ifndef    B_PASS
  11. #    define    B_PASS    通過したよん
  12. #    define    DC_B03    l8$T_BSD$BSD(4)r4 $BSD(4)$BSD$BSD
  13. #endif
  14. /*-------------------------------------------------------
  15. #define    A    l8a2.>c4 d2.c4<
  16.     $T_MELA    $MELA    $A
  17.     $T_MELB $MELB    $A
  18.     $T_CODE    $CODE    l8    a1&    a2.aa    /*    Ａm(a,e,c)    */
  19.     $T_CODE    $CODE    l8    e1&    e2.ee
  20.     $T_EPIANO    $EPIANO    l8    a4a8.a16aaaa    a4a8.a16aaaa
  21.     $T_EPIANO    $EPIANO    l8    e4e8.e16eeee    e4e8.e16eeee
  22.     $T_BASS        %d%0    $BASS    $BsA_01    $BsA_02
  23.     $T_SBASS    %d%2    $SBASS    $BsA_01    $BsA_02
  24.     $DRUMS    $CLS4 r4$T_HH l8$CHH $CHH $OHH(4)            $DA_02
  25.     $DRUMS    $DB_01                                        $DB_01
  26.     $DRUMS    $T_BSD l8$BSD(4)$T_HH$OHH$CHH$T_BSD(4)r4    $DC_02
  27. /*--------------------------------------------------------
  28. #    include    "cp03_b1.mml"
  29. /*--------------------------------------------------------
  30. #define    A    $cho(b,64,8,x^2,-800,0)&b&b4&b4&ba b1
  31.     $A
  32.     $A
  33.     g1    b1    /*    Ｇ(g,d,b)    */
  34.     d1    g1    
  35.     g4g8.g16gggg    b4b8.b16bbbb
  36.     d4d8.d16dddd    g4g8.g16gggg
  37.     $BsG_01    $BsG_02
  38.     $BsG_01    $BsG_02
  39.     $DA_01    $DA_02
  40.     $DB_01    $DB_04
  41.     $DC_01    $DC_03
  42. /*-------------------------------------------------------
  43. /*
  44. /*    loop ２nd time
  45. /*
  46. /*-------------------------------------------------------
  47. #define    A    l8a2.>c4 d2.c4<
  48.     $A
  49.     $A
  50.     a1&    a2.aa    /*    Ａm(a,e,c)    */
  51.     e1&    e2.ee
  52.     a4a8.a16aaaa    a4a8.a16aaaa
  53.     e4e8.e16eeee    e4e8.e16eeee
  54.     $BsA_01    $BsA_02
  55.     $BsA_01    $BsA_02
  56.     $CLS4 r4$T_HH l8$CHH $CHH $OHH(4)            $DA_02
  57.     $DB_01                                        $DB_01
  58.     $T_BSD l8$BSD(4)$T_HH$OHH$CHH$T_BSD(4)r4    $DC_02
  59. /*--------------------------------------------------------
  60. #    include    "cp03_b1.mml"
  61. /*--------------------------------------------------------
  62. #define    A    $cho(b,64,8,x^2,-800,0)&b&b4&b4&bb >'#99e1
  63.     $A
  64.     $A
  65.     g1>    e1    /*    Ｇ(g,d,b) Ｇ6(e,d,b,g)    */
  66.     d1    b1    
  67.     g4g8.g16gggg    ]#4b4b8.b16bbbb
  68.     d4d8.d16dddd    ]#4g4g8.g16gggg
  69.     $BsG_01    $BsG_02
  70.     $BsG_01    $BsG_02
  71.     $DA_01    $DA_02
  72.     $DB_01    $DB_04
  73.     $DC_01    $DC_03
  74. /*-------------------------------------------------------
  75. #ifdef    cp03_b
  76. .    end
  77. #endif
  78. /*    end of "cp03_b.mml"    */
  79.