home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / music / comp02 / cp02_e.mml < prev    next >
Text File  |  1980-01-02  |  3KB  |  103 lines

  1. #ifdef    cp02_e
  2. #    include    "comp02.h"
  3.     $TEMPO
  4. .    next
  5. /*------------------------
  6.     $T_MELA        /* Melody
  7.     $T_MELB
  8.     $T_CODE        /*    CODE
  9.     $T_CODE
  10.     $T_GUTFM
  11.     $T_GUITAR
  12.     $T_GUITAR
  13.     $T_OCHIT
  14.     $T_BASS
  15.     $T_SBASS
  16.     $DRUMS
  17.     $DRUMS
  18.     $DRUMS
  19.     $DRUMS
  20. #endif
  21.  
  22. #ifndef    E_PATH
  23. #    define    E_PATH
  24. #    define    PR01E    $T_RID ($RID(4))4
  25. #    define    PB01E    $T_BSD $BSD(4)r4$BSD(4)r4
  26. #    define    PB02E    $T_BSD $BSD(4)r4$BSD(4)r8$BSD(8)
  27. #endif
  28. /*----------------------------------------------------------------
  29. $T_MELA    $MELA    %d%0 %c[#16    e4e4&e2    e1    /* Am(a,e,c)    A(a,e,c-)
  30. $T_MELB    $MELB    %d%0 %c[#16    c4c4&c2    c-1
  31. %d%0 $CODE        [#8    l4aaaa    aaaa
  32. %d%0 $CODE    q#80[#8    l4eeee    eeee
  33. #define    A    l8!#+8$cho(a,64,16,x,-8000,0)&$cho(a,64,8,x,-2300,0)&a8&a2&
  34. #define    B    a4.eab&b>c<
  35. $T_GUTFM  $GUTFM    ]#12    $A    $B
  36. $T_GUITAR $GUITAR    ]#6    $A    $B
  37. $T_GUITAR $GUITAR    <]#12    $A    $B
  38. $OCHIT    a4r4r2    r1
  39. #define    A    l8aaaaaaaa    aaaaaaa&{a!#+6a!a}
  40. $BASS    $A
  41. $SBASS    $A
  42. $T_CLS$CLS(4)r4r2    r1
  43. r2$T_RID $RID(4)$RID(4)        $PR01E
  44. $T_SNR r4$SNR(4)r8 $T_TT$TT3(8)$T_SNR $SNR(4)    r4$SNR(4)r8 $SNR(8)$SNR(4)
  45. $T_BSD $BSD(4)r4$BSD(4    )                        $BSD(4)r4$BSD(4)r4
  46. /*-------------------------------------------------------------------------
  47. #include    "cp02_e2.mml"
  48. /*-------------------------------------------------------------------------
  49. b1    b1    /*    Em    e,b,g    */
  50. g1    g1
  51. eeee    eeee
  52. <bbbb    bbbb>
  53. #define    A    e2&$cho(e,64,32,x^2,0,-600)    u0e1
  54.     $A
  55.     $A
  56.     $A
  57. r1
  58.     eeeeeeee    eeeeeeee
  59.     eeeeeeee    eeeeeeee
  60. $CLS(8)r8r4r2    $CLS(4)r4r2
  61. $PR01E            $PR01E
  62. $PS01    r4           [#14$SNR(8)$SNR(8) $SNR(8)]#4$SNR(8) {(]#3$SNR)4}4
  63. $PB01E    $BSD(4)$T_TT [#10$TT4(8)$TT4(8) $TT4(8)]#4$TT2(8) {(]#2$TT4)4}4
  64. /*-------------------------------------------------------------------------
  65. e4e4&e2    e1    /* Am(a,e,c)    A(a,e,c-)
  66. c4c4&c2    c-1
  67. aaaa    aaaa
  68. eeee    eeee
  69. #define    A    l8!#+8$cho(a,64,16,x,-8000,0)&$cho(a,64,8,x,-2300,0)&a8&a2&
  70. #define    B    a4.eab&b>c<
  71. $GUTFM    ]#12    $A    $B
  72. $GUITAR    ]#6    $A    $B
  73. $GUITAR    <]#12    $A    $B
  74. $OCHIT    a4r4r2    r1
  75. #define    A    l8aaaaaaaa    aaaaaaa&{a!#+6a!a}
  76. $BASS    $A
  77. $SBASS    $A
  78. $T_CLP!#+8$CLP(4)$CLS4 r2                    r1
  79. $PR01E                                        $PR01E
  80. $T_SNR r4$SNR(4)r8$T_TT$TT3(8)$T_SNR$SNR(4)    r4$SNR(4)r8 $SNR(8)$SNR(4)
  81. $T_BSD $BSD(4)r4$BSD(4)                        $BSD(4)r4$BSD(4)r4
  82. /*----------------------------------------------------
  83. #include    "cp02_e2.mml"
  84. /*----------------------------------------------------------
  85. b1    >e1    $T_MELA    /*    Em    e,b,g    */
  86. g1    b1    $T_MELB
  87. eeee    eeee
  88. <bbbb    bbbb
  89. #define    A    e2&$cho(e,64,32,x^2,0,-600)    ]#8>$cho(e,64,32,sqr,-8100,0)&e2u0
  90.     $A
  91.     $A
  92.     $A
  93. r1
  94.     eeeeeeee    >eeeeeeee<
  95.     eeeeeeee    eeeeeeee
  96. $CLS(8)r8r4r2    $CLS(4)r4r2
  97. $PR01E    $PR01E
  98. $PS01    r4$SNR(8)$SNR(8)$SNR(8)$SNR(8)$SNR(8){$SNR$SNR}8
  99. $PB01E    $BSD(4)r4r8$BSD(8)$T_TT $TT2(8)$TT3(16)$TT3(16)
  100. /*----------------------------------------------------
  101.  
  102. /*    end of "cp02_e.mml"    */
  103.