[CM] Re: foo.cm problem

[Rick Taube]

dave thanks for the bug report -- will fix it right away.

On May 1, 2005, at 7:45 AM, Dave Phillips wrote:

> Greetings:
>
>  The following code appears to work, but it produces an empty file:
>
> (defobject i1 (i)
> (chan num vel dur pause)
> (:parameters time dur chan num vel pause))
>
> (define (cs-mout1)
> (process repeat 250
>          output (new i1 :time (now)
>                      :chan 1
>                      :dur (pick .5 1 2 1 .5 1 .5 1)
>                      :num (pick 36 39 41 43 44 47 48 49 51 54 58 63)
>                      :vel (between 54 74)
>                      :pause (pick 0 1 2))
>          wait (pick 1 1 2 1 1)))
>
> (defobject i2 (i)
> (chan num vel dur pause)
> (:parameters time dur chan num vel pause))
>
> (define (cs-mout2)
> (process repeat 250
>          output (new i2 :time (now)
>                      :chan 2
>                      :dur (pick .5 1 2 1 .5 .5 1)
>                      :num (pick 34 36 39 41 43 44 48 49 51 54 58 63 64)
>                      :vel (between 54 74)
>                      :pause (pick 0 1 2))
>          wait (pick 1 2 1 1)))
>
>
> I run it with this events statement:
>
>    (events (list (cs-mout1) (cs-mout2)) "csm.sco")
>
> Btw, versioning appears to be broken in cmio (CVS).
>
> Best,
>
> dp
>
>
>
>