change has long been in core pd;

added abstraction for the some of the functions

svn path=/trunk/externals/markex/; revision=4695

7 files changed, 99 insertions, 61 deletions

diff --git a/alternate.pd b/alternate.pd
new file mode 100644
index 0000000..332b6ae
--- /dev/null
+++ b/alternate.pd
@@ -0,0 +1,26 @@
+#N canvas 0 0 450 300 10;
+#X obj 46 51 inlet;
+#X obj 92 225 outlet;
+#X obj 46 70 route reset;
+#X obj 46 89 b;
+#X obj 118 121 t a b;
+#X obj 178 140 == 0;
+#X obj 92 200 spigot;
+#X obj 148 140 i 1;
+#X obj 141 225 outlet;
+#X obj 141 200 spigot;
+#X msg 46 108 1;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 4 0;
+#X connect 3 0 10 0;
+#X connect 4 0 9 0;
+#X connect 4 0 6 0;
+#X connect 4 1 7 0;
+#X connect 5 0 7 1;
+#X connect 5 0 9 1;
+#X connect 6 0 1 0;
+#X connect 7 0 5 0;
+#X connect 7 0 6 1;
+#X connect 9 0 8 0;
+#X connect 10 0 7 1;
diff --git a/change-help.pd b/change-help.pd
deleted file mode 100644
index c02ddd1..0000000
--- a/change-help.pd
+++ /dev/null
@@ -1,13 +0,0 @@
-#N canvas 356 327 600 500 10;
-#X text 124 68 GEM object;
-#X obj 123 298 print out1;
-#X obj 123 219 change;
-#X msg 123 156 0;
-#X msg 166 154 1;
-#X text 138 23 [change];
-#X text 58 360 [change] only outputs when the inlet receives a value
-that is different than the previous value.;
-#X text 57 404 [change] is very nice for the == and > objects.;
-#X connect 2 0 1 0;
-#X connect 3 0 2 0;
-#X connect 4 0 2 0;
diff --git a/change.c b/change.c
deleted file mode 100644
index f42cf37..0000000
--- a/change.c
+++ /dev/null
@@ -1,48 +0,0 @@
-/*
- * Copyright (c) 1997-1999 Mark Danks.
- * For information on usage and redistribution, and for a DISCLAIMER OF ALL
- * WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
- */
-
-#include "m_pd.h"
-
-/* -------------------------- change ------------------------------ */
-
-/* instance structure */
-
-static t_class *change_class;
-
-typedef struct _change
-{
-	t_object    x_obj;			/* obligatory object header */
-	float		x_cur;
-	t_outlet    *t_out1;	    /* the outlet */
-} t_change;
-
-static void change_float(t_change *x, t_floatarg n)
-{
-    if (n != x->x_cur)
-	{
-		outlet_float(x->t_out1, n);
-		x->x_cur = n;
-    }
-}
-
-static void *change_new(void) /* init vals in struc */
-{
-    t_change *x = (t_change *)pd_new(change_class);
-    x->x_cur = -1.f;
-	x->t_out1 = outlet_new(&x->x_obj, 0);
-    return(x);
-}
-
-void change_setup(void)
-{
-    change_class = class_new(gensym("change"), (t_newmethod)change_new, 0,
-    	    	    	sizeof(t_change), 0, A_NULL);
-    class_addfloat(change_class, change_float);
-
-	 #if PD_MINOR_VERSION < 37 
-
-#endif
-}
diff --git a/invert.pd b/invert.pd
new file mode 100644
index 0000000..724c11b
--- /dev/null
+++ b/invert.pd
@@ -0,0 +1,8 @@
+#N canvas 135 98 268 230 10;
+#X obj 115 71 inlet;
+#X obj 115 97 t f;
+#X obj 115 120 == 0;
+#X obj 115 145 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
diff --git a/oneshot.pd b/oneshot.pd
new file mode 100644
index 0000000..b847667
--- /dev/null
+++ b/oneshot.pd
@@ -0,0 +1,24 @@
+#N canvas 0 0 450 300 10;
+#X obj 72 77 inlet;
+#X obj 144 246 outlet;
+#X obj 72 107 route clear;
+#X obj 144 166 spigot;
+#X obj 181 146 i 1;
+#X obj 144 126 t a b;
+#X obj 144 186 t a b;
+#X msg 174 207 0;
+#X obj 72 128 b;
+#X msg 72 147 1;
+#X text 193 164 don't assume we have pd>=0.39;
+#X connect 0 0 2 0;
+#X connect 2 0 8 0;
+#X connect 2 1 5 0;
+#X connect 3 0 6 0;
+#X connect 4 0 3 1;
+#X connect 5 0 3 0;
+#X connect 5 1 4 0;
+#X connect 6 0 1 0;
+#X connect 6 1 7 0;
+#X connect 7 0 4 1;
+#X connect 8 0 9 0;
+#X connect 9 0 4 1;
diff --git a/strcat.pd b/strcat.pd
new file mode 100644
index 0000000..de54669
--- /dev/null
+++ b/strcat.pd
@@ -0,0 +1,17 @@
+#N canvas 0 0 450 300 10;
+#X obj 112 58 inlet;
+#X obj 112 243 outlet;
+#X obj 164 196 makefilename \$1%s;
+#X obj 216 119 route float;
+#X obj 288 143 symbol;
+#X obj 112 94 route float symbol list;
+#X obj 112 167 makefilename \$1%d;
+#X connect 0 0 5 0;
+#X connect 2 0 1 0;
+#X connect 3 0 6 0;
+#X connect 3 1 4 0;
+#X connect 4 0 2 0;
+#X connect 5 0 6 0;
+#X connect 5 1 2 0;
+#X connect 5 2 3 0;
+#X connect 6 0 1 0;
diff --git a/tripleLine.pd b/tripleLine.pd
new file mode 100644
index 0000000..03181d7
--- /dev/null
+++ b/tripleLine.pd
@@ -0,0 +1,24 @@
+#N canvas 566 156 450 300 10;
+#X obj 122 42 inlet;
+#X obj 122 254 outlet;
+#X obj 122 104 unpack 0 0 0 0;
+#X obj 122 223 pack 0 0 0;
+#X obj 122 76 t l b;
+#X obj 282 195 line 0 \$2;
+#X obj 203 195 line 0 \$2;
+#X obj 122 195 line 0 \$2;
+#X obj 215 128 f \$1;
+#X connect 0 0 4 0;
+#X connect 2 0 7 0;
+#X connect 2 1 6 0;
+#X connect 2 2 5 0;
+#X connect 2 3 8 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 4 1 8 0;
+#X connect 5 0 3 2;
+#X connect 6 0 3 1;
+#X connect 7 0 3 0;
+#X connect 8 0 5 1;
+#X connect 8 0 6 1;
+#X connect 8 0 7 1;