From 3faf17f7b713905f582def227df90dac15f3468d Mon Sep 17 00:00:00 2001
From: "N.N." <chr15m@users.sourceforge.net>
Date: Tue, 10 Jul 2007 07:47:46 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r7969, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/abstractions/s-abstractions/; revision=7970
---
 sx/normal.pd | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 sx/normal.pd

(limited to 'sx/normal.pd')

diff --git a/sx/normal.pd b/sx/normal.pd
new file mode 100644
index 0000000..8a57819
--- /dev/null
+++ b/sx/normal.pd
@@ -0,0 +1,45 @@
+#N canvas 283 137 706 514 10;
+#X obj 10 9 inlet;
+#X text 58 10 takes a list of 9 numbers (3 vectors of a triangular
+face);
+#X obj 10 486 outlet;
+#X obj 10 433 pack f f f;
+#X obj 10 33 unpack f f f f f f f f f;
+#X obj 101 140 expr ( ($f1 - $f2) * ($f3 - $f4) ) - ( ($f3 - $f5) *
+($f1 - $f6) );
+#X obj 10 344 expr ( ($f1 - $f2) * ($f3 - $f4) ) - ( ($f3 - $f5) *
+($f1 - $f6) );
+#X obj 10 460 sx/unit;
+#X obj 52 244 expr ( ($f3 - $f2) * ($f1 - $f4) ) - ( ($f1 - $f5) *
+($f3 - $f6) );
+#X obj 11 106 t f f;
+#X obj 13 408 f;
+#X obj 10 378 t b f;
+#X connect 0 0 4 0;
+#X connect 3 0 7 0;
+#X connect 4 0 9 0;
+#X connect 4 1 5 0;
+#X connect 4 1 6 2;
+#X connect 4 2 5 2;
+#X connect 4 2 8 2;
+#X connect 4 3 6 1;
+#X connect 4 3 8 4;
+#X connect 4 4 5 1;
+#X connect 4 4 6 4;
+#X connect 4 5 5 4;
+#X connect 4 5 8 1;
+#X connect 4 6 6 5;
+#X connect 4 6 8 3;
+#X connect 4 7 5 5;
+#X connect 4 7 6 3;
+#X connect 4 8 5 3;
+#X connect 4 8 8 5;
+#X connect 5 0 10 1;
+#X connect 6 0 11 0;
+#X connect 7 0 2 0;
+#X connect 8 0 3 1;
+#X connect 9 0 6 0;
+#X connect 9 1 8 0;
+#X connect 10 0 3 0;
+#X connect 11 0 10 0;
+#X connect 11 1 3 2;
-- 
cgit v1.2.1