Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-11-27 07:40:10 +01:00
Code Issues Releases Wiki Activity

This fixes a problem with nyquist's TRIGGER retaining samples (see comment 2, Bug #2698). This version of samples.c was accidentally omitted from an earlier commit.

Browse Source
This commit is contained in:
Roger Dannenberg
2021-03-29 16:14:09 -04:00
parent f1395ff621
commit 91a557d838
4 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
nyquist/nyquist.lsp
View File

@@ -668,7 +668,7 @@ loop
(ny:error "SAMPLER" 2 '((SOUND) "modulation") modulation))
(ny:assert-sample "SAMPLER" 3 "table" sample)
(ny:typecheck (not (integerp npoints))
(ny:error "BUZZ" 3 '((INTEGER) "npoints") npoints))
(ny:error "SAMPLER" 3 '((INTEGER) "npoints") npoints))
(let ((samp (car sample))
(samp-pitch (cadr sample))
(samp-loop-start (caddr sample))

5
nyquist/seq.lsp
View File

@@ -199,9 +199,8 @@
;; a more helpful stack trace for SAL.
(defmacro trigger (input beh)
`(let* ((nyq%environment (nyq:the-environment))
(gate%signal (force-srate *sound-srate* ,input))
(s%rate (snd-srate gate%signal)))
(snd-trigger gate%signal
(s%rate *sound-srate*))
(snd-trigger (force-srate *sound-srate* ,input)
#'(lambda (t0) (eval-seq-behavior ,beh "TRIGGER")))))