Pd-cvs August 2004

pd-cvs@lists.iem.at

10 participants
171 discussions

externals/sc4pd/source BPF.cpp,NONE,1.1 BRF.cpp,NONE,1.1 main.cpp,1.24,1.25
by Tim Blechmann 08 Aug '04

08 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11508/source Modified Files: main.cpp Added Files: BPF.cpp BRF.cpp Log Message: brf & bpf Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** main.cpp 8 Aug 2004 11:10:30 -0000 1.24 --- main.cpp 8 Aug 2004 16:29:26 -0000 1.25 *************** *** 65,69 **** " AllpassC~, PitchShift~, Resonz~, OnePole(~), OneZero(~), " "TwoPole~, \n" ! " TwoZero~, FOS(~), SOS~, RLPF~, RHPF~, LPF~, HPF~" "\n" ); --- 65,70 ---- " AllpassC~, PitchShift~, Resonz~, OnePole(~), OneZero(~), " "TwoPole~, \n" ! " TwoZero~, FOS(~), SOS~, RLPF~, RHPF~, LPF~, HPF~, BPF~, " ! "BRF~" "\n" ); *************** *** 258,261 **** --- 259,266 ---- FLEXT_DSP_SETUP(HPF_ar); + + FLEXT_DSP_SETUP(BPF_ar); + + FLEXT_DSP_SETUP(BRF_ar); } --- NEW FILE: BPF.cpp --- /* sc4pd BPF~ Copyright (c) 2004 Tim Blechmann. This code is derived from: SuperCollider real time audio synthesis system Copyright (c) 2002 James McCartney. All rights reserved. http://www.audiosynth.com 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. http://www.crca.ucsd.edu/~msp/software.html FLEXT by Thomas Grill http://www.parasitaere-kapazitaeten.net/ext SuperCollider by James McCartney http://www.audiosynth.com Coded while listening to: Jo Kondo: Works For Piano */ #include "sc4pd.hpp" /* ------------------------ BPF~ -------------------------------*/ class BPF_ar: public sc4pd_dsp { FLEXT_HEADER(BPF_ar,sc4pd_dsp); public: BPF_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); virtual void m_dsp(int n, t_sample *const *in, t_sample *const *out) { mRadiansPerSample = sc_radianspersample(); mFilterSlope = sc_filterslope(); mFilterLoops = sc_filterloops(); mFilterRemain = sc_filterremain(); } void m_set_freq(float f) { m_freq=f; changed = true; } void m_set_rq(float f) { m_bw=f; changed = true; } private: float m_y1, m_y2, m_a0, m_b1, m_b2, m_freq, m_bw; bool changed; float mRadiansPerSample, mFilterSlope; int mFilterLoops, mFilterRemain; FLEXT_CALLBACK_F(m_set_freq); FLEXT_CALLBACK_F(m_set_rq); }; FLEXT_LIB_DSP_V("BPF~",BPF_ar); BPF_ar::BPF_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"kfreq",m_set_freq); FLEXT_ADDMETHOD_(0,"krq",m_set_rq); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); m_bw = sc_getfloatarg(Args,1); changed = true; AddOutSignal(); m_a0 = 0.f; m_b1 = 0.f; m_b2 = 0.f; m_y1 = 0.f; m_y2 = 0.f; } void BPF_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float y0; float y1 = m_y1; float y2 = m_y2; float a0 = m_a0; float b1 = m_b1; float b2 = m_b2; if (changed) { float pfreq = m_freq * mRadiansPerSample; float pbw = m_bw * pfreq * 0.5; float C = 1.f / tan(pbw); float D = 2.f * cos(pfreq); float next_a0 = 1.f / (1.f + C); float next_b1 = C * D * next_a0 ; float next_b2 = (1.f - C) * next_a0; float a0_slope = (next_a0 - a0) * mFilterSlope; float b1_slope = (next_b1 - b1) * mFilterSlope; float b2_slope = (next_b2 - b2) * mFilterSlope; for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 - y2); y2 = ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = a0 * (y2 - y1); y1 = ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = a0 * (y1 - y0); a0 += a0_slope; b1 += b1_slope; b2 += b2_slope; } for (int i = 0; i!= mFilterRemain;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 - y2); y2 = y1; y1 = y0; } m_a0 = a0; m_b1 = b1; m_b2 = b2; changed = false; } else { for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 - y2); y2 = ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = a0 * (y2 - y1); y1 = ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = a0 * (y1 - y0); } for (int i = 0; i!= mFilterRemain;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 - y2); y2 = y1; y1 = y0; } } m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); } /* no control rate BPF filter */ --- NEW FILE: BRF.cpp --- /* sc4pd BRF~ Copyright (c) 2004 Tim Blechmann. This code is derived from: SuperCollider real time audio synthesis system Copyright (c) 2002 James McCartney. All rights reserved. http://www.audiosynth.com 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. http://www.crca.ucsd.edu/~msp/software.html FLEXT by Thomas Grill http://www.parasitaere-kapazitaeten.net/ext SuperCollider by James McCartney http://www.audiosynth.com Coded while listening to: Jo Kondo: Works For Piano */ #include "sc4pd.hpp" /* ------------------------ BRF~ -------------------------------*/ class BRF_ar: public sc4pd_dsp { FLEXT_HEADER(BRF_ar,sc4pd_dsp); public: BRF_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); virtual void m_dsp(int n, t_sample *const *in, t_sample *const *out) { mRadiansPerSample = sc_radianspersample(); mFilterSlope = sc_filterslope(); mFilterLoops = sc_filterloops(); mFilterRemain = sc_filterremain(); } void m_set_freq(float f) { m_freq=f; changed = true; } void m_set_rq(float f) { m_bw=f; changed = true; } private: float m_y1, m_y2, m_a0, m_a1, m_b2, m_freq, m_bw; bool changed; float mRadiansPerSample, mFilterSlope; int mFilterLoops, mFilterRemain; FLEXT_CALLBACK_F(m_set_freq); FLEXT_CALLBACK_F(m_set_rq); }; FLEXT_LIB_DSP_V("BRF~",BRF_ar); BRF_ar::BRF_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"kfreq",m_set_freq); FLEXT_ADDMETHOD_(0,"krq",m_set_rq); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); m_bw = sc_getfloatarg(Args,1); changed = true; AddOutSignal(); m_a0 = 0.f; m_a1 = 0.f; m_b2 = 0.f; m_y1 = 0.f; m_y2 = 0.f; } void BRF_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float ay; float y0; float y1 = m_y1; float y2 = m_y2; float a0 = m_a0; float a1 = m_a1; float b2 = m_b2; if (changed) { float pfreq = m_freq * mRadiansPerSample; float pbw = m_bw * pfreq * 0.5; float C = tan(pbw); float D = 2.f * cos(pfreq); float next_a0 = 1.f / (1.f + C); float next_a1 = -D * next_a0; float next_b2 = (1.f - C) * next_a0; float a0_slope = (next_a0 - a0) * mFilterSlope; float a1_slope = (next_a1 - a1) * mFilterSlope; float b2_slope = (next_b2 - b2) * mFilterSlope; for (int i = 0; i!= mFilterLoops;++i) { ay = a1 * y1; y0 = ZXP(nin) - ay - b2 * y2; ZXP(nout) = a0 * (y0 + y2) + ay; ay = a1 * y0; y2 = ZXP(nin) - ay - b2 * y1; ZXP(nout) = a0 * (y2 + y1) + ay; ay = a1 * y2; y1 = ZXP(nin) - ay - b2 * y0; ZXP(nout) = a0 * (y1 + y0) + ay; a0 += a0_slope; a1 += a1_slope; b2 += b2_slope; } for (int i = 0; i!= mFilterRemain;++i) { ay = a1 * y1; y0 = ZXP(nin) - ay - b2 * y2; ZXP(nout) = a0 * (y0 + y2) + ay; y2 = y1; y1 = y0; } m_a0 = a0; m_a1 = a1; m_b2 = b2; changed = false; } else { for (int i = 0; i!= mFilterLoops;++i) { ay = a1 * y1; y0 = ZXP(nin) - ay - b2 * y2; ZXP(nout) = a0 * (y0 + y2) + ay; ay = a1 * y0; y2 = ZXP(nin) - ay - b2 * y1; ZXP(nout) = a0 * (y2 + y1) + ay; ay = a1 * y2; y1 = ZXP(nin) - ay - b2 * y0; ZXP(nout) = a0 * (y1 + y0) + ay; } for (int i = 0; i!= mFilterRemain;++i) { ay = a1 * y1; y0 = ZXP(nin) - ay - b2 * y2; ZXP(nout) = a0 * (y0 + y2) + ay; y2 = y1; y1 = y0; } } m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); } /* no control rate BRF filter */

