give [pan~] a UI, give [level~] an inlet, and create [reverb~] which wraps the heavylib reverb

Author: michaelpace

level~.pd

@@ -18,6 +18,7 @@
 #X obj 116 23 t f f;
 #X obj 360 55 loadbang;
 #X msg 360 79 1;
+#X obj 545 179 inlet;
 #X connect 0 0 2 0;
 #X connect 1 0 13 0;
 #X connect 3 0 0 0;
@@ -37,4 +38,5 @@
 #X connect 14 1 8 0;
 #X connect 15 0 16 0;
 #X connect 16 0 7 0;
+#X connect 17 0 1 0;
 #X coords 0 -1 1 1 134 18 2 1 1;

pan~.pd

@@ -1,31 +1,40 @@
-#N canvas 705 168 450 380 12;
-#X obj 66 122 inlet~;
-#X obj 66 341 outlet~;
-#X obj 156 342 outlet~;
-#X obj 173 120 inlet;
-#X obj 66 317 *~;
-#X obj 156 318 *~;
-#X obj 173 144 deff \$1 0.5;
-#X obj 173 168 clip 0 1;
-#X text 11 12 /// FEED AUDIO INTO LEFT INLET. RIGHT INLET CONTROLS
+#N canvas 705 168 524 454 12;
+#X obj 96 152 inlet~;
+#X obj 96 371 outlet~;
+#X obj 186 372 outlet~;
+#X obj 203 150 inlet;
+#X obj 96 347 *~;
+#X obj 186 348 *~;
+#X obj 203 198 clip 0 1;
+#X text 41 42 /// FEED AUDIO INTO LEFT INLET. RIGHT INLET CONTROLS
 PAN AMOUNT. 1e-09 == FULLY LEFT \, 1 == FULLY RIGHT \, 0.5 == CENTER.
 DEFAULTS TO 0.5. LEFT CHANNEL COMES OUT OF LEFT OUTLET~ AND RIGHT CHANNEL
 COMES OUT OF RIGHT OUTLET~. NOTE THAT RIGHT NOW THERE IS A BUG WHERE
 INITIALIZING WITH 0 WILL CAUSE IT TO COME OUT CENTER \, NOT LEFT \,
 SO USE SOMETHING LIKE 1e-11 INSTEAD.;
-#X obj 173 216 line~;
-#X obj 84 245 *~ -1;
-#X obj 84 269 +~ 1;
-#X msg 173 192 \$1 1;
+#X obj 203 246 line~;
+#X obj 114 275 *~ -1;
+#X obj 114 299 +~ 1;
+#X msg 203 222 \$1 1;
+#X obj 1 23 msphsl 0 1 0.5;
+#X text 10 2 --- pan :) --, f 14;
+#X obj 336 173 loadbang;
+#X obj 336 197 deff \$1 0.5;
+#X obj 203 174 f;
 #X connect 0 0 5 0;
 #X connect 0 0 4 0;
-#X connect 3 0 6 0;
+#X connect 3 0 16 0;
 #X connect 4 0 1 0;
 #X connect 5 0 2 0;
-#X connect 6 0 7 0;
-#X connect 7 0 12 0;
+#X connect 6 0 11 0;
+#X connect 8 0 9 0;
+#X connect 8 0 5 1;
 #X connect 9 0 10 0;
-#X connect 9 0 5 1;
-#X connect 10 0 11 0;
-#X connect 11 0 4 1;
-#X connect 12 0 9 0;
+#X connect 10 0 4 1;
+#X connect 11 0 8 0;
+#X connect 12 0 16 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 15 0 12 0;
+#X connect 16 0 6 0;
+#X coords 0 -1 1 1 117 40 2 1 1;

reverb~.impl.pd

