home *** CD-ROM | disk | FTP | other *** search
/ Freelog 54 / Freelog054.iso / Solution / Audio / Audacity / Plug-Ins / clicktrack.ny < prev    next >
Encoding:
Audacity Nyquits plug-in  |  2003-01-06  |  1.1 KB  |  33 lines
  1. ;nyquist plug-in
  2. ;version 1
  3. ;type generate
  4. ;name "Click Track..."
  5. ;action "Generating click track..."
  6. ;info "Generates a simple click track at a given tempo and time signature"
  7. ;control tempo "Tempo" int "beats/minute" 120 30 300
  8. ;control sig "Beats per measure" int "beats" 4 1 20
  9. ;control measures "Number of measures" int "measures" 32 10 1000
  10. (setf measures (truncate measures))
  11. (setf tempo (truncate tempo))
  12. (setf sig (truncate sig))
  13. (setf ticklen 0.01)
  14. (setf beatlen (/ 60.0 tempo))
  15.  
  16. ; make one measure
  17. (setf measure (stretch-abs ticklen (scale 0.75 (osc 92))))   ;accented
  18. (dotimes (x (- sig 1))
  19.   (setf measure (sim measure
  20.                      (at (* beatlen (+ x 1))                 ;unaccented
  21.                          (stretch-abs ticklen (scale 0.5 (osc 80)))))))
  22. ; make the measure exactly the right length
  23. (setf measure (sim measure
  24.                    (stretch-abs (* sig beatlen) (const 0.0))))
  25.  
  26. ; loop measure n times
  27. (setf result measure)
  28. (dotimes (x (- measures 1))
  29.   (setf result (seq result measure)))
  30.  
  31. ; return result
  32. result
  33.