[PlanetCCRMA] cm rts problem
Anthony Green
green@redhat.com
Sun Apr 22 15:21:01 2007
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--