@@ -0,0 +1,70 @@
+#N canvas 109 388 1221 342 12;
+#X obj 121 53 route feedback dry-gain wet-gain highcut lowcut crossfreq
+damp predelay_ms, f 150;
+#X obj 121 26 inlet;
+#X obj 121 77 scaled 0 1 0 100;
+#X obj 251 77 scaled 0 1 0 100;
+#X obj 382 77 scaled 0 1 0 100;
+#X obj 121 101 s \$0-feedback;
+#X obj 251 101 s \$0-dry-gain;
+#X obj 382 101 s \$0-wet-gain;
+#X obj 513 77 s \$0-highcut;
+#X obj 644 77 s \$0-lowcut;
+#X obj 775 77 s \$0-crossfreq;
+#X obj 906 77 scaled 0 1 0 100;
+#X obj 906 101 s \$0-damp;
+#X obj 1037 77 s \$0-predelay_ms;
+#X obj 177 178 r \$0-feedback;
+#X obj 272 178 r \$0-dry-gain;
+#X obj 367 178 r \$0-wet-gain;
+#X obj 462 178 r \$0-highcut;
+#X obj 550 178 r \$0-lowcut;
+#X obj 631 178 r \$0-crossfreq;
+#X obj 733 178 r \$0-damp;
+#X obj 800 178 r \$0-predelay_ms;
+#X obj 25 26 inlet~;
+#X obj 171 291 outlet~;
+#X obj 231 291 outlet~;
+#X obj 1015 149 print INVALID_PARAMETER;
+#X msg 177 202 feedback \$1;
+#X msg 272 202 dry-gain \$1;
+#X msg 367 202 wet-gain \$1;
+#X msg 550 202 lowcut \$1;
+#X msg 462 202 highcut \$1;
+#X msg 631 202 crossfreq \$1;
+#X msg 733 202 damp \$1;
+#X msg 800 202 predelay_ms \$1;
+#X obj 171 267 heavylib/hv.reverb;
+#X connect 0 0 2 0;
+#X connect 0 1 3 0;
+#X connect 0 2 4 0;
+#X connect 0 3 8 0;
+#X connect 0 4 9 0;
+#X connect 0 5 10 0;
+#X connect 0 6 11 0;
+#X connect 0 7 13 0;
+#X connect 0 8 25 0;
+#X connect 1 0 0 0;
+#X connect 2 0 5 0;
+#X connect 3 0 6 0;
+#X connect 4 0 7 0;
+#X connect 11 0 12 0;
+#X connect 14 0 26 0;
+#X connect 15 0 27 0;
+#X connect 16 0 28 0;
+#X connect 17 0 30 0;
+#X connect 18 0 29 0;
+#X connect 19 0 31 0;
+#X connect 20 0 32 0;
+#X connect 21 0 33 0;
+#X connect 22 0 34 0;
+#X connect 26 0 34 1;
+#X connect 27 0 34 1;
+#X connect 28 0 34 1;
+#X connect 29 0 34 1;
+#X connect 30 0 34 1;
+#X connect 31 0 34 1;
+#X connect 32 0 34 1;
+#X connect 33 0 34 1;
+#X connect 34 0 23 0;
+#X connect 34 1 24 0;

reverb~.params.pd

@@ -0,0 +1,43 @@
+#N canvas 150 188 1085 300 12;
+#X obj 2 21 mspparam feedback;
+#X obj 2 40 mspparam dry-gain;
+#X obj 2 59 mspparam wet-gain 0 1 1;
+#X obj 2 78 mspparam highcut 0 24000 24000;
+#X obj 2 97 mspparam lowcut 0 24000 5;
+#X obj 2 116 mspparam crossfreq 0 24000 3000;
+#X obj 2 135 mspparam damp 0 1 0.6;
+#X obj 2 154 mspparam predelay_ms 0 10000 0;
+#X obj 2 221 outlet;
+#X text 96 2 ----- reverb :) -----;
+#X obj 546 70 inlet;
+#X obj 546 94 route feedback dry-gain wet-gain highcut lowcut crossfreq
+damp predelay_ms;
+#X obj 525 188 loadbang;
+#X obj 525 212 del 1;
+#X connect 0 0 8 0;
+#X connect 1 0 8 0;
+#X connect 2 0 8 0;
+#X connect 3 0 8 0;
+#X connect 4 0 8 0;
+#X connect 5 0 8 0;
+#X connect 6 0 8 0;
+#X connect 7 0 8 0;
+#X connect 10 0 11 0;
+#X connect 11 0 0 0;
+#X connect 11 1 1 0;
+#X connect 11 2 2 0;
+#X connect 11 3 3 0;
+#X connect 11 4 4 0;
+#X connect 11 5 5 0;
+#X connect 11 6 6 0;
+#X connect 11 7 7 0;
+#X connect 12 0 13 0;
+#X connect 13 0 0 0;
+#X connect 13 0 7 0;
+#X connect 13 0 6 0;
+#X connect 13 0 5 0;
+#X connect 13 0 4 0;
+#X connect 13 0 3 0;
+#X connect 13 0 2 0;
+#X connect 13 0 1 0;
+#X coords 0 -1 1 1 351 172 2 1 1;

reverb~.pd

@@ -0,0 +1,13 @@
+#N canvas 208 246 589 300 12;
+#X obj 1 1 reverb~.params;
+#X obj 474 13 inlet;
+#X obj 56 209 inlet~;
+#X obj 56 233 reverb~.impl;
+#X obj 56 257 outlet~;
+#X obj 137 257 outlet~;
+#X connect 0 0 3 1;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 3 1 5 0;
+#X coords 0 -1 1 1 351 172 2 1 1;