1 0

externals/k_cext Makefile,1.1,1.2 k_cext.c,1.2,1.3 k_cext.h,1.4,1.5 k_cext_win.c,1.1,1.2
by Tim Blechmann 08 Aug '04

08 Aug '04

Update of /cvsroot/pure-data/externals/k_cext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17733 Modified Files: Makefile k_cext.c k_cext.h k_cext_win.c Log Message: Index: k_cext_win.c =================================================================== RCS file: /cvsroot/pure-data/externals/k_cext/k_cext_win.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** k_cext_win.c 8 Jan 2004 14:55:24 -0000 1.1 --- k_cext_win.c 8 Aug 2004 13:09:02 -0000 1.2 *************** *** 81,91 **** } ! void k_sys_writeincludes(FILE *file){ ! fprintf(file,"#include \"" INCLUDEPATH "\\src\\m_pd.h\"\n"); ! fprintf(file,"#include \"" INCLUDEPATH "\\src\\k_cext.h\"\n"); /* needs to be in pd/src, sorry.. */ } void k_sys_makecompilestring(char *to,char *name,char *funcname){ ! sprintf(to,"cl %s " INCLUDEPATH "\\bin\\pd.lib /LD /Gd /GD /Ox /DNT /link /export:%s", name, funcname); } --- 81,91 ---- } ! void k_sys_writeincludes(FILE *file){ ! fprintf(file,"#include \"" INCLUDEPATH "\\src\\m_pd.h\"\n"); ! fprintf(file,"#include \"" INCLUDEPATH "\\src\\k_cext.h\"\n"); /* needs to be in pd/src, sorry.. */ } void k_sys_makecompilestring(char *to,char *name,char *funcname){ ! sprintf(to,"cl %s " INCLUDEPATH "\\bin\\pd.lib " INCLUDEPATH "\\bin\\k_cext.lib /LD /Gd /GD /Ox /DNT /link /export:%s", name, funcname); } Index: k_cext.h =================================================================== RCS file: /cvsroot/pure-data/externals/k_cext/k_cext.h,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** k_cext.h 30 Jun 2004 10:46:14 -0000 1.4 --- k_cext.h 8 Aug 2004 13:09:02 -0000 1.5 *************** *** 18,27 **** */ - #include <stdio.h> #include <stdlib.h> #include <string.h> #include <math.h> ! #include <stdbool.h> #ifdef _MSC_VER typedef int bool; --- 18,26 ---- */ #include <stdio.h> #include <stdlib.h> #include <string.h> #include <math.h> ! //#include <stdbool.h> #ifdef _MSC_VER typedef int bool; *************** *** 34,37 **** --- 33,42 ---- #include <stdarg.h> + #ifdef MSW + #define K_EXTERN __declspec(dllexport) extern + #else + #define K_EXTERN extern + #endif + typedef struct k_cext { *************** *** 57,62 **** /* The following functions are used by intsort and floatsort */ ! extern int k_cext_intcompare(const void *p1, const void *p2); ! extern int k_cext_floatcompare(const void *p1, const void *p2); --- 62,67 ---- /* The following functions are used by intsort and floatsort */ ! K_EXTERN int k_cext_intcompare(const void *p1, const void *p2); ! K_EXTERN int k_cext_floatcompare(const void *p1, const void *p2); *************** *** 65,76 **** */ ! extern int k_sys_getprocessfunction(t_k_cext *x,char *funcname,char *name); ! extern void k_sys_freehandle(t_k_cext *x); ! extern void k_sys_mktempfilename(char *to); ! extern void k_sys_writeincludes(FILE *file); ! extern void k_sys_makecompilestring(char *to,char *name,char *funcname); ! extern void k_sys_deletefile(char *name); ! extern void k_sys_init(void); --- 70,84 ---- */ ! K_EXTERN int k_sys_getprocessfunction(t_k_cext *x,char *funcname,char *name); ! K_EXTERN void k_sys_freehandle(t_k_cext *x); ! K_EXTERN void k_sys_mktempfilename(char *to); ! K_EXTERN void k_sys_writeincludes(FILE *file); ! K_EXTERN void k_sys_makecompilestring(char *to,char *name,char *funcname); ! K_EXTERN void k_sys_deletefile(char *name); ! K_EXTERN void k_sys_init(void); + /* TB value accessing functions*/ + K_EXTERN t_float k_cext_getvalue(char c[]); + K_EXTERN int k_cext_setvalue(char c[],float f); *************** *** 109,113 **** /* TB: values and bang outlets */ #define Ob(a) outlet_bang(x->outlets[a]); ! t_float k_cext_getvalue(char c[]); int k_cext_setvalue(char c[],float f); #define VALUE(char) k_cext_getvalue(char) --- 117,121 ---- /* TB: values and bang outlets */ #define Ob(a) outlet_bang(x->outlets[a]); ! float k_cext_getvalue(char c[]); int k_cext_setvalue(char c[],float f); #define VALUE(char) k_cext_getvalue(char) Index: k_cext.c =================================================================== RCS file: /cvsroot/pure-data/externals/k_cext/k_cext.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** k_cext.c 29 Jun 2004 20:49:31 -0000 1.2 --- k_cext.c 8 Aug 2004 13:09:02 -0000 1.3 *************** *** 23,26 **** --- 23,28 ---- #include "k_cext.h" + #include <ctype.h> + static char *version = "k_cext v0.3.0, written by Kjetil S. Matheussen, k.s.matheussen(a)notam02.no\n" Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/k_cext/Makefile,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Makefile 8 Jan 2004 14:55:24 -0000 1.1 --- Makefile 8 Aug 2004 13:09:01 -0000 1.2 *************** *** 12,23 **** .SUFFIXES: .dll ! PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo /DINCLUDEPATH=\"c:\\programme\\audio\\pd\" ! PDNTINCLUDE = /I. /Ic:\programme\audio\pd\src ! PDNTLIB = libc.lib oldnames.lib kernel32.lib c:\programme\audio\pd\bin\pd.lib .c.dll: - cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c k_cext_win.c cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c link /dll /export:$(CSYM)_setup $*.obj k_cext_win.obj $(PDNTLIB) --- 12,23 ---- .SUFFIXES: .dll ! PDNTCFLAGS = /W3 /DNT /DPD /nologo /DINCLUDEPATH=\"D:\\sourcescvs\\pd\" ! PDNTINCLUDE = /I. /ID:\sourcescvs\pd\src ! PDNTLIB = libc.lib oldnames.lib kernel32.lib "C:\Pure Data\bin\pd.lib" .c.dll: cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c + cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c k_cext_win.c link /dll /export:$(CSYM)_setup $*.obj k_cext_win.obj $(PDNTLIB)

