arrg! the midifile sycn is actually working, its just that your (and
my) order of arguments to sprout was wrong:
this is wrong
> (sprout (list (algo01 16 keyscale .25 1.0 0)
> (algo01 14 keyscale .25 1.0 1)
> (algo01 12 keyscale .25 1.0 2)
> (algo01 10 keyscale .25 1.0 3))
> "test.mid"
> '(0 2 4 6))
this is correct:
(sprout (list (algo01 16 keyscale .25 1.0 0)
(algo01 14 keyscale .25 1.0 1)
(algo01 12 keyscale .25 1.0 2)
(algo01 10 keyscale .25 1.0 3))
'(0 2 4 6)
"test.mid"
)
I guess I should switch it back to be the same as events??
(define (foo l r d k a)
(process repeat l
do
(send "mp:midi" :key k :dur d :amp a)
(wait r)))
(mp:open 0)
(sprout (list (foo 10 .2 .15 60 .8) (foo 10 .2 .15 67 .8))
'(0 2))
(sprout (list (foo 10 .2 .15 60 .8) (foo 10 .2 .15 67 .8))
'(0 2)
"~/test.mid")
_______________________________________________
Cmdist mailing list
[email protected]
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
