<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);" class="elementToProof">
Hi,</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
I'm still pondering how best to accomplish this. I tried a couple of exs below, one adding filters.<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
I thought bandpass was best to try but couldn't get good high cutoff results with just one filter so I went to two overlapping bandpass filters. But I've buggered the freqs by an octave somehow. That could have been in using hz->radians as cutoffs.</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
I think my experiments still sound too glissy overall.</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
I'm wondering if there are other suggestions?</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
Thank you,</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
Jim<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
<br>
</div>
<div style="font-family: Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);" class="elementToProof">
;no portamento.
<div>(definstrument (noport start-time duration frequency (amp-env '(0 0 1 1 2 1 3 0)) sampling-rate)</div>
<div> (let* ((beg (floor (* start-time sampling-rate)))</div>
<div>(end (+ beg (floor (* duration sampling-rate))))</div>
<div>(sine-wave (make-oscil :frequency frequency))</div>
<div>(ampf (make-env amp-env :duration duration :scaler 1.0))</div>
<div> )</div>
<div> (do ((i beg (+ i 1)))</div>
<div> ((= i end))</div>
<div> (outa i (* (env ampf) (oscil sine-wave ))) </div>
<div> (outb i (* (env ampf) (oscil sine-wave ))) </div>
<div> )))</div>
<div><br>
</div>
<div>;portamento. no filter.</div>
<div>(definstrument (myport start-time duration frequency start-freq end-freq (amp-env '(0 0 1 1 2 1 3 0)) sampling-rate)</div>
<div> (let* ((beg (floor (* start-time sampling-rate)))</div>
<div>(end (+ beg (floor (* duration sampling-rate))))</div>
<div>(sine-wave (make-oscil :frequency frequency))</div>
<div>(ampf (make-env amp-env :duration duration :scaler 1.0))</div>
<div>(frqf (make-env '(0 0 1 1) :scaler (hz->radians (- end-freq start-freq)) :duration duration :base 0.67))</div>
<div> )</div>
<div> (do ((i beg (+ i 1)))</div>
<div> ((= i end))</div>
<div> (outa i (* (env ampf) (oscil sine-wave (env frqf) ))) </div>
<div> (outb i (* (env ampf) (oscil sine-wave (env frqf) ))) </div>
<div> )))</div>
<div><br>
</div>
<div>(with-sound (:srate 48000 :channels 2 :header-type mus-riff :play #t)</div>
<div> (myport 0 1 300 300 400 '(0 .3 .5 .1 1 .09) 48000)</div>
<div> (noport 1.1 .9 400 '(0 .01 1 .1) 48000)</div>
<div><br>
</div>
<div> (myport 2 1 400 400 500 '(0 .2 .5 .1 1 .09) 48000)</div>
<div> (noport 3.1 .9 500 '(0 .01 1 .1) 48000)</div>
<div><br>
</div>
<div> (noport 4 .3 500 '(0 .19 .3 .001) 48000)</div>
<div> (myport 4.2 .6 500 500 300 '(0 .001 .5 .1 1 .3) 48000)</div>
<div> (noport 5 1 300 '(0 .08 .3 .001) 48000)</div>
<div> )</div>
<div><br>
</div>
<div>;portamento adding filters.<br>
</div>
<div>(definstrument (myportfilt start-time duration frequency start-freq end-freq (glissamp-env '(0 0 1 1 2 0)) (amp-env '(0 0 1 1 2 1 3 0)) sampling-rate order1 flow1 fhigh1 order2 flow2 fhigh2)</div>
<div> (let* ((beg (floor (* start-time sampling-rate)))</div>
<div>(end (+ beg (floor (* duration sampling-rate))))</div>
<div>(sine-wave (make-oscil :frequency frequency)) ;sine osc</div>
<div>(ampf (make-env amp-env :duration duration :scaler 1.0)) ;overall amp env</div>
<div>(frqf (make-env '(0 0 1 1) :scaler (hz->radians (- end-freq start-freq)) :duration duration :base 0.67)) ;gliss</div>
<div>(gliss_amp (make-env glissamp-env :duration duration :scaler 1.0)) ;another amp env for the gliss</div>
<div> (flt1 (make-butterworth-bandpass order1 (hz->radians flow1) (hz->radians fhigh1)))
</div>
<div> (flt2 (make-butterworth-bandpass order2 (hz->radians flow2) (hz->radians fhigh2)))
</div>
<div> )</div>
<div> (do ((i beg (+ i 1)))</div>
<div> ((= i end))</div>
<div>(outa i (* (env ampf) (+ (* (env gliss_amp)(flt1 (oscil sine-wave (env frqf)))) (* (env gliss_amp)(flt2 (oscil sine-wave (env frqf)))))))</div>
<div>(outb i (* (env ampf) (+ (* (env gliss_amp)(flt1 (oscil sine-wave (env frqf)))) (* (env gliss_amp)(flt2 (oscil sine-wave (env frqf)))))))</div>
<div> )))</div>
<div><br>
</div>
<div>(with-sound (:srate 48000 :channels 2 :header-type mus-riff :play #t)</div>
<div> (noport 0 .55 400 '(0 .03 1 .01) 48000)</div>
<div> (myportfilt .5 .4 200 200 400 '(0 .3 .4 .1) '(0 0.03 .9 0.06) 48000 8 100 150 8 100 200)</div>
<div> (noport .5 .5 800 '(0 .01 1 .01) 48000)</div>
<div><br>
</div>
<div> (noport 1 .55 800 '(0 .03 1 .01) 48000)</div>
<div> (myportfilt 1.5 .4 400 400 200 '(0 .3 .4 .01) '(0 0.03 .9 0.06) 48000 8 100 150 8 100 200)</div>
<div> (noport 1.5 .5 400 '(0 .01 1 .01) 48000)</div>
<div> </div>
<div> (noport 3 1.1 400 '(0 .03 1 .01) 48000)</div>
<div> (myportfilt 4 .9 200 200 400 '(0 .3 .9 .1) '(0 0.03 .9 0.06) 48000 8 100 150 8 100 200)</div>
<div> (noport 5 1 800 '(0 .02 1 .1) 48000)</div>
)<br>
</div>
</body>
</html>