home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / music / comp02 / cp02_a.mml < prev    next >
Text File  |  1980-01-02  |  3KB  |  152 lines
  1. #ifdef    cp02_a
  2. #    include    "comp02.h"
  3.     $TEMPO
  4. .    next
  5.     $T_MELA    /* Melody
  6.     $T_MELB
  7.     $T_CODE    /*    CODE
  8.     $T_CODE
  9.     $T_GUTFM
  10.     $T_GUITAR
  11.     $T_GUITAR
  12.     $T_OCHIT
  13.     $T_BASS
  14.     $T_SBASS
  15.     $DRUMS
  16.     $DRUMS
  17.     $DRUMS
  18.     $DRUMS
  19. #endif
  20.  
  21. #ifndef    A_PATH
  22. #    define    A_PATH
  23. #    define    A_VIBD    16
  24. #    define    PR01A    $T_RID r4!#+28$RID(4)r2
  25. #    define    PH01A    $T_HH r2!#-22$CHH(8)!$OHH(8)&$OHH(8)r8
  26. #    define    PC01A    $T_CLS [#30 $slide(%c,$CLS,128,16,&,x,+14,-8)
  27. #endif
  28.  
  29. /*------------------------------------------
  30. r1
  31. r1
  32. r1
  33. r1
  34. #define    A    l8r4a4&$vib(a,64,32,sin,0,$A_VIBD,30)u0
  35. #define    B      r4b4&$vib(b,64,32,sin,0,$A_VIBD,30)u0
  36. $GUTFM    $A    $B
  37. $GUITAR    $A    $B
  38. $GUITAR    l8r4g-4&g-2    r4a-4&a-2
  39. $OCHIT    a4r4r2    b4r4r2
  40. $BASS    l8$cho(a,64,16,sqr,-3200,0)aaaa>!#+20a<a    $cho(b,64,16,sqr,-3000,0)bbbb>!b<b
  41. $SBASS    l8aaaaaaaa                            bbbbbbbb
  42. $PR01A    $PR01A
  43. $PH01A    $PH01A
  44. $PS01    $PS01
  45. $PB01    $PB01
  46. /*-------------------------------------------
  47. r1
  48. r1
  49. r1
  50. r1
  51. #define    A    r4>c4&$vib(c,64,32,sin,0,$A_VIBD,30)u0<
  52. #define    B    r4 b4&$vib(b,64,32,sin,0,$A_VIBD,30)u0
  53.     $A    $B
  54.     $A    $B
  55.             r4a4&a2        r4a-4&a-2
  56. >c4r4r2    c4r4r2<
  57. >$cho(c,64,16,sqr,-3200,0)cccc>!c<c<    $cho(b,64,16,sqr,-3000,0)bbbb>!b<b
  58. >cccccccc<                            bbbbbbbb
  59. $PR01A                            r4!$RID(4)r4.$PC01A
  60. r2$T_CLP k+1$CLP(8)$CLP(8)k0r4    $PH01A
  61. $PS01                            r4$SNR(4)r4r8$SNR(8)
  62. $PB01                            $BSD(4)r4$BSD(8)r8{r$BSD$BSD}8r8
  63. /*------------------------------------------------
  64. r1
  65. r1
  66. r1
  67. r1
  68. #define    A    r4a4&$vib(a,64,32,sin,0,$A_VIBD,30)u0
  69. #define    B    r4b4&$vib(b,64,32,sin,0,$A_VIBD,30)u0
  70.     $A    $B
  71.     $A    $B
  72.             r4g-4&g-2    r4a-4&a-2
  73. a4r4r2    b4r4r2
  74. $cho(a,64,16,sqr,-3200,0)aaaa>!a<a    $cho(b,64,16,sqr,-3000,0)bbbb>!b<b
  75. aaaaaaaa                            bbbbbbbb
  76. $PR01A    $PR01A
  77. $PH01A    $PH01A
  78. $PS01    $PS01
  79. $PB01    $PB01
  80. /*-------------------------------------------
  81. r1
  82. r1
  83. r1
  84. r1
  85. #define    A    r4>c4&$vib(c,64,32,sin,0,$A_VIBD,30)u0<
  86. #define    B    r4 b4&$vib(b,64,32,sin,0,$A_VIBD,30)u0
  87.     $A    $B
  88.     $A    $B
  89.             r4a4&a2        r4g&g2
  90. >c4r4r2    d4r4r2<
  91. >$cho(c,64,16,sqr,-3200,0)cccc>!c<c<    $cho(b,64,16,sqr,-3000,0)bbbb>!b<b
  92. >cccccccc<                            bbbbbbbb
  93. $PR01A                            r4!$RID(4)r4.$PC01A
  94. r2$T_CLP k+1$CLP(8)$CLP(8)k0r4    $PH01A
  95. $PS01                            r4$SNR(4)r4r8$SNR(8)
  96. $PB01                            $BSD(4)r4$BSD(8)r8{r$BSD$BSD}8r8
  97. /*------------------------------------------------
  98. r1
  99. r1
  100. r1
  101. r1
  102. #define    A    r4a4&$vib(a,64,32,sin,0,$A_VIBD,30)u0
  103.     $A    ]#4 $A
  104.     $A    ]#4 $A
  105.             r4e4&e2    r4e4&e2
  106. a4r4r2    a4r4r2
  107. aaaaaa>$cho(!a,64,8,sqr,-1800,0)<a    aaaaaa>!a<a
  108. aaaaaaaa    aaaaaa>{aa}<a
  109. $PR01A    $PR01A
  110. $PH01A    $PH01A
  111. $PS01                            r4$SNR(4)r4r8$SNR(8)
  112. $PB01                            $BSD(4)r4$BSD(8)r8{r$BSD$BSD}8r8
  113. /*-----------------------------------------------------
  114. r1
  115. r1
  116. r1
  117. r1
  118. #define    A    r4>$cho(a,64,8,sqr,-8100,0)&a8&a2&    $cho(a,64,64,x^2,0,-800)
  119.     $A
  120.     $A
  121.             r4>$cho(e,64,8,sqr,-8100,0)&e8&e2&    $cho(e,64,64,x^2,0,-800)
  122. a4r4r2    r1
  123. aaaaaa>!a<a    aaaaaa>a<a
  124. aaaaaaaa    aaaaaa>a<a
  125. r4$T_RID ]#8$RID(4)]#8$RID(4)]#8$RID(4)    r1
  126. r1                                        l8r$T_TT[#32(]#4$TT3)7
  127. $PS01                                    l8r[#28(]#4$SNR)7
  128. $PB01                                    $BSD(4)r4r2
  129.  
  130. /*--------------------------------------------------------
  131. #ifdef    A_2ND
  132.     r1
  133.     r1
  134.     r1
  135.     r1
  136. #    define    A    u0'#75a4
  137.         $A
  138.         $A
  139.                 u0'#75e4
  140.     a4
  141.     a4
  142.     a4
  143.     r1
  144.     r1
  145.     $T_SNR $SNR(4)
  146.     $T_BSD $BSD(4)
  147. /*-------------------------------------------------------
  148. .end
  149. #endif
  150.  
  151. /* end of "cp02_a.mml"    */
  152.