1 0

externals/sc4pd/pd hpf.pd,NONE,1.1 lpf.pd,NONE,1.1 rhpf.pd,NONE,1.1 rlpf.pd,NONE,1.1
by Tim Blechmann 08 Aug '04

08 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27366/pd Added Files: hpf.pd lpf.pd rhpf.pd rlpf.pd Log Message: some filters --- NEW FILE: rlpf.pd --- #N canvas 0 0 450 300 10; #X obj 124 220 dac~; #X floatatom 224 81 5 0 0 0 - - -; #X obj 130 89 WhiteNoise~; #X msg 201 121 kfreq \$1; #X floatatom 294 81 5 0 0 0 - - -; #X msg 271 121 kradius \$1; #X obj 130 147 RLPF~ 440 0.5; #X connect 1 0 3 0; #X connect 2 0 6 0; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 6 0 0 1; --- NEW FILE: lpf.pd --- #N canvas 0 0 450 300 10; #X obj 124 220 dac~; #X floatatom 224 81 5 0 0 0 - - -; #X obj 130 89 WhiteNoise~; #X msg 201 121 kfreq \$1; #X obj 130 147 LPF~ 440; #X connect 1 0 3 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 4 0 0 0; #X connect 4 0 0 1; --- NEW FILE: rhpf.pd --- #N canvas 0 0 450 300 10; #X obj 124 220 dac~; #X floatatom 224 81 5 0 0 0 - - -; #X obj 130 89 WhiteNoise~; #X msg 201 121 kfreq \$1; #X floatatom 294 81 5 0 0 0 - - -; #X msg 271 121 kradius \$1; #X obj 130 147 RHPF~ 10000 0; #X connect 1 0 3 0; #X connect 2 0 6 0; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 6 0 0 1; --- NEW FILE: hpf.pd --- #N canvas 0 0 450 300 10; #X obj 124 220 dac~; #X floatatom 224 81 5 0 0 0 - - -; #X obj 130 89 WhiteNoise~; #X msg 201 121 kfreq \$1; #X obj 130 147 HPF~ 10000; #X connect 1 0 3 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 4 0 0 0; #X connect 4 0 0 1;

1 0

externals/sc4pd/source HPF.cpp,NONE,1.1 LPF.cpp,NONE,1.1 RHPF.cpp,NONE,1.1 RLPF.cpp,NONE,1.1 SOS.cpp,1.1,1.2 main.cpp,1.23,1.24 support.hpp,1.7,1.8
by Tim Blechmann 08 Aug '04

