diff options
| -rw-r--r-- | HISTORY | 7 | ||||
| -rw-r--r-- | README | 4 | ||||
| -rw-r--r-- | help/help-rewrap.pd | 23 | ||||
| -rw-r--r-- | help/help-split.pd | 24 | ||||
| -rw-r--r-- | help/help-timebang.pd | 17 | ||||
| -rw-r--r-- | help/help-unroute.pd | 30 | ||||
| -rw-r--r-- | help/help-urn.pd | 18 | ||||
| -rw-r--r-- | help/help-wrap.pd | 22 | ||||
| -rw-r--r-- | makefile | 133 | ||||
| -rw-r--r-- | maxlib.c | 19 | ||||
| -rw-r--r-- | src/netclient.c | 8 | ||||
| -rw-r--r-- | src/netdist.c | 6 | ||||
| -rw-r--r-- | src/netrec.c | 2 | ||||
| -rw-r--r-- | src/netserver.c | 11 | ||||
| -rw-r--r-- | src/remote.c | 27 | ||||
| -rw-r--r-- | src/rewrap.c | 149 | ||||
| -rw-r--r-- | src/split.c | 91 | ||||
| -rw-r--r-- | src/timebang.c | 147 | ||||
| -rw-r--r-- | src/unroute.c | 170 | ||||
| -rw-r--r-- | src/urn.c | 144 | ||||
| -rw-r--r-- | src/wrap.c | 136 |
21 files changed, 1110 insertions, 78 deletions
@@ -1,5 +1,12 @@ version history of maxlib library for pure-data
+v 1.2 (27.january 2003):
+- new objects: unroute urn split wrap rewrap timebang
+- another fix for the makefile
+- fixed a bug in netserver (sockets remained open when netserver closed)
+- added a 'prepend' option (with additional creation argument) to remote,
+ patch was supplied by Maurizio Umberto Puxeddu
+
v 1.1b2 (23. oktober 2002):
- corrected two small bugs in the makefile (linux only!), thanks to
Hans-Christoph Steiner
@@ -1,5 +1,5 @@ -maxlib - music analysis extensions library, version 1.1b
-copyright (c) 2002 by Olaf Matthes
+maxlib - music analysis extensions library, version 1.2
+copyright (c) 2002-2003 by Olaf Matthes
maxlib is a library of non-tilde externals for pd (by Miller Puckette).
diff --git a/help/help-rewrap.pd b/help/help-rewrap.pd new file mode 100644 index 0000000..e444c9d --- /dev/null +++ b/help/help-rewrap.pd @@ -0,0 +1,23 @@ +#N canvas 328 32 564 467 12;
+#X floatatom 27 304 8 0 0 0 - - -;
+#X floatatom 27 73 5 0 0 0 - - -;
+#X text 202 47 written by <olaf.matthes@gmx.de>;
+#X floatatom 60 133 5 0 0 0 - - -;
+#X floatatom 94 158 5 0 0 0 - - -;
+#X text 84 71 input value;
+#X text 57 102 creation arguments can be changed dynamically:;
+#X text 35 341 creation arguments:;
+#X text 115 132 lower limit;
+#X text 146 157 upper limit;
+#X floatatom 110 276 5 0 0 0 - - -;
+#X text 36 358 wrap <lower limit> <upper limit>;
+#X obj 27 249 rewrap 6 40;
+#X text 200 27 into a range;
+#X text 169 275 wrap period;
+#X text 107 305 output;
+#X text 122 11 rewrap :: wraps floats back and forth;
+#X connect 1 0 12 0;
+#X connect 3 0 12 1;
+#X connect 4 0 12 2;
+#X connect 12 0 0 0;
+#X connect 12 1 10 0;
diff --git a/help/help-split.pd b/help/help-split.pd new file mode 100644 index 0000000..c4e8d26 --- /dev/null +++ b/help/help-split.pd @@ -0,0 +1,24 @@ +#N canvas 328 32 560 463 12;
+#X floatatom 27 304 8 0 0 0 - - -;
+#X floatatom 27 73 5 0 0 0 - - -;
+#X text 196 28 written by <olaf.matthes@gmx.de>;
+#X floatatom 56 131 5 0 0 0 - - -;
+#X floatatom 85 152 5 0 0 0 - - -;
+#X text 84 71 input value;
+#X text 57 104 creation arguments can be changed dynamically:;
+#X text 35 341 creation arguments:;
+#X obj 27 249 split 6 40;
+#X text 111 130 lower limit;
+#X text 137 151 upper limit;
+#X text 35 378 All floats that fall below the lower limit or above
+the upper limit get routed to the 2nd outlet.;
+#X text 36 358 split <lower limit> <upper limit>;
+#X floatatom 102 276 5 0 0 0 - - -;
+#X text 154 276 floats 'out of range';
+#X text 122 11 split :: split incoming floats according to value;
+#X text 106 305 floats 'in range' (including borders!);
+#X connect 1 0 8 0;
+#X connect 3 0 8 1;
+#X connect 4 0 8 2;
+#X connect 8 0 0 0;
+#X connect 8 1 13 0;
diff --git a/help/help-timebang.pd b/help/help-timebang.pd new file mode 100644 index 0000000..1db5058 --- /dev/null +++ b/help/help-timebang.pd @@ -0,0 +1,17 @@ +#N canvas 207 138 549 342 12;
+#X obj 29 242 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 29 295 print good morning;
+#X obj 29 202 timebang 7 10 13 19 47 50;
+#X obj 224 235 print good night;
+#X text 32 13 timebang :: send out bangs at given times of day;
+#X text 130 34 written by Olaf Matthes <olaf.matthes@gmx.de>;
+#X text 31 119 creation arguments: triples of hour minute and second
+for;
+#X text 191 137 the times of day you want a bang to occur;
+#X text 191 156 each time will get it's own outlet;
+#X text 184 297 this gets banged at 7:10:13 in the morning;
+#X text 224 257 this gets banged at 19:47:50;
+#X connect 0 0 1 0;
+#X connect 2 0 0 0;
+#X connect 2 1 3 0;
diff --git a/help/help-unroute.pd b/help/help-unroute.pd new file mode 100644 index 0000000..d8ca114 --- /dev/null +++ b/help/help-unroute.pd @@ -0,0 +1,30 @@ +#N canvas 413 157 539 407 12;
+#X obj 64 343 print;
+#X msg 64 89 1 \$1;
+#X msg 112 110 2 \$1;
+#X msg 163 116 3 \$1;
+#X floatatom 64 62 5 0 0;
+#X floatatom 112 85 5 0 0;
+#X floatatom 163 91 5 0 0;
+#X obj 64 232 route 1 2 3 4;
+#X obj 64 314 unroute one 2 three 4;
+#X text 52 13 unroute :: merges all inputs into one output;
+#X text 138 30 and prepends an identifier;
+#X text 138 47 written by Olaf Matthes <olaf.matthes@gmx.de>;
+#X msg 194 170 4 this came through 4;
+#X msg 209 196 3 drei;
+#X msg 174 146 4 25 467 23.6;
+#X connect 1 0 7 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 0;
+#X connect 4 0 1 0;
+#X connect 5 0 2 0;
+#X connect 6 0 3 0;
+#X connect 7 0 8 0;
+#X connect 7 1 8 1;
+#X connect 7 2 8 2;
+#X connect 7 3 8 3;
+#X connect 8 0 0 0;
+#X connect 12 0 7 0;
+#X connect 13 0 7 0;
+#X connect 14 0 7 0;
diff --git a/help/help-urn.pd b/help/help-urn.pd new file mode 100644 index 0000000..09cdb9e --- /dev/null +++ b/help/help-urn.pd @@ -0,0 +1,18 @@ +#N canvas 0 0 462 312 12;
+#X obj 99 182 urn 8;
+#X msg 157 112 clear;
+#X floatatom 99 241 5 0 0 0 - - -;
+#X msg 99 85 bang;
+#X obj 189 241 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 144 85 choose next number;
+#X text 209 113 clear / refill urn;
+#X floatatom 149 150 5 0 0 0 - - -;
+#X text 201 150 change number of items in urn;
+#X text 69 30 urn :: urn selection model;
+#X text 221 241 bang if urn is empty;
+#X connect 0 0 2 0;
+#X connect 0 1 4 0;
+#X connect 1 0 0 0;
+#X connect 3 0 0 0;
+#X connect 7 0 0 1;
diff --git a/help/help-wrap.pd b/help/help-wrap.pd new file mode 100644 index 0000000..7997d38 --- /dev/null +++ b/help/help-wrap.pd @@ -0,0 +1,22 @@ +#N canvas 328 32 562 465 12;
+#X floatatom 27 304 8 0 0 0 - - -;
+#X floatatom 27 73 5 0 0 0 - - -;
+#X text 187 26 written by <olaf.matthes@gmx.de>;
+#X floatatom 60 133 5 0 0 0 - - -;
+#X floatatom 94 158 5 0 0 0 - - -;
+#X text 84 71 input value;
+#X text 57 102 creation arguments can be changed dynamically:;
+#X text 35 341 creation arguments:;
+#X text 115 132 lower limit;
+#X text 146 157 upper limit;
+#X floatatom 94 277 5 0 0 0 - - -;
+#X obj 27 249 wrap 6 40;
+#X text 36 358 wrap <lower limit> <upper limit>;
+#X text 106 305 floats 'in range';
+#X text 122 11 wrap :: wrap floats into a range;
+#X text 153 276 wrap periods;
+#X connect 1 0 11 0;
+#X connect 3 0 11 1;
+#X connect 4 0 11 2;
+#X connect 11 0 0 0;
+#X connect 11 1 10 0;
@@ -32,7 +32,8 @@ PDNTEXTERNALS = borax.obj divide.obj ignore.obj match.obj pitch.obj speedlim.obj gestalt.obj temperature.obj arbran.obj beta.obj bilex.obj \
cauchy.obj expo.obj gauss.obj linear.obj poisson.obj triang.obj \
weibull.obj netserver.obj netclient.obj nroute.obj remote.obj \
- edge.obj subst.obj pong.obj mlife.obj limit.obj
+ edge.obj subst.obj pong.obj mlife.obj limit.obj unroute.obj \
+ urn.obj split.obj wrap.obj rewrap.obj timebang.obj
.c.dll:
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\arbran.c
@@ -74,17 +75,23 @@ PDNTEXTERNALS = borax.obj divide.obj ignore.obj match.obj pitch.obj speedlim.obj cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\pong.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\pulse.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\remote.c
+ cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\rewrap.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\rhythm.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\scale.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\score.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\speedlim.c
+ cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\split.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\step.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\subst.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\temperature.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\tilt.c
+ cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\timebang.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\triang.c
+ cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\unroute.c
+ cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\urn.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\velocity.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\weibull.c
+ cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c src\wrap.c
cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c
link /dll /export:$(CSYM)_setup $*.obj $(PDNTEXTERNALS) $(PDNTLIB)
@@ -111,7 +118,8 @@ DARWINEXTERNALS = borax.o ignore.o match.o pitch.o speedlim.o \ listfunnel.o tilt.o gestalt.o temperature.o arbran.o \
beta.o bilex.o cauchy.o expo.o gauss.o linear.o poisson.o \
triang.o weibull.o netserver.o netclient.o nroute.o \
- edge.o pong.o limit.o
+ edge.o pong.o limit.o unroute.o urn.o split.o wrap.o \
+ rewrap.o timebang.obj
.c.pd_darwin:
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/arbran.c
@@ -153,17 +161,23 @@ DARWINEXTERNALS = borax.o ignore.o match.o pitch.o speedlim.o \ cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/pulse.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/pitch.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/remote.c
+ cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/rewarp.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/rhythm.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/scale.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/score.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/speedlim.c
- cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/step.c
+ cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/weibull.c
+ cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/split.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/subst.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/temperature.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/tilt.c
+ cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/timebang.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/triang.c
+ cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/unroute.c
+ cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/urn.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/velocity.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/weibull.c
+ cc $(DARWINCFLAGS) $(DARWININCLUDE) -c src/wrap.c
cc $(DARWINCFLAGS) $(DARWININCLUDE) -c $*.c
cc -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o $(DARWINEXTERNALS)
rm -f $*.o ../$*.pd_darwin
@@ -180,7 +194,7 @@ LINUXCFLAGS = -DPD -DMAXLIB -DUNIX -O2 -funroll-loops -fomit-frame-pointer \ -Wno-unused -Wno-parentheses -Wno-switch
# where is your m_pd.h ???
-LINUXINCLUDE = -I/usr/local/include
+LINUXINCLUDE = -I/usr/local/include -I./include
LINUXEXTERNALS = borax.o ignore.o match.o pitch.o speedlim.o \
plus.o minus.o divide.o multi.o average.o chord.o \
@@ -190,60 +204,67 @@ LINUXEXTERNALS = borax.o ignore.o match.o pitch.o speedlim.o \ listfunnel.o tilt.o gestalt.o temperature.o arbran.o \
beta.o bilex.o cauchy.o expo.o gauss.o linear.o poisson.o \
triang.o weibull.o netserver.o netclient.o nroute.o \
- edge.o pong.o limit.o
+ edge.o pong.o limit.o unroute.o urn.o split.o wrap.o \
+ rewrap.o timebang.o
.c.pd_linux:
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/arbran.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/average.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/beat.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/beta.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/bilex.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/borax.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/cauchy.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/chord.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/delta.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/dist.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/divide.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/divmod.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/edge.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/expo.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/fifo.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/gauss.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/gestalt.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/history.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/ignore.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/iso.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/lifo.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/limit.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/linear.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/listfunnel.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/match.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/minus.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/mlife.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/multi.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/netclient.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/netdist.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/netrec.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/netserver.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/nroute.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/plus.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/pong.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/poisson.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/pulse.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/pitch.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/remote.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/rhythm.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/scale.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/score.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/speedlim.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/step.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/subst.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/temperature.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/tilt.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/triang.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/velocity.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/weibull.c
- cc -O2 -Wall -DPD -fPIC $(LINUXCFLAGS) $(LINUXINCLUDE) -c $*.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/arbran.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/average.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/beat.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/beta.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/bilex.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/borax.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/cauchy.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/chord.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/delta.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/dist.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/divide.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/divmod.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/edge.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/expo.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/fifo.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/gauss.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/gestalt.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/history.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/ignore.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/iso.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/lifo.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/limit.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/linear.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/listfunnel.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/match.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/minus.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/mlife.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/multi.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/netclient.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/netdist.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/netrec.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/netserver.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/nroute.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/plus.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/pong.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/poisson.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/pulse.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/pitch.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/remote.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/rewrap.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/rhythm.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/scale.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/score.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/speedlim.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/split.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/step.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/subst.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/temperature.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/tilt.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/timebang.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/triang.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/unroute.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/urn.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/velocity.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/weibull.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c src/wrap.c
+ cc $(LINUXCFLAGS) $(LINUXINCLUDE) -c $*.c
ld -export_dynamic -shared -o $*.pd_linux $*.o $(LINUXEXTERNALS) -lc
strip --strip-unneeded $*.pd_linux
@@ -22,7 +22,7 @@ /* */
/* ---------------------------------------------------------------------------- */
#ifndef VERSION
-#define VERSION "1.1b"
+#define VERSION "1.2"
#endif
#include "m_pd.h"
@@ -79,17 +79,23 @@ void poisson_setup(); void pong_setup();
void pulse_setup();
void remote_setup();
+void rewrap_setup();
void rhythm_setup();
void scale_setup();
void score_setup();
void speedlim_setup();
+void split_setup();
void step_setup();
void subst_setup();
void temperature_setup();
void tilt_setup();
+void timebang_setup();
void triang_setup();
+void unroute_setup();
+void urn_setup();
void velocity_setup();
void weibull_setup();
+void wrap_setup();
static void* maxlib_new(t_symbol* s)
{
@@ -141,17 +147,23 @@ void maxlib_setup(void) pong_setup();
pulse_setup();
remote_setup();
+ rewrap_setup();
rhythm_setup();
scale_setup();
score_setup();
speedlim_setup();
+ split_setup();
step_setup();
subst_setup();
temperature_setup();
tilt_setup();
+ timebang_setup();
triang_setup();
+ unroute_setup();
+ urn_setup();
velocity_setup();
weibull_setup();
+ wrap_setup();
post("\n maxlib :: Music Analysis eXtensions LIBrary");
post(" written by Olaf Matthes <olaf.matthes@gmx.de>");
@@ -162,6 +174,7 @@ void maxlib_setup(void) post(" divide divmod edge expo fifo gauss gestalt history ignore iso ");
post(" lifo linear listfunnel match minus mlife multi netclient ");
post(" netdist netrec netserver nroute pitch plus poisson pong pulse ");
- post(" remote rhythm scale score speedlim step subst temperature tilt ");
- post(" triang velocity weibull\n");
+ post(" remote rewrap rhythm scale score speedlim split step subst ");
+ post(" temperature tilt timebang triang unroute urn velocity weibull ");
+ post(" wrap\n");
}
diff --git a/src/netclient.c b/src/netclient.c index 0503b97..7ad252f 100644 --- a/src/netclient.c +++ b/src/netclient.c @@ -29,7 +29,7 @@ #include <sys/types.h>
#include <string.h>
#include <pthread.h>
-#if defined(UNIX) || defined(unix)
+#ifdef UNIX
#include <sys/socket.h>
#include <sys/errno.h>
#include <netinet/in.h>
@@ -71,7 +71,7 @@ static void sys_sockerror(char *s) int err = WSAGetLastError();
if (err == 10054) return;
#endif
-#if defined(UNIX) || defined(unix)
+#ifdef UNIX
int err = errno;
#endif
post("%s: %s (%d)\n", s, strerror(err), err);
@@ -79,7 +79,7 @@ static void sys_sockerror(char *s) static void sys_closesocket(int fd) {
-#if defined(UNIX) || defined(unix)
+#ifdef UNIX
close(fd);
#endif
#ifdef NT
@@ -345,4 +345,4 @@ void netclient_setup(void) class_addmethod(netclient_class, (t_method)netclient_rcv, gensym("receive"), 0);
class_addmethod(netclient_class, (t_method)netclient_rcv, gensym("rcv"), 0);
class_sethelpsymbol(netclient_class, gensym("maxlib/help-netclient.pd"));
-}
+}
\ No newline at end of file diff --git a/src/netdist.c b/src/netdist.c index 12a2e9d..4f91c2d 100644 --- a/src/netdist.c +++ b/src/netdist.c @@ -29,7 +29,7 @@ #include <sys/types.h>
#include <string.h>
#include <pthread.h>
-#if defined(UNIX) || defined(unix)
+#ifdef UNIX
#include <sys/socket.h>
#include <sys/errno.h>
#include <netinet/in.h>
@@ -67,7 +67,7 @@ static void sys_sockerror(char *s) int err = WSAGetLastError();
if (err == 10054) return;
#endif
-#if defined(UNIX) || defined(unix)
+#ifdef UNIX
int err = errno;
#endif
post("%s: %s (%d)\n", s, strerror(err), err);
@@ -75,7 +75,7 @@ static void sys_sockerror(char *s) static void sys_closesocket(int fd) {
-#if defined(UNIX) || defined(unix)
+#ifdef UNIX
close(fd);
#endif
#ifdef NT
diff --git a/src/netrec.c b/src/netrec.c index ca89ccb..0b5d87e 100644 --- a/src/netrec.c +++ b/src/netrec.c @@ -31,7 +31,7 @@ #include <errno.h>
#include <string.h>
#include <stdio.h>
-#if defined(UNIX) || defined(unix)
+#ifdef UNIX
#include <sys/socket.h>
#include <netinet/in.h>
#include <netinet/tcp.h>
diff --git a/src/netserver.c b/src/netserver.c index ae0a13a..19cf6d4 100644 --- a/src/netserver.c +++ b/src/netserver.c @@ -33,7 +33,7 @@ #include <string.h>
#include <stdio.h>
#include <pthread.h>
-#if defined(UNIX) || defined(unix)
+#ifdef UNIX
#include <sys/socket.h>
#include <netinet/in.h>
#include <netinet/tcp.h>
@@ -52,7 +52,7 @@ #define MAX_CONNECT 32 /* maximum number of connections */
#define INBUFSIZE 4096 /* size of receiving data buffer */
-static char *version = "netserver v0.1 :: bidirectional communication for Pd\n"
+static char *version = "netserver v0.2 :: bidirectional communication for Pd\n"
" written by Olaf Matthes <olaf.matthes@gmx.de>";
/* ----------------------------- netserver ------------------------- */
@@ -542,7 +542,12 @@ static void *netserver_new(t_floatarg fportno) static void netserver_free(t_netserver *x)
{
- /* LATER make me clean up open connections */
+ int i;
+ for(i = 0; i < x->x_nconnections; i++)
+ {
+ sys_rmpollfn(x->x_fd[i]);
+ sys_closesocket(x->x_fd[i]);
+ }
if (x->x_connectsocket >= 0)
{
sys_rmpollfn(x->x_connectsocket);
diff --git a/src/remote.c b/src/remote.c index 6697113..6abf4c7 100644 --- a/src/remote.c +++ b/src/remote.c @@ -2,7 +2,7 @@ /* */
/* Send data to receive obejct <name>. */
/* Written by Olaf Matthes (olaf.matthes@gmx.de) */
-/* Get source at http://www.akustische-kunst.org/puredata/maxlib/ */
+/* Get source at http://www.akustische-kunst.de/puredata/ */
/* */
/* This program is free software; you can redistribute it and/or */
/* modify it under the terms of the GNU General Public License */
@@ -30,13 +30,15 @@ #define MAX_REC 64 /* maximum number of receive objects */
#define MAX_ARG 32 /* maximum number of arguments to pass on */
-static char *version = "remote v0.1, written by Olaf Matthes <olaf.matthes@gmx.de>";
+static char *version = "remote v0.2, written by Olaf Matthes <olaf.matthes@gmx.de>";
static t_class *remote_class;
typedef struct _remote
{
t_object x_obj;
+ t_symbol *x_prefix;
+ t_int x_prepend;
} t_remote;
/* send 'anything' to receiver */
@@ -45,6 +47,8 @@ static void remote_anything(t_remote *x, t_symbol *s, int argc, t_atom *argv) int i;
t_atom av[MAX_ARG]; /* the 'new' t_atom without first element */
t_int ac = argc - 1; /* the 'new' number of arguments */
+ char mysym[MAXPDSTRING];
+ t_symbol *target;
if(argc < 1) /* need <name> <data> */
{
@@ -62,13 +66,24 @@ static void remote_anything(t_remote *x, t_symbol *s, int argc, t_atom *argv) av[i - 1] = argv[i]; /* just copy, don't care about types */
}
/* send only argument-part to receivers */
- if (s->s_thing) pd_forwardmess(s->s_thing, argc, argv);
+ if(x->x_prepend)
+ {
+ sprintf(mysym,"%s%s", x->x_prefix->s_name, s->s_name);
+ target = gensym(mysym);
+ if (target->s_thing) pd_forwardmess(target->s_thing, argc, argv);
+ }
+ else
+ if (s->s_thing) pd_forwardmess(s->s_thing, argc, argv);
}
-static void *remote_new(void)
+static void *remote_new(t_symbol *s)
{
t_remote *x = (t_remote *)pd_new(remote_class);
+ x->x_prefix = s;
+ if(x->x_prefix) x->x_prepend = 1;
+ else x->x_prepend = 0;
+
#ifndef MAXLIB
post(version);
#endif
@@ -78,7 +93,7 @@ static void *remote_new(void) void remote_setup(void)
{
remote_class = class_new(gensym("remote"), (t_newmethod)remote_new, 0,
- sizeof(t_remote), 0, 0);
+ sizeof(t_remote), 0, A_DEFSYM, 0);
class_addanything(remote_class, remote_anything);
- class_sethelpsymbol(remote_class, gensym("maxlib/help-remote.pd"));
+ class_sethelpsymbol(remote_class, gensym("help-remote.pd"));
}
diff --git a/src/rewrap.c b/src/rewrap.c new file mode 100644 index 0000000..e825feb --- /dev/null +++ b/src/rewrap.c @@ -0,0 +1,149 @@ +/* ------------------------- rewrap ------------------------------------------ */
+/* */
+/* rewraps input to lie within an output range. */
+/* Written by Olaf Matthes <olaf.matthes@gmx.de> */
+/* Get source at http://www.akustische-kunst.org/puredata/maxlib/ */
+/* */
+/* This program is free software; you can redistribute it and/or */
+/* modify it under the terms of the GNU General Public License */
+/* as published by the Free Software Foundation; either version 2 */
+/* of the License, or (at your option) any later version. */
+/* */
+/* This program is distributed in the hope that it will be useful, */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
+/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
+/* GNU General Public License for more details. */
+/* */
+/* You should have received a copy of the GNU General Public License */
+/* along with this program; if not, write to the Free Software */
+/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+/* */
+/* Based on PureData by Miller Puckette and others. */
+/* */
+/* ---------------------------------------------------------------------------- */
+
+#include "m_pd.h"
+#include <stdio.h>
+#include <math.h>
+
+static char *version = "rewrap v0.1, written by Olaf Matthes <olaf.matthes@gmx.de>";
+
+typedef struct rewrap
+{
+ t_object x_ob;
+ t_float x_min; /* low border of input range */
+ t_float x_max; /* high border of input range */
+ t_outlet *x_outlet1; /* path-through outlet */
+ t_outlet *x_outlet2; /* rewrap outlet */
+} t_rewrap;
+
+static void rewrap_float(t_rewrap *x, t_floatarg f)
+{
+ t_float min = x->x_min;
+ t_float max = x->x_max;
+ t_float range = 2.0f * (max - min);
+ t_int i;
+
+ if(range == 0.0f)
+ {
+ f = min;
+ outlet_float(x->x_outlet2, 0);
+ }
+ else if(f < min)
+ {
+ float diff = min - f;
+ float n = ceil(diff / range);
+
+ f += n * range;
+
+ if(f >= max)
+ {
+ f = 2 * max - f;
+ n -= 0.5;
+ }
+
+ outlet_float(x->x_outlet2, (t_int)(-2.0f * n));
+ }
+ else if (f >= max)
+ {
+ float diff = f - max;
+ float n = floor(diff / range) + 1.0f;
+
+ f -= n * range;
+
+ if(f < min)
+ {
+ f = 2 * min - f;
+ n -= 0.5;
+ }
+
+ outlet_float(x->x_outlet2, (t_int)(2.0f * n));
+ }
+ else
+ outlet_float(x->x_outlet2, 0.0f);
+
+
+ outlet_float(x->x_outlet1, f);
+}
+
+static void rewrap_a(t_rewrap *x, t_floatarg a)
+{
+ t_float max = x->x_max;
+
+ if(a <= max)
+ x->x_min = a;
+ else
+ {
+ x->x_min = max;
+ x->x_max = a;
+ }
+}
+
+static void rewrap_b(t_rewrap *x, t_floatarg b)
+{
+ t_float min = x->x_min;
+
+ if(b >= min)
+ x->x_max = b;
+ else
+ {
+ x->x_max = min;
+ x->x_min = b;
+ }
+}
+
+static t_class *rewrap_class;
+
+static void *rewrap_new(t_floatarg fmin, t_floatarg fmax)
+{
+ t_rewrap *x = (t_rewrap *)pd_new(rewrap_class);
+
+ inlet_new(&x->x_ob, &x->x_ob.ob_pd, gensym("float"), gensym("a"));
+ inlet_new(&x->x_ob, &x->x_ob.ob_pd, gensym("float"), gensym("b"));
+
+ x->x_outlet1 = outlet_new(&x->x_ob, gensym("float"));
+ x->x_outlet2 = outlet_new(&x->x_ob, gensym("float"));
+
+ x->x_min = fmin;
+ rewrap_b(x, fmax);
+
+#ifndef MAXLIB
+ post(version);
+#endif
+ return (void *)x;
+}
+
+void rewrap_setup(void)
+{
+ rewrap_class = class_new(gensym("rewrap"), (t_newmethod)rewrap_new,
+ 0, sizeof(t_rewrap), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
+ class_addfloat(rewrap_class, rewrap_float);
+ class_addmethod(rewrap_class, (t_method)rewrap_a, gensym("a"), A_FLOAT, 0);
+ class_addmethod(rewrap_class, (t_method)rewrap_b, gensym("b"), A_FLOAT, 0);
+#ifndef MAXLIB
+ class_sethelpsymbol(rewrap_class, gensym("help-rewrap.pd"));
+#else
+ class_sethelpsymbol(rewrap_class, gensym("maxlib/help-rewrap.pd"));
+#endif
+}
+
diff --git a/src/split.c b/src/split.c new file mode 100644 index 0000000..11a910d --- /dev/null +++ b/src/split.c @@ -0,0 +1,91 @@ +/* ------------------------- split ------------------------------------------ */
+/* */
+/* splits input to lie within an output range. */
+/* Written by Olaf Matthes <olaf.matthes@gmx.de> */
+/* Get source at http://www.akustische-kunst.org/puredata/maxlib/ */
+/* */
+/* This program is free software; you can redistribute it and/or */
+/* modify it under the terms of the GNU General Public License */
+/* as published by the Free Software Foundation; either version 2 */
+/* of the License, or (at your option) any later version. */
+/* */
+/* This program is distributed in the hope that it will be useful, */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
+/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
+/* GNU General Public License for more details. */
+/* */
+/* You should have received a copy of the GNU General Public License */
+/* along with this program; if not, write to the Free Software */
+/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+/* */
+/* Based on PureData by Miller Puckette and others. */
+/* */
+/* ---------------------------------------------------------------------------- */
+
+#include "m_pd.h"
+#include <stdio.h>
+#include <math.h>
+
+static char *version = "split v0.1, written by Olaf Matthes <olaf.matthes@gmx.de>";
+
+typedef struct split
+{
+ t_object x_ob;
+ t_float x_min; /* low border of input range */
+ t_float x_max; /* high border of input range */
+ t_int x_revert; /* range is inverted */
+ t_outlet *x_outlet1; /* path-through outlet */
+ t_outlet *x_outlet2; /* split outlet */
+} t_split;
+
+static void split_float(t_split *x, t_floatarg f)
+{
+ if(x->x_max >= x->x_min)
+ {
+ if(f <= x->x_max && f >= x->x_min)
+ outlet_float(x->x_outlet1, f);
+ else
+ outlet_float(x->x_outlet2, f);
+ }
+ else
+ {
+ if(f >= x->x_max && f <= x->x_min)
+ outlet_float(x->x_outlet1, f);
+ else
+ outlet_float(x->x_outlet2, f);
+ }
+}
+
+static t_class *split_class;
+
+static void *split_new(t_floatarg fmin, t_floatarg fmax)
+{
+ t_split *x = (t_split *)pd_new(split_class);
+
+ floatinlet_new(&x->x_ob, &x->x_min);
+ floatinlet_new(&x->x_ob, &x->x_max);
+
+ x->x_outlet1 = outlet_new(&x->x_ob, gensym("float"));
+ x->x_outlet2 = outlet_new(&x->x_ob, gensym("float"));
+
+ x->x_min = fmin;
+ x->x_max = fmax;
+
+#ifndef MAXLIB
+ post(version);
+#endif
+ return (void *)x;
+}
+
+void split_setup(void)
+{
+ split_class = class_new(gensym("split"), (t_newmethod)split_new,
+ 0, sizeof(t_split), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
+ class_addfloat(split_class, split_float);
+#ifndef MAXLIB
+ class_sethelpsymbol(split_class, gensym("help-split.pd"));
+#else
+ class_sethelpsymbol(split_class, gensym("maxlib/help-split.pd"));
+#endif
+}
+
diff --git a/src/timebang.c b/src/timebang.c new file mode 100644 index 0000000..0733af9 --- /dev/null +++ b/src/timebang.c @@ -0,0 +1,147 @@ +/* ------------------------- timebang --------------------------------------- */
+/* */
+/* Send out bangs at given times (time of day!). */
+/* Written by Olaf Matthes <olaf.matthes@gmx.de> */
+/* Get source at http://www.akustische-kunst.org/puredata/maxlib/ */
+/* */
+/* This program is free software; you can redistribute it and/or */
+/* modify it under the terms of the GNU General Public License */
+/* as published by the Free Software Foundation; either version 2 */
+/* of the License, or (at your option) any later version. */
+/* */
+/* This program is distributed in the hope that it will be useful, */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
+/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
+/* GNU General Public License for more details. */
+/* */
+/* You should have received a copy of the GNU General Public License */
+/* along with this program; if not, write to the Free Software */
+/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+/* */
+/* Based on PureData by Miller Puckette and others. */
+/* */
+/* ---------------------------------------------------------------------------- */
+
+#include "m_pd.h"
+#include <stdio.h>
+#include <math.h>
+#include <time.h>
+
+#define MAX_TIMES 256 /* maximum number of times to process */
+
+static char *version = "timebang v0.1, written by Olaf Matthes <olaf.matthes@gmx.de>";
+
+typedef struct timebang
+{
+ t_object x_ob;
+ t_clock *x_clock;
+ t_outlet *x_outlet[MAX_TIMES]; /* the bang outlets */
+ t_int x_sec[MAX_TIMES]; /* seconds (0 - 59) */
+ t_int x_min[MAX_TIMES]; /* minutes (0 - 59) */
+ t_int x_hour[MAX_TIMES]; /* hours (0 - 11) */
+ t_int x_mday[MAX_TIMES]; /* day of month (1 - 31) */
+ t_int x_mon[MAX_TIMES]; /* month (0 - 11) */
+ t_int x_year[MAX_TIMES]; /* year (current year minus 1900) */
+ t_int x_wday[MAX_TIMES]; /* day of week (0 - 6, Sunday = 0, -1 = all days) */
+ t_int x_over[MAX_TIMES]; /* indicate that time is over */
+ t_int x_notimes; /* number of times to bang */
+} t_timebang;
+
+
+static void timebang_tick(t_timebang *x)
+{
+ time_t now = time(NULL);
+ struct tm *newtime;
+ int i;
+
+ newtime = localtime(&now); /* convert to local time. */
+ for(i = 0; i < x->x_notimes; i++)
+ {
+ if(!x->x_over[i])
+ {
+ if(newtime->tm_hour == x->x_hour[i] &&
+ newtime->tm_min == x->x_min[i] &&
+ newtime->tm_sec >= x->x_sec[i])
+ {
+ x->x_over[i] = 1; /* mark as 'time is over' */
+ outlet_bang(x->x_outlet[i]); /* send corresponding bang */
+ }
+ }
+ else if(newtime->tm_hour != x->x_hour[i])
+ x->x_over[i] = 0; /* reactivate time one hour later */
+ }
+
+ clock_delay(x->x_clock, 1000); /* come back in one second */
+}
+
+static void timebang_set(t_timebang *x, t_symbol *s, int ac, t_atom *av)
+{
+}
+
+static void timebang_bang(t_timebang *x)
+{
+ time_t now = time(NULL);
+ struct tm *newtime = localtime(&now); /* convert to local time. */
+ post("timebang: local time is %02d:%02d:%02d", newtime->tm_hour, newtime->tm_min, newtime->tm_sec);
+}
+
+static t_class *timebang_class;
+
+static void *timebang_new(t_symbol *s, int ac, t_atom *av)
+{
+ int i;
+ t_timebang *x = (t_timebang *)pd_new(timebang_class);
+
+ x->x_clock = clock_new(x, (t_method)timebang_tick);
+
+#ifndef MAXLIB
+ post(version);
+#endif
+ if(ac > MAX_TIMES * 3)
+ {
+ post("timebang: too many creation arguments");
+ ac = MAX_TIMES * 3;
+ }
+
+ x->x_notimes = 0;
+ for(i = 0; i < ac; i += 3)
+ {
+ if (av[i].a_type == A_FLOAT) x->x_hour[x->x_notimes] = av[i].a_w.w_float;
+ else { post ("timebang: first argument must be (int) hours"); return 0; }
+ if (av[i+1].a_type == A_FLOAT) x->x_min[x->x_notimes] = av[i+1].a_w.w_float;
+ else { post ("timebang: second argument must be (int) minutes"); return 0; }
+ if (av[i+2].a_type == A_FLOAT) x->x_sec[x->x_notimes] = av[i+2].a_w.w_float;
+ else { post ("timebang: third argument must be (int) seconds"); return 0; }
+ x->x_over[x->x_notimes] = 0;
+ x->x_notimes++;
+ }
+ post("timebang: read in %d times of day:", x->x_notimes);
+ for(i = 0; i < x->x_notimes; i++)
+ {
+ x->x_outlet[i] = outlet_new(&x->x_ob, gensym("bang")); /* create specific bang outlet for time */
+ post(" %02d:%02d:%02d", x->x_hour[i], x->x_min[i], x->x_sec[i]);
+ }
+
+ clock_set(x->x_clock, 0);
+
+ return (void *)x;
+}
+
+static void timebang_free(t_timebang *x)
+{
+ clock_free(x->x_clock);
+}
+
+void timebang_setup(void)
+{
+ timebang_class = class_new(gensym("timebang"), (t_newmethod)timebang_new,
+ (t_method)timebang_free, sizeof(t_timebang), 0, A_GIMME, 0);
+ class_addmethod(timebang_class, (t_method)timebang_set, gensym("set"), A_GIMME, 0);
+ class_addbang(timebang_class, (t_method)timebang_bang);
+#ifndef MAXLIB
+ class_sethelpsymbol(timebang_class, gensym("help-timebang.pd"));
+#else
+ class_sethelpsymbol(timebang_class, gensym("maxlib/help-timebang.pd"));
+#endif
+}
+
diff --git a/src/unroute.c b/src/unroute.c new file mode 100644 index 0000000..f9507d1 --- /dev/null +++ b/src/unroute.c @@ -0,0 +1,170 @@ +/* -------------------------- unroute ------------------------------------- */
+/* */
+/* Opposit to croute. */
+/* Written by Olaf Matthes <olaf.matthes@gmx.de> */
+/* Get source at http://www.akustische-kunst.org/puredata/ */
+/* */
+/* This program is free software; you can redistribute it and/or */
+/* modify it under the terms of the GNU General Public License */
+/* as published by the Free Software Foundation; either version 2 */
+/* of the License, or (at your option) any later version. */
+/* */
+/* This program is distributed in the hope that it will be useful, */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
+/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
+/* GNU General Public License for more details. */
+/* */
+/* You should have received a copy of the GNU General Public License */
+/* along with this program; if not, write to the Free Software */
+/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+/* */
+/* Based on PureData by Miller Puckette and others. */
+/* */
+/* ---------------------------------------------------------------------------- */
+
+#include "m_pd.h"
+
+#define MAX_INLET 256
+
+static char *version = "unroute v0.1, written by Olaf Matthes <olaf.matthes@gmx.de>";
+
+typedef struct unroute
+{
+ t_object x_obj;
+ t_outlet *x_outlet;
+ t_int x_ninstance;
+ t_atom x_id;
+} t_unroute;
+
+typedef struct proxy
+{
+ t_object obj;
+ t_int index; /* number of proxy inlet(s) */
+ t_atom id;
+ t_unroute *x; /* we'll put the other struct in here */
+} t_proxy;
+
+static void unroute_any(t_unroute *x, t_symbol *s, int argc, t_atom *argv)
+{
+ int i;
+ t_atom at[MAXPDSTRING];
+
+ for(i = 0; i < argc; i++)
+ {
+ at[i + 2] = argv[i];
+ }
+ argc += 2;
+ SETSYMBOL(at+1, s);
+
+ at[0] = x->x_id; /* prepend id of that inlet */
+
+ outlet_list(x->x_outlet, NULL, argc, at);
+}
+
+static void unroute_list(t_unroute *x, t_symbol *s, int argc, t_atom *argv)
+{
+ int i;
+ t_atom at[MAXPDSTRING];
+
+ for(i = 0; i < argc; i++)
+ {
+ at[i + 1] = argv[i];
+ }
+ argc++;
+
+ at[0] = x->x_id; /* prepend id of that inlet */
+
+ outlet_list(x->x_outlet, NULL, argc, at);
+}
+
+static void unroute_float(t_unroute *x, t_floatarg f)
+{
+ t_atom list[2];
+
+ list[0] = x->x_id; /* prepend id of that inlet */
+ SETFLOAT(list+1, f);
+ outlet_list(x->x_outlet, NULL, 2, list);
+}
+
+static void unroute_input(t_proxy *p, t_symbol *s, int argc, t_atom *argv)
+{
+ t_unroute *x = (t_unroute *)(p->x);
+ int i;
+ t_atom at[MAXPDSTRING];
+
+ if(s == gensym("list"))
+ {
+ for(i = 0; i < argc; i++)
+ {
+ at[i + 1] = argv[i];
+ }
+ argc++;
+ }
+ else
+ {
+ for(i = 0; i < argc; i++)
+ {
+ at[i + 2] = argv[i];
+ }
+ argc += 2;
+ SETSYMBOL(at+1, s);
+ }
+
+ at[0] = p->id; /* prepend id for that inlet */
+
+ outlet_list(x->x_outlet, NULL, argc, at);
+}
+
+
+static t_class *unroute_class;
+static t_class *proxy_class;
+
+static void *unroute_new(t_symbol *s, int argc, t_atom *argv)
+{
+ int i;
+
+ t_unroute *x = (t_unroute *)pd_new(unroute_class);
+ t_proxy *inlet[MAX_INLET];
+
+ x->x_ninstance = argc;
+ x->x_id = argv[0];
+
+ for(i = 0; i < x->x_ninstance - 1; i++)
+ {
+ inlet[i] = (t_proxy *)pd_new(proxy_class);
+ inlet[i]->x = x; /* make x visible to the proxy inlets */
+ inlet[i]->index = i; /* remember our number */
+ inlet[i]->id = argv[i+1];
+ /* the inlet we're going to create belongs to the object
+ 't_unroute' but the destination is the instance 'i'
+ of the proxy class 't_proxy' */
+ inlet_new(&x->x_obj, &inlet[i]->obj.ob_pd, 0,0);
+ }
+ x->x_outlet = outlet_new(&x->x_obj, gensym("float"));
+
+#ifndef MAXLIB
+ post(version);
+#endif
+ return (void *)x;
+}
+
+void unroute_setup(void)
+{
+ unroute_class = class_new(gensym("unroute"), (t_newmethod)unroute_new,
+ 0, sizeof(t_unroute), 0, A_GIMME, 0);
+
+ /* a class for the proxy inlet: */
+ proxy_class = class_new(gensym("proxy"), NULL, NULL, sizeof(t_proxy),
+ CLASS_PD|CLASS_NOINLET, A_NULL);
+
+ class_addanything(proxy_class, unroute_input);
+
+ class_addfloat(unroute_class, unroute_float);
+ class_addlist(unroute_class, unroute_list);
+ class_addanything(unroute_class, unroute_any);
+#ifndef MAXLIB
+ class_sethelpsymbol(unroute_class, gensym("help-unroute.pd"));
+#else
+ class_sethelpsymbol(unroute_class, gensym("maxlib/help-unroute.pd"));
+#endif
+}
\ No newline at end of file diff --git a/src/urn.c b/src/urn.c new file mode 100644 index 0000000..bf7d414 --- /dev/null +++ b/src/urn.c @@ -0,0 +1,144 @@ +/* ------------------------------- urn -------------------------------------- */
+/* */
+/* urn - urn selection model (random numbers without repetition). */
+/* Written by Olaf Matthes (olaf.matthes@gmx.de) */
+/* Based on code found in Dodge/Jerse "Computer Music" */
+/* Get source at http://www.akustische-kunst.org/puredata/maxlib/ */
+/* */
+/* This program is free software; you can redistribute it and/or */
+/* modify it under the terms of the GNU General Public License */
+/* as published by the Free Software Foundation; either version 2 */
+/* of the License, or (at your option) any later version. */
+/* */
+/* This program is distributed in the hope that it will be useful, */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
+/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
+/* GNU General Public License for more details. */
+/* */
+/* You should have received a copy of the GNU General Public License */
+/* along with this program; if not, write to the Free Software */
+/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+/* */
+/* Based on PureData by Miller Puckette and others. */
+/* */
+/* ---------------------------------------------------------------------------- */
+ +#include "m_pd.h" +#include <stdlib.h>
+#include <time.h>
+#include <math.h>
+
+static char *version = "urn v0.1, urn selection model\n"
+ " written by Olaf Matthes <olaf.matthes@gmx.de>";
+ +/* -------------------------- urn ------------------------------ */
+
+static t_class *urn_class;
+
+typedef struct _urn
+{
+ t_object x_obj;
+ t_outlet *x_numberout;
+ t_outlet *x_notify;
+
+ t_float x_f; /* number of numbers in urn */
+ t_int x_numbers; /* numbers left in urn */
+ t_int *x_selected;
+ unsigned int x_state;
+} t_urn;
+
+static int makeseed(void)
+{
+ static unsigned int random_nextseed = 1489853723;
+ random_nextseed = random_nextseed * 435898247 + 938284287;
+ return (random_nextseed & 0x7fffffff);
+}
+
+static void *urn_new(t_floatarg f)
+{
+ t_urn *x = (t_urn *)pd_new(urn_class);
+ srand( (unsigned)time( NULL ) );
+ x->x_numbers = x->x_f = f;
+ if(x->x_f < 0)x->x_f = 0;
+ x->x_selected = getbytes(((t_int)x->x_f+1)*sizeof(t_int));
+
+ x->x_state = makeseed();
+
+ inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("f"));
+
+ x->x_numberout = outlet_new(&x->x_obj, &s_float);
+ x->x_notify = outlet_new(&x->x_obj, &s_bang);
+ return (x);
+}
+
+ /* set new size of urn */
+static void urn_f(t_urn *x, t_floatarg f)
+{
+ int i;
+ if(f < 0)
+ f = 0;
+ freebytes(x->x_selected, ((t_int)x->x_f+1)*sizeof(t_int));
+ x->x_numbers = x->x_f = f;
+ x->x_selected = getbytes(((t_int)x->x_f+1)*sizeof(t_int));
+ for(i = 0; i <= x->x_f; i++)
+ x->x_selected[i] = 0;
+}
+
+ /* clear (refill) urn */
+static void urn_clear(t_urn *x)
+{
+ int i;
+ x->x_numbers = x->x_f;
+ for(i = 0; i <= x->x_f; i++)
+ x->x_selected[i] = 0;
+}
+
+static void urn_seed(t_urn *x, float f, float glob)
+{
+ x->x_state = f;
+}
+
+ /* choose from urn */
+static void urn_bang(t_urn *x)
+{
+ int n = x->x_f, nval;
+ int range = (n < 1 ? 1 : n);
+ unsigned int randval = x->x_state;
+ if(x->x_numbers == 0)
+ goto notify;
+ do
+ {
+ x->x_state = randval = randval * 472940017 + 832416023;
+ nval = ((double)range) * ((double)randval)
+ * (1./4294967296.);
+ if (nval >= range) nval = range-1;
+ }
+ while(x->x_selected[nval]);
+
+ x->x_selected[nval] = 1;
+
+ outlet_float(x->x_numberout, nval);
+
+ if(--x->x_numbers == 0) /* urn is now empty */
+ goto notify;
+ return;
+
+notify:
+ outlet_bang(x->x_notify);
+}
+
+void urn_setup(void)
+{
+ urn_class = class_new(gensym("urn"), (t_newmethod)urn_new, 0,
+ sizeof(t_urn), 0, A_DEFFLOAT, 0);
+ class_addbang(urn_class, urn_bang);
+ class_addmethod(urn_class, (t_method)urn_f, gensym("f"), A_FLOAT, 0);
+ class_addmethod(urn_class, (t_method)urn_clear, gensym("clear"), 0);
+ class_addmethod(urn_class, (t_method)urn_seed, gensym("seed"), A_FLOAT, 0);
+#ifndef MAXLIB
+ post(version);
+ class_sethelpsymbol(urn_class, gensym("help-urn.pd"));
+#else
+ class_sethelpsymbol(urn_class, gensym("maxlib/help-urn.pd"));
+#endif
+}
\ No newline at end of file diff --git a/src/wrap.c b/src/wrap.c new file mode 100644 index 0000000..0a81d3d --- /dev/null +++ b/src/wrap.c @@ -0,0 +1,136 @@ +/* ------------------------- wrap ------------------------------------------ */
+/* */
+/* wraps input to lie within an output range. */
+/* Written by Olaf Matthes <olaf.matthes@gmx.de> */
+/* Get source at http://www.akustische-kunst.org/puredata/maxlib/ */
+/* */
+/* This program is free software; you can redistribute it and/or */
+/* modify it under the terms of the GNU General Public License */
+/* as published by the Free Software Foundation; either version 2 */
+/* of the License, or (at your option) any later version. */
+/* */
+/* This program is distributed in the hope that it will be useful, */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
+/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
+/* GNU General Public License for more details. */
+/* */
+/* You should have received a copy of the GNU General Public License */
+/* along with this program; if not, write to the Free Software */
+/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+/* */
+/* Based on PureData by Miller Puckette and others. */
+/* */
+/* ---------------------------------------------------------------------------- */
+
+#include "m_pd.h"
+#include <stdio.h>
+#include <math.h>
+
+static char *version = "wrap v0.1, written by Olaf Matthes <olaf.matthes@gmx.de>";
+
+typedef struct wrap
+{
+ t_object x_ob;
+ t_float x_min; /* low border of input range */
+ t_float x_max; /* high border of input range */
+ t_outlet *x_outlet1; /* path-through outlet */
+ t_outlet *x_outlet2; /* wrap outlet */
+} t_wrap;
+
+static void wrap_float(t_wrap *x, t_floatarg f)
+{
+ t_float min = x->x_min;
+ t_float max = x->x_max;
+ t_float range = max - min;
+ t_int i;
+
+ if(range == 0.0f)
+ {
+ f = min;
+ outlet_float(x->x_outlet2, 0);
+ }
+ else if(f < min)
+ {
+ t_float diff = min - f;
+ t_float n = ceil(diff / range);
+
+ f += n * range;
+
+ outlet_float(x->x_outlet2, -(t_int)n);
+ }
+ else if (f >= max)
+ {
+ t_float diff = f - max;
+ t_float n = floor(diff / range) + 1.0f;
+
+ f -= n * range;
+
+ outlet_float(x->x_outlet2, (t_int)n);
+ }
+ else
+ outlet_float(x->x_outlet2, 0.0f);
+
+ outlet_float(x->x_outlet1, f);
+}
+
+static void wrap_a(t_wrap *x, t_floatarg a)
+{
+ t_float max = x->x_max;
+
+ if(a <= max)
+ x->x_min = a;
+ else
+ {
+ x->x_min = max;
+ x->x_max = a;
+ }
+}
+
+static void wrap_b(t_wrap *x, t_floatarg b)
+{
+ t_float min = x->x_min;
+
+ if(b >= min)
+ x->x_max = b;
+ else
+ {
+ x->x_max = min;
+ x->x_min = b;
+ }
+}
+
+static t_class *wrap_class;
+
+static void *wrap_new(t_floatarg fmin, t_floatarg fmax)
+{
+ t_wrap *x = (t_wrap *)pd_new(wrap_class);
+
+ inlet_new(&x->x_ob, &x->x_ob.ob_pd, gensym("float"), gensym("a"));
+ inlet_new(&x->x_ob, &x->x_ob.ob_pd, gensym("float"), gensym("b"));
+
+ x->x_outlet1 = outlet_new(&x->x_ob, gensym("float"));
+ x->x_outlet2 = outlet_new(&x->x_ob, gensym("float"));
+
+ x->x_min = fmin;
+ wrap_b(x, fmax);
+
+#ifndef MAXLIB
+ post(version);
+#endif
+ return (void *)x;
+}
+
+void wrap_setup(void)
+{
+ wrap_class = class_new(gensym("wrap"), (t_newmethod)wrap_new,
+ 0, sizeof(t_wrap), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
+ class_addfloat(wrap_class, wrap_float);
+ class_addmethod(wrap_class, (t_method)wrap_a, gensym("a"), A_FLOAT, 0);
+ class_addmethod(wrap_class, (t_method)wrap_b, gensym("b"), A_FLOAT, 0);
+#ifndef MAXLIB
+ class_sethelpsymbol(wrap_class, gensym("help-wrap.pd"));
+#else
+ class_sethelpsymbol(wrap_class, gensym("maxlib/help-wrap.pd"));
+#endif
+}
+
|