From bil at ccrma.Stanford.EDU  Fri Jul  8 04:58:55 2016
From: bil at ccrma.Stanford.EDU (bil at ccrma.Stanford.EDU)
Date: Fri, 08 Jul 2016 04:58:55 -0700
Subject: [CM] a post about s7
Message-ID: <0dc8b6017008677fb3e5d0508d2a397b@ccrma.stanford.edu>

http://carloscarrasco.com/a-love-letter-to-s7-scheme.html



From thecodewitch at gmail.com  Sat Jul  9 18:10:30 2016
From: thecodewitch at gmail.com (Greg)
Date: Sun, 10 Jul 2016 11:10:30 +1000
Subject: [CM] a post about s7
In-Reply-To: <0dc8b6017008677fb3e5d0508d2a397b@ccrma.stanford.edu>
References: <0dc8b6017008677fb3e5d0508d2a397b@ccrma.stanford.edu>
Message-ID: <CAMFbVYi_nL1HuKYebmkTrCFh7vMpof1k_tu_oU4gLV1JApQu9A@mail.gmail.com>

s7 really is very beautiful! I love the emphasis on embeddability and
introspection.

On Fri, Jul 8, 2016 at 9:58 PM, <bil at ccrma.stanford.edu> wrote:

> http://carloscarrasco.com/a-love-letter-to-s7-scheme.html
>
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> https://cm-mail.stanford.edu/mailman/listinfo/cmdist
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20160710/a72daeb9/attachment.html>

From j_hearon at hotmail.com  Fri Jul 22 11:15:20 2016
From: j_hearon at hotmail.com (James Hearon)
Date: Fri, 22 Jul 2016 18:15:20 +0000
Subject: [CM] Scheme, larger structures
In-Reply-To: <mailman.1143.1464804093.9266.cmdist@ccrma.stanford.edu>
References: <mailman.1143.1464804093.9266.cmdist@ccrma.stanford.edu>
Message-ID: <BLUPR10MB08365403A9ECCCAC8999E83DE50A0@BLUPR10MB0836.namprd10.prod.outlook.com>


Hi,

I had written about a scheme method to do something similar to CLM's with-mix
for larger compositional structures using multiple instruments and Bill had replied...

"If you want to concatenate several with-sounds into one,
just concatenate the instrument calls, with some variable
holding the section's start time."

I'm not sure I'm off in the right direction, but I tried to implement what Bill was suggesting and got stuck getting the instruments to read in the body of with-sound.  I tried a cons, let, string, and a vector on the instrument calls and couldn't get those to play in with-sound so I just put them in a pattern.  The instrument calls seem to be getting thru when I print, but for some reason with-sound is not recognizing them.

Maybe I'm off on the wrong design here.

Any help, comments appreciated.

Regards,
Jim


(load "/opt/snd-16/CM_patterns.scm")

(define (round-off z n)
  (let ((power (expt 10 n)))
    (/ (round (* power z)) power)))

(definstrument (examp1 start-time duration frequency amplitude)
(let* ((beg (seconds->samples start-time))
(end (+ beg (seconds->samples duration)))
(sine-wave (make-oscil :frequency frequency)))
(do ((i beg (+ i 1)))
((= i end))
(let ((x (* amplitude (oscil sine-wave))))
(outa i x)
(outb i x)))))

(definstrument (examp2 start-time duration frequency amplitude)
(let* ((beg (seconds->samples start-time))
       (end (+ beg (seconds->samples duration)))
       (gen (make-polywave 440.0 :partials '(1 1.69 3 5))))
(do ((i beg (+ i 1)))
    ((= i end))
(let ((x (* amplitude (polywave gen))))
(outa i x)
(outb i x) ))))

;sanity check
(with-sound (:output "/home/myTest.wav" :srate 48000 :channels 2
             :header-type mus-riff :statistics #t :play #t)
  (examp1 0 .5  480 .75)
  (examp2 1 .5  580 .07)
  (examp1 2 .5  380 .75)
)

(let ((aaa (make-heap '(360 800.345 1200 600))) ;freq
      (bbb (make-cycle '(1 1 .75 .25 .20 .15 .10 .10 .10 .10))) ;dur
      (ccc (make-heap '((examp1 i v (next aaa) .2) (examp2 i v (next aaa) .2) )))
      )
(with-sound (:reverb nrev :output "/home/myTest.wav" :srate 48000 :channels 2
             :header-type mus-riff :statistics #t :play #t)
        (let ((i 0))
                 (do ((k 0 (+ k 1)))
               ((>= k 25))
          (let ((v (next bbb)))
          ;(examp1 i v (next aaa) .2) ;works fine
        ;(format #t "~%next ccc:  ")
                ;(display (next ccc))
            (next ccc) ; xxx not working
        (set! i (+ (round-off i 2) v))
                )))))






















-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20160722/123f4b72/attachment.html>

From bil at ccrma.Stanford.EDU  Thu Jul 28 13:30:05 2016
From: bil at ccrma.Stanford.EDU (bil at ccrma.Stanford.EDU)
Date: Thu, 28 Jul 2016 13:30:05 -0700
Subject: [CM] Snd 16.7
Message-ID: <7df7da37c7c3e94f82c6fe62583fc116@ccrma.stanford.edu>

Snd 16.7.

changed compute-string and compute-uniform-circular-string to 
vibrating-string, etc.

checked: gtk 3.21.3|4, sbcl 1.3.7.

Thanks!: Carlos Carrasco