gmane.lisp.ccrma.general

slippery chicken release

Michael Edwards — 2012-05-24T18:04:57

It is with great pleasure that I announce the open-source release of my
algorithmic composition software "slippery chicken":
http://www.michael-edwards.org/sc/

Please feel free to re-post to any potentially interested colleagues, students
or mailing lists.

Workshops introducing the software will be held in Edinburgh, UK, and
Karlsruhe, Germany, in July 2012:
http://www.michael-edwards.org/sc/workshops.html

"slippery chicken" is an open-source algorithmic composition system written in
Common Lisp which enables a top-down approach to music composition. The
software was originally tailor-made to encapsulate the author's personal
composition techniques, however many general-purpose algorithmic composition
tools have been programmed that should be useful to a range of composers. The
main goal of the project is to facilitate a melding of electronic and
instrumental sound worlds, not just at the sonic but also at the structural
level. Pure instrumental or electronic composition is of course possible with
the sys

a neat picture

Bill Schottstaedt — 2012-05-22T13:13:54

r/lisp has this:

http://twitpic.com/9nild1

I grew up in that country -- suddenly I remember my first
reaction to the Bay Area -- all these hills ruining the view!

problem compiling cm-3.8.0

Bill Sack — 2012-05-22T00:03:03

hi all,
compiling cm-3.8 in linux (fedora 16) and all goes well until down at this
linker:
/usr/bin/ld: obj/juce/libjuce.a(juce_amalgamated.o): undefined reference to
symbol 'dladdr< at >< at >GLIBC_2.0'
/usr/bin/ld: note: 'dladdr< at >< at >GLIBC_2.0' is defined in DSO /lib/libdl.so.2 so
try adding it to the linker command line
/lib/libdl.so.2: could not read symbols: Invalid operation
collect2: ld returned 1 exit status

i added "-ldl -lXext" to all 3 makefiles and got a little farther, but ran
into this:

g++  -MMD -D "JUCE_IOS=0" -D "JUCE_QUICKTIME=0" -D "JUCE_OPENGL=0" -D
"JUCE_USE_FLAC=0" -D "JUCE_USE_OGGVORBIS=0" -D "JUCE_USE_CDBURNER=0" -D
"JUCE_USE_CDREADER=0" -D "JUCE_WEBBROWSER=0" -D "JUCE_CHECK_MEMORY_LEAKS=0"
-D "JUCE_JACK=1" -D "COMMONMUSIC=1" -D "GRACE=1" -D "WITH_SNDLIB=1" -D
"WITH_FOMUS=1" -D "FOMUSLIBPATH=\"/usr/local/lib\"" -D
"SVNVERSION=\"`/usr/bin/svnversion`\"" -D "LINUX=1" -D "NDEBUG=1" -I "src"
-I "../sndlib/" -I "/usr/local/include"  -O2 -o
"obj/grace/Release/AudioFilePlayer.o" -c "src/AudioFilePlayer.

Snd 12.11

Bill Schottstaedt — 2012-05-21T19:16:31

Snd 12.11:

  s7: if WITH_SYSTEM_EXTRAS is 1 (default is 0) include
        directory? file-exists? delete-file getenv directory->list system
      with-baffle to limit the scope of continuations
      #_<name> is the initial (built-in, startup) value of <name>
      *error-info* replaced by error-environment, stacktrace changed slightly.
      hooks changed completely (s7 version bumped to 2.0 since this is a
        large backwards imcompatible change).
      procedure-setter is settable, so most of the old procedure-with-setter
        stuff is gone.
      s7_list, s7_environment_ref|set, s7_procedure_set_setter in s7.h.
      make-type replaced by open-environment. s7test.scm has a largely backwards
        compatible scheme version of make-type.
      aritable? to check arity match (named "procedure-arity-includes" in srfi-102).
      arity to generalize and replace procedure-arity
      removed trace and untrace (replaced by the trace macro in s7.html).
      I think these changes clean up most of the

comment semicolon bug?

Michael Winkler — 2012-05-21T09:41:01

Dear Mister Taube
Dear List

CM 3.8.0, Scheme (and earlier, I think): It seems to me that a just a 
single semicolon in a bunch of variable definitions occurs an error so 
one can't place comments. A bug?

