aboutsummaryrefslogtreecommitdiff
path: root/sx/unit.pd
blob: 0f971b59f17dc9ff2940c3015d2f09b277c08233 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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;