[CM] foo.cm problem

[Dave Phillips]

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