08 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27366/source Modified Files: SOS.cpp main.cpp support.hpp Added Files: HPF.cpp LPF.cpp RHPF.cpp RLPF.cpp Log Message: some filters Index: support.hpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/support.hpp,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** support.hpp 3 Aug 2004 17:51:51 -0000 1.7 --- support.hpp 8 Aug 2004 11:10:30 -0000 1.8 *************** *** 123,126 **** --- 123,135 ---- #define SIGFUN(FUN) &thisType::FUN + #undef F + #undef D + #undef I + #undef L + #undef C + #undef V + #undef BL + #undef S + #endif Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** main.cpp 7 Aug 2004 22:56:22 -0000 1.23 --- main.cpp 8 Aug 2004 11:10:30 -0000 1.24 *************** *** 65,69 **** " AllpassC~, PitchShift~, Resonz~, OnePole(~), OneZero(~), " "TwoPole~, \n" ! " TwoZero~, FOS(~), SOS~" "\n" ); --- 65,69 ---- " AllpassC~, PitchShift~, Resonz~, OnePole(~), OneZero(~), " "TwoPole~, \n" ! " TwoZero~, FOS(~), SOS~, RLPF~, RHPF~, LPF~, HPF~" "\n" ); *************** *** 250,253 **** --- 250,261 ---- FLEXT_DSP_SETUP(SOS_ar); + + FLEXT_DSP_SETUP(RLPF_ar); + + FLEXT_DSP_SETUP(RHPF_ar); + + FLEXT_DSP_SETUP(LPF_ar); + + FLEXT_DSP_SETUP(HPF_ar); } --- NEW FILE: LPF.cpp --- /* sc4pd LPF~ Copyright (c) 2004 Tim Blechmann. This code is derived from: SuperCollider real time audio synthesis system Copyright (c) 2002 James McCartney. All rights reserved. http://www.audiosynth.com 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. http://www.crca.ucsd.edu/~msp/software.html FLEXT by Thomas Grill http://www.parasitaere-kapazitaeten.net/ext SuperCollider by James McCartney http://www.audiosynth.com Coded while listening to: Peter Kowald & Tatsuya Nakatani: 13 Definitions of Truth */ #include "sc4pd.hpp" /* ------------------------ LPF~ -------------------------------*/ class LPF_ar: public sc4pd_dsp { FLEXT_HEADER(LPF_ar,sc4pd_dsp); public: LPF_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); virtual void m_dsp(int n, t_sample *const *in, t_sample *const *out) { mRadiansPerSample = sc_radianspersample(); mFilterSlope = sc_filterslope(); mFilterLoops = sc_filterloops(); mFilterRemain = sc_filterremain(); } void m_set_freq(float f) { m_freq=f; changed = true; } private: float m_y1, m_y2, m_a0, m_b1, m_b2, m_freq; bool changed; float mRadiansPerSample, mFilterSlope; int mFilterLoops, mFilterRemain; FLEXT_CALLBACK_F(m_set_freq); }; FLEXT_LIB_DSP_V("LPF~",LPF_ar); LPF_ar::LPF_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"kfreq",m_set_freq); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); changed = true; AddOutSignal(); m_a0 = 0.f; m_b1 = 0.f; m_b2 = 0.f; m_y1 = 0.f; m_y2 = 0.f; } void LPF_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float y0; float y1 = m_y1; float y2 = m_y2; float a0 = m_a0; float b1 = m_b1; float b2 = m_b2; if (changed) { float pfreq = m_freq * mRadiansPerSample * 0.5; float C = 1.f / tan(pfreq); float C2 = C * C; float sqrt2C = C * sqrt2; float next_a0 = 1.f / (1.f + sqrt2C + C2); float next_b1 = -2.f * (1.f - C2) * next_a0 ; float next_b2 = -(1.f - sqrt2C + C2) * next_a0; float a0_slope = (next_a0 - a0) * mFilterSlope; float b1_slope = (next_b1 - b1) * mFilterSlope; float b2_slope = (next_b2 - b2) * mFilterSlope; for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 + 2.f * y1 + y2); y2 = ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = a0 * (y2 + 2.f * y0 + y1); y1 = ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = a0 * (y1 + 2.f * y2 + y0); a0 += a0_slope; b1 += b1_slope; b2 += b2_slope; } for (int i = 0; i!= mFilterRemain;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 + 2.f * y1 + y2); y2 = y1; y1 = y0; } m_a0 = a0; m_b1 = b1; m_b2 = b2; changed = false; } else { for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 + 2.f * y1 + y2); y2 = ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = a0 * (y2 + 2.f * y0 + y1); y1 = ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = a0 * (y1 + 2.f * y2 + y0); } for (int i = 0; i!= mFilterRemain;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 + 2.f * y1 + y2); y2 = y1; y1 = y0; } } m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); } /* no control rate LPF filter */ --- NEW FILE: HPF.cpp --- /* sc4pd HPF~ Copyright (c) 2004 Tim Blechmann. This code is derived from: SuperCollider real time audio synthesis system Copyright (c) 2002 James McCartney. All rights reserved. http://www.audiosynth.com 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. http://www.crca.ucsd.edu/~msp/software.html FLEXT by Thomas Grill http://www.parasitaere-kapazitaeten.net/ext SuperCollider by James McCartney http://www.audiosynth.com Coded while listening to: Peter Kowald & Tatsuya Nakatani: 13 Definitions of Truth */ #include "sc4pd.hpp" /* ------------------------ HPF~ -------------------------------*/ class HPF_ar: public sc4pd_dsp { FLEXT_HEADER(HPF_ar,sc4pd_dsp); public: HPF_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); virtual void m_dsp(int n, t_sample *const *in, t_sample *const *out) { mRadiansPerSample = sc_radianspersample(); mFilterSlope = sc_filterslope(); mFilterLoops = sc_filterloops(); mFilterRemain = sc_filterremain(); } void m_set_freq(float f) { m_freq=f; changed = true; } private: float m_y1, m_y2, m_a0, m_b1, m_b2, m_freq; bool changed; float mRadiansPerSample, mFilterSlope; int mFilterLoops, mFilterRemain; FLEXT_CALLBACK_F(m_set_freq); }; FLEXT_LIB_DSP_V("HPF~",HPF_ar); HPF_ar::HPF_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"kfreq",m_set_freq); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); changed = true; AddOutSignal(); m_a0 = 0.f; m_b1 = 0.f; m_b2 = 0.f; m_y1 = 0.f; m_y2 = 0.f; } void HPF_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float y0; float y1 = m_y1; float y2 = m_y2; float a0 = m_a0; float b1 = m_b1; float b2 = m_b2; if (changed) { float pfreq = m_freq * mRadiansPerSample * 0.5; float C = tan(pfreq); float C2 = C * C; float sqrt2C = C * sqrt2; float next_a0 = 1.f / (1.f + sqrt2C + C2); float next_b1 = 2.f * (1.f - C2) * next_a0 ; float next_b2 = -(1.f - sqrt2C + C2) * next_a0; float a0_slope = (next_a0 - a0) * mFilterSlope; float b1_slope = (next_b1 - b1) * mFilterSlope; float b2_slope = (next_b2 - b2) * mFilterSlope; for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 - 2.f * y1 + y2); y2 = ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = a0 * (y2 - 2.f * y0 + y1); y1 = ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = a0 * (y1 - 2.f * y2 + y0); a0 += a0_slope; b1 += b1_slope; b2 += b2_slope; } for (int i = 0; i!= mFilterRemain;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 - 2.f * y1 + y2); y2 = y1; y1 = y0; } m_a0 = a0; m_b1 = b1; m_b2 = b2; changed = false; } else { for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 - 2.f * y1 + y2); y2 = ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = a0 * (y2 - 2.f * y0 + y1); y1 = ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = a0 * (y1 - 2.f * y2 + y0); } for (int i = 0; i!= mFilterRemain;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * (y0 - 2.f * y1 + y2); y2 = y1; y1 = y0; } } m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); } /* no control rate HPF filter */ --- NEW FILE: RHPF.cpp --- /* sc4pd RHPF~ Copyright (c) 2004 Tim Blechmann. This code is derived from: SuperCollider real time audio synthesis system Copyright (c) 2002 James McCartney. All rights reserved. http://www.audiosynth.com 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. http://www.crca.ucsd.edu/~msp/software.html FLEXT by Thomas Grill http://www.parasitaere-kapazitaeten.net/ext SuperCollider by James McCartney http://www.audiosynth.com Coded while listening to: Peter Kowald & Tatsuya Nakatani: 13 Definitions of Truth */ #include "sc4pd.hpp" /* ------------------------ RHPF~ -------------------------------*/ class RHPF_ar: public sc4pd_dsp { FLEXT_HEADER(RHPF_ar,sc4pd_dsp); public: RHPF_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); virtual void m_dsp(int n, t_sample *const *in, t_sample *const *out) { mRadiansPerSample = sc_radianspersample(); mFilterSlope = sc_filterslope(); mFilterLoops = sc_filterloops(); mFilterRemain = sc_filterremain(); } void m_set_freq(float f) { m_freq=f; changed = true; } void m_set_rq(float f) { m_reson=f; changed = true; } private: float m_y1, m_y2, m_a0, m_b1, m_b2, m_freq, m_reson; bool changed; float mRadiansPerSample, mFilterSlope; int mFilterLoops, mFilterRemain; FLEXT_CALLBACK_F(m_set_freq); FLEXT_CALLBACK_F(m_set_rq); }; FLEXT_LIB_DSP_V("RHPF~",RHPF_ar); RHPF_ar::RHPF_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"kfreq",m_set_freq); FLEXT_ADDMETHOD_(0,"krq",m_set_rq); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); m_reson = sc_getfloatarg(Args,1); changed = true; AddOutSignal(); m_a0 = 0.f; m_b1 = 0.f; m_b2 = 0.f; m_y1 = 0.f; m_y2 = 0.f; } void RHPF_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float y0; float y1 = m_y1; float y2 = m_y2; float a0 = m_a0; float b1 = m_b1; float b2 = m_b2; if (changed) { float qres = sc_max(0.001, m_reson); float pfreq = m_freq * mRadiansPerSample; float D = tan(pfreq * qres * 0.5); float C = ((1.f-D)/(1.f+D)); float cosf = cos(pfreq); float next_b1 = (1.f + C) * cosf; float next_b2 = -C; float next_a0 = (1.f + C + next_b1) * .25; float a0_slope = (next_a0 - a0) * mFilterSlope; float b1_slope = (next_b1 - b1) * mFilterSlope; float b2_slope = (next_b2 - b2) * mFilterSlope; for (int i = 0; i!= mFilterLoops;++i) { y0 = a0 * ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = y0 - 2.f * y1 + y2; y2 = a0 * ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = y2 - 2.f * y0 + y1; y1 = a0 * ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = y1 - 2.f * y2 + y0; a0 += a0_slope; b1 += b1_slope; b2 += b2_slope; } for (int i = 0; i!= mFilterRemain;++i) { y0 = a0 * ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = y0 - 2.f * y1 + y2; y2 = y1; y1 = y0; } m_a0 = a0; m_b1 = b1; m_b2 = b2; changed = false; } else { for (int i = 0; i!= mFilterLoops;++i) { y0 = a0 * ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = y0 - 2.f * y1 + y2; y2 = a0 * ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = y2 - 2.f * y0 + y1; y1 = a0 * ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = y1 - 2.f * y2 + y0; } for (int i = 0; i!= mFilterRemain;++i) { y0 = a0 * ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = y0 - 2.f * y1 + y2; y2 = y1; y1 = y0; } } m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); } /* no control rate RHPF filter */ Index: SOS.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/SOS.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SOS.cpp 7 Aug 2004 22:56:21 -0000 1.1 --- SOS.cpp 8 Aug 2004 11:10:30 -0000 1.2 *************** *** 144,148 **** if(sc_ar(Args)) { - SETSIGFUN(m_signal_fun,SIGFUN(m_signal_ar)); AddInSignal(); AddInSignal(); --- 144,147 ---- *************** *** 151,154 **** --- 150,154 ---- AddInSignal(); AddInSignal(); + SETSIGFUN(m_signal_fun,SIGFUN(m_signal_ar)); } else // if not given, use control rate *************** *** 191,196 **** ZXP(nout) = ZXP(a0) * y1 + ZXP(a1) * y2 + ZXP(a2) * y0; } ! ! for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + ZXP(b1) * y1 + ZXP(b2) * y2; --- 191,196 ---- ZXP(nout) = ZXP(a0) * y1 + ZXP(a1) * y2 + ZXP(a2) * y0; } ! ! for (int i = 0; i!= mFilterRemain;++i) { y0 = ZXP(nin) + ZXP(b1) * y1 + ZXP(b2) * y2; *************** *** 199,203 **** y1 = y0; } ! m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); --- 199,203 ---- y1 = y0; } ! m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); *************** *** 244,248 **** } ! for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; --- 244,248 ---- } ! for (int i = 0; i!= mFilterRemain;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; --- NEW FILE: RLPF.cpp --- /* sc4pd RLPF~ Copyright (c) 2004 Tim Blechmann. This code is derived from: SuperCollider real time audio synthesis system Copyright (c) 2002 James McCartney. All rights reserved. http://www.audiosynth.com 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. http://www.crca.ucsd.edu/~msp/software.html FLEXT by Thomas Grill http://www.parasitaere-kapazitaeten.net/ext SuperCollider by James McCartney http://www.audiosynth.com Coded while listening to: Peter Kowald & Tatsuya Nakatani: 13 Definitions of Truth */ #include "sc4pd.hpp" /* ------------------------ RLPF~ -------------------------------*/ class RLPF_ar: public sc4pd_dsp { FLEXT_HEADER(RLPF_ar,sc4pd_dsp); public: RLPF_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); virtual void m_dsp(int n, t_sample *const *in, t_sample *const *out) { mRadiansPerSample = sc_radianspersample(); mFilterSlope = sc_filterslope(); mFilterLoops = sc_filterloops(); mFilterRemain = sc_filterremain(); } void m_set_freq(float f) { m_freq=f; changed = true; } void m_set_rq(float f) { m_reson=f; changed = true; } private: float m_y1, m_y2, m_a0, m_b1, m_b2, m_freq, m_reson; bool changed; float mRadiansPerSample, mFilterSlope; int mFilterLoops, mFilterRemain; FLEXT_CALLBACK_F(m_set_freq); FLEXT_CALLBACK_F(m_set_rq); }; FLEXT_LIB_DSP_V("RLPF~",RLPF_ar); RLPF_ar::RLPF_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"kfreq",m_set_freq); FLEXT_ADDMETHOD_(0,"rq",m_set_rq); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); m_reson = sc_getfloatarg(Args,1); changed = true; AddOutSignal(); m_a0 = 0.f; m_b1 = 0.f; m_b2 = 0.f; m_y1 = 0.f; m_y2 = 0.f; } void RLPF_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float y0; float y1 = m_y1; float y2 = m_y2; float a0 = m_a0; float b1 = m_b1; float b2 = m_b2; if (changed) { float qres = sc_max(0.001, m_reson); float pfreq = m_freq * mRadiansPerSample; float D = tan(pfreq * qres * 0.5); float C = ((1.f-D)/(1.f+D)); float cosf = cos(pfreq); float next_b1 = (1.f + C) * cosf; float next_b2 = -C; float next_a0 = (1.f + C - next_b1) * .25; float a0_slope = (next_a0 - a0) * mFilterSlope; float b1_slope = (next_b1 - b1) * mFilterSlope; float b2_slope = (next_b2 - b2) * mFilterSlope; for (int i = 0; i!= mFilterLoops;++i) { y0 = a0 * ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = y0 + 2.f * y1 + y2; y2 = a0 * ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = y2 + 2.f * y0 + y1; y1 = a0 * ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = y1 + 2.f * y2 + y0; a0 += a0_slope; b1 += b1_slope; b2 += b2_slope; } for (int i = 0; i!= mFilterRemain;++i) { y0 = a0 * ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = y0 + 2.f * y1 + y2; y2 = y1; y1 = y0; } m_a0 = a0; m_b1 = b1; m_b2 = b2; changed = false; } else { for (int i = 0; i!= mFilterLoops;++i) { y0 = a0 * ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = y0 + 2.f * y1 + y2; y2 = a0 * ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = y2 + 2.f * y0 + y1; y1 = a0 * ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = y1 + 2.f * y2 + y0; } for (int i = 0; i!= mFilterRemain;++i) { y0 = a0 * ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = y0 + 2.f * y1 + y2; y2 = y1; y1 = y0; } } m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); } /* no control rate RLPF filter */

