perlin.3d-dotproduct.pd

#N canvas 234 234 378 245 12;
#X obj 50 45 inlet;
#X obj 207 45 inlet;
#X text 254 44 vector 2;
#X text 96 44 vector 1;
#X obj 50 175 outlet;
#X obj 50 92 unpack f f f;
#X obj 207 92 unpack f f f;
#X obj 50 131 expr $f1 * $f4 + $f2 * $f5 + $f3 * $f6;
#X connect 0 0 5 0;
#X connect 1 0 6 0;
#X connect 5 0 7 0;
#X connect 5 1 7 1;
#X connect 5 2 7 2;
#X connect 6 0 7 3;
#X connect 6 1 7 4;
#X connect 6 2 7 5;
#X connect 7 0 4 0;