<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<style type="text/css" style="display:none;"> P {margin-top:0;margin-bottom:0;} </style>
</head>
<body dir="ltr">
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
Hi Bill,</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
Yes, that's very helpful. I believe I was confused about trying to add a list to the</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
make-pulsed-env dur or frequency component, which only takes a real num:</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
(e (make-pulsed-env '(0 0 1 1 2 0) 1.0 '(0 0 .5 .15 1 0) )) <br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
versus applying an env. to the polyshape index or fm parameter:</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
(polyshape gen (* (pulsed-env e (env frq))) 0.1)</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
But I see how it should work now.<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
So this was the effect I was after. Morse Code?</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
(with-sound (:srate 48000 :channels 1 :play #t)
<div> (let ((gen (make-polyshape 400.0 :partials (list 1 .5 2 .25 3 .125 4 .125)))</div>
<div> (e (make-pulsed-env '(0 0 1 1 2 0) 1.0 1)) ;w/ dur freq</div>
<div> (frq (make-env '(0 0 .5 .15 1 0) :duration 1.0 :scaler (hz->radians 50)))</div>
<div> )</div>
<div> (do ((i 0 (+ i 1)))</div>
<div> ((= i 192000))</div>
<div> (outa i (* 5.95 (polyshape gen (* (pulsed-env e (env frq))) 0.1) )) ;w/ index, fm</div>
))) <br>
</div>
<div id="appendonsend"></div>
<hr style="display:inline-block;width:98%" tabindex="-1">
<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>From:</b> cmdist-bounces@ccrma.Stanford.EDU <cmdist-bounces@ccrma.Stanford.EDU> on behalf of cmdist-request@ccrma.Stanford.EDU <cmdist-request@ccrma.Stanford.EDU><br>
<b>Sent:</b> Wednesday, June 23, 2021 9:00 AM<br>
<b>To:</b> cmdist@ccrma.Stanford.EDU <cmdist@ccrma.Stanford.EDU><br>
<b>Subject:</b> Cmdist Digest, Vol 157, Issue 4</font>
<div> </div>
</div>
<div class="BodyFragment"><font size="2"><span style="font-size:11pt;">
<div class="PlainText">Send Cmdist mailing list submissions to<br>
cmdist@ccrma.stanford.edu<br>
<br>
To subscribe or unsubscribe via the World Wide Web, visit<br>
<a href="https://cm-mail.stanford.edu/mailman/listinfo/cmdist">https://cm-mail.stanford.edu/mailman/listinfo/cmdist</a><br>
or, via email, send a message with subject or body 'help' to<br>
cmdist-request@ccrma.stanford.edu<br>
<br>
You can reach the person managing the list at<br>
cmdist-owner@ccrma.stanford.edu<br>
<br>
When replying, please edit your Subject line so it is more specific<br>
than "Re: Contents of Cmdist digest..."<br>
<br>
<br>
Today's Topics:<br>
<br>
1. make-pulsed-env (James Hearon)<br>
2. Re: make-pulsed-env (bil@ccrma.Stanford.EDU)<br>
<br>
<br>
----------------------------------------------------------------------<br>
<br>
Message: 1<br>
Date: Wed, 23 Jun 2021 17:56:03 +0000<br>
From: James Hearon <j_hearon@hotmail.com><br>
To: "cmdist@ccrma.Stanford.EDU" <cmdist@ccrma.Stanford.EDU><br>
Subject: [CM] make-pulsed-env<br>
Message-ID:<br>
<BYAPR10MB2536A2781AAB5012906BC7DEE5089@BYAPR10MB2536.namprd10.prod.outlook.com><br>
<br>
Content-Type: text/plain; charset="iso-8859-1"<br>
<br>
Hi,<br>
I was trying to figure out how to use an env on the freq parameter of make-pulsed-env<br>
(make-pulsed-env envelope duration frequency) but it wants a real, not a pair. I thought I'd look-see the code for make-pulsed-env, but I can't seem to locate it. Wondering if there's a way to go about achieving the effect? make-freqpulsed-env?<br>
<br>
I tried adding an amp to the pulsed-env but that's not the effect I was after.<br>
(outa i (* 5.95 (polyshape gen (* (env ampenv) (pulsed-env jsenvel)) 0.01) ))<br>
Also tried a vibrato type effect using an LFO, but still no joy.<br>
Just trying to get make-pulsed-env to change frequency within the duration of the note.<br>
Something like: <>, < >, < >, <>, <>,<>,<><br>
<br>
(with-sound (:srate 48000 :channels 1 :play #t)<br>
(let ((gen (make-polyshape 400.0 :partials (list 1 .5 2 .25 3 .125 4 .125)))<br>
(jsenvel (make-pulsed-env '(0 0 .25 0.01 .5 0.2 1 0.0) 1.0 1.0)) ;XXX<br>
)<br>
(do ((i 0 (+ i 1)))<br>
((= i 96000))<br>
(outa i (* 5.95 (polyshape gen (pulsed-env jsenvel) 0.01) ))<br>
)))<br>
<br>
Regards,<br>
Jim<br>
-------------- next part --------------<br>
An HTML attachment was scrubbed...<br>
URL: <<a href="https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20210623/5f62e957/attachment-0001.html">https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20210623/5f62e957/attachment-0001.html</a>><br>
<br>
------------------------------<br>
<br>
Message: 2<br>
Date: Wed, 23 Jun 2021 11:26:53 -0700<br>
From: bil@ccrma.Stanford.EDU<br>
To: James Hearon <j_hearon@hotmail.com><br>
Cc: "cmdist@ccrma.Stanford.EDU" <cmdist@ccrma.Stanford.EDU><br>
Subject: Re: [CM] make-pulsed-env<br>
Message-ID: <f8637c31b04a201ec47b62861f5a9d4c@ccrma.stanford.edu><br>
Content-Type: text/plain; charset=US-ASCII; format=flowed<br>
<br>
The make-pulsed-env frequency parameter sets the<br>
base frequency (it can be 0); you change the pulse<br>
rate while running via the fm argument to the<br>
pulsed-env generator. For example:<br>
<br>
(with-sound ()<br>
(let ((e (make-pulsed-env '(0 0 1 1 2 0) .01 1))<br>
(frq (make-env '(0 0 1 1) :duration 1.0 :scaler (hz->radians <br>
50))))<br>
(do ((i 0 (+ i 1)))<br>
((= i 44100))<br>
(outa i (* .5 (pulsed-env e (env frq)))))))<br>
<br>
<br>
<br>
------------------------------<br>
<br>
_______________________________________________<br>
Cmdist mailing list<br>
Cmdist@ccrma.stanford.edu<br>
<a href="https://cm-mail.stanford.edu/mailman/listinfo/cmdist">https://cm-mail.stanford.edu/mailman/listinfo/cmdist</a><br>
<br>
<br>
End of Cmdist Digest, Vol 157, Issue 4<br>
**************************************<br>
</div>
</span></font></div>
</body>
</html>