diff options
| -rw-r--r-- | aenv~/Makefile | 75 | ||||
| -rwxr-xr-x | aenv~/aenv~-help.pd | 76 | ||||
| -rw-r--r-- | aenv~/aenv~.c | 165 | ||||
| -rw-r--r-- | svf~/Makefile | 75 | ||||
| -rw-r--r-- | svf~/README.txt | 5 | ||||
| -rw-r--r-- | svf~/help-svf~.pd | 137 | ||||
| -rw-r--r-- | svf~/svf~.c | 163 | ||||
| -rw-r--r-- | zhzxh~/Makefile | 75 | ||||
| -rw-r--r-- | zhzxh~/help-zhzxh~.pd | 39 | ||||
| -rw-r--r-- | zhzxh~/zhzxh~.c | 83 |
10 files changed, 893 insertions, 0 deletions
diff --git a/aenv~/Makefile b/aenv~/Makefile new file mode 100644 index 0000000..90a1668 --- /dev/null +++ b/aenv~/Makefile @@ -0,0 +1,75 @@ +current:
+ echo make pd_linux, pd_nt, pd_irix5, or pd_irix6
+
+clean: ; rm -f *.pd_linux *.o
+
+# ----------------------- NT -----------------------
+
+pd_nt: aenv~.dll
+
+.SUFFIXES: .dll
+
+PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo
+VC="C:\Program Files\Microsoft Visual Studio\Vc98"
+
+PDNTINCLUDE = /I. /I\tcl\include /I\ftp\pd\src /I$(VC)\include
+
+PDNTLDIR = $(VC)\lib
+PDNTLIB = $(PDNTLDIR)\libc.lib \
+ $(PDNTLDIR)\oldnames.lib \
+ $(PDNTLDIR)\kernel32.lib \
+ \ftp\pd\bin\pd.lib
+
+.c.dll:
+ cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c
+ link /dll /export:$*_setup $*.obj $(PDNTLIB)
+
+# ----------------------- IRIX 5.x -----------------------
+
+pd_irix5: aenv~.pd_irix5
+
+.SUFFIXES: .pd_irix5
+
+SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2
+
+
+SGIINCLUDE = -I../../src/
+
+.c.pd_irix5:
+ cc $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c
+ ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o
+ rm $*.o
+
+# ----------------------- IRIX 6.x -----------------------
+
+pd_irix6: aenv~.pd_irix6
+
+.SUFFIXES: .pd_irix6
+
+SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \
+ -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \
+ -Ofast=ip32
+
+.c.pd_irix6:
+ cc $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c
+ ld -IPA -n32 -shared -rdata_shared -o $*.pd_irix6 $*.o
+ rm $*.o
+
+# ----------------------- LINUX i386 -----------------------
+
+pd_linux: aenv~.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/lib/pd/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
+
diff --git a/aenv~/aenv~-help.pd b/aenv~/aenv~-help.pd new file mode 100755 index 0000000..a888cb0 --- /dev/null +++ b/aenv~/aenv~-help.pd @@ -0,0 +1,76 @@ +#N canvas 10 20 762 475 10;
+#X floatatom 238 150 5 0 0;
+#X floatatom 281 150 5 0 0;
+#X floatatom 324 150 5 0 0;
+#X floatatom 367 150 5 0 0;
+#X msg 8 115 1;
+#X msg 50 115 0;
+#N canvas 0 0 450 300 graph1 0;
+#X array env 88200 float 0;
+#X coords 0 1 88199 0 300 140 1;
+#X restore 455 327 graph;
+#X msg 20 250 bang;
+#X obj 142 353 tabwrite~ env;
+#X obj 291 335 *~;
+#X obj 312 444 dac~;
+#X obj 318 410 *~;
+#X obj 364 395 vsl 8 64 0 1 0 1 empty empty empty 0 -8 0 8 -262144
+-1 -1 4900 1;
+#X obj 170 211 aenv~ 100 200 0.6 500;
+#X obj 430 222 phasor~ 100;
+#X obj 430 266 lop~ 1000;
+#X obj 430 244 -~ 0.5;
+#X obj 238 75 vsl 8 64 10 2000 0 1 empty empty attack 0 -8 0 8 -262144
+-1 -1 600 1;
+#X obj 281 75 vsl 8 64 10 2000 0 1 empty empty decay 0 -8 0 8 -262144
+-1 -1 800 1;
+#X obj 367 75 vsl 8 64 10 2000 0 1 empty empty release 0 -8 0 8 -262144
+-1 -1 2600 1;
+#X obj 324 75 vsl 8 64 0 1 0 1 empty empty sustain 0 -8 0 8 -262144
+-1 -1 4400 1;
+#X obj 430 146 notein 1;
+#X obj 430 196 mtof;
+#X text 42 206 nonzero -> attack;
+#X text 484 81 Ben Saylor <bsaylor@macalester.edu>;
+#X text 500 97 http://www.macalester.edu/~bsaylor;
+#X obj 8 20 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1
+;
+#X text 27 17 <- click here;
+#X obj 20 70 del 800;
+#X text 452 6 aenv~: asymptotic ADSR envelope generator;
+#X msg 198 73 lina;
+#X msg 198 104 loga;
+#X text 104 73 linear attack;
+#X text 120 105 log attack;
+#X msg 198 133 zero;
+#X text 77 219 0 -> release;
+#X connect 0 0 13 1;
+#X connect 1 0 13 2;
+#X connect 2 0 13 3;
+#X connect 3 0 13 4;
+#X connect 4 0 7 0;
+#X connect 4 0 13 0;
+#X connect 5 0 13 0;
+#X connect 7 0 8 0;
+#X connect 9 0 11 0;
+#X connect 11 0 10 0;
+#X connect 11 0 10 1;
+#X connect 12 0 11 1;
+#X connect 13 0 8 0;
+#X connect 13 0 9 0;
+#X connect 14 0 16 0;
+#X connect 15 0 9 1;
+#X connect 16 0 15 0;
+#X connect 17 0 0 0;
+#X connect 18 0 1 0;
+#X connect 19 0 3 0;
+#X connect 20 0 2 0;
+#X connect 21 0 22 0;
+#X connect 21 1 13 0;
+#X connect 22 0 14 0;
+#X connect 26 0 4 0;
+#X connect 26 0 28 0;
+#X connect 28 0 5 0;
+#X connect 30 0 13 0;
+#X connect 31 0 13 0;
+#X connect 34 0 13 0;
diff --git a/aenv~/aenv~.c b/aenv~/aenv~.c new file mode 100644 index 0000000..1fb476c --- /dev/null +++ b/aenv~/aenv~.c @@ -0,0 +1,165 @@ +/* Copyright 2002 Benjamin R. Saylor
+ *
+ * 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
+ */
+
+#include "m_pd.h"
+
+#ifdef _MSC_VER
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+enum { ATTACK, DECAY, RELEASE, LINEAR, LOGARITHMIC };
+#define THRESHOLD 0.99
+#define SCALE 4600.0
+#define CLIP(x) ((x < 0.1) ? 0.1 : x)
+#define IS_DENORMAL(f) (((*(unsigned int *)&(f))&0x7f800000) == 0)
+
+static t_class *aenv_class;
+
+typedef struct _aenv {
+ t_object x_obj;
+ t_float srate;
+ t_float a;
+ t_float d;
+ t_float s;
+ t_float r;
+ t_float lastval;
+ int stage;
+ int attacktype;
+} t_aenv;
+
+static t_int *aenv_perform(t_int *w)
+{
+ t_aenv *x = (t_aenv *)(w[1]);
+ t_float *out = (t_float *)(w[2]);
+ int n = (int)(w[3]);
+
+ t_float lastval = x->lastval;
+ t_float a, d, s, r;
+
+ switch (x->stage) {
+ case ATTACK:
+ if (x->attacktype == LINEAR) {
+ a = 1000 / (x->a * x->srate);
+ while (n--) {
+ *out = lastval + a;
+ lastval = *(out++);
+ if (lastval > THRESHOLD) {
+ x->stage = DECAY;
+ break;
+ }
+ }
+ } else {
+ a = SCALE / (CLIP(x->a) * x->srate);
+ while (n--) {
+ *out = lastval + a * (1 - lastval);
+ lastval = *(out++);
+ if (lastval > THRESHOLD) {
+ x->stage = DECAY;
+ break;
+ }
+ }
+ }
+ case DECAY:
+ d = SCALE / (CLIP(x->d) * x->srate);
+ s = x->s;
+ while (n-- > 0) {
+ *out = lastval - d * (lastval - s);
+ if (IS_DENORMAL(*out)) *out = 0.0;
+ lastval = *(out++);
+ }
+ break;
+ case RELEASE:
+ r = SCALE / (CLIP(x->r) * x->srate);
+ while (n--) {
+ *out = lastval - r * lastval;
+ if (IS_DENORMAL(*out)) *out = 0.0;
+ lastval = *(out++);
+ }
+ }
+
+ x->lastval = lastval;
+
+ return (w+4);
+}
+
+static void aenv_dsp(t_aenv *x, t_signal **sp)
+{
+ dsp_add(aenv_perform, 3, x, sp[0]->s_vec, sp[0]->s_n);
+}
+
+static void aenv_float(t_aenv *x, t_float f)
+{
+ if (f == 0)
+ x->stage = RELEASE;
+ else
+ x->stage = ATTACK;
+}
+
+static void *aenv_new(t_symbol *s, int argc, t_atom *argv)
+{
+ t_aenv *x = (t_aenv *)pd_new(aenv_class);
+ floatinlet_new(&x->x_obj, &x->a);
+ floatinlet_new(&x->x_obj, &x->d);
+ floatinlet_new(&x->x_obj, &x->s);
+ floatinlet_new(&x->x_obj, &x->r);
+ outlet_new(&x->x_obj, gensym("signal"));
+
+ x->srate = sys_getsr();
+ x->a = 500;
+ x->d = 500;
+ x->s = 0.5;
+ x->r = 500;
+ x->lastval = 0;
+ x->stage = RELEASE;
+ x->attacktype = LOGARITHMIC;
+
+ if (argc == 4) {
+ x->a = atom_getfloat(argv);
+ x->d = atom_getfloat(argv+1);
+ x->s = atom_getfloat(argv+2);
+ x->r = atom_getfloat(argv+3);
+ }
+
+ return (x);
+}
+
+static void aenv_lina(t_aenv *x)
+{
+ x->attacktype = LINEAR;
+}
+
+static void aenv_loga(t_aenv *x)
+{
+ x->attacktype = LOGARITHMIC;
+}
+
+static void aenv_zero(t_aenv *x)
+{
+ x->stage = RELEASE;
+ x->lastval = 0.0;
+}
+
+void aenv_tilde_setup(void)
+{
+ aenv_class = class_new(gensym("aenv~"), (t_newmethod)aenv_new, 0, sizeof(t_aenv), 0, A_GIMME, 0);
+ class_addmethod(aenv_class, (t_method)aenv_dsp, gensym("dsp"), 0);
+ class_addfloat(aenv_class, (t_method)aenv_float);
+ class_addmethod(aenv_class, (t_method)aenv_lina, gensym("lina"), 0);
+ class_addmethod(aenv_class, (t_method)aenv_loga, gensym("loga"), 0);
+ class_addmethod(aenv_class, (t_method)aenv_zero, gensym("zero"), 0);
+}
diff --git a/svf~/Makefile b/svf~/Makefile new file mode 100644 index 0000000..6ea6e28 --- /dev/null +++ b/svf~/Makefile @@ -0,0 +1,75 @@ +current:
+ echo make pd_linux, pd_nt, pd_irix5, or pd_irix6
+
+clean: ; rm -f *.pd_linux *.o
+
+# ----------------------- NT -----------------------
+
+pd_nt: svf~.dll
+
+.SUFFIXES: .dll
+
+PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo
+VC="C:\Program Files\Microsoft Visual Studio\Vc98"
+
+PDNTINCLUDE = /I. /I\tcl\include /I\ftp\pd\src /I$(VC)\include
+
+PDNTLDIR = $(VC)\lib
+PDNTLIB = $(PDNTLDIR)\libc.lib \
+ $(PDNTLDIR)\oldnames.lib \
+ $(PDNTLDIR)\kernel32.lib \
+ \ftp\pd\bin\pd.lib
+
+.c.dll:
+ cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c
+ link /dll /export:$*_setup $*.obj $(PDNTLIB)
+
+# ----------------------- IRIX 5.x -----------------------
+
+pd_irix5: svf~.pd_irix5
+
+.SUFFIXES: .pd_irix5
+
+SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2
+
+
+SGIINCLUDE = -I../../src/
+
+.c.pd_irix5:
+ cc $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c
+ ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o
+ rm $*.o
+
+# ----------------------- IRIX 6.x -----------------------
+
+pd_irix6: svf~.pd_irix6
+
+.SUFFIXES: .pd_irix6
+
+SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \
+ -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \
+ -Ofast=ip32
+
+.c.pd_irix6:
+ cc $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c
+ ld -IPA -n32 -shared -rdata_shared -o $*.pd_irix6 $*.o
+ rm $*.o
+
+# ----------------------- LINUX i386 -----------------------
+
+pd_linux: svf~.pd_linux
+
+.SUFFIXES: .pd_linux
+
+LINUXCFLAGS = -DPD -O6 -funroll-loops -fomit-frame-pointer \
+ -Wall -W -Wshadow -Wstrict-prototypes -Werror \
+ -Wno-unused -Wno-parentheses -Wno-switch
+
+LINUXINCLUDE = -I/usr/local/lib/pd/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
+
diff --git a/svf~/README.txt b/svf~/README.txt new file mode 100644 index 0000000..81538b7 --- /dev/null +++ b/svf~/README.txt @@ -0,0 +1,5 @@ +This is a signal-controlled port of Steve Harris' state variable filter
+LADSPA plugin (http://plugin.org.uk).
+
+bsaylor@macalester.edu
+http://www.macalester.edu/~bsaylor
diff --git a/svf~/help-svf~.pd b/svf~/help-svf~.pd new file mode 100644 index 0000000..39c8cbf --- /dev/null +++ b/svf~/help-svf~.pd @@ -0,0 +1,137 @@ +#N canvas 10 20 762 475 10;
+#X obj 170 445 dac~;
+#X obj 7 369 phasor~;
+#X floatatom 7 347 5 0 0;
+#X obj 145 329 sig~;
+#X obj 190 329 sig~;
+#X obj 97 257 mtof;
+#X obj 97 120 vsl 15 128 16 135 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 145 120 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 190 119 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 97 329 line~;
+#X msg 97 306 \$1 100;
+#X floatatom 200 281 5 0 0;
+#X floatatom 155 281 5 0 0;
+#X floatatom 97 281 7 0 0;
+#X msg 361 123 low;
+#X msg 361 147 high;
+#X msg 361 171 band;
+#X msg 361 195 notch;
+#X msg 361 219 peak;
+#X obj 7 303 loadbang;
+#N canvas 4 20 608 388 hanning-table 0;
+#X obj 92 206 phasor~;
+#X obj 92 234 cos~;
+#X obj 23 328 tabwrite~ hanning;
+#X obj 30 252 -~;
+#X obj 28 218 sig~ 1;
+#X msg 37 180 0;
+#X text 141 13 CALCULATE HANNING;
+#X text 141 27 WINDOW TABLE;
+#N canvas 0 0 450 300 graph1 0;
+#X array hanning 512 float 0;
+#X coords 0 1 511 0 256 128 1;
+#X restore 305 93 graph;
+#X obj 93 171 sig~;
+#X text 24 354 sample rate / window size;
+#X msg 23 144 bang;
+#X obj 66 269 sig~ 0.5;
+#X obj 49 300 *~;
+#X obj 67 96 samplerate~;
+#X obj 25 53 t b f;
+#X obj 25 8 loadbang;
+#X msg 25 31 512;
+#X obj 94 131 / 512;
+#X connect 0 0 1 0;
+#X connect 1 0 3 1;
+#X connect 3 0 13 0;
+#X connect 4 0 3 0;
+#X connect 5 0 0 1;
+#X connect 9 0 0 0;
+#X connect 11 0 2 0;
+#X connect 11 0 5 0;
+#X connect 12 0 13 1;
+#X connect 13 0 2 0;
+#X connect 14 0 18 0;
+#X connect 15 0 14 0;
+#X connect 15 0 11 0;
+#X connect 15 1 18 1;
+#X connect 16 0 17 0;
+#X connect 17 0 15 0;
+#X connect 18 0 9 0;
+#X restore 13 430 pd hanning-table;
+#N canvas 10 112 328 354 fft-analysis 0;
+#X obj 69 15 inlet~;
+#X obj 43 74 rfft~;
+#X obj 37 123 *~;
+#X obj 81 124 *~;
+#X obj 49 167 +~;
+#X obj 49 196 sqrt~;
+#X obj 27 297 tabsend~ response;
+#X obj 171 209 block~ 512 2;
+#X obj 182 61 tabreceive~ hanning;
+#X obj 164 99 *~;
+#X obj 69 36 /~ 8;
+#X obj 51 249 clip~ 0 1;
+#X connect 0 0 10 0;
+#X connect 1 0 2 0;
+#X connect 1 0 2 1;
+#X connect 1 1 3 0;
+#X connect 1 1 3 1;
+#X connect 2 0 4 0;
+#X connect 3 0 4 1;
+#X connect 4 0 5 0;
+#X connect 5 0 11 0;
+#X connect 8 0 9 1;
+#X connect 9 0 1 0;
+#X connect 10 0 9 0;
+#X connect 11 0 6 0;
+#X restore 216 421 pd fft-analysis;
+#N canvas 0 0 450 300 graph1 0;
+#X array response 256 float 0;
+#X coords 0 1 255 0 256 140 1;
+#X restore 478 10 graph;
+#X msg 7 325 110;
+#X text 5 1 svf~ - state-variable filter;
+#X text 146 99 q;
+#X text 171 100 resonance;
+#X text 67 100 frequency;
+#X text 331 100 filter type;
+#X obj 200 387 svf~ low;
+#X text 8 28 A port of Steve Harris' LADSPA plugin;
+#X text 6 45 (http://plugin.org.uk);
+#X text 325 313 Notes:;
+#X text 338 334 'q' controls the filter resonance. The resonance input
+is for 'extra' resonance.. :);
+#X text 400 171 <- keep q below 0.1;
+#X text 339 370 The filters don't use the same scale for frequency.
+Bandpass frequency seems to be in Hz. If the frequency is set too high
+\, LOUD aliasing is produced.;
+#X text 339 418 The bandpass filter is very sensitive to q - normal
+range is 0 to 0.1.;
+#X connect 1 0 29 0;
+#X connect 2 0 1 0;
+#X connect 3 0 29 2;
+#X connect 4 0 29 3;
+#X connect 5 0 13 0;
+#X connect 6 0 5 0;
+#X connect 7 0 3 0;
+#X connect 7 0 12 0;
+#X connect 8 0 4 0;
+#X connect 8 0 11 0;
+#X connect 9 0 29 1;
+#X connect 10 0 9 0;
+#X connect 13 0 10 0;
+#X connect 14 0 29 0;
+#X connect 15 0 29 0;
+#X connect 16 0 29 0;
+#X connect 17 0 29 0;
+#X connect 18 0 29 0;
+#X connect 19 0 23 0;
+#X connect 23 0 2 0;
+#X connect 29 0 0 0;
+#X connect 29 0 0 1;
+#X connect 29 0 21 0;
diff --git a/svf~/svf~.c b/svf~/svf~.c new file mode 100644 index 0000000..0749903 --- /dev/null +++ b/svf~/svf~.c @@ -0,0 +1,163 @@ +/*
+ * copyright Steve Harris, Ben Saylor
+ * see GPL.txt
+ */
+
+#include <math.h>
+#include <string.h>
+#include "m_pd.h"
+
+#ifdef NT
+#define inline __inline
+#define M_PI 3.14159265358979323846
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+// Number of filter oversamples
+#define F_R 3
+
+// Denormalise floats, only actually needed for PIII and very recent PowerPC
+#define FLUSH_TO_ZERO(fv) (((*(unsigned int*)&(fv))&0x7f800000)==0)?0.0f:(fv)
+
+/* pd's samplerate */
+float fs;
+
+static t_class *svf_class;
+
+typedef struct _svf
+{
+ t_object x_obj;
+ float f; // 2.0*sin(PI*fs/(fc*r));
+ float q; // 2.0*cos(pow(q, 0.1)*PI*0.5);
+ float qnrm; // sqrt(m/2.0f+0.01f);
+ float h; // high pass output
+ float b; // band pass output
+ float l; // low pass output
+ float p; // peaking output (allpass with resonance)
+ float n; // notch output
+ float *op; // pointer to output value
+} t_svf;
+
+/* Store data in SVF struct, takes the sampling frequency, cutoff frequency
+ and Q, and fills in the structure passed */
+//static inline void setup_svf(sv_filter *sv, float fs, float fc, float q, int t) {
+static inline void setup_svf(t_svf *sv, float fc, float q) {
+ sv->f = 2.0f * sin(M_PI * fc / (float)(fs * F_R));
+ sv->q = 2.0f * cos(pow(q, 0.1f) * M_PI * 0.5f);
+ sv->qnrm = sqrt(sv->q/2.0+0.01);
+}
+
+/* Run one sample through the SV filter. Filter is by andy@vellocet */
+static inline float run_svf(t_svf *sv, float in) {
+ float out;
+ int i;
+
+ in = sv->qnrm * in ;
+ for (i=0; i < F_R; i++) {
+ // only needed for pentium chips
+ in = FLUSH_TO_ZERO(in);
+ sv->l = FLUSH_TO_ZERO(sv->l);
+ // very slight waveshape for extra stability
+ sv->b = sv->b - sv->b * sv->b * sv->b * 0.001f;
+
+ // regular state variable code here
+ // the notch and peaking outputs are optional
+ sv->h = in - sv->l - sv->q * sv->b;
+ sv->b = sv->b + sv->f * sv->h;
+ sv->l = sv->l + sv->f * sv->b;
+ sv->n = sv->l + sv->h;
+ sv->p = sv->l - sv->h;
+
+ out = *(sv->op);
+ in = out;
+ }
+
+ return out;
+}
+
+static void svf_setstate_LP(t_svf *sv)
+{
+ sv->op = &(sv->l);
+}
+
+static void svf_setstate_HP(t_svf *sv)
+{
+ sv->op = &(sv->h);
+}
+
+static void svf_setstate_BP(t_svf *sv)
+{
+ sv->op = &(sv->b);
+}
+
+static void svf_setstate_BR(t_svf *sv)
+{
+ sv->op = &(sv->n);
+}
+
+static void svf_setstate_AP(t_svf *sv)
+{
+ sv->op = &(sv->p);
+}
+
+static t_int *svf_perform(t_int *w)
+{
+ t_svf *obj = (t_svf *)(w[1]);
+ t_float *in = (t_float *)(w[2]);
+ t_float *freq = (t_float *)(w[3]);
+ t_float *q = (t_float *)(w[4]);
+ t_float *res = (t_float *)(w[5]);
+ t_float *out = (t_float *)(w[6]);
+ int n = (int)(w[7]);
+ while (n--) {
+ float f = *(in++);
+ setup_svf(obj, *(freq++), *(q++));
+ *(out++) = run_svf(obj, f + ((obj->b) * (*(res++))));
+ }
+ return (w+8);
+}
+
+static void svf_dsp(t_svf *x, t_signal **sp)
+{
+ dsp_add(svf_perform, 7, x, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[4]->s_vec, sp[0]->s_n);
+}
+
+static void *svf_new(t_symbol *s, int argc, t_atom *argv)
+{
+ char string[11];
+ t_svf *x = (t_svf *)pd_new(svf_class);
+
+ svf_setstate_LP(x);
+ if (argc > 0) {
+ atom_string(argv, string, 10);
+ if (!strcmp(string, "high"))
+ svf_setstate_HP(x);
+ if (!strcmp(string, "band"))
+ svf_setstate_BP(x);
+ if (!strcmp(string, "notch"))
+ svf_setstate_BR(x);
+ if (!strcmp(string, "peak"))
+ svf_setstate_AP(x);
+ }
+
+ inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
+ inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
+ inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
+ outlet_new(&x->x_obj, gensym("signal"));
+ return (x);
+}
+
+void svf_tilde_setup(void)
+{
+ fs = sys_getsr();
+ svf_class = class_new(gensym("svf~"), (t_newmethod)svf_new, 0, sizeof(t_svf), 0, A_GIMME, 0);
+ class_sethelpsymbol(svf_class, gensym("help-svf~.pd"));
+ class_addmethod(svf_class, nullfn, gensym("signal"), 0);
+ class_addmethod(svf_class, (t_method)svf_dsp, gensym("dsp"), 0);
+ class_addmethod(svf_class, (t_method)svf_setstate_LP, gensym("low"), 0);
+ class_addmethod(svf_class, (t_method)svf_setstate_HP, gensym("high"), 0);
+ class_addmethod(svf_class, (t_method)svf_setstate_BP, gensym("band"), 0);
+ class_addmethod(svf_class, (t_method)svf_setstate_BR, gensym("notch"), 0);
+ class_addmethod(svf_class, (t_method)svf_setstate_AP, gensym("peak"), 0);
+}
diff --git a/zhzxh~/Makefile b/zhzxh~/Makefile new file mode 100644 index 0000000..9887237 --- /dev/null +++ b/zhzxh~/Makefile @@ -0,0 +1,75 @@ +current:
+ echo make pd_linux, pd_nt, pd_irix5, or pd_irix6
+
+clean: ; rm -f *.pd_linux *.o
+
+# ----------------------- NT -----------------------
+
+pd_nt: zhzxh~.dll
+
+.SUFFIXES: .dll
+
+PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo
+VC="C:\Program Files\Microsoft Visual Studio\Vc98"
+
+PDNTINCLUDE = /I. /I\tcl\include /I\ftp\pd\src /I$(VC)\include
+
+PDNTLDIR = $(VC)\lib
+PDNTLIB = $(PDNTLDIR)\libc.lib \
+ $(PDNTLDIR)\oldnames.lib \
+ $(PDNTLDIR)\kernel32.lib \
+ \ftp\pd\bin\pd.lib
+
+.c.dll:
+ cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c
+ link /dll /export:$*_setup $*.obj $(PDNTLIB)
+
+# ----------------------- IRIX 5.x -----------------------
+
+pd_irix5: zhzxh~.pd_irix5
+
+.SUFFIXES: .pd_irix5
+
+SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2
+
+
+SGIINCLUDE = -I../../src/
+
+.c.pd_irix5:
+ cc $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c
+ ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o
+ rm $*.o
+
+# ----------------------- IRIX 6.x -----------------------
+
+pd_irix6: zhzxh~.pd_irix6
+
+.SUFFIXES: .pd_irix6
+
+SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \
+ -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \
+ -Ofast=ip32
+
+.c.pd_irix6:
+ cc $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c
+ ld -IPA -n32 -shared -rdata_shared -o $*.pd_irix6 $*.o
+ rm $*.o
+
+# ----------------------- LINUX i386 -----------------------
+
+pd_linux: zhzxh~.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/lib/pd/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
+
diff --git a/zhzxh~/help-zhzxh~.pd b/zhzxh~/help-zhzxh~.pd new file mode 100644 index 0000000..9b5f26a --- /dev/null +++ b/zhzxh~/help-zhzxh~.pd @@ -0,0 +1,39 @@ +#N canvas 12 60 418 347 10;
+#X floatatom 127 195 5 0 0;
+#X obj 76 307 dac~;
+#X obj 78 277 *~;
+#X obj 13 123 readsf~;
+#X msg 36 94 1;
+#X floatatom 99 46 5 0 0;
+#X obj 130 183 hsl 128 8 0 2500 0 1 empty empty tone -2 -6 0 8 -262144
+-1 -1 8200 1;
+#X obj 78 220 zhzxh~;
+#X msg 13 56 open \$1;
+#X obj 136 244 vsl 8 64 0 1 0 1 empty empty empty 0 -8 0 8 -262144
+-1 -1 4200 1;
+#X text 163 25 http://www.macalester.edu/~bsaylor;
+#X text 160 9 Ben Saylor <bsaylor@macalester.edu>;
+#X obj 13 31 openpanel;
+#X obj 13 8 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1
+;
+#X obj 105 120 *~;
+#X obj 155 94 tgl 15 1 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X obj 99 67 mtof;
+#X obj 99 93 osc~ 50;
+#X connect 0 0 7 1;
+#X connect 2 0 1 0;
+#X connect 2 0 1 1;
+#X connect 3 0 7 0;
+#X connect 4 0 3 0;
+#X connect 5 0 16 0;
+#X connect 6 0 0 0;
+#X connect 7 0 2 0;
+#X connect 8 0 3 0;
+#X connect 9 0 2 1;
+#X connect 12 0 8 0;
+#X connect 13 0 12 0;
+#X connect 14 0 7 0;
+#X connect 15 0 14 1;
+#X connect 16 0 17 0;
+#X connect 17 0 14 0;
diff --git a/zhzxh~/zhzxh~.c b/zhzxh~/zhzxh~.c new file mode 100644 index 0000000..35fc054 --- /dev/null +++ b/zhzxh~/zhzxh~.c @@ -0,0 +1,83 @@ +/* Copyright 2002 Benjamin R. Saylor
+ *
+ * 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
+ */
+
+#include "m_pd.h"
+
+#ifdef _MSC_VER
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+static t_class *zhzxh_class;
+
+typedef struct _zhzxh {
+ t_object x_obj;
+ t_float slope;
+ t_float lastval;
+ t_float srate;
+ t_float f;
+} t_zhzxh;
+
+static t_int *zhzxh_perform(t_int *w)
+{
+ t_zhzxh *x = (t_zhzxh *)(w[1]);
+ t_float *in = (t_float *)(w[2]);
+ t_float *out = (t_float *)(w[3]);
+ int n = (int)(w[4]);
+ t_float f;
+
+ t_float lastval = x->lastval;
+ t_float delta = x->slope / x->srate;
+
+ while (n--) {
+ f = *(in++);
+ if (lastval < f)
+ *out = lastval + delta;
+ else
+ *out = lastval - delta;
+ lastval = *(out++);
+ }
+
+ x->lastval = lastval;
+
+ return (w+5);
+}
+
+static void zhzxh_dsp(t_zhzxh *x, t_signal **sp)
+{
+ dsp_add(zhzxh_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
+}
+
+static void *zhzxh_new(t_symbol *s, int argc, t_atom *argv)
+{
+ t_zhzxh *x = (t_zhzxh *)pd_new(zhzxh_class);
+ x->slope = 1;
+ x->lastval = 0;
+ x->srate = sys_getsr();
+ floatinlet_new(&x->x_obj, &x->slope);
+ outlet_new(&x->x_obj, gensym("signal"));
+
+ return (x);
+}
+
+void zhzxh_tilde_setup(void)
+{
+ zhzxh_class = class_new(gensym("zhzxh~"), (t_newmethod)zhzxh_new, 0, sizeof(t_zhzxh), 0, A_GIMME, 0);
+ class_sethelpsymbol(zhzxh_class, gensym("help-zhzxh~.pd"));
+ CLASS_MAINSIGNALIN(zhzxh_class, t_zhzxh, f);
+ class_addmethod(zhzxh_class, (t_method)zhzxh_dsp, gensym("dsp"), 0);
+}
|