-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmidi_notes_aleatoires_drunk_gamme.pd
138 lines (138 loc) · 3.78 KB
/
midi_notes_aleatoires_drunk_gamme.pd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
#N canvas 45 95 1448 801 10;
#X obj 196 605 noteout;
#X obj 38 60 loadbang;
#X obj 196 579 makenote;
#X floatatom 62 139 0 0 0 0 - - -;
#X msg 62 94 500;
#X obj 196 22 tgl 30 0 empty empty empty 17 7 0 10 -257985 -1 -1 0
1;
#X text 118 139 vitesse;
#X obj 75 117 hsl 60 15 20 1000 0 0 empty empty empty -2 -8 0 10 -257985
-1 -1 0 1;
#X obj 423 505 nbx 2 40 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 32
-204800 -1 -1 71 256;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-notes 128 float 2;
#X coords 0 300 128 0 512 300 1 0 0;
#X restore 556 364 graph;
#X floatatom 423 602 5 0 0 0 valeur - -, f 5;
#X obj 423 626 + 1;
#X obj 423 553 t f f;
#X floatatom 493 602 5 0 0 0 index - -, f 5;
#X obj 423 575 tabread \$0-notes;
#X obj 423 648 tabwrite \$0-notes;
#X text 554 328 Visualisation de la distribution des notes aléatoires
;
#X text 799 669 taille_128_xrange_0_128_yrange_300_0;
#X obj 196 258 cyclone/drunk;
#X obj 209 542 s \$0-NOTE;
#X obj 423 479 r \$0-NOTE;
#X msg 38 197 13 27 4;
#X text 35 216 demarrer a 13 \, entre 0 et 27 \, pas max 4;
#X obj 22 698 loadbang;
#X obj 222 364 random 37;
#X obj 222 390 + 90;
#X obj 485 713 loadbang;
#X msg 22 726 \; do_majeur 0 48 50 52 53 55 57 59 60 62 64 65 67 69
71 72 74 76 77 79 81 83 84 86 88 89 91 93 95 96;
#X obj 21 676 table do_majeur 27;
#X obj 196 283 tabread do_majeur;
#X obj 340 282 random 5;
#X obj 340 307 tabread duree;
#X obj 62 163 s vitesse;
#X obj 358 338 r vitesse;
#X obj 485 690 table duree 5;
#X msg 485 738 \; duree 0 1 2 4 2 1;
#X obj 340 365 *;
#X obj 340 445 s metro;
#X obj 228 137 r metro;
#X obj 196 196 t b b b;
#X obj 196 170 metro;
#X obj 230 415 nbx 3 14 -1e+37 1e+37 0 0 empty empty vel 50 8 0 12
-204800 -1 -1 0 256;
#X obj 245 171 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
-204800 -1 -1 0 256;
#X obj 350 414 nbx 5 14 -1e+37 1e+37 0 0 empty empty duree 65 8 0 12
-204800 -1 -1 0 256;
#X obj 340 389 / 2;
#X obj 143 300 vradio 15 1 0 7 empty empty octave 0 -8 0 10 -257985
-1 -1 0;
#X floatatom 143 436 5 0 0 0 - - -, f 5;
#X obj 143 457 * 12;
#X obj 196 514 +;
#X obj 143 412 - 3;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-pianoroll 100 float 2;
#X coords 0 128 100 0 400 256 1 0 0;
#X restore 670 50 graph;
#X obj 498 114 nbx 2 40 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 32
-204800 -1 -1 71 256;
#X floatatom 498 243 5 0 0 0 valeur - -, f 5;
#X floatatom 586 265 5 0 0 0 index - -, f 5;
#X obj 498 88 r \$0-NOTE;
#X obj 563 212 f;
#X obj 597 212 + 1;
#X obj 563 238 mod 100;
#X obj 498 289 tabwrite \$0-pianoroll;
#X obj 498 162 t f b;
#X obj 594 10 loadbang;
#X msg 594 156 0;
#X obj 55 254 loadbang;
#X msg 115 279 0, f 1;
#X connect 1 0 4 0;
#X connect 1 0 21 0;
#X connect 2 0 0 0;
#X connect 2 1 0 1;
#X connect 3 0 32 0;
#X connect 4 0 3 0;
#X connect 5 0 40 0;
#X connect 7 0 3 0;
#X connect 8 0 12 0;
#X connect 10 0 11 0;
#X connect 11 0 15 0;
#X connect 12 0 14 0;
#X connect 12 1 13 0;
#X connect 13 0 15 1;
#X connect 14 0 10 0;
#X connect 18 0 29 0;
#X connect 20 0 8 0;
#X connect 21 0 18 0;
#X connect 23 0 27 0;
#X connect 24 0 25 0;
#X connect 25 0 41 0;
#X connect 25 0 2 1;
#X connect 26 0 35 0;
#X connect 29 0 48 0;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 33 0 36 1;
#X connect 36 0 44 0;
#X connect 38 0 40 1;
#X connect 38 0 42 0;
#X connect 39 0 18 0;
#X connect 39 1 24 0;
#X connect 39 2 30 0;
#X connect 40 0 39 0;
#X connect 44 0 2 2;
#X connect 44 0 43 0;
#X connect 44 0 37 0;
#X connect 45 0 49 0;
#X connect 46 0 47 0;
#X connect 47 0 48 1;
#X connect 48 0 19 0;
#X connect 48 0 2 0;
#X connect 49 0 46 0;
#X connect 51 0 59 0;
#X connect 52 0 58 0;
#X connect 53 0 58 1;
#X connect 54 0 51 0;
#X connect 55 0 56 0;
#X connect 55 0 57 0;
#X connect 56 0 55 1;
#X connect 57 0 53 0;
#X connect 59 0 52 0;
#X connect 59 1 55 0;
#X connect 60 0 61 0;
#X connect 61 0 55 0;
#X connect 62 0 63 0;
#X connect 63 0 45 0;