From dlphillips at woh.rr.com  Sun Jun  1 06:26:15 2014
From: dlphillips at woh.rr.com (Dave Phillips)
Date: Sun, 01 Jun 2014 09:26:15 -0400
Subject: [CM] no JACK with GRACE :(
Message-ID: <538B29F7.5090302@woh.rr.com>

Greetings,

I updated my source tree for CM and rebuilt the binary with support for 
FOMUS, oscpack, SDIF, and JACK, Alas, there is no selection for JACK in 
Grace's Audio Settings. I ran this string for premake:

premake4 --with-jack --with-oscpack --with-fomus=/usr --with-sdif=/usr

I ran 'make clean', rebuilt, still got no JACK joy. Everything else is 
there, but how do I enable JACK support ?

Best,

dp



From j_hearon at hotmail.com  Fri Jun  6 18:13:39 2014
From: j_hearon at hotmail.com (James Hearon)
Date: Sat, 7 Jun 2014 01:13:39 +0000
Subject: [CM] green, butter clm
In-Reply-To: <mailman.1.1401649202.11688.cmdist@ccrma.stanford.edu>
References: <mailman.1.1401649202.11688.cmdist@ccrma.stanford.edu>
Message-ID: <BLU168-W110B65200DBA2ED5A5C1754E52F0@phx.gbl>

Hi,
For CL/CLM manual under "other generators", I'm trying to understand the implications of green.cl and butterworth.cl.

"green.cl defines several special purpose noise generators.
butterworth.cl has several Butterworth filters.  
(See analog-filter.scm in the Snd package for functions to design all the usual analog filters;
the output is compatible with CLM's filter generator)."

I think I've understood green.cl, but stuck on butterworth.cl, however I did get the Snd analog-filter.scm working in Grace and Snd.

For emacs/slime/lisp with butterworth.cl was trying below, but getting memory errors.  Not sure if I understood what .cl is for?  I just named it .lisp, added the instrument below to it and tried to compile and load that.  I'm thinking I'm off on the wrong track about how the butterworths are intended to be utilized in clm.


(definstrument mybutter (beg dur freq amp)
   (let* ((start (floor (* beg *srate*)))
   (end (+ start (floor (* dur *srate*))))
        (flt (make-butterbp 200 .5))
     (os (make-oscil freq)))
    (run
     (loop for i from start to end do
       (outa i (* amp (filter flt (oscil os))))))))

(with-sound (:channels 2 :srate 48000 :header-type mus-riff :output "testbutter.wav")
(mybutter 0 5 400 .7)
)

 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20140607/80c04b85/attachment.html>

From bil at ccrma.Stanford.EDU  Sat Jun  7 08:27:21 2014
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Sat, 7 Jun 2014 08:27:21 -0700
Subject: [CM] green, butter clm
In-Reply-To: <BLU168-W110B65200DBA2ED5A5C1754E52F0@phx.gbl>
References: <mailman.1.1401649202.11688.cmdist@ccrma.stanford.edu>
	<BLU168-W110B65200DBA2ED5A5C1754E52F0@phx.gbl>
Message-ID: <20140607152528.M97517@ccrma.Stanford.EDU>

You're on the right track, but this parenthetical comment:

> the output is compatible with CLM's filter generator

refers to the Snd version of CLM, not the CL version.  In CL, you need to use
the "butter" macro from butterworth.cl:

       (outa i (* amp (butter flt (oscil os))))

That memory fault is the sort of thing that made me give up on CL many years ago.



From rbastian at free.fr  Sat Jun  7 13:16:35 2014
From: rbastian at free.fr (=?UTF-8?B?UmVuw6k=?= Bastian)
Date: Sat, 7 Jun 2014 22:16:35 +0200
Subject: [CM] green, butter clm
In-Reply-To: <20140607152528.M97517@ccrma.Stanford.EDU>
References: <mailman.1.1401649202.11688.cmdist@ccrma.stanford.edu>
	<BLU168-W110B65200DBA2ED5A5C1754E52F0@phx.gbl>
	<20140607152528.M97517@ccrma.Stanford.EDU>
Message-ID: <20140607221635.0501b665@Lenovo>

On Sat, 7 Jun 2014 08:27:21 -0700
"Bill Schottstaedt" <bil at ccrma.Stanford.EDU> wrote:

> You're on the right track, but this parenthetical comment:
> 
> > the output is compatible with CLM's filter generator
> 
> refers to the Snd version of CLM, not the CL version.  In CL, you
> need to use the "butter" macro from butterworth.cl:
> 
>        (outa i (* amp (butter flt (oscil os))))
> 
> That memory fault is the sort of thing that made me give up on CL
> many years ago.

What do you mean saying "made me give up on CL" ?

rb
> 
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist



From j_hearon at hotmail.com  Tue Jun 24 11:55:10 2014
From: j_hearon at hotmail.com (James Hearon)
Date: Tue, 24 Jun 2014 18:55:10 +0000
Subject: [CM] cl/clm mutliple combs
In-Reply-To: <mailman.1020.1380210437.26552.cmdist@ccrma.stanford.edu>
References: <mailman.1020.1380210437.26552.cmdist@ccrma.stanford.edu>
Message-ID: <BLU168-W1258531E2D1E20AD9BDBC49E51E0@phx.gbl>

Hi,
I'm stuck on a bit of info from snd/clm manual re: summing combs. I was able to do it in snd/clm using comb-bank, but I'm stuck on cl/clm approach where you need to loop thru and sum the combs.  Hoping I can get some help with my code, below. I may have made a mess of it, but can't seem to figure out how to do it.  Thank you.

 (let ((sum 0.0)) 
  (do ((i 0 (+ i 1)))
      ((= i n) sum)
    (set! sum (+ sum (comb (combs i) x)))))

can be replaced with:

(let ((cb (make-comb-bank combs)))
  ...
  (comb-bank cb x))

----------------
error:
The LET* binding spec (COMBS 1 (MAKE-COMB 1.0 600)) is malformed.

(definstrument mult-combs (beg dur freq amp)
  (let* ((start (floor (* beg *srate*)))
     (end (+ start (floor (* dur *srate*))))
     (os (make-oscil freq))
     (combs 1 (make-comb 1.0 600))
     (combs 2 (make-comb 2.0 300))
     (combs 3 (make-comb 3.0 100))
     (sum 0.0) ) 
    (do ((i 0 (+ i 1))) 
    ((= i 3) sum)    
    (set! sum (+ sum (comb (combs i) 0.02))) )
     (run
     (loop for i from start to end do
   (outa i (comb sum (* amp (oscil os))))    
   (outb i (comb sum (* amp (oscil os)))) ))))
       
 (with-sound (:channels 2 :srate 48000 :header-type mus-riff :output "mytest.wav")
   (mult-combs 0 5 200 .8)
 )
 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20140624/a01c45fb/attachment.html>

From bil at ccrma.Stanford.EDU  Tue Jun 24 14:13:13 2014
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Tue, 24 Jun 2014 14:13:13 -0700
Subject: [CM] cl/clm mutliple combs
In-Reply-To: <BLU168-W1258531E2D1E20AD9BDBC49E51E0@phx.gbl>
References: <mailman.1020.1380210437.26552.cmdist@ccrma.stanford.edu>
	<BLU168-W1258531E2D1E20AD9BDBC49E51E0@phx.gbl>
Message-ID: <20140624210715.M57952@ccrma.Stanford.EDU>

It looks like you're mixing up scheme ("set!") and CL ("run");
Here is a CL version:

(definstrument mult-combs (beg dur freq amp)
  (let* ((start (floor (* beg *srate*)))
	 (end (+ start (floor (* dur *srate*))))
	 (os (make-oscil freq))
	 (combs (make-array 3))
	 (sum 0.0))

     (setf (aref combs 0) (make-comb .10 600))
     (setf (aref combs 1) (make-comb .20 300))
     (setf (aref combs 2) (make-comb .30 100))

     (run
     (loop for k from start to end do
	   (setf sum 0.0)
	   (let ((x (oscil os)))
	     (do ((i 0 (+ i 1))) 
		 ((= i 3))    
		 (setf sum (+ sum (comb (aref combs i) x)))))
	   (outa k (* amp sum))
	   (outb k (* amp sum))))))
       
; (with-sound (:channels 2 :srate 48000 :header-type mus-riff :data-format mus-lfloat :output 
"mytest.wav") (mult-combs 0 5 200 .1))


and a scheme version:

(definstrument (mult-combs beg dur freq amp)
  (let* ((start (floor (* beg *clm-srate*)))
	 (end (+ start (floor (* dur *clm-srate*))))
	 (os (make-oscil freq))
	 (combs (make-vector 3))
	 (sum 0.0))
     (set! (combs 0) (make-comb .10 600))
     (set! (combs 1) (make-comb .20 300))
     (set! (combs 2) (make-comb .30 100))

     (do ((k start (+ k 1)))
	 ((= k end))
       (set! sum 0.0)
       (let ((x (oscil os)))
	 (do ((i 0 (+ i 1))) 
	     ((= i 3))    
	   (set! sum (+ sum (comb (combs i) x))))
	 (outa k (* amp sum))
	 (outb k (* amp sum))))))
	 ))))
       
; (with-sound (:channels 2 :srate 48000 :header-type mus-riff :output "mytest.wav") (mult-combs 0 5 
200 .1))



In CL, mus-riff output, you need to give a compatible data-format.   In both cases,
you need to make the array (or vector) before loading it.



From lb at zkm.de  Sun Jun 29 08:30:19 2014
From: lb at zkm.de (=?iso-8859-1?Q?ludger_br=FCmmer?=)
Date: Sun, 29 Jun 2014 17:30:19 +0200
Subject: [CM] fomus on 64 bit osx 10.9
Message-ID: <4C9D90CA-1553-4FDA-9DD2-8201AE0E1DDE@zkm.de>

Hi all,

did anyone install fomus on grace 3.9? I could not get it going inside OSX 10.9 and I am wondering if there is a solution  for that problem.

all the best
Ludger Br?mmer