1 0

externals/sc4pd config-pd-linux.txt,1.7,1.8 make-files.txt,1.21,1.22
by Tim Blechmann 08 Aug '04

08 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27366 Modified Files: config-pd-linux.txt make-files.txt Log Message: some filters Index: config-pd-linux.txt =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/config-pd-linux.txt,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** config-pd-linux.txt 7 Aug 2004 22:56:21 -0000 1.7 --- config-pd-linux.txt 8 Aug 2004 11:10:29 -0000 1.8 *************** *** 2,6 **** # your c++ compiler (if not g++) ! # CXX=icc --- 2,6 ---- # your c++ compiler (if not g++) ! CXX=icc Index: make-files.txt =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/make-files.txt,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** make-files.txt 7 Aug 2004 22:56:21 -0000 1.21 --- make-files.txt 8 Aug 2004 11:10:29 -0000 1.22 *************** *** 14,16 **** DelayC.cpp CombN.cpp CombL.cpp CombC.cpp AllpassN.cpp AllpassL.cpp \ AllpassC.cpp PitchShift.cpp Resonz.cpp OnePole.cpp OneZero.cpp \ ! TwoPole.cpp TwoZero.cpp FOS.cpp SOS.cpp --- 14,17 ---- DelayC.cpp CombN.cpp CombL.cpp CombC.cpp AllpassN.cpp AllpassL.cpp \ AllpassC.cpp PitchShift.cpp Resonz.cpp OnePole.cpp OneZero.cpp \ ! TwoPole.cpp TwoZero.cpp FOS.cpp SOS.cpp RLPF.cpp RHPF.cpp LPF.cpp \ ! HPF.cpp

1 0

externals/grill/flext makefile.pd-linux,1.18,1.19
by Thomas Grill 08 Aug '04

08 Aug '04

