[PlanetCCRMA] cm rts problem

[Anthony Green]

This is a multi-part message in MIME format.
--------------000903070503030007030809
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

Fernando Lopez-Lezcano wrote:
> [BTW, I had tested this, I even sent a scheduling latency graph to Rick]
> 
> I just tried one of the examples in the rts Common Music dictionary
> entry (surf locally to:
> "file:///usr/share/common-lisp/source/cm/doc/dict/index.html" and search
> for "rts") and it seems to work fine (ie: events were scheduled
> correctly). 

Thanks for testing this.  That works for me as well.  But this doesn't....

(in-package :cm)
(defparameter *pm-zyn* (portmidi-open :output "ZynAddSubFX" :latency 0))
(rts *pm-zyn* :time-format :sec)

(define (chordy)
   (let ((pat (new cycle :of (list
			     (new chord :of '(c4 e4 g4))
  			     (new chord
  			       :of (new heap
  				     :of '(df4 ef4 gf4 af4 bf4 df5 ef5)
  				     :for 3))
  			     (new chord :of '(e4 a4 cs5))
			     (new weighting
			       :of '(bf3 (ef1 :weight .5 :max 2))
			       :for 1)))))
     (process repeat 240
              do (doeach (k (next pat))
                   (output (new midi :keynum k :amplitude 120 :time (now))))
	     wait .25)))

(events (chordy) *pm-zyn*)

If you evaluate this, ZynAddSubFX will play many many chords all at once.

But if you change that last line to

(events (chordy) "foo.mid")

You get a properly sequenced series of chords in foo.mid.

AG

--------------000903070503030007030809
Content-Type: text/x-vcard; charset=utf-8;
 name="green.vcf"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="green.vcf"

begin:vcard
fn:Anthony Green
n:Green;Anthony
org:Red Hat, Inc.
email;internet:green@redhat.com
tel;cell:(650) 207-7122
x-mozilla-html:FALSE
version:2.1
end:vcard


--------------000903070503030007030809--