~ubuntu-branches/ubuntu/gutsy/audacity/gutsy-backports

 

;version 3

 

 

 

;action "Generating Click Track..."

 

;info "Written by Dominic Mazzoni, modified by David R. Sky\nReleased under terms of the GNU General Public License version 2\nGenerates a click track at the given tempo and beats per measure, using the\nclick sound type you choose below. To start the click track after time zero,\nenter the starting point in start-time-offset.\nTo create metronome-like click track, set beats-per-measure value to 1 or 2. \nPitches are set using MIDI numbers for example:\nC notes: 48, 60 [middle C], 72, 84, 96."

 

 

 

;control tempo "Tempo [beats per minute]" int "" 120 30 300

;control sig "Beats per measure [bar]" int "" 4 1 20

;control measures "Number of measures [bars]" int "" 16 1 1000

;control offset "Start time offset [seconds]" real "" 0 0 30

;control click-type "Click sound type" choice "ping,noise,tick" 0

;control q "Noise click resonance [q] [higher gives more defined pitch]" int "" 1 1 20

;control high "MIDI pitch of strong click" int "" 92 18 116

;control low "MIDI pitch of weak click" int "" 80 18 116

 

; original clicktrack.ny by Dominic Mazzoni,

; modified by David R. Sky September 2007

; original code kept 'as is'.

; now includes:

; choice between click sounds [ping {sinewave}, noise or tick],

; user-set MIDI pitch values for strong and weak clicks,

; resonance of noise clicks 

; [higher resonance gives noise clicks more discernable pitch],

; time offset for start of click track,

; and error-checking code to generate error message

; for such things as negative value inputs

; Drip sound generator by Paul Beach,

; used with permission.

 

(setf click-type (+ click-type 1))

 

 

; check function: returns 1 on error

; min and max are allowable min and max values for arg

(defun check (arg min max)

(if (and (>= arg min) (<= arg max))

0 1))

 

 

; initialize blank error-msg

(setf error-msg "")

 

; input values error checks

; tempo

(setf error-msg (if 

(= (check tempo 30 300) 0)

error-msg

(strcat error-msg (format nil

"Tempo ~a outside valid range 30 to 300 bpm

" tempo))))

; beats per measure

(setf error-msg (if

(= (check sig 1 20) 0)

error-msg

(strcat error-msg (format nil

"Beats per measure ~a outside valid range 1 to 20

" sig))))

; number of measures

(setf error-msg (if

(= (check measures 1 1000) 0)

error-msg

(strcat error-msg (format nil

"Number of measures ~a outside valid range 1 to 1000

" measures))))

; time start offset

(setf error-msg (if

(= (check offset 0 30) 0)

error-msg

(strcat error-msg (format nil

"Time offset ~a outside valid range 0 to 30 seconds

" offset))))

; q

(setf error-msg (if

(= (check q 1 20) 0)

error-msg

(strcat error-msg (format nil

"Filter quality q ~a outside valid range 1 to 20

" q))))

; high MIDI pitch

(setf error-msg (if

(= (check high 18 116) 0)

error-msg

(strcat error-msg (format nil

"High MIDI pitch ~a outside valid range 18 to 116

" high))))

; low MIDI pitch

(setf error-msg (if

(= (check low 18 116) 0)

error-msg

(strcat error-msg (format nil

"Low MIDI pitch ~a outside valid range 18 to 116

" low))))

 

 

(cond

; if error-msg is not blank, give error msg

((> (length error-msg) 0)

(setf error-msg (strcat (format nil

"Error - \n\nYou have entered at least one invalid value:

") error-msg))) ; end error msg

 

; no error so generate click track

(t

(setf ticklen 0.01) ; duration of 1 click

 

; function to generate drip sound clicks

; code by Paul Beach www.proviewlandscape.com/liss/

; stretch-abs function makes this sound more like 'tick' sounds

(defun drip (p) ; p is pitch in hz

(lp 

(stretch 1

(mult (exp-dec 0 0.015 0.25) 

( sim

(mult (hzosc (*  2.40483  p))  0.5 )

(mult (hzosc (*  5.52008  p))  0.25 )

(mult (hzosc (* 8.653  p))  0.125 )

(mult (hzosc (* 11.8  p))  0.0625 )

)

)

) 

440))

 

 

; function used to normalize noise and tick clicks

; this function is necessary because filtering 

; changes amplitude of filtered noise clicks

(defun normalize (sound)

(setf peak-level (peak sound ny:all))

(scale (/ 1.0 peak-level) sound))

 

 

(setf measure (stretch-abs ticklen (mult 0.75 

; pwl is used to add fast [5ms] fade-in and fade-out of clicks

(pwl 0 0 0.005 1 0.995 1 1 0 1)

(cond

((= click-type 1) ; ping accented clicks

(osc high))

((= click-type 2) ; noise accented clicks

(normalize (lowpass2 (noise 1) (step-to-hz high) q)))

((= click-type 3) ; tick accented clicks

(normalize (drip (step-to-hz high)))) ))))

                     (at (* beatlen (+ x 1))                 

                         (stretch-abs ticklen (mult 0.5 

; again, pwl adds 5ms fade-in and fade-out to clicks

(pwl 0 0 0.005 1 0.995 1 1 0 1)

(cond

((= click-type 1) ;ping tone unaccented clicks

(osc low))

((= click-type 2) ; noise unaccented clicks

(normalize (lowpass2 (noise 1) (step-to-hz low) q)))

((= click-type 3) ; tick unaccented clicks

(normalize (drip (step-to-hz low)))) )))))))

; loop measure n [measures-1] times

; add time offset to result,

; if offset > 0 seconds

(setf result (if (= offset 0) result

(sim (s-rest offset) (at-abs offset (cue result)))))

; return [click track] result

) ; end t

) ; end cond

 

; from previous commit: