Binaural Tones w Surf 2 Problem

frank1985 · March 25, 2020, 7:16pm

For some reason ‘Binaural Tones With Surf 2’ is not generating any audio despite working fine until now…

Here’s the Debug Output - I don’t know if the problem can be identified from this text. I have no issues generating sine waves from Generate > Tone

error: misplaced right paren
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
1> (10 10)
1> 0
1> (8 9 1)
1> error: unbound variable - LIST5
if continued: try evaluating symbol again
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (LIST LIST1 LIST2 LIST3 LIST4 LIST5 LIST6)
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
2> TRI-BUTLAST
2> ROTATE
2> NO-NIL
2> error: unbound variable - BEAT-LIST
if continued: try evaluating symbol again
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (NO-NIL BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (LIST LIST1 LIST2 LIST3 LIST4 LIST5 LIST6)
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
3> LIST->BP
3> error: unbound variable - BEAT-LIST
if continued: try evaluating symbol again
Function: #<FSubr-DOTIMES: #fb2dad0>
Arguments:
  (I (LENGTH BEAT-LIST))
  (SETF (NTH I BEAT-LIST) (LIST->BP (NTH I BEAT-LIST)))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (NO-NIL BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (LIST LIST1 LIST2 LIST3 LIST4 LIST5 LIST6)
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
4> ADD-TIME
4> error: unbound variable - BEAT-LIST
if continued: try evaluating symbol again
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (ADD-TIME BEAT-LIST)
Function: #<FSubr-DOTIMES: #fb2dad0>
Arguments:
  (I (LENGTH BEAT-LIST))
  (SETF (NTH I BEAT-LIST) (LIST->BP (NTH I BEAT-LIST)))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (NO-NIL BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (LIST LIST1 LIST2 LIST3 LIST4 LIST5 LIST6)
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
5> FLATTEN
5> error: unbound variable - BEAT-LIST
if continued: try evaluating symbol again
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (FLATTEN BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (ADD-TIME BEAT-LIST)
Function: #<FSubr-DOTIMES: #fb2dad0>
Arguments:
  (I (LENGTH BEAT-LIST))
  (SETF (NTH I BEAT-LIST) (LIST->BP (NTH I BEAT-LIST)))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (NO-NIL BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (LIST LIST1 LIST2 LIST3 LIST4 LIST5 LIST6)
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
6> error: unbound variable - BEAT-LIST
if continued: try evaluating symbol again
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  DUR
  (FIRST (LAST BEAT-LIST))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (FLATTEN BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (ADD-TIME BEAT-LIST)
Function: #<FSubr-DOTIMES: #fb2dad0>
Arguments:
  (I (LENGTH BEAT-LIST))
  (SETF (NTH I BEAT-LIST) (LIST->BP (NTH I BEAT-LIST)))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (NO-NIL BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (LIST LIST1 LIST2 LIST3 LIST4 LIST5 LIST6)
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
7> 1800
7> error: unbound variable - DUR
if continued: try evaluating symbol again
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  ADJUST-RATIO
  (/ ADJUST-TIME DUR)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  DUR
  (FIRST (LAST BEAT-LIST))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (FLATTEN BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (ADD-TIME BEAT-LIST)
Function: #<FSubr-DOTIMES: #fb2dad0>
Arguments:
  (I (LENGTH BEAT-LIST))
  (SETF (NTH I BEAT-LIST) (LIST->BP (NTH I BEAT-LIST)))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (NO-NIL BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (LIST LIST1 LIST2 LIST3 LIST4 LIST5 LIST6)
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
8> ADJUST
8> error: unbound variable - ADJUST-RATIO
if continued: try evaluating symbol again
Function: #<FSubr-IF: #fb2eb90>
Arguments:
  (> ADJUST-TIME 0)
  (ADJUST ADJUST-RATIO BEAT-LIST)
  BEAT-LIST
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (IF (> ADJUST-TIME 0) (ADJUST ADJUST-RATIO BEAT-LIST) BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  ADJUST-RATIO
  (/ ADJUST-TIME DUR)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  DUR
  (FIRST (LAST BEAT-LIST))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (FLATTEN BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (ADD-TIME BEAT-LIST)
Function: #<FSubr-DOTIMES: #fb2dad0>
Arguments:
  (I (LENGTH BEAT-LIST))
  (SETF (NTH I BEAT-LIST) (LIST->BP (NTH I BEAT-LIST)))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (NO-NIL BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (LIST LIST1 LIST2 LIST3 LIST4 LIST5 LIST6)
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
9> 1800
9> error: unbound variable - BEAT-LIST
if continued: try evaluating symbol again
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (CONS 0 BEAT-LIST)
Function: #<FSubr-IF: #fb2eb90>
Arguments:
  (> ADJUST-TIME 0)
  (ADJUST ADJUST-RATIO BEAT-LIST)
  BEAT-LIST
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (IF (> ADJUST-TIME 0) (ADJUST ADJUST-RATIO BEAT-LIST) BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  ADJUST-RATIO
  (/ ADJUST-TIME DUR)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  DUR
  (FIRST (LAST BEAT-LIST))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (FLATTEN BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (ADD-TIME BEAT-LIST)
Function: #<FSubr-DOTIMES: #fb2dad0>
Arguments:
  (I (LENGTH BEAT-LIST))
  (SETF (NTH I BEAT-LIST) (LIST->BP (NTH I BEAT-LIST)))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (NO-NIL BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (LIST LIST1 LIST2 LIST3 LIST4 LIST5 LIST6)
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
10> 1
10> PINK
10> GET-OCEAN
10> BUTTERFLY
10> error: unbound variable - BEAT-LIST
if continued: try evaluating symbol again
Function: #<FSubr-COND: #fb2d1e0>
Arguments:
  ((AND (= CHOICE 0) (> RATIO 0) (< RATIO 1)) (MULT (PWL 0 0 FADE 1 (- DUR FADE) 1 DUR 0 DUR) (SIM (MULT RATIO 0.5 (VECTOR (OSC (HZ-TO-STEP F) DUR *SINE-TABLE*) (FMOSC (HZ-TO-STEP F) (PWL-LIST BEAT-LIST)))) (BUTTERFLY (MULT SPREAD 0.01 (GET-OCEAN SURF-F)) (MULT (- 1 RATIO) (VECTOR (PINK DUR) (S-REST DUR)))))))
  ((AND (= CHOICE 0) (= RATIO 0)) (MULT (PWL 0 0 FADE 1 (- DUR FADE) 1 DUR 0 DUR) (BUTTERFLY (MULT SPREAD 0.01 (GET-OCEAN SURF-F)) (VECTOR (PINK DUR) (S-REST DUR)))))
  ((AND (= CHOICE 0) (= RATIO 1)) (MULT (PWL 0 0 FADE 1 (- DUR FADE) 1 DUR 0 DUR) (VECTOR (OSC (HZ-TO-STEP F) DUR *SINE-TABLE*) (FMOSC (HZ-TO-STEP F) (PWL-LIST BEAT-LIST)))))
  ((= CHOICE 1) (FORMAT NIL "List of time/beat frequency pairs (time values in seconds, ending with final time value) is ~% ~a ~%" BEAT-LIST))
  (T (FORMAT NIL "Error - you haven't put any beat frequency, duration, or time change values~%\ninto any of the six string input fields.~% ~%\nNo beat frequency/time list, binaural tones or surf generated."))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (CONS 0 BEAT-LIST)
Function: #<FSubr-IF: #fb2eb90>
Arguments:
  (> ADJUST-TIME 0)
  (ADJUST ADJUST-RATIO BEAT-LIST)
  BEAT-LIST
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (IF (> ADJUST-TIME 0) (ADJUST ADJUST-RATIO BEAT-LIST) BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  ADJUST-RATIO
  (/ ADJUST-TIME DUR)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  DUR
  (FIRST (LAST BEAT-LIST))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (FLATTEN BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (ADD-TIME BEAT-LIST)
Function: #<FSubr-DOTIMES: #fb2dad0>
Arguments:
  (I (LENGTH BEAT-LIST))
  (SETF (NTH I BEAT-LIST) (LIST->BP (NTH I BEAT-LIST)))
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (NO-NIL BEAT-LIST)
Function: #<FSubr-SETF: #fb2a0a0>
Arguments:
  BEAT-LIST
  (LIST LIST1 LIST2 LIST3 LIST4 LIST5 LIST6)
Function: #<Subr-(null): #fb2f8a0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\)
Function: #<Subr-(null): #fb2f840>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\`
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-(null): #fb2f8c0>
Arguments:
  #<Unnamed-Stream: #fb28020>
  #\(
Function: #<Subr-READ: #fb2a080>
Arguments:
  #<Unnamed-Stream: #fb28020>
Function: #<FSubr-LET: #fb2a280>
Arguments:
  ((FORM (STRCAT "(setq " SYMNAME " (list " STR "))")))
  (EVAL (READ (MAKE-STRING-INPUT-STREAM FORM)))
Function: #<Closure-EVAL-STRING-TO-LIST: #fb29420>
Arguments:
  "list5"
  "5 9 1`"
11> 10> 9> 8> 7> 6> 5> 4> 3> 2> 1>

steve · March 25, 2020, 7:43pm

Where did you download the plug-in?
Have you modified the plug-in?

frank1985 · March 25, 2020, 8:37pm

I didn’t download it anywhere, it comes with Audacity. I didn’t modify it in any way

steve · March 25, 2020, 8:46pm

I can assure you that it doesn’t.
The full list of effects that are included by default: Index of Effects, Generators, Analyzers and Tools - Audacity Manual