add perlinterp~

perlin noise interpolator

perlinterp~-help.pd

@@ -0,0 +1,34 @@
+#N canvas 241 291 594 423 12;
+#X obj 13 53 shnoise~;
+#X obj 132 222 oscope~;
+#X obj 13 8 smoother~;
+#X floatatom 122 49 5 0 0 0 - - -;
+#X obj 13 237 outputc~;
+#X obj 132 92 *~ 2;
+#X obj 132 118 wrap~;
+#X obj 161 144 dsrand~;
+#X text 165 9 perlin noise interpolator: takes phasor~ to interpolate
+in first inlet \, first gradient in 2nd inlet \, 2nd gradient in 3rd
+inlet. argument/last inlet is value to multiply gradient by (0 default!)
+;
+#X text 243 132 2 octaves of noise here;
+#X obj 13 93 perlinterp~ 0.75;
+#X obj 132 171 perlinterp~ 0.75;
+#X connect 0 0 5 0;
+#X connect 0 0 10 0;
+#X connect 0 1 10 1;
+#X connect 0 2 10 2;
+#X connect 2 0 0 0;
+#X connect 3 0 10 3;
+#X connect 3 0 11 3;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 6 0 11 0;
+#X connect 7 0 11 1;
+#X connect 7 1 11 2;
+#X connect 10 0 1 0;
+#X connect 10 0 4 0;
+#X connect 10 0 4 1;
+#X connect 11 0 1 0;
+#X connect 11 0 4 1;
+#X connect 11 0 4 0;

perlinterp~.pd

@@ -0,0 +1,34 @@
+#N canvas 182 287 395 401 12;
+#X obj 58 22 inlet~;
+#X obj 110 23 inlet~;
+#X obj 160 23 inlet~;
+#X obj 159 278 *~;
+#X obj 115 193 expr~ (3 - 2*$v1)*$v1*$v1;
+#X obj 158 244 rminus~ 1;
+#X obj 246 18 inlet;
+#X obj 109 63 *~ \$1;
+#X obj 173 80 *~ \$1;
+#X obj 72 325 outlet~;
+#X obj 163 119 *~;
+#X obj 39 96 rminus~ 1;
+#X obj 109 88 *~ -1;
+#X obj 73 161 *~;
+#X obj 74 283 *~;
+#X connect 0 0 4 0;
+#X connect 0 0 11 0;
+#X connect 0 0 10 0;
+#X connect 1 0 7 0;
+#X connect 2 0 8 0;
+#X connect 3 0 9 0;
+#X connect 4 0 14 1;
+#X connect 4 0 5 0;
+#X connect 5 0 3 0;
+#X connect 6 0 7 1;
+#X connect 6 0 8 1;
+#X connect 7 0 12 0;
+#X connect 8 0 10 1;
+#X connect 10 0 3 1;
+#X connect 11 0 13 0;
+#X connect 12 0 13 1;
+#X connect 13 0 14 0;
+#X connect 14 0 9 0;