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

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

(limited to 'circular_sigmoid.pd')

diff --git a/circular_sigmoid.pd b/circular_sigmoid.pd
new file mode 100644
index 0000000..aa2afc9
--- /dev/null
+++ b/circular_sigmoid.pd
@@ -0,0 +1,20 @@
+#N canvas 393 34 599 452 10;
+#X obj 62 10 inlet;
+#X obj 195 405 outlet;
+#X obj 240 10 loadbang;
+#X obj 167 9 inlet;
+#X obj 167 50 purepd/float_argument \$1;
+#X obj 131 114 moses;
+#X obj 14 208 expr $f2 - sqrt($f2*$f2 - $f1*$f1);
+#X obj 235 207 expr $f2 + sqrt(pow(1 - $f2 \, 2) - pow($f1 - 1 \, 2))
+;
+#X connect 0 0 5 0;
+#X connect 2 0 4 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 1;
+#X connect 4 0 6 1;
+#X connect 4 0 7 1;
+#X connect 5 0 6 0;
+#X connect 5 1 7 0;
+#X connect 6 0 1 0;
+#X connect 7 0 1 0;
-- 
cgit v1.2.1