forked from MikeMorenoDSP/pd-mkmr
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathhv.curve~.pd
219 lines (219 loc) · 4.96 KB
/
hv.curve~.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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
#N canvas 563 81 675 409 10;
#X obj 106 70 unpack f f f;
#X obj 31 355 outlet~;
#X obj 106 224 -~;
#X obj 138 210 sig~ 1;
#X obj 138 231 -~;
#X obj 188 196 *~;
#X obj 106 245 *~;
#X obj 91 294 +~;
#X obj 106 272 /~;
#X obj 223 200 sig~ 1;
#X obj 223 222 -~;
#X obj 223 258 +~;
#X obj 31 164 sig~ 1;
#X obj 31 185 -~;
#X obj 31 206 *~;
#X obj 31 227 +~;
#X obj 74 213 *~;
#N canvas 0 22 234 183 <=~ 0;
#X obj 150 34 inlet~;
#X obj 45 34 inlet~;
#X obj 45 129 outlet~;
#N canvas 467 216 450 300 @hv_obj 0;
#X obj 217 60 inlet~;
#X obj 120 60 inlet~;
#X obj 170 183 outlet~;
#X connect 1 0 2 0;
#X restore 45 105 pd @hv_obj __and~f;
#X obj 150 83 sig~ 1;
#N canvas 715 101 191 233 @hv_obj 0;
#X obj 49 83 -~;
#X obj 50 109 clip~ -1e-37 0;
#X obj 49 32 inlet~;
#X obj 93 33 inlet~;
#X obj 50 174 outlet~;
#X obj 50 151 *~ 1e+37;
#X obj 49 58 min~;
#X obj 50 130 +~ 1e-37;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 2 0 0 1;
#X connect 3 0 6 1;
#X connect 5 0 4 0;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X restore 45 57 pd @hv_obj __lte~f;
#X connect 0 0 5 1;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 306 212 pd <=~;
#N canvas 0 22 255 189 >=~ 0;
#X obj 150 34 inlet~;
#X obj 45 34 inlet~;
#X obj 45 129 outlet~;
#N canvas 467 216 290 220 @hv_obj 0;
#X obj 158 52 inlet~;
#X obj 61 52 inlet~;
#X obj 61 136 outlet~;
#X obj 61 100 *~;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X restore 45 105 pd @hv_obj __and~f;
#X obj 150 83 sig~ 1;
#N canvas 249 541 148 189 @hv_obj 0;
#X obj 23 69 -~;
#X obj 23 94 clip~ -1e-37 0;
#X obj 23 18 inlet~;
#X obj 67 19 inlet~;
#X obj 23 159 outlet~;
#X obj 23 136 *~ 1e+37;
#X obj 23 44 min~;
#X obj 23 115 +~ 1e-37;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 3 0 6 1;
#X connect 3 0 0 1;
#X connect 5 0 4 0;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X restore 45 57 pd @hv_obj __gte~f;
#X connect 0 0 5 1;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 356 220 pd >=~;
#X obj 389 198 sig~ 0;
#X obj 306 234 *~;
#X obj 291 279 sig~ 1;
#X obj 291 301 -~;
#X obj 31 248 *~;
#X obj 91 315 *~;
#X obj 31 329 +~;
#X obj 106 121 line~;
#X obj 46 126 line~;
#N canvas 349 167 179 187 hv.vline 0;
#X obj 12 34 t a b;
#X msg 75 56 0;
#N canvas 274 138 292 165 dbl-pipe 0;
#X obj 22 22 inlet;
#X obj 82 22 inlet;
#X obj 182 22 inlet;
#X obj 22 64 pipe 0;
#X obj 82 64 pipe 0;
#X obj 22 86 outlet;
#X obj 82 86 outlet;
#X obj 132 64 pipe 0;
#X obj 132 86 outlet;
#X obj 132 22 inlet;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 3 1;
#X connect 2 0 4 1;
#X connect 2 0 7 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 7 0;
#X restore 12 100 pd dbl-pipe;
#X obj 12 78 unpack f f f f;
#X obj 12 122 pack f f f;
#X obj 12 12 inlet;
#X obj 12 144 outlet;
#X connect 0 0 3 0;
#X connect 0 1 1 0;
#X connect 1 0 2 3;
#X connect 2 0 4 0;
#X connect 2 1 4 1;
#X connect 2 2 4 2;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 3 2 2 2;
#X connect 3 3 2 3;
#X connect 4 0 6 0;
#X connect 5 0 0 0;
#X restore 12 34 pd hv.vline;
#X obj 12 56 t a b a;
#X obj 268 84 sig~;
#X msg 46 104 0 \, 1 \$1;
#X obj 121 192 samphold~;
#X obj 12 78 unpack f f f;
#X msg 172 97 -1 \, 0 1;
#X obj 172 119 line~;
#X obj 188 217 exp~;
#X obj 268 208 exp~;
#X text 355 99 https://github.com/dotmmb/mmb;
#X text 345 79 Mike Moser-Booth;
#X text 355 169 https://github.com/enzienaudio/heavylib;
#X text 345 149 from the heavylib;
#X text 355 29 https://github.com/MikeMorenoAudio;
#X text 345 59 Based on the [curve.mmb~] object from the mmb library
;
#X obj 87 343 delwrite~ \$0-env 0;
#X obj 121 146 delread~ \$0-env 0;
#X text 345 9 Made heavy compatible by Mike Moreno;
#X text 345 129 Used [hv.lte] and [hv.gte] as subpatches;
#X obj 12 12 inlet;
#X obj 268 62 inlet;
#X connect 0 0 26 0;
#X connect 0 2 30 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 4 0 6 1;
#X connect 5 0 36 0;
#X connect 6 0 8 0;
#X connect 7 0 24 0;
#X connect 8 0 7 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 23 0;
#X connect 16 0 15 1;
#X connect 17 0 20 0;
#X connect 18 0 20 1;
#X connect 19 0 17 1;
#X connect 19 0 18 1;
#X connect 20 0 11 1;
#X connect 20 0 22 1;
#X connect 20 0 23 1;
#X connect 21 0 22 0;
#X connect 22 0 24 1;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 1 0;
#X connect 25 0 44 0;
#X connect 26 0 2 0;
#X connect 26 0 16 1;
#X connect 27 0 5 0;
#X connect 27 0 13 1;
#X connect 27 0 16 0;
#X connect 28 0 29 0;
#X connect 29 0 33 0;
#X connect 29 1 34 0;
#X connect 29 2 0 0;
#X connect 30 0 5 1;
#X connect 30 0 18 0;
#X connect 30 0 17 0;
#X connect 30 0 37 0;
#X connect 31 0 27 0;
#X connect 32 0 2 1;
#X connect 32 0 7 0;
#X connect 32 0 14 1;
#X connect 33 1 31 0;
#X connect 34 0 35 0;
#X connect 35 0 32 1;
#X connect 36 0 4 1;
#X connect 37 0 10 1;
#X connect 45 0 32 0;
#X connect 48 0 28 0;
#X connect 49 0 30 0;