From orm.finnendahl at selma.hfmdk-frankfurt.de  Thu Jan  1 04:21:46 2015
From: orm.finnendahl at selma.hfmdk-frankfurt.de (Orm Finnendahl)
Date: Thu, 1 Jan 2015 13:21:46 +0100
Subject: [CM] defvar global list
In-Reply-To: <BLU168-W21A8DED859EA977B483283E5510@phx.gbl>
References: <mailman.1.1419710402.12204.cmdist@ccrma.stanford.edu>
	<BLU168-W21A8DED859EA977B483283E5510@phx.gbl>
Message-ID: <20150101122146.GA3815@x1-orm>

Hi James,

 just as a note: If you are modifying global variables it might be a
good idea to do that explicitely in the outer context (to enhance
readability of the semantics and to avoid explicit local variables).

Your example would change to:

(setf *test*
  (loop for i below 10 collect (random-element mylist)))

Formatting this could be boiled down to:

(format t "~{~A~^ ~}" *test*)

All the best for 2015 to all!
Orm


Am Montag, den 29. Dezember 2014 um 03:42:40 Uhr (+0000) schrieb James Hearon:
> Hi,
> Thank you folks for the hints.  I think I may have it working now using setf.
> 
> (defun random-element (list)
>   (nth (random (length list)) list))
> 
> (defvar mylist '(0.5  100.0  200.25  4000.0 1.0  0.33 0.1 0.2 5000.0 2.0))
> 
> (defvar *test* '(nil))  ;global list
> 
> (loop
>    for i from 0 to 9  by 1
>         for xx in mylist collect (random-element mylist) into atest ;collect into local list
>     finally  (setf *test* atest) ;setf local list to global one
>      )
> 
> (loop
>    for i from 0 to 9  by 1
>      for xx in *test*  ;access global list
>    do
>      (format t " ~A" xx)
>   )
>  		 	   		  

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



From bil at ccrma.Stanford.EDU  Fri Jan  9 08:03:05 2015
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Fri, 9 Jan 2015 08:03:05 -0800
Subject: [CM] Fw: Re: embedding s7 in a C++ application
In-Reply-To: <CAP_K8KHmoai12bnkt8JqOYnPVo+M72W7+ynO-XFHDN2m9OYK=A@mail.gmail.com>
References: <CAP_K8KFxwiHD2gymsm_B56wU9KHhRADqZLGFerUHEP-W6Kj71g@mail.gmail.com>
	<20141105174210.M89970@ccrma.Stanford.EDU>
	<CAP_K8KE5O+u1g4o-BZjTykdVQJzBF=R5zCJJAk6ToFkV7gXGhQ@mail.gmail.com>
	<CAP_K8KHmoai12bnkt8JqOYnPVo+M72W7+ynO-XFHDN2m9OYK=A@mail.gmail.com>
Message-ID: <20150109160138.M13884@ccrma.Stanford.EDU>

From: etienne cella <etienne.p.cella at gmail.com>
To: Bill Schottstaedt <bil at ccrma.Stanford.EDU>
Sent: Thu, 8 Jan 2015 17:43:50 -0500
Subject: Re: embedding s7 in a C++ application

I was looking for a simple use of s7 to get started,
and thought about using it in Pure Data.
Pd's list based messaging makes Scheme integration fairly easy,
demo: https://vimeo.com/116267279
code: https://github.com/etienne-p/Pd_Scheme

-------------- next part --------------
A non-text attachment was scrubbed...
Name: OriginalMsg.htm
Type: text/
Size: 1432 bytes
Desc: not available
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20150109/f19c018e/attachment.bin>

From rbastian at musiques-rb.org  Fri Jan  9 10:08:05 2015
From: rbastian at musiques-rb.org (=?UTF-8?B?UmVuw6k=?= Bastian)
Date: Fri, 9 Jan 2015 19:08:05 +0100
Subject: [CM] cmn: glissando bug ?
Message-ID: <20150109190805.2a57586e@lenovo>

Hello Bill,

It seems there is a bug in this code:

(c5 (rq 1.0) no-stem begin-glissando (begin-slur
	(slur-direction :down))) 
(f5 (rq 3.0) no-stem end-glissando begin-glissando) 
(e5 (rq 0.5) no-stem end-glissando begin-glissando)
(b5 (rq 0.5) no-stem end-glissando begin-glissando)
(a4 (rq 0.5) no-stem end-glissando begin-glissando)
(c5 (rq 0.5) no-stem end-glissando begin-glissando)
(f5 (rq 0.5) no-stem end-glissando begin-glissando)
(e5 (rq 0.5) no-stem end-glissando begin-glissando)
(b5 (rq 0.5) no-stem end-glissando begin-glissando)  
(a4 (rq 0.5) no-stem end-slur end-glissando)
(bar)
(line-break)

the glissando-line from f5 to e5 should be descending.

What is wrong?

Thanks, 
-- 
Ren? Bastian
www.pythoneon.org



From bil at ccrma.Stanford.EDU  Fri Jan  9 13:12:06 2015
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Fri, 9 Jan 2015 13:12:06 -0800
Subject: [CM] cmn: glissando bug ?
In-Reply-To: <20150109190805.2a57586e@lenovo>
References: <20150109190805.2a57586e@lenovo>
Message-ID: <20150109210833.M27762@ccrma.Stanford.EDU>

I think cmn considers that gliss to be going down,
but it just so happens the end is higher than the
start. The code is in cmn3.lisp in case you'd like
a rainy day programming challenge.



From bil at ccrma.Stanford.EDU  Sat Jan 24 13:57:46 2015
From: bil at ccrma.Stanford.EDU (Bill Schottstaedt)
Date: Sat, 24 Jan 2015 13:57:46 -0800
Subject: [CM] Snd 15.3
Message-ID: <20150124215615.M26810@ccrma.Stanford.EDU>

Snd 15.3

s7 procedure-documentation no longer refers to an optional string that happens
  to be the first thing in a procedure body, but to the value of a variable
  named 'documentation' in the procedure's environment.

procedure-arity is deprecated, s7_procedure_arity replaced by s7_arity.
  procedure-name is deprecated. data-format removed (see snd15.scm).

format has another control directive: ~N or ~n which gets a numeric argument
  from the argument list: (format #f "~nD" 20 123)

with-sound argument order changed slightly. It is now: output channels srate.
  Ideally, other Snd functions like new-sound would follow the same argument
  order -- let me know if this change would cause you problems.

float-vector-equal? -- relative difference of two float-vectors.

make-iterator, iterate, iterator? -- replace make-hash-table-iterator and 
  hash-table-iterator? These are generic functions to traverse sequences.

if (*s7* 'safety) > 1, optimization is turned off
(*s7* 'maximum-stack-size) is now (*s7* 'max-stack-size)
(*s7* 'print-length) replaces *vector-print-length*
(*s7* 'bignum-precision) replaces *bignum-precision*
(*s7* 'stacktrace-defaults) replaces *stacktrace*

checked: sbcl 1.2.7, gtk 3.15.4



From cellstorm at brainity.com  Thu Jan 29 15:44:50 2015
From: cellstorm at brainity.com (cellstorm at brainity.com)
Date: Fri, 30 Jan 2015 00:44:50 +0100 (CET)
Subject: [CM] cm: compiled on linux 64, no jack?
In-Reply-To: <161009211.4712.1422574910088.JavaMail.root@brainity.com>
Message-ID: <1673085402.4754.1422575090029.JavaMail.root@brainity.com>



hello, 

I tried to compile cm with jack, but its controls do not show up in audio-preferences;
ubuntu 14.04 64; 




  wget http://sourceforge.net/projects/sdif/files/sdif/SDIF-3.11.4/SDIF-3.11.4-src.zip
  unzip SDIF-3.11.4-src.zip
  mv SDIF-3.11.4-src SDIF-3.11.4
  cd SDIF-3.11.4
  ./configure --prefix=`pwd` --enable-shared=no --enable-pthreads=no
  make
  make install

sudo apt-get install
libfreetype6-dev libx11-dev libxinerama-dev libxcursor-dev mesa-common-dev libasound2-dev freeglut3-dev
 libxcomposite-dev libsamplerate0-dev fomus


premake4 --with-sdif=../SDIF-3.11.4/ --with-fomus=/usr --with-oscpack --with-jack 

make

is there no way to make release? the .make files are set to debug automatically; I changed that to release, and tried to add jack by hand, because it was not added automatically, by
adding -DJUCE_JACK=1 at  DEFINES   
 -ljack  at  LIBS
, but no avail.

what am I doing wrong?