forked from Wasted-Audio/heavylib
-
Notifications
You must be signed in to change notification settings - Fork 0
/
hv.flanger.pd
141 lines (141 loc) · 3.09 KB
/
hv.flanger.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
139
140
141
#N canvas 720 92 406 569 10;
#X obj 26 534 outlet~;
#X obj 26 16 inlet~;
#N canvas 0 22 206 338 feedback 0;
#X obj 51 71 t f f;
#X obj 51 101 abs;
#X obj 111 131 * 2;
#X obj 111 161 - 1;
#X obj 111 101 > 0;
#X obj 51 191 *;
#X obj 51 33 inlet;
#X obj 51 131 max 0.01;
#X msg 51 221 \$1 100;
#X obj 51 251 line~;
#X obj 51 281 outlet~;
#X connect 0 0 1 0;
#X connect 0 1 4 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 5 1;
#X connect 4 0 2 0;
#X connect 5 0 8 0;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X restore 101 248 pd feedback;
#X obj 208 20 inlet;
#X obj 55 41 r \$0-speed;
#X obj 101 208 r \$0-feedback;
#X obj 55 61 clip 0 20;
#X obj 55 294 *~;
#X obj 41 414 clip 0 1;
#X obj 26 474 *~;
#X obj 41 394 r \$0-mix;
#X obj 107 474 *~;
#X obj 88 91 r \$0-intensity;
#N canvas 0 22 201 386 mix 0;
#X obj 37 54 * 2;
#X obj 37 84 - 1;
#X obj 37 114 t f f;
#X obj 98 174 + 1;
#X msg 37 144 1 \$1;
#X obj 37 174 -;
#X obj 98 204 * 0.5;
#X obj 37 204 * 0.5;
#X obj 98 234 sqrt;
#X obj 37 234 sqrt;
#X obj 37 24 inlet;
#X msg 98 264 \$1 100;
#X obj 98 294 line~;
#X msg 37 264 \$1 100;
#X obj 37 294 line~;
#X obj 98 324 outlet~;
#X obj 37 324 outlet~;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 3 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 13 0;
#X connect 10 0 0 0;
#X connect 11 0 12 0;
#X connect 12 0 15 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X restore 41 434 pd mix;
#X obj 88 111 clip 0 1;
#X obj 26 504 +~;
#X obj 40 324 +~;
#N canvas 130 607 329 376 lfo 0;
#X obj 45 91 -~ 0.5;
#X obj 45 121 abs~;
#X obj 45 61 phasor~ 2;
#X obj 45 151 *~ 4;
#X obj 45 181 -~ 1;
#X obj 201 121 sig~ \$1;
#X obj 201 151 *~ 0.5;
#X obj 186 265 +~;
#X obj 45 211 *~;
#X obj 133 181 *~;
#X obj 133 151 line~;
#X obj 186 295 lop~ 14;
#X obj 45 31 inlet speed;
#X msg 133 121 \$1 100;
#X obj 133 31 inlet intensity;
#X obj 186 325 outlet~;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 6 0 9 1;
#X connect 7 0 11 0;
#X connect 8 0 7 0;
#X connect 9 0 8 1;
#X connect 10 0 9 0;
#X connect 11 0 15 0;
#X connect 12 0 2 0;
#X connect 13 0 10 0;
#X connect 14 0 13 0;
#X restore 55 136 pd lfo;
#X obj 55 175 vd~ \$0-flanger;
#X obj 40 354 delwrite~ \$0-flanger \$1;
#X obj 101 228 clip -1 1;
#X obj 208 51 hv.dispatch \$0 intensity 0.2;
#X obj 208 73 hv.dispatch \$0 feedback 0;
#X obj 208 95 hv.dispatch \$0 speed 2;
#X obj 208 117 hv.dispatch \$0 mix 0.5;
#X connect 1 0 9 0;
#X connect 1 0 16 0;
#X connect 2 0 7 1;
#X connect 3 0 21 0;
#X connect 4 0 6 0;
#X connect 5 0 20 0;
#X connect 6 0 17 0;
#X connect 7 0 16 1;
#X connect 8 0 13 0;
#X connect 9 0 15 0;
#X connect 10 0 8 0;
#X connect 11 0 15 1;
#X connect 12 0 14 0;
#X connect 13 0 9 1;
#X connect 13 1 11 0;
#X connect 14 0 17 1;
#X connect 15 0 0 0;
#X connect 16 0 19 0;
#X connect 17 0 18 0;
#X connect 18 0 7 0;
#X connect 18 0 11 1;
#X connect 20 0 2 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;