Update of /cvsroot/pure-data/externals/grill/flext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3482 Modified Files: makefile.pd-linux Log Message: "" Index: makefile.pd-linux =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/makefile.pd-linux,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** makefile.pd-linux 23 Feb 2004 03:27:45 -0000 1.18 --- makefile.pd-linux 8 Aug 2004 02:37:16 -0000 1.19 *************** *** 33,37 **** # libraries # it seems like libstdc++ must be defined for icc.... ! LIBS=stdc++ # ---------------------------------------------- --- 33,38 ---- # libraries # it seems like libstdc++ must be defined for icc.... ! # LIBS=stdc++ ! # but it seems that's only true for older icc versions.... # ----------------------------------------------

1 0

externals/sc4pd/source TwoZero.cpp,NONE,1.1
by Tim Blechmann 08 Aug '04

08 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7310/source Added Files: TwoZero.cpp Log Message: --- NEW FILE: TwoZero.cpp --- /* sc4pd TwoZero~ Copyright (c) 2004 Tim Blechmann. This code is derived from: SuperCollider real time audio synthesis system Copyright (c) 2002 James McCartney. All rights reserved. http://www.audiosynth.com 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. http://www.crca.ucsd.edu/~msp/software.html FLEXT by Thomas Grill http://www.parasitaere-kapazitaeten.net/ext SuperCollider by James McCartney http://www.audiosynth.com Coded while listening to: VA: Insight */ #include "sc4pd.hpp" /* ------------------------ TwoZero~ -------------------------------*/ class TwoZero_ar: public sc4pd_dsp { FLEXT_HEADER(TwoZero_ar,sc4pd_dsp); public: TwoZero_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); virtual void m_dsp(int n, t_sample *const *in, t_sample *const *out) { mRadiansPerSample = sc_radianspersample(); mFilterSlope = sc_filterslope(); mFilterLoops = sc_filterloops(); mFilterRemain = sc_filterremain(); } void m_set_freq(float f) { m_freq=f; changed = true; } void m_set_radius(float f) { m_reson=f; changed = true; } private: float m_b1, m_b2, m_x1, m_x2, m_freq, m_reson; bool changed; float mRadiansPerSample, mFilterSlope; int mFilterLoops, mFilterRemain; FLEXT_CALLBACK_F(m_set_freq); FLEXT_CALLBACK_F(m_set_radius); }; FLEXT_LIB_DSP_V("TwoZero~",TwoZero_ar); TwoZero_ar::TwoZero_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"kfreq",m_set_freq); FLEXT_ADDMETHOD_(0,"kradius",m_set_radius); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); m_reson = sc_getfloatarg(Args,1); changed = false; AddOutSignal(); m_b1 = 0.f; m_b2 = 0.f; m_x1 = 0.f; m_x2 = 0.f; } void TwoZero_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float x0; float x1 = m_x1; float x2 = m_x2; if (changed) { float b1 = m_b1; float b2 = m_b2; float b1_next = -2.f * m_reson * cos(m_freq * mRadiansPerSample); float b2_next = (m_reson * m_reson); float b1_slope = (b1_next - b1) * mFilterSlope; float b2_slope = (b2_next - b2) * mFilterSlope; for (int i = 0; i!= mFilterLoops;++i) { x0 = ZXP(nin); ZXP(nout) = x0 + b1 * x1 + b2 * x2; x2 = ZXP(nin); ZXP(nout) = x2 + b1 * x0 + b2 * x1; x1 = ZXP(nin); ZXP(nout) = x1 + b1 * x2 + b2 * x0; b1 += b1_slope; b2 += b2_slope; } for (int i = 0; i!= mFilterRemain;++i) { x0 = ZXP(nin); ZXP(nout) = x0 + b1 * x1 + b2 * x2; x2 = x1; x1 = x0; } m_b1 = b1; m_b2 = b2; changed = false; } else { float b1 = m_b1; float b2 = m_b2; for (int i = 0; i!= mFilterLoops;++i) { x0 = ZXP(nin); ZXP(nout) = x0 + b1 * x1 + b2 * x2; x2 = ZXP(nin); ZXP(nout) = x2 + b1 * x0 + b2 * x1; x1 = ZXP(nin); ZXP(nout) = x1 + b1 * x2 + b2 * x0; } for (int i = 0; i!= mFilterRemain;++i) { x0 = ZXP(nin); ZXP(nout) = x0 + b1 * x1 + b2 * x2; x2 = x1; x1 = x0; } } m_x1 = x1; m_x2 = x2; } /* no control rate twozero filter */

1 0

externals/sc4pd/pd twozero.pd,NONE,1.1
by Tim Blechmann 08 Aug '04

08 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7310/pd Added Files: twozero.pd Log Message: --- NEW FILE: twozero.pd --- #N canvas 0 0 450 300 10; #X obj 124 220 dac~; #X floatatom 224 81 5 0 0 0 - - -; #X obj 130 89 WhiteNoise~; #X msg 201 121 kfreq \$1; #X floatatom 294 81 5 0 0 0 - - -; #X msg 271 121 kradius \$1; #X obj 130 160 TwoZero~ 440 0.5; #X connect 1 0 3 0; #X connect 2 0 6 0; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 6 0 0 1;

1 0

externals/sc4pd/source FOS.cpp,NONE,1.1 SOS.cpp,NONE,1.1 DelayUnit.cpp,1.4,1.5 DelayUnit.hpp,1.3,1.4 main.cpp,1.22,1.23
by Tim Blechmann 08 Aug '04

