Fwd: [CM] a FOMUS problem

[Rick Taube]

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
>>
>>
>>