annotate examples/sound/midi/plinky.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

(load "midi.scm")
(import "samer.maths.random.*")

(put "regulated" #t)
(put "colormap" (redgreen))
(put "symmetric" #t)

(tasks)

(define N 64)
(define M 64)

(define matrix	(Matrix. "matrix" M N))
(define out   	(VVector. "out" N))
(define vgen  	(VGenerator. "gen"))
(define rowcol	(RowColumn. matrix))
(define decay 	(VDouble. "decay" 0.002))

(.setGenerator vgen (Binary.))


; program 46 is cool!
; so are 10, 12, 111
(define midiin (VVector. "midiin" 64))
(define synth (MidiSynth. midiin))
(define m 0)

(addtasks
	(sub 4 (task
		(.timesEquals matrix (- 1 (.get decay)))
		(.add matrix vgen)
		(.changed matrix)
	))

	(Ops.transfer rowcol midiin)
	(Ops.update midiin)
	synth
	(task
		(.setRow rowcol m)
		(set! m (if (< m (- M 1)) (+ m 1) 0))
	)
)

(define (load-file fn)
	(let ((f (istream fn)))
		(.load matrix f)
		(.close f)))

(define (f1) (load-file "walking_zither2"))
(define (f2) (load-file "walking_zither3"))
(define (f3) (load-file "walking_zither4"))