home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / AUTOBAS.MPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  948 b   |  70 lines
  1. #
  2. #
  3. #
  4. #    autobas.mpl
  5. #
  6. #    Automatic Scale of Bass for Midi Keyboard
  7. #
  8. #
  9. # This file is a mpl effect definition used by MidiLang
  10. # 
  11. # 
  12. # This effect adds scale of basses ( C D E F G A C ) based on
  13. # your melody.
  14. #
  15. #    The tonality is reset every 8 beats.
  16. #
  17. #    This mpl effect supposes that your bass channel is 2
  18. #
  19. #
  20.  
  21.  
  22.  
  23. Label beats
  24. # to be run at each beat
  25.  
  26. v+= 10 1
  27.  
  28. v< 10 9
  29.     goto suite
  30.  
  31. v= 10 1
  32. beat= 0
  33.  
  34. v== 9 0        if no note have been played , wait
  35.     goto end_beat
  36.  
  37. oldharm 1    reset the harmony
  38. calcharm 1
  39.  
  40. Label suite
  41.  
  42. v== 9 0
  43.     goto end_beat
  44.  
  45. getharm 1 10 5        get the note V[10]
  46.  
  47. Chan= 2
  48. vel= 100
  49. note=v 5
  50. note+= 24
  51. outmidi
  52. time+= 479
  53. vel= 0
  54. outmidi
  55.  
  56. Label end_beat
  57. end
  58.  
  59.  
  60. Label Main        Every note played are sent 
  61. CalcHarm 1        to the harmony package
  62. v= 9 1
  63. End
  64.  
  65. descript Automatic bass
  66. descript based on your melody.
  67. descript the scale is the one defined with
  68. descript your melody.
  69.  
  70.