-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathquantizer.pd
73 lines (73 loc) · 1.65 KB
/
quantizer.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
#N canvas 1168 121 476 694 12;
#X obj 17 4 inlet;
#X obj 18 605 outlet;
#X obj 176 42 route list bang float;
#X obj 176 70 t l b;
#X obj 18 100 spigot;
#X obj 74 101 spigot;
#X obj 112 72 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 57 74 == 0;
#X msg 208 98 1;
#X msg 273 99 0;
#X obj 217 262 expr fmod($f1 \, 12) \; floor($f1 / 12);
#X obj 217 302 expr if ($f1 < 0 \, 12 + $f1 \, $f1);
#X obj 74 534 expr $f1 + ($f2 * 12);
#X obj 74 323 -;
#X obj 74 157 list store;
#X obj 74 182 list split 1;
#X obj 114 207 t a;
#X obj 74 348 abs;
#X obj 74 402 min;
#X msg 158 363 9999;
#X obj 74 508 f, f 7;
#X obj 18 42 t f;
#X obj 18 562 t f;
#X obj 74 253 t f f, f 14;
#X obj 74 126 t b f b;
#X obj 74 429 t f f;
#X obj 74 457 ==;
#X obj 74 375 t f f;
#X obj 74 482 sel 1;
#X obj 176 16 inlet;
#X connect 0 0 21 0;
#X connect 2 0 3 0;
#X connect 2 1 9 0;
#X connect 2 2 3 0;
#X connect 3 0 14 1;
#X connect 3 1 8 0;
#X connect 4 0 22 0;
#X connect 5 0 24 0;
#X connect 6 0 7 0;
#X connect 6 0 5 1;
#X connect 7 0 4 1;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 10 0 11 0;
#X connect 10 1 12 1;
#X connect 11 0 13 1;
#X connect 12 0 22 0;
#X connect 13 0 17 0;
#X connect 14 0 15 0;
#X connect 15 0 23 0;
#X connect 15 1 16 0;
#X connect 16 0 15 0;
#X connect 17 0 27 0;
#X connect 18 0 25 0;
#X connect 19 0 18 1;
#X connect 20 0 12 0;
#X connect 21 0 4 0;
#X connect 21 0 5 0;
#X connect 22 0 1 0;
#X connect 23 0 13 0;
#X connect 23 1 20 1;
#X connect 24 0 14 0;
#X connect 24 1 10 0;
#X connect 24 2 19 0;
#X connect 25 0 26 0;
#X connect 25 1 18 1;
#X connect 26 0 28 0;
#X connect 27 0 18 0;
#X connect 27 1 26 1;
#X connect 28 0 20 0;
#X connect 29 0 2 0;