[CM] cmn-datas in a process

Johannes Quint johannes.quint@web.de
Thu, 5 Feb 2004 00:59:30 +0100


this is a basic question, sorry, but i find no solution:
how can i handle cmn-datas in a process, which are not provided by 
object->cmn.

let us say key-signature:

(defprocess xy ()
	 (process repeat 100
		with n = (new heap :of '(0 2 4 5 7 9 11 12))
		and keys = (new cycle :of '(c-major cs-major d-major)))
	 	and transpose = (new cycle :of '(0 1 2))
		and transposer = 2
		and transpose? = (new line :of (list nil (new random :of (list '(nil 
weight 5) '(t weight 1)))))
		do (when (next transpose?)
			(setf tranposer (next tranpose))	; transpose notes = key
			(output (new key time (now) signature (next keys)))) ; something 
like this for cmn
		output (new midi time (now) duration .25 keynum (note (+ transposer 
60 (next n))))
		wait .25)))

and now, both should work:

(events (xy) "xy.mid")
(events (xy) "xy.cmn")		; should show the changing key-signatures

thanks very much for hints.

johannes quint