Using Audacity 2.1.0 on Windows 10, I cannot generate a click track. When I select it from the menu at, say 170 bpm, all it does is change my view to “fit to window”. No click track appears. Here is what appears in the debug window:
error: bad argument type - NIL
Function: #<Subr-/: #1099eab8>
Arguments:
NIL
1.41176
Function: #<FSubr-LET: #10999528>
Arguments:
((PREVIEW (/ (GET (QUOTE *PROJECT*) (QUOTE PREVIEW-DURATION)) (* SIG BEATLEN))))
(IF (NOT (GET (QUOTE *TRACK*) (QUOTE VIEW))) (SETQ MEASURES (MIN PREVIEW MEASURES)))
Function: #<FSubr-PROGN: #1099e768>
Arguments:
(SETF TICKLEN (* (MAX 1 (MIN 100 TICKLEN)) 0.001))
(SETF BEATLEN (/ 60 TEMPO))
(MAKEMEASURE)
(IF M-S (SETQ MEASURES (/ (M-S-TO-SECONDS M-S) (* SIG BEATLEN))))
(LET ((PREVIEW (/ (GET (QUOTE *PROJECT*) (QUOTE PREVIEW-DURATION)) (* SIG BEATLEN)))) (IF (NOT (GET (QUOTE *TRACK*) (QUOTE VIEW))) (SETQ MEASURES (MIN PREVIEW MEASURES))))
(SETQ MEASURES (ROUND-UP MEASURES))
(SETF CLICKTRACK (LOOP MEASURE MEASURES SIG BEATLEN))
(SEQ (S-REST OFFSET) (CUE CLICKTRACK) (S-REST (- BEATLEN TICKLEN)))
Function: #<FSubr-IF: #1099de58>
Arguments:
(= (LENGTH ERROR-MSG) 0)
(PROGN (SETF TICKLEN (* (MAX 1 (MIN 100 TICKLEN)) 0.001)) (SETF BEATLEN (/ 60 TEMPO)) (MAKEMEASURE) (IF M-S (SETQ MEASURES (/ (M-S-TO-SECONDS M-S) (* SIG BEATLEN)))) (LET ((PREVIEW (/ (GET (QUOTE *PROJECT*) (QUOTE PREVIEW-DURATION)) (* SIG BEATLEN)))) (IF (NOT (GET (QUOTE *TRACK*) (QUOTE VIEW))) (SETQ MEASURES (MIN PREVIEW MEASURES)))) (SETQ MEASURES (ROUND-UP MEASURES)) (SETF CLICKTRACK (LOOP MEASURE MEASURES SIG BEATLEN)) (SEQ (S-REST OFFSET) (CUE CLICKTRACK) (S-REST (- BEATLEN TICKLEN))))
(SETQ ERROR-MSG (STRCAT (FORMAT NIL "Error.~%You have entered at least one invalid value:~%~%") ERROR-MSG))
Function: #<FSubr-COND: #1099c458>
Arguments:
((= ACTION 1) (HELP1))
((= ACTION 2) (HELP2))
(T (SETQ LEN (/ (* 60 *SOUND-SRATE* SIG MEASURES) TEMPO)) (SETQ ERROR-MSG "") (SETF M-S (STRING-TO-LIST CLICK-TRACK-DUR)) (ERRORCHECK) (IF (= (LENGTH ERROR-MSG) 0) (PROGN (SETF TICKLEN (* (MAX 1 (MIN 100 TICKLEN)) 0.001)) (SETF BEATLEN (/ 60 TEMPO)) (MAKEMEASURE) (IF M-S (SETQ MEASURES (/ (M-S-TO-SECONDS M-S) (* SIG BEATLEN)))) (LET ((PREVIEW (/ (GET (QUOTE *PROJECT*) (QUOTE PREVIEW-DURATION)) (* SIG BEATLEN)))) (IF (NOT (GET (QUOTE *TRACK*) (QUOTE VIEW))) (SETQ MEASURES (MIN PREVIEW MEASURES)))) (SETQ MEASURES (ROUND-UP MEASURES)) (SETF CLICKTRACK (LOOP MEASURE MEASURES SIG BEATLEN)) (SEQ (S-REST OFFSET) (CUE CLICKTRACK) (S-REST (- BEATLEN TICKLEN)))) (SETQ ERROR-MSG (STRCAT (FORMAT NIL "Error.~%You have entered at least one invalid value:~%~%") ERROR-MSG))))
1>