<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<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, <br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
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.&nbsp; I'm wondering how you would use it for the polyshape gen fm parameter? Or is that not how it's supposed to work?<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
Regards,</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
Jim<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);">
(define (strum e)
<div>&nbsp; (map-channel (lambda (y)</div>
<div>(if (&gt; (mus-location e) (mus-length e)) ; mus-length = dur</div>
<div>&nbsp; &nbsp; (mus-reset e)) &nbsp; &nbsp; ; start env again (default is to stick at the last value)</div>
<div>(* y (env e)))))</div>
<div><br>
</div>
<div>(with-sound (:srate 48000 :channels 1 :play #t)</div>
<div>&nbsp; (let ((gen (make-polyshape 100.0 :partials (list 1 .5 &nbsp;2 .25 &nbsp;3 .125 &nbsp;4 .125)))</div>
<div>(strum (make-env '(0 0 &nbsp;.25 &nbsp;0.01 &nbsp;.5 &nbsp;0.2 1 &nbsp;0.0) :scaler 1.0 :duration 1 :base .53))</div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; )</div>
<div>&nbsp; &nbsp; (do ((i 0 (+ i 1)))</div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; ((= i 96000))</div>
<div>&nbsp; &nbsp; &nbsp; (outa i (* .5 (polyshape gen 0.95 (env strum))))</div>
&nbsp; &nbsp; &nbsp; ))) <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);">
--------------------</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
make-pulsed-env, and pulsed-env work fine, however.</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>&nbsp; (let ((gen (make-polyshape 100.0 :partials (list 1 .5 &nbsp;2 .25 &nbsp;3 .125 &nbsp;4 .125)))</div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; (jsenvel (make-pulsed-env '(0 0 &nbsp;.25 &nbsp;0.01 &nbsp;.5 &nbsp;0.2 1 &nbsp;0.0) &nbsp;1.0 &nbsp;1.0))</div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; )</div>
<div>&nbsp; &nbsp; (do ((i 0 (+ i 1)))</div>
<div>&nbsp; &nbsp; &nbsp; &nbsp; ((= i 96000))</div>
<div>&nbsp; &nbsp; &nbsp; (outa i (* .5 (polyshape gen 0.95 (pulsed-env jsenvel))))</div>
&nbsp; &nbsp; &nbsp; ))) <br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
</body>
</html>