<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 id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Arial,Helvetica,sans-serif;" dir="ltr">
<p><br>
</p>
<p>Hi,</p>
<p>I'm still struggling with this a bit.</p>
<p>I'm trying to understand more about float-vectors and output to be able to debug them.</p>
<p><br>
</p>
<p>How would you go about putting float-vector values on the output, or do they always need a generator of some sort?</p>
<p><br>
</p>
<p> ex. (I'm imagining) something like...<br>
</p>
<p><span> (map-channel (lambda (y) (myfloatvector)))</span></p>
<p><span> or</span></p>
<p><span> if snd object is already open</span></p>
<p><span> <span> (testme (channel->float-vector 0 fsize snd 0))</span></span></p>
<p><span><span> then</span></span></p>
<p><span><span> (map-channel (lambda (y) (testme)))<br>
</span></span></p>
<p><span><span> or open from a file...</span></span></p>
<p><span><span> (im (make-float-vector mysize))<br>
</span></span></p>
<p><span><span><span> (mus-sound-read "test.wav" 0 mysize 2 im)</span><br>
</span></span></p>
<p><span><span> then<br>
</span></span></p>
<p><span><span></p>
<div> (do ((i 0 (+ i 1)))<br>
((= i 22050))<br>
(outa i (im)))<br>
<br>
</div>
I can't seem to find what I'm looking for in the documentation to work with just the numbers for freq, amp, and phase for testing as audio. I know that's a bit spartan, so seems I need to work thru a generator such as maybe use table lookup, for ex. then apply
the vocoder.</span></span>
<p></p>
<p><span><span><br>
</span></span></p>
<p><span><span>Thank You,</span></span></p>
<p><span><span>Jim<br>
</span></span></p>
<p><span><span><br>
</span></span></p>
<p><span><span><br>
</span></span></p>
<p><span><span> </span></span><br>
</p>
<br>
<div style="color: rgb(0, 0, 0);">
<div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><font style="font-size:11pt" face="Calibri, sans-serif" 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> Friday, May 26, 2017 7:00 PM<br>
<b>To:</b> cmdist@ccrma.Stanford.EDU<br>
<b>Subject:</b> Cmdist Digest, Vol 109, Issue 4</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<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" id="LPlnk283327" previewremoved="true">
https://cm-mail.stanford.edu/mailman/listinfo/cmdist</a>
<div id="LPBorder_GT_14975487664360.9343013930950658" style="margin-bottom: 20px; overflow: auto; width: 100%; text-indent: 0px;">
<table id="LPContainer_14975487664310.5464212351428696" style="width: 90%; background-color: rgb(255, 255, 255); position: relative; overflow: auto; padding-top: 20px; padding-bottom: 20px; margin-top: 20px; border-top: 1px dotted rgb(200, 200, 200); border-bottom: 1px dotted rgb(200, 200, 200);" role="presentation" cellspacing="0">
<tbody>
<tr style="border-spacing: 0px;" valign="top">
<td id="TextCell_14975487664320.009232182927341293" style="vertical-align: top; position: relative; padding: 0px; display: table-cell;" colspan="2">
<div id="LPRemovePreviewContainer_14975487664320.9415299086149554"></div>
<div id="LPTitle_14975487664320.912694532367825" style="top: 0px; color: rgb(0, 120, 215); font-weight: 400; font-size: 21px; font-family: "wf_segoe-ui_light","Segoe UI Light","Segoe WP Light","Segoe UI","Segoe WP",Tahoma,Arial,sans-serif; line-height: 21px;">
<a id="LPUrlAnchor_14975487664330.174097580067049" style="text-decoration: none;" href="https://cm-mail.stanford.edu/mailman/listinfo/cmdist" target="_blank">Cmdist Info Page - Center for Computer Research in Music ...</a></div>
<div id="LPMetadata_14975487664340.9150916693344748" style="margin: 10px 0px 16px; color: rgb(102, 102, 102); font-weight: 400; font-family: "wf_segoe-ui_normal","Segoe UI","Segoe WP",Tahoma,Arial,sans-serif; font-size: 14px; line-height: 14px;">
cm-mail.stanford.edu</div>
<div id="LPDescription_14975487664350.13505787458668017" style="display: block; color: rgb(102, 102, 102); font-weight: 400; font-family: "wf_segoe-ui_normal","Segoe UI","Segoe WP",Tahoma,Arial,sans-serif; font-size: 14px; line-height: 20px; max-height: 100px; overflow: hidden;">
Common Music, Common Lisp Music, Common Music Notation and Snd mailing list. To see the collection of prior postings to the list, visit the Cmdist Archives.</div>
</td>
</tr>
</tbody>
</table>
</div>
<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-pvocoder (James Hearon)<br>
2. Re: make-pvocoder (bil@ccrma.Stanford.EDU)<br>
<br>
<br>
----------------------------------------------------------------------<br>
<br>
Message: 1<br>
Date: Thu, 25 May 2017 19:00:15 +0000<br>
From: James Hearon <j_hearon@hotmail.com><br>
To: "cmdist@ccrma.Stanford.EDU" <cmdist@ccrma.Stanford.EDU><br>
Subject: [CM] make-pvocoder<br>
Message-ID:<br>
<BN6PR1001MB206736A3CF55B6980475A01CE5FF0@BN6PR1001MB2067.namprd10.prod.outlook.com><br>
<br>
Content-Type: text/plain; charset="iso-8859-1"<br>
<br>
Hi,<br>
<br>
I'm working thru snd make-pvocoder, clm make-phase-vocoder trying to find more info on the analyze, edit, and synthesize methods, such as the one below the manual which shows a lambda func for the synthesis or resynthesis method. Most of what I've been able
to find is based on a gen from readin of a file or input samples to access spectral data. I know this is a bit odd, but I was trying to create designer spectra, by filling empty vectors with various numbers etc, as opposed to getting the data from a readin
generator. So far mine just sounds like noise, so I don't have it quite right. I'm wondering if I'm on the right track by using original vectors in the analyze, edit, and synthesize methods. Or maybe I should just be creating sound files using something
like infinite sums, for example, and sticking with the readin generator to analyze those sounds? I've looked at at the moving-spectrum and pins insts too.<br>
<br>
<br>
Thank you,<br>
<br>
Jim<br>
<br>
(with-sound (:srate 22050 :statistics #t)<br>
(let ((pv (make-phase-vocoder<br>
(make-readin "oboe.snd")<br>
512 4 128 1.0<br>
#f ; no change to analysis method<br>
#f ; no change to spectrum<br>
(lambda (gen) ; resynthesis function<br>
(float-vector-add! (phase-vocoder-amps gen) (phase-vocoder-amp-increments gen))<br>
(float-vector-add! (phase-vocoder-phase-increments gen) (phase-vocoder-freqs gen))<br>
(float-vector-add! (phase-vocoder-phases gen) (phase-vocoder-phase-increments gen))<br>
(let ((sum 0.0)<br>
(n (length (phase-vocoder-amps gen))))<br>
(do ((k 0 (+ k 1)))<br>
((= k n))<br>
(set! sum (+ sum (* (float-vector-ref (phase-vocoder-amps gen) k)<br>
(sin (* 0.5 (float-vector-ref (phase-vocoder-phases gen) k)))))))<br>
sum)))))<br>
(do ((i 0 (+ i 1)))<br>
((= i 44100))<br>
(outa i (phase-vocoder pv)))))<br>
<br>
--------------------<br>
<br>
<br>
(with-sound (:reverb nrev :srate 48000 :channels 2 :header-type mus-riff :statistics #t :output "/myTest.wav" :play #t )<br>
(let* ((samps (* 2 (mus-sound-framples "/Sample1.wav")))<br>
(hop 512)<br>
(jsampvec (make-float-vector hop)) ;create empty vectors<br>
(jsampincvec (make-float-vector hop))<br>
(jsfreqvec (make-float-vector hop))<br>
(jsphasevec (make-float-vector hop))<br>
(jsphaseincvec (make-float-vector hop))<br>
(pv (make-phase-vocoder<br>
(make-readin "/Sample1.wav")<br>
512 4 128 1.75 ;fft-size, overlap, interp, pitch<br>
#f ; no change to analysis<br>
#f ; no change to edit<br>
(lambda (gen) ; *attempt resynthesis function*<br>
(do ((i 0 (+ i 1)))<br>
((= i hop))<br>
(set! (jsampvec i) (mus-random .02) ) ;fill vectors with numbers<br>
(set! (jsampincvec i) (mus-random .05) )<br>
(set! (jsfreqvec i) (mus-random 500) )<br>
(set! (jsphasevec i) (mus-random 360) )<br>
(set! (jsphaseincvec i) (mus-random .02) )<br>
) ;end do<br>
<br>
(float-vector-add! jsampvec jsampincvec) ;add the vectors<br>
(float-vector-add! jsphaseincvec jsfreqvec)<br>
(float-vector-add! jsphasevec jsphaseincvec)<br>
<br>
(let ((sum 0.0)<br>
(n hop))<br>
(do ((k 0 (+ k 1)))<br>
((= k n))<br>
(set! sum (+ sum (* (jsampvec k)(sin (* 0.5 (jsphasevec k)))))) ;create waveform<br>
)<br>
sum)<br>
)))<br>
(do ((i 0 (+ i 1)))<br>
((= i samps))<br>
(outa i (* 4 (phase-vocoder pv)))<br>
(outb i (* 4 (phase-vocoder pv)))<br>
)))<br>
<br>
-------------- next part --------------<br>
An HTML attachment was scrubbed...<br>
URL: <<a href="https://cm-mail.stanford.edu/mailman/private/cmdist/attachments/20170525/8c447611/attachment-0001.html" id="LPlnk902989" previewremoved="true">https://cm-mail.stanford.edu/mailman/private/cmdist/attachments/20170525/8c447611/attachment-0001.html</a>><br>
<br>
------------------------------<br>
<br>
Message: 2<br>
Date: Thu, 25 May 2017 14:40:33 -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-pvocoder<br>
Message-ID: <6940b572444d077c52c1342ced6d1baf@ccrma.stanford.edu><br>
Content-Type: text/plain; charset=US-ASCII; format=flowed<br>
<br>
Your instrument fills all the vocoder arrays<br>
with noise, so you get noise as the output.<br>
Are you trying to do additive synthesis?<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" id="LPlnk740706" previewremoved="true">https://cm-mail.stanford.edu/mailman/listinfo/cmdist</a>
<div id="LPBorder_GT_14975488245080.6815237795994226" style="margin-bottom: 20px; overflow: auto; width: 100%; text-indent: 0px;">
<table id="LPContainer_14975488245000.4516606910598502" style="width: 90%; background-color: rgb(255, 255, 255); position: relative; overflow: auto; padding-top: 20px; padding-bottom: 20px; margin-top: 20px; border-top: 1px dotted rgb(200, 200, 200); border-bottom: 1px dotted rgb(200, 200, 200);" role="presentation" cellspacing="0">
<tbody>
<tr style="border-spacing: 0px;" valign="top">
<td id="TextCell_14975488245020.1714074722144865" style="vertical-align: top; position: relative; padding: 0px; display: table-cell;" colspan="2">
<div id="LPRemovePreviewContainer_14975488245030.19857277604731582"></div>
<div id="LPTitle_14975488245030.43573468643031654" style="top: 0px; color: rgb(0, 120, 215); font-weight: 400; font-size: 21px; font-family: "wf_segoe-ui_light","Segoe UI Light","Segoe WP Light","Segoe UI","Segoe WP",Tahoma,Arial,sans-serif; line-height: 21px;">
<a id="LPUrlAnchor_14975488245050.9360755455177524" style="text-decoration: none;" href="https://cm-mail.stanford.edu/mailman/listinfo/cmdist" target="_blank">Cmdist Info Page - Center for Computer Research in Music ...</a></div>
<div id="LPMetadata_14975488245060.8971991546552376" style="margin: 10px 0px 16px; color: rgb(102, 102, 102); font-weight: 400; font-family: "wf_segoe-ui_normal","Segoe UI","Segoe WP",Tahoma,Arial,sans-serif; font-size: 14px; line-height: 14px;">
cm-mail.stanford.edu</div>
<div id="LPDescription_14975488245070.030548090605756806" style="display: block; color: rgb(102, 102, 102); font-weight: 400; font-family: "wf_segoe-ui_normal","Segoe UI","Segoe WP",Tahoma,Arial,sans-serif; font-size: 14px; line-height: 20px; max-height: 100px; overflow: hidden;">
Common Music, Common Lisp Music, Common Music Notation and Snd mailing list. To see the collection of prior postings to the list, visit the Cmdist Archives.</div>
</td>
</tr>
</tbody>
</table>
</div>
<br>
<br>
<br>
End of Cmdist Digest, Vol 109, Issue 4<br>
**************************************<br>
<br>
</div>
</span></font></div>
</div>
</body>
</html>