comparison examples/sound/midi/plinky.scm @ 8:5e3cbbf173aa tip

Reorganise some more
author samer
date Fri, 05 Apr 2019 22:41:58 +0100
parents b67a33c44de7
children
comparison
equal deleted inserted replaced
7:243687520bcc 8:5e3cbbf173aa
4 4
5 (put "regulated" #t) 5 (put "regulated" #t)
6 (put "colormap" (redgreen)) 6 (put "colormap" (redgreen))
7 (put "symmetric" #t) 7 (put "symmetric" #t)
8 8
9 (tasks) 9 ; (tasks)
10 10
11 (define N 64) 11 (define N 64)
12 (define M 64) 12 (define M 64)
13 13
14 (define matrix (Matrix. "matrix" M N)) 14 (define matrix (Matrix. "matrix" M N))
17 (define rowcol (RowColumn. matrix)) 17 (define rowcol (RowColumn. matrix))
18 (define decay (VDouble. "decay" 0.002)) 18 (define decay (VDouble. "decay" 0.002))
19 19
20 (.setGenerator vgen (Binary.)) 20 (.setGenerator vgen (Binary.))
21 21
22
23 ; program 46 is cool!
24 ; so are 10, 12, 111
25 (define midiin (VVector. "midiin" 64)) 22 (define midiin (VVector. "midiin" 64))
26 (define synth (MidiWithAftertouch. midiin)) 23 (define synth (MidiWithAftertouch. midiin))
27 (define m 0) 24 (define m 0)
28 25
29 (addtasks 26 (addtasks