home *** CD-ROM | disk | FTP | other *** search
/ Da Capo / da_capo_vol1.bin / programs / amiga / misc / fmsynth / sf1.fmsy < prev    next >
Text File  |  1993-12-28  |  343b  |  44 lines
  1. /* Play random melodie */
  2.  
  3. address fmsynth
  4.  
  5. a.0 = 12
  6. a.1 = 14
  7. a.2 = 16
  8. a.3 = 19
  9. a.4 = 21
  10. a.5 = 24
  11. a.6 = 26
  12.  
  13. b.0 = 0.2
  14. b.1 = 0.2
  15. b.2 = 0.2
  16. b.3 = 0.4
  17. b.4 = 0.4
  18. b.5 = 0.8
  19.  
  20. call random 0, 0, time('s')
  21.  
  22. do i=1 to 20
  23.  
  24.   j=random(0,6)
  25.  
  26.   call playnote a.j
  27.  
  28. end
  29.  
  30. exit
  31.  
  32. playnote:
  33.  
  34. arg n
  35.  
  36. k = random(0,5)
  37.  
  38. 'noteon'  n
  39. 'pause'   b.k
  40. 'noteoff' n
  41.  
  42. return
  43.  
  44.