Mercurial > hg > jslab
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 |