08 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7034/source Modified Files: DelayUnit.cpp DelayUnit.hpp main.cpp Added Files: FOS.cpp SOS.cpp Log Message: Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** main.cpp 7 Aug 2004 20:43:57 -0000 1.22 --- main.cpp 7 Aug 2004 22:56:22 -0000 1.23 *************** *** 63,69 **** " DelayL~, DelayC~, CombN~, CombL~, CombC~, AllpassN~, " "AllpassL~,\n" ! " AllpassC~, PitchShift~, Resonz~, OnePole(~), OneZero(~)" ! "TwoPole~" ! "\n" ); --- 63,69 ---- " DelayL~, DelayC~, CombN~, CombL~, CombC~, AllpassN~, " "AllpassL~,\n" ! " AllpassC~, PitchShift~, Resonz~, OnePole(~), OneZero(~), " ! "TwoPole~, \n" ! " TwoZero~, FOS(~), SOS~" "\n" ); *************** *** 243,246 **** --- 243,253 ---- FLEXT_DSP_SETUP(TwoPole_ar); + + FLEXT_DSP_SETUP(TwoZero_ar); + + FLEXT_DSP_SETUP(FOS_ar); + FLEXT_SETUP(FOS_kr); + + FLEXT_DSP_SETUP(SOS_ar); } Index: DelayUnit.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/DelayUnit.cpp,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** DelayUnit.cpp 7 Aug 2004 14:01:31 -0000 1.4 --- DelayUnit.cpp 7 Aug 2004 22:56:21 -0000 1.5 *************** *** 36,40 **** */ ! // #include "sc4pd.hpp" #include "DelayUnit.hpp" --- 36,40 ---- */ ! #include "sc4pd.hpp" #include "DelayUnit.hpp" --- NEW FILE: SOS.cpp --- /* sc4pd SOS~ Copyright (c) 2004 Tim Blechmann. This code is derived from: SuperCollider real time audio synthesis system Copyright (c) 2002 James McCartney. All rights reserved. http://www.audiosynth.com 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. http://www.crca.ucsd.edu/~msp/software.html FLEXT by Thomas Grill http://www.parasitaere-kapazitaeten.net/ext SuperCollider by James McCartney http://www.audiosynth.com Coded while listening to: Susie Ibarra & Assif Tsahar: Home Cookin' */ #include "sc4pd.hpp" /* ------------------------ SOS~ -------------------------------*/ class SOS_ar: public sc4pd_dsp { FLEXT_HEADER(SOS_ar,sc4pd_dsp); public: SOS_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out) { m_signal_fun(n,in,out); } virtual void m_dsp(int n, t_sample *const *in, t_sample *const *out) { mFilterLoops = sc_filterloops(); mFilterRemain = sc_filterremain(); mFilterSlope = sc_filterslope(); } void m_set_a0(float f) { next_a0=f; } void m_set_a1(float f) { next_a1=f; } void m_set_a2(float f) { next_a2=f; } void m_set_b1(float f) { next_b1=f; } void m_set_b2(float f) { next_b2=f; } void m_ar() { SETSIGFUN(m_signal_fun,SIGFUN(m_signal_ar)); } void m_kr() { SETSIGFUN(m_signal_fun,SIGFUN(m_signal_kr)); } private: float next_a0, next_a1, next_a2, next_b1, next_b2; float m_y1, m_y2, m_a0, m_a1, m_a2, m_b1, m_b2; float mFilterSlope; int mFilterLoops, mFilterRemain; DEFSIGCALL (m_signal_fun); DEFSIGFUN (m_signal_ar); DEFSIGFUN (m_signal_kr); FLEXT_CALLBACK_F(m_set_a0); FLEXT_CALLBACK_F(m_set_a1); FLEXT_CALLBACK_F(m_set_a2); FLEXT_CALLBACK_F(m_set_b1); FLEXT_CALLBACK_F(m_set_b2); FLEXT_CALLBACK(m_ar); FLEXT_CALLBACK(m_kr); }; FLEXT_LIB_DSP_V("SOS~",SOS_ar); SOS_ar::SOS_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"a0",m_set_a0); FLEXT_ADDMETHOD_(0,"a1",m_set_a1); FLEXT_ADDMETHOD_(0,"a2",m_set_a2); FLEXT_ADDMETHOD_(0,"b1",m_set_b1); FLEXT_ADDMETHOD_(0,"b2",m_set_b2); FLEXT_ADDMETHOD_(0,"ar",m_ar); FLEXT_ADDMETHOD_(0,"kr",m_kr); //parse arguments AtomList Args(argc,argv); if (Args.Count()<5) { post("needs at least 5 arguments"); return; } m_a0 = sc_getfloatarg(Args,0); m_a1 = sc_getfloatarg(Args,1); m_a2 = sc_getfloatarg(Args,2); m_b1 = sc_getfloatarg(Args,3); m_b2 = sc_getfloatarg(Args,4); if(sc_ar(Args)) { SETSIGFUN(m_signal_fun,SIGFUN(m_signal_ar)); AddInSignal(); AddInSignal(); AddInSignal(); AddInSignal(); AddInSignal(); AddInSignal(); } else // if not given, use control rate SETSIGFUN(m_signal_fun,SIGFUN(m_signal_kr)); AddOutSignal(); m_y1 = 0.f; m_a0 = 0.f; m_a1 = 0.f; m_a2 = 0.f; m_b1 = 0.f; m_b2 = 0.f; } void SOS_ar::m_signal_ar(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float *a0 = *(in+1); float *a1 = *(in+2); float *a2 = *(in+3); float *b1 = *(in+4); float *b2 = *(in+5); float y0; float y1 = m_y1; float y2 = m_y2; for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + ZXP(b1) * y1 + ZXP(b2) * y2; ZXP(nout) = ZXP(a0) * y0 + ZXP(a1) * y1 + ZXP(a2) * y2; y2 = ZXP(nin) + ZXP(b1) * y0 + ZXP(b2) * y1; ZXP(nout) = ZXP(a0) * y2 + ZXP(a1) * y0 + ZXP(a2) * y1; y1 = ZXP(nin) + ZXP(b1) * y2 + ZXP(b2) * y0; ZXP(nout) = ZXP(a0) * y1 + ZXP(a1) * y2 + ZXP(a2) * y0; } for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + ZXP(b1) * y1 + ZXP(b2) * y2; ZXP(nout) = ZXP(a0) * y0 + ZXP(a1) * y1 + ZXP(a2) * y2; y2 = y1; y1 = y0; } m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); } void SOS_ar::m_signal_kr(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float y0; float y1 = m_y1; float y2 = m_y2; float a0 = m_a0; float a1 = m_a1; float a2 = m_a2; float b1 = m_b1; float b2 = m_b2; float a0_slope = (next_a0 - a0) * mFilterSlope; float a1_slope = (next_a1 - a1) * mFilterSlope; float a2_slope = (next_a2 - a2) * mFilterSlope; float b1_slope = (next_b1 - b1) * mFilterSlope; float b2_slope = (next_b2 - b2) * mFilterSlope; for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * y0 + a1 * y1 + a2 * y2; y2 = ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = a0 * y2 + a1 * y0 + a2 * y1; y1 = ZXP(nin) + b1 * y2 + b2 * y0; ZXP(nout) = a0 * y1 + a1 * y2 + a2 * y0; a0 += a0_slope; a1 += a1_slope; a2 += a2_slope; b1 += b1_slope; b2 += b2_slope; } for (int i = 0; i!= mFilterLoops;++i) { y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = a0 * y0 + a1 * y1 + a2 * y2; y2 = y1; y1 = y0; } m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); } /* no kr SOS */ Index: DelayUnit.hpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/DelayUnit.hpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** DelayUnit.hpp 7 Aug 2004 14:01:31 -0000 1.3 --- DelayUnit.hpp 7 Aug 2004 22:56:21 -0000 1.4 *************** *** 36,40 **** */ ! #include "sc4pd.hpp" class DelayUnit_ar --- 36,40 ---- */ ! //#include "sc4pd.hpp" class DelayUnit_ar --- NEW FILE: FOS.cpp --- /* sc4pd FOS, FOS~ Copyright (c) 2004 Tim Blechmann. This code is derived from: SuperCollider real time audio synthesis system Copyright (c) 2002 James McCartney. All rights reserved. http://www.audiosynth.com 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. http://www.crca.ucsd.edu/~msp/software.html FLEXT by Thomas Grill http://www.parasitaere-kapazitaeten.net/ext SuperCollider by James McCartney http://www.audiosynth.com Coded while listening to: Susie Ibarra & Assif Tsahar: Home Cookin' */ #include "sc4pd.hpp" /* ------------------------ FOS~ -------------------------------*/ class FOS_ar: public sc4pd_dsp { FLEXT_HEADER(FOS_ar,sc4pd_dsp); public: FOS_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out) { m_signal_fun(n,in,out); } void m_set_a0(float f) { next_a0=f; } void m_set_a1(float f) { next_a1=f; } void m_set_b1(float f) { next_b1=f; } void m_ar() { SETSIGFUN(m_signal_fun,SIGFUN(m_signal_ar)); } void m_kr() { SETSIGFUN(m_signal_fun,SIGFUN(m_signal_kr)); } private: float next_a0, next_a1, next_b1; float m_y1, m_a0, m_a1, m_b1; DEFSIGCALL (m_signal_fun); DEFSIGFUN (m_signal_ar); DEFSIGFUN (m_signal_kr); FLEXT_CALLBACK_F(m_set_a0); FLEXT_CALLBACK_F(m_set_a1); FLEXT_CALLBACK_F(m_set_b1); FLEXT_CALLBACK(m_ar); FLEXT_CALLBACK(m_kr); }; FLEXT_LIB_DSP_V("FOS~",FOS_ar); FOS_ar::FOS_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"a0",m_set_a0); FLEXT_ADDMETHOD_(0,"a1",m_set_a1); FLEXT_ADDMETHOD_(0,"b1",m_set_b1); FLEXT_ADDMETHOD_(0,"ar",m_ar); FLEXT_ADDMETHOD_(0,"kr",m_kr); //parse arguments AtomList Args(argc,argv); if (Args.Count()<3) { post("needs at least 3 arguments"); return; } m_a0 = sc_getfloatarg(Args,0); m_a1 = sc_getfloatarg(Args,1); m_b1 = sc_getfloatarg(Args,2); if(sc_ar(Args)) { SETSIGFUN(m_signal_fun,SIGFUN(m_signal_ar)); AddInSignal(); AddInSignal(); AddInSignal(); AddInSignal(); } else // if not given, use control rate SETSIGFUN(m_signal_fun,SIGFUN(m_signal_kr)); AddOutSignal(); m_y1 = 0.f; m_a0 = 0.f; m_a1 = 0.f; m_b1 = 0.f; } void FOS_ar::m_signal_ar(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float *a0 = *(in+1); float *a1 = *(in+2); float *b1 = *(in+3); float y1 = m_y1; for (int i = 0; i!= n;++i) { float y0 = ZXP(nin) + ZXP(b1) * y1; ZXP(nout) = ZXP(a0) * y0 + ZXP(a1) * y1; y1 = y0; } m_y1 = zapgremlins(y1); } void FOS_ar::m_signal_kr(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float y1 = m_y1; float a0 = m_a0; float a1 = m_a1; float b1 = m_b1; float a0_slope = CALCSLOPE(next_a0, a0); float a1_slope = CALCSLOPE(next_a1, a1); float b1_slope = CALCSLOPE(next_b1, b1); for (int i = 0; i!= n;++i) { float y0 = ZXP(nin) + b1 * y1; ZXP(nout) = a0 * y0 + a1 * y1; y1 = y0; a0 += a0_slope; a1 += a1_slope; b1 += b1_slope; } } /* ------------------------ FOS ---------------------------------*/ class FOS_kr: public flext_base { FLEXT_HEADER(FOS_kr,flext_base); public: FOS_kr(int argc, t_atom *argv); protected: void m_perform(float f); void m_set_a0(float f) { m_a0=f; } void m_set_a1(float f) { m_a1=f; } void m_set_b1(float f) { m_b1=f; } private: float m_y1, m_a0, m_a1, m_b1; FLEXT_CALLBACK_F(m_set_a0); FLEXT_CALLBACK_F(m_set_a1); FLEXT_CALLBACK_F(m_set_b1); FLEXT_CALLBACK_F(m_perform); }; FLEXT_LIB_V("FOS",FOS_kr); FOS_kr::FOS_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD(0,m_perform); FLEXT_ADDMETHOD_(0,"a0",m_set_a0); FLEXT_ADDMETHOD_(0,"a1",m_set_a1); FLEXT_ADDMETHOD_(0,"b1",m_set_b1); AddOutFloat(); //parse arguments AtomList Args(argc,argv); if (Args.Count()!=3) { post("needs 3 arguments"); return; } m_a0 = sc_getfloatarg(Args,0); m_a1 = sc_getfloatarg(Args,1); m_b1 = sc_getfloatarg(Args,2); m_y1 = 0.f; m_a0 = 0.f; m_a1 = 0.f; m_b1 = 0.f; } void FOS_kr::m_perform(float f) { m_y1 = m_a0 * (f + m_b1 * m_y1) + m_a1 * m_y1; ToOutFloat(0,m_y1); }

