From f18d063d9312c95e25294e0777bc135ee9a3fd8a Mon Sep 17 00:00:00 2001 From: Thomas O Fredericks Date: Sun, 25 Oct 2009 00:39:13 +0000 Subject: Adding mtl svn path=/trunk/abstractions/mtl/; revision=12667 --- 3dNormalize.pd | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 3dNormalize.pd (limited to '3dNormalize.pd') diff --git a/3dNormalize.pd b/3dNormalize.pd new file mode 100644 index 0000000..ce65327 --- /dev/null +++ b/3dNormalize.pd @@ -0,0 +1,61 @@ +#N canvas 223 126 515 348 10; +#X obj 21 39 unpack f f f; +#X obj 21 82 t f f f; +#X obj 43 107 *; +#X obj 76 82 t f f f; +#X obj 98 107 *; +#X obj 131 81 t f f f; +#X obj 153 106 *; +#X obj 43 130 +; +#X obj 43 151 +; +#X obj 43 172 sqrt; +#X obj 21 266 /; +#X obj 60 266 /; +#X obj 115 269 /; +#X obj 21 293 pack f f f; +#X text 195 135 V =; +#X obj 60 245 f; +#X obj 115 248 f; +#X obj 60 218 t b f; +#X obj 115 220 t b f; +#X obj 21 14 inlet vector; +#X obj 21 318 outlet vector; +#X text 123 319 V; +#X text 117 13 A; +#X text 176 41 normalizes the incomimg vector A to ||V|| = 1; +#X text 228 119 | Ax/((x^2+y^2+z^2)^(1/2)) |; +#X text 227 135 | Ay/((x^2+y^2+z^2)^(1/2)) |; +#X text 227 152 | Az/((x^2+y^2+z^2)^(1/2)) |; +#X text 300 306 Version: 2007-12-09; +#X text 301 325 Author: Roman Haefeli; +#X connect 0 0 1 0; +#X connect 0 1 3 0; +#X connect 0 2 5 0; +#X connect 1 0 10 0; +#X connect 1 1 2 0; +#X connect 1 2 2 1; +#X connect 2 0 7 0; +#X connect 3 0 15 1; +#X connect 3 1 4 0; +#X connect 3 2 4 1; +#X connect 4 0 7 1; +#X connect 5 0 16 1; +#X connect 5 1 6 0; +#X connect 5 2 6 1; +#X connect 6 0 8 1; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 10 1; +#X connect 9 0 17 0; +#X connect 9 0 18 0; +#X connect 10 0 13 0; +#X connect 11 0 13 1; +#X connect 12 0 13 2; +#X connect 13 0 20 0; +#X connect 15 0 11 0; +#X connect 16 0 12 0; +#X connect 17 0 15 0; +#X connect 17 1 11 1; +#X connect 18 0 16 0; +#X connect 18 1 12 1; +#X connect 19 0 0 0; -- cgit v1.2.1