Fwd: [CM] a FOMUS problem

[David Psenicka]

I posted some examples here:

http://common-lisp.net/project/fomus/doc/ch09.html

I'll keep adding to this as I think of other examples and continue testing.

-David


Rick Taube wrote:

> ill add my rm-spectrum example later today.
>
> Begin forwarded message:
>
>> From: David Psenicka <dpsenick@uiuc.edu>
>> Date: March 31, 2006 6:29:00 PM CST
>> To: Dave Phillips <dlphillips@woh.rr.com>
>> Cc: Rick Taube <taube@uiuc.edu>
>> Subject: Re: [CM] a FOMUS problem
>>
>> Here are a few simple polyphonic examples:
>>
>>
>> (defparameter *part* (new fms:part :instr :piano :partid 'pno))
>>
>> (defun polygen (voice len minp maxp)
>>  (process repeat len
>>           output (new fms:note
>>            :off (now)
>>            :voice voice
>>            :partid 'pno
>>            :note (between minp maxp)
>>            :dur 1/2)
>>           wait 1/2))
>>
>> ;; voice is given
>> (events (list (polygen 1 20 60 80) (polygen 2 20 40 60)) 
>> "/tmp/test.ly" :parts *part* :view t)
>>
>> ;; fomus decides voice
>> (events (list (polygen '(1 2) 20 50 80) (polygen '(1 2) 20 40 70)) 
>> "/tmp/test.ly" :parts *part* :view t)
>>
>> ;; 3/4 voices... (does fairly well with the exception of a few large 
>> leaps here and there)
>> (events (list (polygen '(1 2 3) 20 30 80) (polygen '(1 2 3) 20 30 80) 
>> (polygen '(1 2 3) 20 30 80)) "/tmp/test.ly" :parts *part* :view t)
>> (events (list (polygen '(1 2 3 4) 20 30 80) (polygen '(1 2 3 4) 20 30 
>> 80) (polygen '(1 2 3 4) 20 30 80)) "/tmp/test.ly" :parts *part* :view t)
>>
>>
>> I hope these help.
>>
>> -David
>>
>> Dave Phillips wrote:
>>
>>> Rick Taube wrote:
>>>
>>>> I have a piano and viola ring-modulated spectrum example from the  
>>>> spectral compostion workshop i did last summer, would that suffice?
>>>>
>>> Sure, that would be great. I tried rewriting some CMN examples last 
>>> night but I was too tired and my attempts weren't making any sense...
>>>
>>> Best,
>>>
>>> dp
>>>
>>>
>>>
>
> _______________________________________________
> Cmdist mailing list
> Cmdist@ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
>