From 9326d1df4dde05b6ce826d87dd9feef78b3fcb4b Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Thu, 12 Apr 2007 04:43:57 +0000
Subject: whipped out the quartic function

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

(limited to 'quartic.pd')

diff --git a/quartic.pd b/quartic.pd
new file mode 100644
index 0000000..0382d37
--- /dev/null
+++ b/quartic.pd
@@ -0,0 +1,23 @@
+#N canvas 213 136 569 383 10;
+#X obj 52 10 inlet;
+#X obj 387 9 inlet;
+#X obj 52 324 outlet;
+#X obj 300 10 loadbang;
+#X obj 227 9 inlet;
+#X obj 227 50 purepd/float_argument \$1;
+#X obj 387 50 purepd/float_argument \$2;
+#X obj 227 95 -;
+#X msg 227 73 1 \$1;
+#X obj 52 159 expr (1-2*$f2)*pow($f1 \, 2) + (2*$f2)*$f1;
+#X obj 52 190 expr (1-2*$f2)*pow($f1 \, 2) + (2*$f2)*$f1;
+#X connect 0 0 9 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 8 0;
+#X connect 6 0 10 1;
+#X connect 7 0 9 1;
+#X connect 8 0 7 0;
+#X connect 9 0 10 0;
+#X connect 10 0 2 0;
-- 
cgit v1.2.1