re: repeating envs Thank you for the corrections. I don't think I would have been able to figure out the part about deletion of lambda, map-channel in the strum definition. Working now. Regards, Jim ________________________________ From: cmdist-boun...@ccrma.stanford.edu <cmdist-boun...@ccrma.stanford.edu> on behalf of cmdist-requ...@ccrma.stanford.edu <cmdist-requ...@ccrma.stanford.edu> Sent: Tuesday, May 11, 2021 9:00 AM To: cmdist@ccrma.Stanford.EDU <cmdist@ccrma.Stanford.EDU> Subject: Cmdist Digest, Vol 156, Issue 4
Send Cmdist mailing list submissions to cmdist@ccrma.stanford.edu To subscribe or unsubscribe via the World Wide Web, visit https://cm-mail.stanford.edu/mailman/listinfo/cmdist or, via email, send a message with subject or body 'help' to cmdist-requ...@ccrma.stanford.edu You can reach the person managing the list at cmdist-ow...@ccrma.stanford.edu When replying, please edit your Subject line so it is more specific than "Re: Contents of Cmdist digest..." Today's Topics: 1. repeating envs (James Hearon) 2. Re: repeating envs (b...@ccrma.stanford.edu) ---------------------------------------------------------------------- Message: 1 Date: Tue, 11 May 2021 17:46:52 +0000 From: James Hearon <j_hea...@hotmail.com> To: "cmdist@ccrma.Stanford.EDU" <cmdist@ccrma.Stanford.EDU> Subject: [CM] repeating envs Message-ID: <byapr10mb2536b22218de8275bff87290e5...@byapr10mb2536.namprd10.prod.outlook.com> Content-Type: text/plain; charset="iso-8859-1" Hi, The lambda function, from the manual, for repeating an env seems like a useful thing, but I cannot seem to find the magic to make it repeat. I'm wondering how you would use it for the polyshape gen fm parameter? Or is that not how it's supposed to work? Regards, Jim (define (strum e) (map-channel (lambda (y) (if (> (mus-location e) (mus-length e)) ; mus-length = dur (mus-reset e)) ; start env again (default is to stick at the last value) (* y (env e))))) (with-sound (:srate 48000 :channels 1 :play #t) (let ((gen (make-polyshape 100.0 :partials (list 1 .5 2 .25 3 .125 4 .125))) (strum (make-env '(0 0 .25 0.01 .5 0.2 1 0.0) :scaler 1.0 :duration 1 :base .53)) ) (do ((i 0 (+ i 1))) ((= i 96000)) (outa i (* .5 (polyshape gen 0.95 (env strum)))) ))) -------------------- make-pulsed-env, and pulsed-env work fine, however. (with-sound (:srate 48000 :channels 1 :play #t) (let ((gen (make-polyshape 100.0 :partials (list 1 .5 2 .25 3 .125 4 .125))) (jsenvel (make-pulsed-env '(0 0 .25 0.01 .5 0.2 1 0.0) 1.0 1.0)) ) (do ((i 0 (+ i 1))) ((= i 96000)) (outa i (* .5 (polyshape gen 0.95 (pulsed-env jsenvel)))) ))) -------------- next part -------------- An HTML attachment was scrubbed... URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20210511/452cef39/attachment-0001.html> ------------------------------ Message: 2 Date: Tue, 11 May 2021 11:32:40 -0700 From: b...@ccrma.stanford.edu To: James Hearon <j_hea...@hotmail.com> Cc: "cmdist@ccrma.Stanford.EDU" <cmdist@ccrma.Stanford.EDU> Subject: Re: [CM] repeating envs Message-ID: <f9ab6a125ecba5078937c93d1435e...@ccrma.stanford.edu> Content-Type: text/plain; charset=US-ASCII; format=flowed I think you're close -- this slightly edited version seems to work: (define (strum e) (if (> (mus-location e) (mus-length e)) (mus-reset e)) (env e)) (with-sound (:srate 48000 :channels 1 :play #t) (let ((gen (make-polyshape 100.0 :partials (list 1 .5 2 .25 3 .125 4 .125))) (strum-env (make-env '(0 0 .25 0.01 .5 0.2 1 0.0) :scaler 1.0 :duration 1 :base .53)) ) (do ((i 0 (+ i 1))) ((= i 96000)) (outa i (* .5 (polyshape gen 0.95 (strum strum-env)))) ))) In your code, you had two things named "strum", and the map-channel wasn't needed. ------------------------------ _______________________________________________ Cmdist mailing list Cmdist@ccrma.stanford.edu https://cm-mail.stanford.edu/mailman/listinfo/cmdist End of Cmdist Digest, Vol 156, Issue 4 **************************************
_______________________________________________ Cmdist mailing list Cmdist@ccrma.stanford.edu https://cm-mail.stanford.edu/mailman/listinfo/cmdist