home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / SCALE.MPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  566 b   |  49 lines
  1. #
  2. #
  3. #
  4. #    scale.mpl
  5. #
  6. #    Harmony Scale based on your melody
  7. #
  8. #      
  9. #
  10. # This file is a mpl effect definition used by MidiLang
  11. # 
  12. # 
  13. #
  14. # This effect will play the scale of your melody
  15. #
  16. #
  17. #
  18.  
  19. label delharm
  20. oldharm 1
  21. end
  22.  
  23.  
  24. label main
  25. v== 10 0
  26.     initharm 1
  27. calcharm 1
  28. v= 10 2
  29.  
  30. Label loop
  31. time+= 240
  32. getharm 1 10 3
  33. v+= 3 48
  34. note=v 3
  35. outmidi
  36.  
  37. v== 10 8
  38. goto end
  39.  
  40. v+= 10 1
  41. goto loop
  42.  
  43. label end
  44. end
  45.  
  46. keydef c c# delharm init_harmony
  47.  
  48. Descript This effect plays the current scale
  49. Descript based on the harmony of your melody