-
Notifications
You must be signed in to change notification settings - Fork 22
/
vs-2D-wav.pd
66 lines (66 loc) · 1.66 KB
/
vs-2D-wav.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
#N canvas 26 207 646 567 10;
#N canvas 566 47 714 727 tables 0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-shapeX 3840 float 2;
#X coords 0 1 3840 -1 200 140 1 0 0;
#X restore 361 88 graph;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-shapeY 3840 float 2;
#X coords 0 1 3840 -1 200 140 1 0 0;
#X restore 361 248 graph;
#X obj 42 188 openpanel;
#X obj 87 219 f \$0;
#X obj 42 131 t b b;
#X obj 42 244 pack s 0;
#X obj 42 301 soundfiler;
#X obj 42 532 outlet;
#X obj 42 88 inlet load;
#X msg 42 271 read -resize \$1 \$2-shapeX \$2-shapeY;
#X connect 2 0 5 0;
#X connect 3 0 5 1;
#X connect 4 0 2 0;
#X connect 4 1 3 0;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 8 0 4 0;
#X connect 9 0 6 0;
#X restore 399 104 pd tables;
#X obj 36 430 *~;
#X obj 129 430 *~;
#X obj 36 457 outlet~ X;
#X obj 129 457 outlet~ Y;
#X obj 269 457 outlet~ brightness;
#X obj 36 77 inlet~ phasor;
#X obj 124 77 inlet~ scale;
#X obj 269 77 inlet~ brightness;
#N canvas 0 23 450 300 blanking 0;
#X obj 66 60 inlet~ brightness;
#X obj 186 60 inlet~ Hramp;
#X obj 66 200 outlet~ brightness;
#X obj 66 149 *~;
#X obj 81 109 expr~ ($v1>0.02)&($v1<0.98);
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X restore 269 270 pd blanking;
#X obj 36 145 *~;
#X obj 399 77 inlet load;
#X obj 345 123 + 6;
#X obj 36 201 tabread~ \$0-shapeX;
#X obj 102 269 tabread~ \$0-shapeY;
#X connect 0 0 12 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 6 0 10 0;
#X connect 6 0 9 1;
#X connect 7 0 1 1;
#X connect 7 0 2 1;
#X connect 8 0 9 0;
#X connect 9 0 5 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 11 0 0 0;
#X connect 12 0 10 1;
#X connect 13 0 1 0;
#X connect 14 0 2 0;