1 0

externals/sc4pd/pd fos.pd,NONE,1.1 sos.pd,NONE,1.1
by Tim Blechmann 08 Aug '04

08 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7034/pd Added Files: fos.pd sos.pd Log Message: --- NEW FILE: fos.pd --- #N canvas 0 0 539 300 10; #X obj 12 159 dac~; #X floatatom 112 20 5 0 0 0 - - -; #X obj 18 28 WhiteNoise~; #X obj 37 269 dac~; #X obj 95 174 Dust~ 444; #X obj 18 86 FOS~ 0.3 0.3 0.3; #X msg 89 60 a0 \$1; #X floatatom 161 20 5 0 0 0 - - -; #X msg 138 60 a1 \$1; #X floatatom 215 20 5 0 0 0 - - -; #X msg 192 60 b1 \$1; #X obj 46 229 FOS~ 0.3 0.3 0.3 ar; #X floatatom 374 26 5 0 0 0 - - -; #X msg 351 66 a0 \$1; #X floatatom 423 26 5 0 0 0 - - -; #X msg 400 66 a1 \$1; #X floatatom 477 26 5 0 0 0 - - -; #X msg 454 66 b1 \$1; #X obj 280 92 FOS 0.3 0.3 0.3; #X floatatom 282 129 5 0 0 0 - - -; #X floatatom 283 36 5 0 0 0 - - -; #X connect 1 0 6 0; #X connect 2 0 5 0; #X connect 4 0 11 1; #X connect 4 0 11 0; #X connect 4 0 11 2; #X connect 4 0 11 3; #X connect 5 0 0 0; #X connect 5 0 0 1; #X connect 6 0 5 0; #X connect 7 0 8 0; #X connect 8 0 5 0; #X connect 9 0 10 0; #X connect 10 0 5 0; #X connect 11 0 3 0; #X connect 11 0 3 1; #X connect 12 0 13 0; #X connect 13 0 18 0; #X connect 14 0 15 0; #X connect 15 0 18 0; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 20 0 18 0; --- NEW FILE: sos.pd --- #N canvas 0 0 539 300 10; #X obj 12 159 dac~; #X floatatom 112 20 5 0 0 0 - - -; #X obj 18 28 WhiteNoise~; #X obj 90 262 dac~; #X obj 206 145 Dust~ 444; #X msg 89 60 a0 \$1; #X floatatom 161 20 5 0 0 0 - - -; #X msg 138 60 a1 \$1; #X floatatom 262 20 5 0 0 0 - - -; #X msg 239 60 b1 \$1; #X obj 18 87 SOS~ 0.3 0.3 0.3 0.3 0.3; #X floatatom 212 20 5 0 0 0 - - -; #X floatatom 313 20 5 0 0 0 - - -; #X msg 189 60 a2 \$1; #X msg 290 60 b2 \$1; #X obj 85 208 SOS~ 0.3 0.3 0.3 0.3 0.3 ar; #X connect 1 0 5 0; #X connect 2 0 10 0; #X connect 4 0 15 0; #X connect 4 0 15 1; #X connect 4 0 15 2; #X connect 4 0 15 3; #X connect 4 0 15 4; #X connect 4 0 15 5; #X connect 5 0 10 0; #X connect 6 0 7 0; #X connect 7 0 10 0; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 0 0; #X connect 10 0 0 1; #X connect 11 0 13 0; #X connect 12 0 14 0; #X connect 13 0 10 0; #X connect 14 0 10 0; #X connect 15 0 3 1; #X connect 15 0 3 0;

1 0

← Newer
1
...
10
11
12
13
14
15
16
17
18
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs August 2004