From 51507febc36a46c835076f8dc923c3f58c08fdaf Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 10 Apr 2007 05:49:04 +0000
Subject: lots of curves inspired by Golan Levin's processing shapers

svn path=/trunk/externals/mapping/; revision=7554
---
 elliptic_seat.pd | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 elliptic_seat.pd

(limited to 'elliptic_seat.pd')

diff --git a/elliptic_seat.pd b/elliptic_seat.pd
new file mode 100644
index 0000000..239bc8d
--- /dev/null
+++ b/elliptic_seat.pd
@@ -0,0 +1,32 @@
+#N canvas 422 253 573 455 10;
+#X obj 62 10 inlet;
+#X obj 327 9 inlet;
+#X obj 106 405 outlet;
+#X obj 240 10 loadbang;
+#X obj 167 9 inlet;
+#X obj 167 50 purepd/float_argument \$1;
+#X obj 327 50 purepd/float_argument \$2;
+#X obj 74 113 moses;
+#X obj 167 97 moses 1;
+#X obj 167 118 + 1e-06;
+#X text 217 104 prevent divide by 0;
+#X obj 7 199 expr ($f3/$f2) * sqrt(pow($f2 \, 2) - pow($f1 - $f2 \,
+2));
+#X obj 152 275 expr 1 - ( (1 - $f3)/(1 - $f2) * sqrt(pow(1 - $f2 \,
+2) - pow($f1 - $f2 \, 2)) );
+#X connect 0 0 7 0;
+#X connect 1 0 6 0;
+#X connect 3 0 5 0;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 1;
+#X connect 5 0 8 0;
+#X connect 6 0 11 2;
+#X connect 6 0 12 2;
+#X connect 7 0 11 0;
+#X connect 7 1 12 0;
+#X connect 8 0 9 0;
+#X connect 9 0 11 1;
+#X connect 9 0 12 1;
+#X connect 11 0 2 0;
+#X connect 12 0 2 0;
-- 
cgit v1.2.1