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: [email protected] <[email protected]> on
behalf of [email protected] <[email protected]>
Sent: Tuesday, May 11, 2021 9:00 AM
To: [email protected] <[email protected]>
Subject: Cmdist Digest, Vol 156, Issue 4
Send Cmdist mailing list submissions to
[email protected]
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
[email protected]
You can reach the person managing the list at
[email protected]
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 ([email protected])
----------------------------------------------------------------------
Message: 1
Date: Tue, 11 May 2021 17:46:52 +0000
From: James Hearon <[email protected]>
To: "[email protected]" <[email protected]>
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: [email protected]
To: James Hearon <[email protected]>
Cc: "[email protected]" <[email protected]>
Subject: Re: [CM] repeating envs
Message-ID: <[email protected]>
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
[email protected]
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
End of Cmdist Digest, Vol 156, Issue 4
**************************************
_______________________________________________
Cmdist mailing list
[email protected]
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
