From 855530f5a83c85a5e67323e4ab5a00a8d14537bb Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Sat, 3 Jan 2009 09:15:08 +0000
Subject: some new objects to support structhausen and mmmap

svn path=/trunk/abstractions/sfruit/; revision=10473
---
 sfruit/quantize.pd | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 sfruit/quantize.pd

(limited to 'sfruit/quantize.pd')

diff --git a/sfruit/quantize.pd b/sfruit/quantize.pd
new file mode 100644
index 0000000..d0c8eab
--- /dev/null
+++ b/sfruit/quantize.pd
@@ -0,0 +1,42 @@
+#N canvas 194 246 374 297 10;
+#X obj 160 162 / 2;
+#X obj 129 192 >;
+#X obj 47 209 +;
+#X obj 47 236 *;
+#X obj 197 192 t a;
+#X obj 47 109 t a a;
+#X obj 122 162 fmod;
+#X obj 47 162 /;
+#X obj 47 185 int;
+#X obj 126 110 t a a a a;
+#X obj 126 39 inlet;
+#X obj 47 39 inlet;
+#X obj 47 262 outlet;
+#X obj 204 22 loadbang;
+#X obj 204 49 f \$1;
+#X obj 204 70 sel 0;
+#X msg 204 93 1;
+#X text 193 149 if remainder is > 1/2 \,;
+#X text 194 163 quantize to next snappoint;
+#X text 182 157 <;
+#X connect 0 0 1 1;
+#X connect 1 0 2 1;
+#X connect 2 0 3 0;
+#X connect 3 0 12 0;
+#X connect 4 0 3 1;
+#X connect 5 0 7 0;
+#X connect 5 1 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 8 0;
+#X connect 8 0 2 0;
+#X connect 9 0 7 1;
+#X connect 9 1 6 1;
+#X connect 9 2 0 0;
+#X connect 9 3 4 0;
+#X connect 10 0 9 0;
+#X connect 11 0 5 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 15 1 9 0;
+#X connect 16 0 9 0;
-- 
cgit v1.2.1