test, remove the semicolon at "define m67", test again:

(define m72 '(ef3 ef3 ef3 f3 e3 f3 cs3 cs3 d3 cs4 d3 d3))
(define r72 '(e e e e  e e e e  s s s s ))
(define m71 '(c4 c4 c4 c4 c4 c4 c4 c5))
(define r71 '(s e e e e e s e+e))
(define m70 '(g3 c3 c3 g3  f3 d3 f3 ef3  d3 d3 bf3 ef3))
(define r70 '(s s s s  s s s s  e e e e))
(define m69 '(af4 f4 af3 ef4  f4 c5 cs4 f4))
(define r69 '(s s e s  q e. e. e))
(define m68 '(f4 cs4 f4 cs4 f4 ef4 ef4 ef4 ef4))
(define r68 '(e s e s e  e e e e))
(define m67 '(f4 fs3 d3 cs4 b3 e4 d3));
(define r67 '(e s s s s s s ))
(define m66 '(c4 fs4 c4 ef4 fs4))
(define r66 '(e e e. s e+e))

best,
Michael Winkler

Typing Foreign Letters in CMN Text

JEFFREY ZIMMER — 2012-05-09T01:15:31

My question pertains to CMN -

Among the sample .cmn files I received with my CMN download is one  
called mir.cmn.  This example spells the German word gluck (with an  
umlaut on the u) as "gl\\374ck"  I have not been successful in  
figuring how to use this kind of numeric font encoding on my Mac G5  
(OSX 10.5.8) using the fonts on the machine, although "Times-Roman"  
and "Times-Italic" do work just fine as the font-name keywords in  
CMN.  I would like to include accents and umlauts in the Times font  
like in mir.cmn.  Is there a way to exploit the full font set on a Mac  
with numeric codes?  Has anybody done this?

Thanks,

Jeff Zimmer

s7/Snd hooks

Bill Schottstaedt — 2012-05-06T11:59:35

I'd like to change the way hooks work in s7/Snd.  Here's a
description:

    https://ccrma.stanford.edu/software/snd/snd/s7.html#hooks

I would keep the old way working for *error-hook*, but otherwise
all the s7_hook functions would either go away or change
in some backwards-incompatible manner.  Would this be
a huge burden for anyone?

(It also means changing the scheme hook functions, but there's a
wrapper for that in s7.html).

sndlib ESD support

Bill Schottstaedt — 2012-04-30T19:11:56

It appears that the Enlightened Sound Daemon is no longer
supported.  Would it be a problem if I remove support for it
from sndlib?  How about OSS?  Sun?  HPUX?

Also, in the 10 or 20 years since the audio stuff was first
implemented, audio hardware, and OS support of it, has
changed a lot.  I'd like to remove all the input functions,
and the hardware state descriptors, and change the output
functions to be purely callback-driven.  So, 95% of audio.c
would go away, along with rtio.scm, play.scm, oscope.scm,
and various other such stuff.  How important is audio
input to anyone (in Snd, or CLM)?

harp glissando, octave-up

René Bastian — 2012-04-25T18:54:42

Hi Bill,

I try to write a harp glissando (it's not easy :)
----------------------------
     quarter-rest eighth-rest  
     (c6 32nd (begin-octave-up)) (bf5 32nd) (af5 32nd) (fs5 32nd)
     (e5 q (begin-glissando) begin-tremolo) 
     ; 006
     (bass (end-octave-up))
     (c3 q end-glissando end-tremolo) 
       quarter-rest quarter-rest 
     ; 007
----------------------------
- the octave transposition sign is too close to the note heads
( (begin-octave-up) does not accept  (dy ...))
- the harp glissando is not the classical notation

What's is your solution?

Windows CM 3.8.0: Plugin graphs do not load correctly

Pietari Seppänen — 2012-04-25T09:17:00

Hello! I'm not an expert with CM and this is my first encounter with 
VSTs, so please bear with me. I do not believe I did anything wrong, but 
correct me if I did. I used the JUCE Plugin Host to make a graph with a 
MIDI input, a VST plugin and an audio output. It works perfectly in the 
plugin host. Image: http://www.student.oulu.fi/~seppanep/juce.jpg 
<http://www.student.oulu.fi/%7Eseppanep/juce.jpg>

Unfortunately, when I load it in CM I get the following message:
Plugin Graph 'test(2)' (2 nodes, 0 connections)
Nodes:
   Midi Input
   Audio Output
Connections:

Obviously something is missing here and I get no sound. The Plugin 
Graphs -> Plugins menu shows those two nodes greyed out with "(no editor)".

It's a great shame because I have been hoping to use synthesis to make 
the output sound a bit more interesting, but the built-in systems are 
way over my head.

Regards,

Pietari Seppänen

PS: I sent Heinrich Taube a direct email about this first. I believe I 
neglected to mention I was using Windows. H

cm 3.8.0 released

Heinrich Taube — 2012-04-21T14:11:51

ive released cm 3.8.0 on sourceforge. the main additions are  
metronomes and other support for live coding,  audio plugin loading,  
new plot window (90% done) new audio player window (905 done)




CM 3.8.0

o Enhancement: The real-time scheduler now uses metronomes and is beat
   based. See the new Metronomes section in the dictionary and the new
   Help>Examples>Metronomes example for more information. Metronomes
   were designed and implemented by Halim Beere (halimbeere-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org)

o Enhancement: sprout now supports "live coding" much better. When you
   sprout a processes together with an id the scheduler now replaces
   any currently running process with the same id with the newly
   sprouted version but without altering the next run time in the
   scheduler. This allows you to "redefine" processes on the fly. See
   the updated sprout documentation and the new Help>Examples>Live
   Coding example for more information. (Halim Beere)

o Enhancement: Real-time audio genera

yet another call/cc example??

Bill Schottstaedt — 2012-04-17T16:39:55

(let ((what's-for-breakfast ())
      (bad-dog 'fido))        ; bad-dog wonders what's for breakfast?
  (with-baffle                ; the syntax is (with-baffle . body)         
   (set! what's-for-breakfast
 (call/cc
  (lambda (biscuit?)
    (set! bad-dog biscuit?) ; bad-dog smells a biscuit!
    (biscuit? 'biscuit!)))))
  (if (eq? what's-for-breakfast 'biscuit!) 
      (bad-dog 'biscuit!))     ; now, outside the baffled block, bad-dog wants that biscuit!
  what's-for-breakfast)        ;   but s7 says "No!": baffled! ("continuation can't jump into with-baffle")

compile

René Bastian — 2012-04-16T08:44:50

Hi,

I try to compile
-------------------------------
(load "all.lisp")
(in-package :clm)
(definstrument tubebell (beg dur freq amp &optional (base 32))

[...]
      (with-sound (:output "wtubebell") 
         (tubebell 0 0.3 440.0 0.2))
-------------------------------
and I get the message
-------------------------------
;   using existing configuration file mus-config.h
; Writing "clm_TUBEBELL.c"
*** - TRUENAME: File #P"/home/rb/CLM/clm-4/clm_TUBEBELL_0.so" does not
exist
-------------------------------
What can I do ?

Snd 12.10

Bill Schottstaedt — 2012-04-12T11:06:27

Snd 12.10.

This version is mostly bugfixes and documentation improvements.
In s7 "< at >" is now an exponent marker.

checked: gtk 3.3.18|20|3.4.0, gmp 5.0.4, mpfr 3.1.0, cairo 1.12.0

Thanks!: Jeffrey Zimmer, Sean Reed, Michael Edwards, Peter Bex.

CL-CLM on github?

Bill Schottstaedt — 2012-03-29T19:52:57

David Lindes says he would like to work on the CL version of CLM,

    "from adding example usage information, to documentation, to 
    perhaps cleaning up certain warnings that I get, making it 
    quicklisp-friendly... whatever."

but he prefers git/github, about which I know nothing.  I have no
plans to develop the CL CLM, so surely this is a good thing?
I sent him this email:


Hi!  I'm flattered that you're interested in CLM.  I stopped working on
the Lisp side of that code about 10 years ago because it was too
painful to debug anything through the Lisp FFI's of that time (sbcl in
particular was a nightmare).  But I've continued fixing any bugs that
people report.  My real effort since has been in C/Scheme (sndclm.html in the
Snd package).  Since the sndlib portion is shared, I always test the CL
stuff whenever sndlib changes.  The other CL program from that era is CMN,
also more-or-less comatose, but also maintained ever since.

I don't know anything about git or github -- any info you might want to

problems with common music 'process' and common lisp packagesystem

hans — 2012-03-29T16:17:10

I can play these 2 functions - with loop and process, if they are 
locally defined.

(defun up-loop ()
  (loop for key from 60 to 72
        for beg from 0 by .1
        collect (make-instance 'midi :time beg
                     :keynum key
                     :duration 1)))

(events (up-loop) "myscore.mid")

(defun up-process ()
  (process for key from 60 to 72
        for beg from 0 by .1
        output (make-instance 'midi :time beg
                     :keynum key
                     :duration 1)))

(events (up-process) "myscore.mid")


When I define the functions in a package, say automatic-jazz,
and import/load them with quicklisp (ql:quickload :automatic-jazz)

(events (automatic-jazz:up-loop) "myscore.mid")
loads and runs o.k.

But loading up-process

gives errors like:
LOOP ERROR: Found 'FOR' where operator expected.
ERROR: (in macroexpansion of (PROCESS FOR I ...))
illegal loop syntax

thanks for any advice or help
Hans

bug in cycle pattern ??

stephane boussuge — 2012-03-29T10:55:45

Hi,

i'm on grace 3.8.0 svn:1969M.
cycle pattern have a strange comportment:

if i evaluate many times next(make-cycle({1 2 3 4 5}))
it output only 1 each time i evaluate .

is it normal ??

thanks


Stéphane Boussuge
s_boussuge-Qt13gs6zZMY< at >public.gmane.org
www.stephaneboussuge.blogspot.com









_______________________________________________
Cmdist mailing list
Cmdist-l0SEpsmuUtBegcJQxxnBRDe48wsgrGvP< at >public.gmane.org
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist

cml, ruby, sndlib

René Bastian — 2012-03-28T07:32:56

Hi,

when i try to compile a .rb file, i get the message

./ws.rb:386:in `require': no such file to load -- sndlib (LoadError)

a solution?
(I use the rb files from clm-4)

variables for weights

Tiago Videira — 2012-03-27T08:29:20

Hello!
So far the nifty function of Prof Taube has worked fine with numbers:

However it seems it can't handle variables in the place of weights.
How can I change that so I can use for instance the command
(setq z 30)
(gn-weight 2 '((a z) (b 5) (c 50)))

having defined z previously?

Basically i'm trying to achieve a function that can handle a list of
weighted probabilities, in which the weights can be variables.
Many thanks and Kind regards
----


;;MAKES A PROBABILITY-WEIGHTED LIST

(defun make-ptable (data)
  (let ((total (loop for d in data sum (second d)))
        (sum 0))
    ;; total holds sum of weights in data
    (loop for d in data
          for v = (first d)      ; outcome to return
          for w = (second d)     ; relative weight
          do (setq sum (+ sum w))
          ;; collect outcome and normalized probability
          collect (list v (/ sum total)))))


(defun pick-tbl (table)
  ;; return outcome in table according
  ;; to its weighted probability
  (let ((x (rnd2 0 1)))
    ;; x is

cml, bird, freq-skew

René Bastian — 2012-03-26T19:22:49

Hi,

I translate the 'bird' instrument in my Python project.
But I dont understand what freq-skew does:
--------------------------------
(definstrument bird (startime dur frequency freq-skew amplitude
freq-envelope amp-envelope &optional (lpfilt 1.0) (degree 0)
(reverb-amount 0))
---------------------------------
Is it the 'ix' in the fm algorithm ?
sin(2pi * fc * t + ix * sin(2pi * fm * t))

Thanks,

cmn, arrow

René Bastian — 2012-03-19T13:24:55

Hi Bill,

I need a good symbol for an arrow upon a note, a rest or a bar.
My bad solutions:

(cmn (output-file "XXX") 
     (g5 q (note-head :arrow-down) stem-up)
     (g5 q (note-head :arrow-up) (dy 0.7))
     (bar) 
     (g5 q (note-head :arrow-up) (dx -0.5)(dy 0.7))
     (c5 q)(c5 q)(c5 q)
     (quarter-rest)
     (g5 q (note-head :arrow-up) (dx -0.6)(dy 0.7))
     ) ; cmn

what is better ?