aboutsummaryrefslogtreecommitdiff
path: root/sieve
diff options
context:
space:
mode:
Diffstat (limited to 'sieve')
-rwxr-xr-xsieve/help-sieve.pd79
-rwxr-xr-xsieve/makefile105
-rwxr-xr-xsieve/sieve.c285
3 files changed, 469 insertions, 0 deletions
diff --git a/sieve/help-sieve.pd b/sieve/help-sieve.pd
new file mode 100755
index 0000000..1e82e8a
--- /dev/null
+++ b/sieve/help-sieve.pd
@@ -0,0 +1,79 @@
+#N canvas 439 25 595 461 10;
+#X obj 94 346 sieve;
+#X msg 147 276 set 2 1;
+#X msg 198 276 set 7 0.86;
+#X msg 148 198 map 0 1 0 0 0 3 0 2 0 0.7;
+#X msg 147 229 get 0;
+#X msg 147 250 get 1;
+#X floatatom 37 384 5 0 0 0 - - -;
+#X floatatom 81 382 5 0 0 0 - - -;
+#X obj 129 379 print MAPOUT;
+#X obj 218 379 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 218 397 print EXACT;
+#X obj 37 419 print MAPPED;
+#X obj 81 399 print VALUE;
+#X msg 147 324 clear;
+#X text 189 228 get map;
+#X text 189 249 get inverted map;
+#X floatatom 309 406 5 0 0 0 - - -;
+#X floatatom 350 406 5 0 0 0 - - -;
+#X obj 341 363 prepend map;
+#X obj 395 405 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 189 323 clear object;
+#X text 277 277 set [location \, value];
+#X msg 147 297 set 2 0;
+#X text 201 297 unset location;
+#X text 332 196 set map;
+#X floatatom 35 318 5 0 0 0 - - -;
+#X obj 29 184 vradio 15 1 0 4 empty empty mode 0 -6 0 10 -262144 -1
+-1 0;
+#X msg 29 248 mode \$1;
+#X text 62 170 : 0=exact \, 1=nearest \, 2=shunt up \, 3=shunt down
+;
+#X obj 341 383 sieve;
+#X obj 22 19 sieve;
+#X text 62 19 takes integers and maps them to floats if they are set.
+;
+#X text 63 32 in the default mode (mode 0) integers without an associated
+float are blocked \, so a map will sieve the input.;
+#X text 64 60 mode 1 forces the sieve to choose the nearest index \,
+so that inputs are sent to alternative outputs. The rightmost output
+bangs only if the input is exact.;
+#X text 64 101 In modes 2 and 3 the sieve chooses the next map up or
+the next map down. If the input is higher than the highest mapped integer
+in mode 2 \, or lower than the lowest in mode 3 \, then the shunting
+is wrapped and the lowest or highest is chosen respectively.;
+#X text 294 330 when the inverted map is sent to another;
+#X text 298 344 sieve object \, the input is segregated.;
+#X text 38 440 Polyphony control objects by Ed Kelly \, November 2006
+;
+#X text 411 439 See also;
+#X obj 476 438 polymap;
+#X obj 476 417 polystat;
+#X obj 532 438 maskxor;
+#X connect 0 0 6 0;
+#X connect 0 1 7 0;
+#X connect 0 2 8 0;
+#X connect 0 2 18 0;
+#X connect 0 3 9 0;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 3 0 0 0;
+#X connect 4 0 0 0;
+#X connect 5 0 0 0;
+#X connect 6 0 11 0;
+#X connect 7 0 12 0;
+#X connect 9 0 10 0;
+#X connect 13 0 0 0;
+#X connect 13 0 18 0;
+#X connect 18 0 29 0;
+#X connect 22 0 0 0;
+#X connect 25 0 0 0;
+#X connect 25 0 29 0;
+#X connect 26 0 27 0;
+#X connect 27 0 0 0;
+#X connect 29 0 16 0;
+#X connect 29 1 17 0;
+#X connect 29 3 19 0;
diff --git a/sieve/makefile b/sieve/makefile
new file mode 100755
index 0000000..e0f86ef
--- /dev/null
+++ b/sieve/makefile
@@ -0,0 +1,105 @@
+current:
+ echo make pd_linux, pd_nt, pd_irix5, pd_irix6 or pd_darwin, then make install
+
+clean: ; rm -f *.pd_* *.o
+
+# ----------------------- NT -----------------------
+
+pd_nt: sieve.dll
+
+INSTALL_PREFIX="C:\pd\extra"
+EXT=dll
+.SUFFIXES: .obj .dll
+
+PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo
+VC="D:\Program Files\Microsoft Visual Studio\Vc98"
+
+PDNTINCLUDE = /I. /I\tcl\include /I..\..\src /I$(VC)\include
+
+PDNTLDIR = $(VC)\lib
+PDNTLIB = $(PDNTLDIR)\libc.lib \
+ $(PDNTLDIR)\oldnames.lib \
+ $(PDNTLDIR)\kernel32.lib \
+ ..\..\bin\pd.lib
+
+.c.dll:
+ cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c
+ link /dll /export:$*_setup $*.obj $(PDNTLIB)
+
+# ----------------------- IRIX 5.x -----------------------
+
+pd_irix5: sieve.pd_irix5
+
+INSTALL_PREFIX=/usr/local
+EXT=pd_irix5
+.SUFFIXES: .pd_irix5
+
+SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2
+
+SGIINCLUDE = -I/usr/local/include
+
+.c.pd_irix5:
+ cc $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c
+ ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o
+ rm $*.o
+
+# ----------------------- IRIX 5.x -----------------------
+
+pd_irix6: sieve.pd_irix6
+
+INSTALL_PREFIX=/usr/local
+EXT=pd_irix6
+.SUFFIXES: .pd_irix6
+
+SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2
+
+SGIINCLUDE = -I/usr/local/include
+
+.c.pd_irix6:
+ cc $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c
+ ld -elf -shared -rdata_shared -o $*.pd_irix6 $*.o
+ rm $*.o
+
+# ----------------------- LINUX i386 -----------------------
+
+pd_linux: sieve.pd_linux
+
+INSTALL_PREFIX=/usr/local
+EXT=pd_linux
+.SUFFIXES: .pd_linux
+
+LINUXCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer \
+ -Wall -W -Wshadow -Wstrict-prototypes -Werror \
+ -Wno-unused -Wno-parentheses -Wno-switch
+
+LINUXINCLUDE = -I/usr/local/include
+
+.c.pd_linux:
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c
+ ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm
+ strip --strip-unneeded $*.pd_linux
+ rm $*.o
+
+# ----------------------- Mac OSX -----------------------
+
+pd_darwin: sieve.pd_darwin
+
+INSTALL_PREFIX=/usr/local
+EXT=pd_darwin
+.SUFFIXES: .pd_darwin
+
+DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \
+ -Wno-unused -Wno-parentheses -Wno-switch
+
+.c.pd_darwin:
+ cc $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c
+ cc -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o
+ rm -f $*.o
+
+# ----------------------------------------------
+
+install::
+ install -d $(INSTALL_PREFIX)/lib/pd/extra
+# install -m 644 *.$(EXT) $(INSTALL_PREFIX)/lib/pd/externs
+ -install -m 644 sieve.$(EXT) $(INSTALL_PREFIX)/lib/pd/extra
+ install -m 644 *.pd $(INSTALL_PREFIX)/lib/pd/doc/5.reference
diff --git a/sieve/sieve.c b/sieve/sieve.c
new file mode 100755
index 0000000..cd6c7d5
--- /dev/null
+++ b/sieve/sieve.c
@@ -0,0 +1,285 @@
+/* takes a map like 0 1 3 4 7 and only returns the number if it is present */
+/* in the map, or returns the closest, or the next up or down (wrapped)*/
+#include "m_pd.h"
+#include <math.h>
+#include <string.h>
+#define MAXENTRIES 512
+#define LASTENTRY 511
+
+static t_class *sieve_class;
+
+/* mode = 0 : block when absent, 1: nearest when absent, 2: shunt when absent */
+typedef struct _map
+{
+ t_atom map[MAXENTRIES];
+ t_atom nomap[MAXENTRIES];
+} t_map;
+
+typedef struct _sieve
+{
+ t_object x_obj;
+ t_map x_map;
+ t_float input, mode, max, outmap;
+ t_outlet *mapped, *value, *mapout, *inst;
+} t_sieve;
+
+void sieve_float(t_sieve *x, t_floatarg fin)
+{
+ int i, ip, in, arg, arga, argb, argaout, argbout, argxa, argxb, itest, itesta, itestb, iresult;
+ itest = itesta = itestb = iresult = arga = argb = arg = 0;
+ float test, testa, testb, fresult;
+ test = testa = testb = fresult = 0;
+ x->input = arg = fin;// < 0 ? 0 : fin > LASTENTRY ? LASTENTRY : (int)fin;
+ if (x->mode == 0)
+ {
+ test = fin < 0 ? 0 : atom_getfloatarg(arg, MAXENTRIES, x->x_map.map);
+ if(test!=0)
+ {
+ outlet_bang(x->inst);
+ outlet_float(x->value, test);
+ outlet_float(x->mapped, arg);
+ }
+ }
+ else if (x->mode == 1)
+ {
+ test = fin < 0 ? 0 : atom_getfloatarg(arg, MAXENTRIES, x->x_map.map);
+ if(test!=0)
+ {
+ outlet_bang(x->inst);
+ outlet_float(x->value, test);
+ outlet_float(x->mapped, arg);
+ }
+ else
+ {
+ arga = argb = arg;
+ while(itest == 0 && (arga > -1 || argb < MAXENTRIES))
+ {
+ arga--;
+ argb++;
+ argxa = arga >= 0 ? arga : 0;
+ argxb = argb <= LASTENTRY ? argb : LASTENTRY;
+ testa = atom_getfloatarg(argxa, MAXENTRIES, x->x_map.map);
+ testb = atom_getfloatarg(argxb, MAXENTRIES, x->x_map.map);
+ itesta = testa != 0 ? 1 : 0;
+ itestb = testb != 0 ? 1 : 0;
+ itest = fin < 0 ? 0 : itesta + itestb;
+ }
+ switch(itest)
+ {
+ case 2:
+ if (x->mode == 1)
+ {
+ outlet_float(x->value, testb);
+ outlet_float(x->mapped, argb);
+ }
+ else
+ {
+ outlet_float(x->value, testa);
+ outlet_float(x->mapped, arga);
+ }
+ case 1:
+ iresult = itesta == 1 ? arga : argb;
+ fresult = itesta == 1 ? testa : testb;
+ outlet_float(x->value, fresult);
+ outlet_float(x->mapped, iresult);
+ case 0:
+ break;
+ }
+ }
+ }
+ else if (x->mode==2)
+ {
+ itest = 0;
+ test = fin < 0 ? 0 : atom_getfloatarg(arg, MAXENTRIES, x->x_map.map);
+ if(test!=0)
+ {
+ outlet_bang(x->inst);
+ outlet_float(x->value, test);
+ outlet_float(x->mapped, arg);
+ }
+ else
+ {
+ arga = arg;
+ while(itest == 0 && (x->max > 0))
+ {
+ arga = (arga + 1) <= LASTENTRY ? (arga + 1) : 0;
+ testa = atom_getfloatarg(arga, MAXENTRIES, x->x_map.map);
+ itest = testa != 0 ? 1 : 0;
+ }
+ if(x->max > 0 && fin >= 0)
+ {
+ outlet_float(x->value, testa);
+ outlet_float(x->mapped, arga);
+ }
+ }
+ }
+ else if (x->mode == 3)
+ {
+ itest = 0;
+ test = fin < 0 ? 0 : atom_getfloatarg(arg, MAXENTRIES, x->x_map.map);
+ if(test!=0)
+ {
+ outlet_bang(x->inst);
+ outlet_float(x->value, test);
+ outlet_float(x->mapped, arg);
+ }
+ else
+ {
+ arga = arg;
+ while(itest == 0 && (x->max > 0))
+ {
+ argb = arga - 1;
+ arga = argb >= 0 ? argb : LASTENTRY;
+ testa = atom_getfloatarg(arga, MAXENTRIES, x->x_map.map);
+ itest = testa != 0 ? 1 : 0;
+ }
+ }
+ outlet_float(x->value, testa);
+ outlet_float(x->mapped, arga);
+ }
+}
+
+void sieve_set(t_sieve *x, t_floatarg fmap, t_floatarg fval)
+{
+ float fvaller;
+ if(fmap < MAXENTRIES && fmap >= 0)
+ {
+ int imap = (int)fmap;
+ fvaller = fval != 0 ? 0 : 1;
+ SETFLOAT(&x->x_map.map[imap], fval);
+ SETFLOAT(&x->x_map.nomap[imap], fvaller);
+ x->max = fmap > x->max ? fmap : x->max;
+ }
+}
+
+void sieve_get(t_sieve *x, t_floatarg inv)
+{
+ if(inv!=0)
+ {
+ outlet_list(x->mapout, gensym("list"), x->max+1, x->x_map.nomap);
+ }
+ else outlet_list(x->mapout, gensym("list"), x->max+1, x->x_map.map);
+ x->outmap = inv;
+}
+
+void sieve_clear(t_sieve *x)
+{
+ //memset(x->x_map.map, 0, MAXENTRIES);
+ int i;
+ for(i=0;i<MAXENTRIES;i++)
+ {
+ SETFLOAT(&x->x_map.map[i], 0);
+ SETFLOAT(&x->x_map.nomap[i], 1);
+ }
+ //memset(x->x_map.nomap, 1, MAXENTRIES);
+ x->max = 0;
+}
+
+void sieve_map(t_sieve *x, t_symbol *s, int argc, t_atom *argv)
+{
+ //memset(x->x_map.map, 0, MAXENTRIES);
+ //memset(x->x_map.nomap, 1, MAXENTRIES);
+ int i;
+ for(i=0;i<MAXENTRIES;i++)
+ {
+ SETFLOAT(x->x_map.map+i, 0);
+ SETFLOAT(x->x_map.nomap+i, 1);
+ }
+ x->max = 0;
+ float arg;
+ for(i=0;i<argc;i++)
+ {
+ arg = atom_getfloat(argv+i);
+ if(arg != 0)
+ {
+ SETFLOAT(&x->x_map.map[i], arg);
+ SETFLOAT(&x->x_map.nomap[i], 0);
+ x->max = i;
+ }
+ }
+ if (x->max > 0 && x->outmap == 0)
+ {
+ outlet_list(x->mapout, gensym("list"), x->max+1, x->x_map.map);
+ }
+ else if (x->max > 0 && x->outmap == 1)
+ {
+ outlet_list(x->mapout, gensym("list"), x->max+1, x->x_map.nomap);
+ }
+}
+
+void sieve_mode(t_sieve *x, t_floatarg fmode)
+{
+ x->mode = fmode < 0 ? 0 : fmode > 3 ? 3 : fmode;
+}
+
+void sieve_debug(t_sieve *x)
+{
+ float ele0, ele1, ele2, ele3, ele4, ele5, ele6, ele7, ele8, ele9;
+ float nle0, nle1, nle2, nle3, nle4, nle5, nle6, nle7, nle8, nle9;
+ ele0 = atom_getfloatarg(0, MAXENTRIES, x->x_map.map);
+ ele1 = atom_getfloatarg(1, MAXENTRIES, x->x_map.map);
+ ele2 = atom_getfloatarg(2, MAXENTRIES, x->x_map.map);
+ ele3 = atom_getfloatarg(3, MAXENTRIES, x->x_map.map);
+ ele4 = atom_getfloatarg(4, MAXENTRIES, x->x_map.map);
+ ele5 = atom_getfloatarg(5, MAXENTRIES, x->x_map.map);
+ ele6 = atom_getfloatarg(6, MAXENTRIES, x->x_map.map);
+ ele7 = atom_getfloatarg(7, MAXENTRIES, x->x_map.map);
+ ele8 = atom_getfloatarg(8, MAXENTRIES, x->x_map.map);
+ ele9 = atom_getfloatarg(9, MAXENTRIES, x->x_map.map);
+ nle0 = atom_getfloatarg(0, MAXENTRIES, x->x_map.nomap);
+ nle1 = atom_getfloatarg(1, MAXENTRIES, x->x_map.nomap);
+ nle2 = atom_getfloatarg(2, MAXENTRIES, x->x_map.nomap);
+ nle3 = atom_getfloatarg(3, MAXENTRIES, x->x_map.nomap);
+ nle4 = atom_getfloatarg(4, MAXENTRIES, x->x_map.nomap);
+ nle5 = atom_getfloatarg(5, MAXENTRIES, x->x_map.nomap);
+ nle6 = atom_getfloatarg(6, MAXENTRIES, x->x_map.nomap);
+ nle7 = atom_getfloatarg(7, MAXENTRIES, x->x_map.nomap);
+ nle8 = atom_getfloatarg(8, MAXENTRIES, x->x_map.nomap);
+ nle9 = atom_getfloatarg(9, MAXENTRIES, x->x_map.nomap);
+ /* post("blocksize = %d, scales = %d, vectorsize = %d, offset = %d",
+ x->N, x->scales, x->vecsize, x->offset); */
+ post("mode = %d, max = %d", x->mode, x->max);
+ post("first 10 elements = %d, %d, %d, %d, %d, %d, %d, %d, %d, %d", ele0, ele1, ele2, ele3, ele4, ele5, ele6, ele7, ele8, ele9);
+ post("first 10 elements = %d, %d, %d, %d, %d, %d, %d, %d, %d, %d", nle0, nle1, nle2, nle3, nle4, nle5, nle6, nle7, nle8, nle9);
+}
+
+void *sieve_new(t_floatarg f)
+{
+ t_sieve *x = (t_sieve *)pd_new(sieve_class);
+ x->mode = f;
+ x->max = 0;
+ x->outmap = 0;
+ //memset(x->x_map.map, 0, MAXENTRIES);
+ //memset(x->x_map.nomap, 1, MAXENTRIES);
+ int i;
+ for(i=0;i<MAXENTRIES;i++)
+ {
+ SETFLOAT(x->x_map.map+i, 0);
+ SETFLOAT(x->x_map.nomap+i, 1);
+ }
+ x->mapped = outlet_new(&x->x_obj, &s_float);
+ x->value = outlet_new(&x->x_obj, &s_float);
+ x->mapout = outlet_new(&x->x_obj, &s_list);
+ x->inst = outlet_new(&x->x_obj, &s_bang);
+ return (void *)x;
+}
+
+void sieve_setup(void)
+{
+
+ sieve_class = class_new(gensym("sieve"),
+ (t_newmethod)sieve_new,
+ 0, sizeof(t_sieve),
+ 0, A_DEFFLOAT, 0);
+ post("|^^^^^^^^^^^^^sieve^^^^^^^^^^^^^|");
+ post("|->^^^integer map to floats^^^<-|");
+ post("|^^^^^^^Edward Kelly 2006^^^^^^^|");
+ class_sethelpsymbol(sieve_class, gensym("help-sieve"));
+ class_addfloat(sieve_class, sieve_float);
+ class_addmethod(sieve_class, (t_method)sieve_set, gensym("set"), A_DEFFLOAT, A_DEFFLOAT, 0);
+ class_addmethod(sieve_class, (t_method)sieve_map, gensym("map"), A_GIMME, 0);
+ class_addmethod(sieve_class, (t_method)sieve_clear, gensym("clear"), A_DEFFLOAT, 0);
+ class_addmethod(sieve_class, (t_method)sieve_get, gensym("get"), A_DEFFLOAT, 0);
+ class_addmethod(sieve_class, (t_method)sieve_mode, gensym("mode"), A_DEFFLOAT, 0);
+ class_addmethod(sieve_class, (t_method)sieve_debug, gensym("debug"), A_DEFFLOAT, 0);
+}
generated by cgit v1.2.1 (git 2.18.0) at 2024-07-01 05:31:53 +0000