aboutsummaryrefslogtreecommitdiff
path: root/sx/unit.pd
diff options
context:
space:
mode:
authorN.N. <chr15m@users.sourceforge.net>2007-07-10 07:47:46 +0000
committerN.N. <chr15m@users.sourceforge.net>2007-07-10 07:47:46 +0000
commit3faf17f7b713905f582def227df90dac15f3468d (patch)
treea429f621d2aad8db85d902fde422d3ff1e859bd6 /sx/unit.pd
This commit was generated by cvs2svn to compensate for changes in r7969,svn2git-root
which included commits to RCS files with non-trunk default branches. svn path=/trunk/abstractions/s-abstractions/; revision=7970
Diffstat (limited to 'sx/unit.pd')
-rw-r--r--sx/unit.pd28
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;