From 271bd5960eb6d11edb21ed7070dc92cbb4aa48a6 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 17 Apr 2007 05:25:46 +0000
Subject: went on a curve binge at the Patching Circle.  I also discovered that
 Cyrille's breakpoint_smooth is the same as elliptic.pd

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

(limited to 'quadratic.pd')

diff --git a/quadratic.pd b/quadratic.pd
new file mode 100644
index 0000000..32d46a4
--- /dev/null
+++ b/quadratic.pd
@@ -0,0 +1,30 @@
+#N canvas 79 279 589 471 10;
+#X obj 22 10 inlet;
+#X obj 412 9 inlet;
+#X obj 174 405 outlet;
+#X obj 270 10 loadbang;
+#X obj 167 9 inlet;
+#X obj 167 50 purepd/float_argument \$1;
+#X obj 412 50 purepd/float_argument \$2;
+#X obj 167 97 select 0.5;
+#X obj 224 149 float;
+#X msg 167 121 0.50001;
+#X text 225 121 prevent divide by 0;
+#X obj 271 213 expr 1 - 2*$f1;
+#X obj 22 250 expr (sqrt($f2*$f2 + $f3*$f1) - $f2) / $f3;
+#X obj 175 309 expr (1 - 2*$f2)*($f1*$f1) + (2*$f2)*$f1;
+#X connect 0 0 12 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 0;
+#X connect 6 0 13 1;
+#X connect 7 0 9 0;
+#X connect 7 1 8 0;
+#X connect 8 0 11 0;
+#X connect 8 0 12 1;
+#X connect 9 0 8 0;
+#X connect 11 0 12 2;
+#X connect 12 0 13 0;
+#X connect 13 0 2 0;
-- 
cgit v1.2.1