<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;background-color:#FFFFFF;font-family:Calibri,Arial,Helvetica,sans-serif;">
<p><br>
</p>
<br>
<p>anders wrote...<br>
</p>
<div style="color: rgb(0, 0, 0);">
<div class="PlainText"><br>
You can take the body of each of your two with-sound calls and place<br>
within one single with-sound:<br>
<br>
(let ((var '())<br>
(aaa (make-heap '(360 800.345 1200 600))) ;freq<br>
(bbb (make-cycle '(1 1 .75 .25 .20 .15 .10 .10 .10 .10))) ;dur<br>
(ccc (make-heap '(241 840.345 1000 960 500))) ;freq<br>
(ddd (make-cycle '(.2 1.25 .75 .25 .20 .15 .10 .10 .50 .10 .50))) ;dur<br>
)<br>
(with-sound (:reverb nrev :output "Test1.wav" :srate 48000 :channels 2 <br>
:header-type mus-riff :statistics #t :play #t)<br>
<br>
;; BODY OF CALL 1:<br>
<br>
(let ((i 0))<br>
(do ((k 0 (+ k 1))) <br>
((>= k 25))<br>
(let ((v (next bbb)))<br>
(examp1 i v (next aaa) .3)<br>
(set! i (+ (round-off i 2) v)))))<br>
<br>
;; BODY OF CALL 2:<br>
<br>
(let ((j 1))<br>
(do ((k 0 (+ k 1))) <br>
((>= k 25))<br>
(let ((v (next ddd)))<br>
(examp2 j v (next ccc) .1)<br>
(set! j (+ (round-off j 2) v)))))))<br>
<br>
I'm 100% sure what you want to do is possible. If the above doesn't<br>
come close, please try to be more explicit as to what you want to<br>
achieve, perhaps detail in words.<br>
<br>
Cheers,<br>
<br>
-anders<br>
<br>
------------------------------<br>
<br>
Hi,<br>
Yes, this is coming along better now. Bill gave me a couple of pointers too.<br>
I'm finding myself using Snd more for help with composing than audio editing these days,<br>
but takes a while to get used to scheme.<br>
<br>
Regards,<br>
Jim<br>
<br>
(load "/opt/snd-16/CM_patterns.scm")<br>
<br>
(define (round-off z n)<br>
(let ((power (expt 10 n)))<br>
(/ (round (* power z)) power)))<br>
<br>
(definstrument (examp1 start-time duration frequency amplitude)<br>
(let* ((beg (seconds->samples start-time))<br>
(end (+ beg (seconds->samples duration)))<br>
(sine-wave (make-oscil :frequency frequency)))<br>
(do ((i beg (+ i 1)))<br>
((= i end))<br>
(let ((x (* amplitude (oscil sine-wave))))<br>
(outa i x)<br>
(outb i x)))))<br>
<br>
(definstrument (examp2 start-time duration frequency amplitude)<br>
(let* ((beg (seconds->samples start-time))<br>
(end (+ beg (seconds->samples duration)))<br>
(gen (make-polywave :frequency frequency :partials '(1 1.69 3 5))))<br>
(do ((i beg (+ i 1)))<br>
((= i end))<br>
(let ((x (* amplitude (polywave gen))))<br>
(outa i x)<br>
(outb i x) ))))<br>
<br>
(let ((aaa (make-heap '(360 800.345 1200 600))) ;freqs<br>
(bbb (make-cycle '(1 1 .75 .25 .20 .15 .10 .10 .10 .10))) ;durs<br>
(ccc (make-heap '(500 440 880 1620 591.23))) ;freqs<br>
(ddd '(600 700 800 900) ) ;just freqs, no pattern<br>
(eee (make-cycle '(.2 1.25 .75 .25 .20 .15 .10 .10 .50 .10 .50))) ;durs<br>
(var1 '() )<br>
(var2 '() )<br>
)<br>
(set! var1 (append (next aaa #t) (next ccc #t) ))<br>
(set! var2 (append var1 ddd) )<br>
(let ((var3 (make-heap var1))<br>
(var4 (make-heap var2))<br>
)<br>
(with-sound (:reverb nrev :output "/home/test.wav" :srate 48000 :channels 2 <br>
:header-type mus-riff :statistics #t :play #t)<br>
(let ((i 0))<br>
(do ((k 0 (+ k 1))) <br>
((>= k 4))<br>
(let ((v (next bbb)))<br>
(examp1 i v (next var3) .3) <br>
(set! i (+ (round-off i 2) v))<br>
))) <br>
<br>
(let ((j 4))<br>
(do ((k 0 (+ k 1))) <br>
((>= k 15))<br>
(let ((v (next eee)))<br>
(examp2 j v (next var4) .05)<br>
(set! j (+ (round-off j 2) v))<br>
))) <br>
))) ;;end of with-sound<br>
<br>
<br>
<br>
</div>
<div>
<hr tabindex="-1" style="display:inline-block; width:98%">
</div>
<font size="2"><span style="font-size:10pt;"></span></font></div>
</div>
</body>
</html>