diff options
Diffstat (limited to 'test/snd-fetch-array.lsp')
| -rw-r--r-- | test/snd-fetch-array.lsp | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/snd-fetch-array.lsp b/test/snd-fetch-array.lsp new file mode 100644 index 0000000..fa455fe --- /dev/null +++ b/test/snd-fetch-array.lsp @@ -0,0 +1,19 @@ +;; snd-fetch-array.lsp -- a test program to explore a new feature + +(print "loading snd-fetch-array.lsp") + +(load "/Users/rbd/nyquist/sys/unix/osx/system.lsp") + +(autonorm-off) + +;; make short sound +(setf s (osc c4 0.001)) ; about 44 samples + +(dotimes (i 100) ; limited iterations in case of problems + (setf samps (snd-fetch-array s 10 10)) + (display "after snd-fetch-array" i samps *rslt*) + (if (null samps) (return 'done))) + + + + |