diff options
Diffstat (limited to 'sx/unit.pd')
| -rw-r--r-- | sx/unit.pd | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/sx/unit.pd b/sx/unit.pd new file mode 100644 index 0000000..0f971b5 --- /dev/null +++ b/sx/unit.pd @@ -0,0 +1,28 @@ +#N canvas 167 33 599 530 10; +#X obj 10 8 inlet; +#X text 57 7 Takes a vector and calculates the unit; +#X obj 10 311 outlet; +#X obj 167 94 unpack f f f; +#X obj 167 160 expr sqrt(($f1 * $f1) + ($f2 * $f2) + ($f3 * $f3)); +#X obj 10 34 t l l; +#X obj 10 187 unpack f f f; +#X obj 10 246 /; +#X obj 49 246 /; +#X obj 89 246 /; +#X obj 10 287 pack f f f; +#X connect 0 0 5 0; +#X connect 3 0 4 0; +#X connect 3 1 4 1; +#X connect 3 2 4 2; +#X connect 4 0 7 1; +#X connect 4 0 8 1; +#X connect 4 0 9 1; +#X connect 5 0 6 0; +#X connect 5 1 3 0; +#X connect 6 0 7 0; +#X connect 6 1 8 0; +#X connect 6 2 9 0; +#X connect 7 0 10 0; +#X connect 8 0 10 1; +#X connect 9 0 10 2; +#X connect 10 0 2 0; |