diff options
Diffstat (limited to 'sx/normal.pd')
| -rw-r--r-- | sx/normal.pd | 45 |
1 files changed, 45 insertions, 0 deletions
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; |