Pd-cvs August 2004

pd-cvs@lists.iem.at

10 participants
171 discussions

externals/k_cext help-string.pd,NONE,1.1 k_cext_generatecode.c,1.2,1.3
by Kjetil S. Matheussen 09 Aug '04

09 Aug '04

Update of /cvsroot/pure-data/externals/k_cext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3569 Modified Files: k_cext_generatecode.c Added Files: help-string.pd Log Message: Fixed strings. Index: k_cext_generatecode.c =================================================================== RCS file: /cvsroot/pure-data/externals/k_cext/k_cext_generatecode.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** k_cext_generatecode.c 11 Jan 2004 15:25:09 -0000 1.2 --- k_cext_generatecode.c 9 Aug 2004 13:55:42 -0000 1.3 *************** *** 194,201 **** case A_SYMBOL: sprintf(string,"%s",atom_getsymbolarg(i,argc,argv)->s_name); if(!strcmp(".",string)){ sprintf(string," "); k->indentation++; ! }else{if(!strcmp("DO",string)){ k->set_indentation[k->indentation]=1; --- 194,219 ---- case A_SYMBOL: sprintf(string,"%s",atom_getsymbolarg(i,argc,argv)->s_name); + + printf("string: \"%s\"\n",string); + + if(strstr(string,"s<")!=NULL){ + char *pos=strstr(string,"s<"); + pos[0]=' '; + pos[1]='\"'; + printf("japp\n"); + } + + if(strstr(string,">s")!=NULL){ + char *pos=strstr(string,">s"); + pos[0]='\"'; + pos[1]=' '; + printf("japp2n"); + } + if(!strcmp(".",string)){ sprintf(string," "); k->indentation++; ! ! }else{if(!strcmp("DO",string)){ k->set_indentation[k->indentation]=1; *************** *** 254,257 **** --- 272,276 ---- } } + fprintf(k->file,"%s",string); if(string[strlen(string)-1]!='\n') fprintf(k->file," "); --- NEW FILE: help-string.pd --- #N canvas 0 0 450 300 10; #X msg 31 84 bang; #X obj 30 125 k_cext \; system(s<echo something>s) \;; #X text 26 40 Strings are started with s< and ended with >s; #X connect 0 0 1 0;

1 0

externals/k_cext README,1.1,1.2
by Kjetil S. Matheussen 09 Aug '04

09 Aug '04

Update of /cvsroot/pure-data/externals/k_cext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3374 Modified Files: README Log Message: Updated FAQ and CHANGES (0.3.0->0.3.1) Index: README =================================================================== RCS file: /cvsroot/pure-data/externals/k_cext/README,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** README 8 Jan 2004 14:55:24 -0000 1.1 --- README 9 Aug 2004 13:54:28 -0000 1.2 *************** *** 162,165 **** --- 162,169 ---- ". "'s at the beginning of lines before compiling the code. + strings - + It does not seem to be possible to write "'s anymore in PD. + The workaround is to define strings like this: s<thisisastring>s + More macros are defined in the k_cext.h header file. *************** *** 184,187 **** --- 188,195 ---- external. So you have to make it yourself. + Q: k_func does not work with Visual C. + A: Visual C does not have a varargs macro. Send complains to Microsoft. + + CHANGES *************** *** 189,197 **** -Works with VisualC. (0.3.0 didn't): -Workaround for missing variable number of argument macros in VisualC, (which is not a gcc ! extension, by the way, but a part of the iso99 c-standard). -Workaround for missing stdbool.h file in VisualC. (also a part of the iso99 c-standard) ! (code by Thomas Grill) -Workaround for missing static <something> <something>[] in VisualC. -Fixed a variable which was not defined at the beginning of the function. (Thomas Grill) 0.2.5 -> 0.3.0: --- 197,210 ---- -Works with VisualC. (0.3.0 didn't): -Workaround for missing variable number of argument macros in VisualC, (which is not a gcc ! extension, by the way, but a part of the iso99 c-standard). (Does not work) -Workaround for missing stdbool.h file in VisualC. (also a part of the iso99 c-standard) ! (Thomas Grill) -Workaround for missing static <something> <something>[] in VisualC. -Fixed a variable which was not defined at the beginning of the function. (Thomas Grill) + -Added macros to bang outlet and to access values (Tim Blechman) + -Support for $0 values. (Tim Blechmann) + -Some changes to k_cext to link with functions defined in k_cext, which wasn't possible + before. (for Windows). (Tim Blechmann) + -Added code to make it possible to use strings again. See help-strings.pd. 0.2.5 -> 0.3.0:

1 0

externals/ggee/signal streamin~.c,1.3,1.4
by Guenter Geiger 09 Aug '04

09 Aug '04

Update of /cvsroot/pure-data/externals/ggee/signal In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26297 Modified Files: streamin~.c Log Message: Fixed problem when loosing connection under windows Index: streamin~.c =================================================================== RCS file: /cvsroot/pure-data/externals/ggee/signal/streamin~.c,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** streamin~.c 5 Mar 2003 21:14:21 -0000 1.3 --- streamin~.c 9 Aug 2004 12:52:25 -0000 1.4 *************** *** 142,146 **** if (x->nbytes == 0) { /* get the new tag */ ret = recv(x->x_socket, (char*) &x->frames[x->framein].tag,sizeof(t_tag),MSG_PEEK); ! if (ret != sizeof(t_tag)) return; ret = recv(x->x_socket, (char*) &x->frames[x->framein].tag,sizeof(t_tag),0); --- 142,153 ---- if (x->nbytes == 0) { /* get the new tag */ ret = recv(x->x_socket, (char*) &x->frames[x->framein].tag,sizeof(t_tag),MSG_PEEK); ! if (ret != sizeof(t_tag)) { ! #ifdef NT ! sys_closesocket(x->x_socket); ! sys_rmpollfn(x->x_socket); ! x->x_socket = -1; ! #endif ! return; ! } ret = recv(x->x_socket, (char*) &x->frames[x->framein].tag,sizeof(t_tag),0);

1 0

externals/k_cext Makefile,1.2,1.3 k_cext_win.c,1.2,1.3
by Tim Blechmann 09 Aug '04

09 Aug '04

Update of /cvsroot/pure-data/externals/k_cext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5556 Modified Files: Makefile 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.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** k_cext_win.c 8 Aug 2004 13:09:02 -0000 1.2 --- k_cext_win.c 9 Aug 2004 10:52:18 -0000 1.3 *************** *** 87,91 **** 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); } --- 87,91 ---- void k_sys_makecompilestring(char *to,char *name,char *funcname){ ! sprintf(to,"cl %s " INCLUDEPATH "\\bin\\pd.lib " INCLUDEPATH "\\extra\\k_cext.lib /LD /Gd /GD /Ox /DNT /link /export:%s", name, funcname); } Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/k_cext/Makefile,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Makefile 8 Aug 2004 13:09:01 -0000 1.2 --- Makefile 9 Aug 2004 10:52:18 -0000 1.3 *************** *** 12,16 **** .SUFFIXES: .dll ! PDNTCFLAGS = /W3 /DNT /DPD /nologo /DINCLUDEPATH=\"D:\\sourcescvs\\pd\" PDNTINCLUDE = /I. /ID:\sourcescvs\pd\src --- 12,16 ---- .SUFFIXES: .dll ! PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo /DINCLUDEPATH=\"D:\\sourcescvs\\pd\" PDNTINCLUDE = /I. /ID:\sourcescvs\pd\src

1 0

externals/sc4pd/source BPZ2.cpp,NONE,1.1 BRZ2.cpp,NONE,1.1 HPZ1.cpp,NONE,1.1 HPZ2.cpp,NONE,1.1 LPZ1.cpp,NONE,1.1 LPZ2.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-serv20408/source Added Files: BPZ2.cpp BRZ2.cpp HPZ1.cpp HPZ2.cpp LPZ1.cpp LPZ2.cpp Log Message: some filters --- NEW FILE: BPZ2.cpp --- /* sc4pd BPZ2~ 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: William Parker: Compassion Seizes Bed-Stuy */ #include "sc4pd.hpp" /* ------------------------ BPZ2~ -------------------------------*/ class BPZ2_ar: public sc4pd_dsp { FLEXT_HEADER(BPZ2_ar,sc4pd_dsp); public: BPZ2_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) { mFilterLoops=sc_filterloops(); mFilterRemain=sc_filterremain(); } private: float m_x1, m_x2; int mFilterLoops, mFilterRemain; }; FLEXT_LIB_DSP_V("BPZ2~",BPZ2_ar); BPZ2_ar::BPZ2_ar(int argc, t_atom *argv) { AddOutSignal(); m_x1=0; m_x2=0; } void BPZ2_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; for (int i = 0; i!=mFilterLoops ;++i) { x0 = ZXP(nin); ZXP(nout) = (x0 - x2) * 0.5f; x2 = ZXP(nin); ZXP(nout) = (x2 - x1) * 0.5f; x1 = ZXP(nin); ZXP(nout) = (x1 - x0) * 0.5f; } for (int i = 0; i!= mFilterRemain;++i) { x0 = ZXP(nin); ZXP(nout) = (x0 - x2) * 0.5f; x2 = x1; x1 = x0; } m_x1 = x1; m_x2 = x2; } /* ------------------------ BPZ2 -------------------------------*/ class BPZ2_kr: public flext_base { FLEXT_HEADER(BPZ2_kr,flext_base); public: BPZ2_kr(int argc, t_atom *argv); protected: void m_perform (float f); private: float m_x1; float m_x2; FLEXT_CALLBACK_F(m_perform); }; FLEXT_LIB_V("BPZ2",BPZ2_kr); BPZ2_kr::BPZ2_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD(0,m_perform); AddOutFloat(); m_x2 = m_x1 = 0; } void BPZ2_kr::m_perform(float f) { ToOutFloat(0,(f - m_x2) * 0.5f); m_x2=m_x1; m_x1=f; } --- NEW FILE: LPZ1.cpp --- /* sc4pd LPZ1~ 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: William Parker: Compassion Seizes Bed-Stuy */ #include "sc4pd.hpp" /* ------------------------ LPZ1~ -------------------------------*/ class LPZ1_ar: public sc4pd_dsp { FLEXT_HEADER(LPZ1_ar,sc4pd_dsp); public: LPZ1_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); private: float m_x1; }; FLEXT_LIB_DSP_V("LPZ1~",LPZ1_ar); LPZ1_ar::LPZ1_ar(int argc, t_atom *argv) { AddOutSignal(); m_x1=0; } void LPZ1_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; int t = n >> 2; for (int i = 0; i!= t;++i) { x0 = ZXP(nin); ZXP(nout) = 0.5f * (x0 + x1); x1 = ZXP(nin); ZXP(nout) = 0.5f * (x1 + x0); x0 = ZXP(nin); ZXP(nout) = 0.5f * (x0 + x1); x1 = ZXP(nin); ZXP(nout) = 0.5f * (x1 + x0); } t = n & 3; for (int i = 0; i!= t;++i) { x0 = ZXP(nin); ZXP(nout) = 0.5f * (x0 + x1); x1 = x0; } m_x1 = x1; } /* ------------------------ LPZ1 -------------------------------*/ class LPZ1_kr: public flext_base { FLEXT_HEADER(LPZ1_kr,flext_base); public: LPZ1_kr(int argc, t_atom *argv); protected: void m_perform (float f); private: float m_x1; FLEXT_CALLBACK_F(m_perform); }; FLEXT_LIB_V("LPZ1",LPZ1_kr); LPZ1_kr::LPZ1_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD(0,m_perform); AddOutFloat(); m_x1=0; } void LPZ1_kr::m_perform(float f) { ToOutFloat(0,0.5f * (f + m_x1)); m_x1=f; } --- NEW FILE: HPZ2.cpp --- /* sc4pd HPZ2~ 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: William Parker: Compassion Seizes Bed-Stuy */ #include "sc4pd.hpp" /* ------------------------ HPZ2~ -------------------------------*/ class HPZ2_ar: public sc4pd_dsp { FLEXT_HEADER(HPZ2_ar,sc4pd_dsp); public: HPZ2_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) { mFilterLoops=sc_filterloops(); mFilterRemain=sc_filterremain(); } private: float m_x1, m_x2; int mFilterLoops, mFilterRemain; }; FLEXT_LIB_DSP_V("HPZ2~",HPZ2_ar); HPZ2_ar::HPZ2_ar(int argc, t_atom *argv) { AddOutSignal(); m_x1=0; m_x2=0; } void HPZ2_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; for (int i = 0; i!=mFilterLoops ;++i) { x0 = ZXP(nin); ZXP(nout) = (x0 - 2.f * x1 + x2) * 0.25f; x2 = ZXP(nin); ZXP(nout) = (x2 - 2.f * x0 + x1) * 0.25f; x1 = ZXP(nin); ZXP(nout) = (x1 - 2.f * x2 + x0) * 0.25f; } for (int i = 0; i!= mFilterRemain;++i) { x0 = ZXP(nin); ZXP(nout) = (x0 - 2.f * x1 + x2) * 0.25f; x2 = x1; x1 = x0; } m_x1 = x1; m_x2 = x2; } /* ------------------------ HPZ2 -------------------------------*/ class HPZ2_kr: public flext_base { FLEXT_HEADER(HPZ2_kr,flext_base); public: HPZ2_kr(int argc, t_atom *argv); protected: void m_perform (float f); private: float m_x1; float m_x2; FLEXT_CALLBACK_F(m_perform); }; FLEXT_LIB_V("HPZ2",HPZ2_kr); HPZ2_kr::HPZ2_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD(0,m_perform); AddOutFloat(); m_x2 = m_x1 = 0; } void HPZ2_kr::m_perform(float f) { ToOutFloat(0,(f - 2.f * m_x1 + m_x2) * 0.25f); m_x2=m_x1; m_x1=f; } --- NEW FILE: BRZ2.cpp --- /* sc4pd BRZ2~ 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: William Parker: Compassion Seizes Bed-Stuy */ #include "sc4pd.hpp" /* ------------------------ BRZ2~ -------------------------------*/ class BRZ2_ar: public sc4pd_dsp { FLEXT_HEADER(BRZ2_ar,sc4pd_dsp); public: BRZ2_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) { mFilterLoops=sc_filterloops(); mFilterRemain=sc_filterremain(); } private: float m_x1, m_x2; int mFilterLoops, mFilterRemain; }; FLEXT_LIB_DSP_V("BRZ2~",BRZ2_ar); BRZ2_ar::BRZ2_ar(int argc, t_atom *argv) { AddOutSignal(); m_x1=0; m_x2=0; } void BRZ2_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; for (int i = 0; i!=mFilterLoops ;++i) { x0 = ZXP(nin); ZXP(nout) = (x0 + x2) * 0.5f; x2 = ZXP(nin); ZXP(nout) = (x2 + x1) * 0.5f; x1 = ZXP(nin); ZXP(nout) = (x1 + x0) * 0.5f; } for (int i = 0; i!= mFilterRemain;++i) { x0 = ZXP(nin); ZXP(nout) = (x0 + x2) * 0.5f; x2 = x1; x1 = x0; } m_x1 = x1; m_x2 = x2; } /* ------------------------ BRZ2 -------------------------------*/ class BRZ2_kr: public flext_base { FLEXT_HEADER(BRZ2_kr,flext_base); public: BRZ2_kr(int argc, t_atom *argv); protected: void m_perform (float f); private: float m_x1; float m_x2; FLEXT_CALLBACK_F(m_perform); }; FLEXT_LIB_V("BRZ2",BRZ2_kr); BRZ2_kr::BRZ2_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD(0,m_perform); AddOutFloat(); m_x2 = m_x1 = 0; } void BRZ2_kr::m_perform(float f) { ToOutFloat(0,(f + m_x2) * 0.5f); m_x2=m_x1; m_x1=f; } --- NEW FILE: LPZ2.cpp --- /* sc4pd LPZ2~ 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: William Parker: Compassion Seizes Bed-Stuy */ #include "sc4pd.hpp" /* ------------------------ LPZ2~ -------------------------------*/ class LPZ2_ar: public sc4pd_dsp { FLEXT_HEADER(LPZ2_ar,sc4pd_dsp); public: LPZ2_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) { mFilterLoops=sc_filterloops(); mFilterRemain=sc_filterremain(); } private: float m_x1, m_x2; int mFilterLoops, mFilterRemain; }; FLEXT_LIB_DSP_V("LPZ2~",LPZ2_ar); LPZ2_ar::LPZ2_ar(int argc, t_atom *argv) { AddOutSignal(); m_x1=0; m_x2=0; } void LPZ2_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; for (int i = 0; i!=mFilterLoops ;++i) { x0 = ZXP(nin); ZXP(nout) = (x0 + 2.f * x1 + x2) * 0.25f; x2 = ZXP(nin); ZXP(nout) = (x2 + 2.f * x0 + x1) * 0.25f; x1 = ZXP(nin); ZXP(nout) = (x1 + 2.f * x2 + x0) * 0.25f; } for (int i = 0; i!= mFilterRemain;++i) { x0 = ZXP(nin); ZXP(nout) = (x0 + 2.f * x1 + x2) * 0.25f; x2 = x1; x1 = x0; } m_x1 = x1; m_x2 = x2; } /* ------------------------ LPZ2 -------------------------------*/ class LPZ2_kr: public flext_base { FLEXT_HEADER(LPZ2_kr,flext_base); public: LPZ2_kr(int argc, t_atom *argv); protected: void m_perform (float f); private: float m_x1; float m_x2; FLEXT_CALLBACK_F(m_perform); }; FLEXT_LIB_V("LPZ2",LPZ2_kr); LPZ2_kr::LPZ2_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD(0,m_perform); AddOutFloat(); m_x2 = m_x1 = 0; } void LPZ2_kr::m_perform(float f) { ToOutFloat(0,(f + 2.f * m_x1 + m_x2) * 0.25f); m_x2=m_x1; m_x1=f; } --- NEW FILE: HPZ1.cpp --- /* sc4pd HPZ1~ 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: William Parker: Compassion Seizes Bed-Stuy */ #include "sc4pd.hpp" /* ------------------------ HPZ1~ -------------------------------*/ class HPZ1_ar: public sc4pd_dsp { FLEXT_HEADER(HPZ1_ar,sc4pd_dsp); public: HPZ1_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); private: float m_x1; }; FLEXT_LIB_DSP_V("HPZ1~",HPZ1_ar); HPZ1_ar::HPZ1_ar(int argc, t_atom *argv) { AddOutSignal(); m_x1=0; } void HPZ1_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; int t = n >> 2; for (int i = 0; i!= t;++i) { x0 = ZXP(nin); ZXP(nout) = 0.5f * (x0 - x1); x1 = ZXP(nin); ZXP(nout) = 0.5f * (x1 - x0); x0 = ZXP(nin); ZXP(nout) = 0.5f * (x0 - x1); x1 = ZXP(nin); ZXP(nout) = 0.5f * (x1 - x0); } t = n & 3; for (int i = 0; i!= t;++i) { x0 = ZXP(nin); ZXP(nout) = 0.5f * (x0 - x1); x1 = x0; } m_x1 = x1; } /* ------------------------ HPZ1 -------------------------------*/ class HPZ1_kr: public flext_base { FLEXT_HEADER(HPZ1_kr,flext_base); public: HPZ1_kr(int argc, t_atom *argv); protected: void m_perform (float f); private: float m_x1; FLEXT_CALLBACK_F(m_perform); }; FLEXT_LIB_V("HPZ1",HPZ1_kr); HPZ1_kr::HPZ1_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD(0,m_perform); AddOutFloat(); m_x1=0; } void HPZ1_kr::m_perform(float f) { ToOutFloat(0,0.5f * (f - m_x1)); m_x1=f; }

1 0

externals/sc4pd/pd bpz2.pd,NONE,1.1 brz2.pd,NONE,1.1 hpz1.pd,NONE,1.1 lpz1.pd,NONE,1.1 lpz2.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-serv20408/pd Added Files: bpz2.pd brz2.pd hpz1.pd lpz1.pd lpz2.pd Log Message: some filters --- NEW FILE: hpz1.pd --- #N canvas 0 0 450 300 10; #X obj 12 159 dac~; #X floatatom 265 37 9 0 0 0 - - -; #X floatatom 266 110 9 0 0 0 - - -; #X obj 266 78 HPZ1; #X obj 18 86 HPZ1~; #X obj 18 28 WhiteNoise~; #X connect 1 0 3 0; #X connect 3 0 2 0; #X connect 4 0 0 0; #X connect 4 0 0 1; #X connect 5 0 4 0; --- NEW FILE: bpz2.pd --- #N canvas 0 0 450 300 10; #X obj 12 159 dac~; #X floatatom 265 37 9 0 0 0 - - -; #X floatatom 266 110 9 0 0 0 - - -; #X obj 18 28 WhiteNoise~; #X obj 266 78 HPZ2; #X obj 18 86 BPZ2~; #X connect 1 0 4 0; #X connect 3 0 5 0; #X connect 4 0 2 0; #X connect 5 0 0 0; #X connect 5 0 0 1; --- NEW FILE: lpz2.pd --- #N canvas 0 0 450 300 10; #X obj 12 159 dac~; #X floatatom 265 37 9 0 0 0 - - -; #X floatatom 266 110 9 0 0 0 - - -; #X obj 18 28 WhiteNoise~; #X obj 18 86 LPZ2~; #X obj 266 78 LPZ2; #X connect 1 0 5 0; #X connect 3 0 4 0; #X connect 4 0 0 0; #X connect 4 0 0 1; #X connect 5 0 2 0; --- NEW FILE: lpz1.pd --- #N canvas 0 0 450 300 10; #X obj 12 159 dac~; #X floatatom 265 37 9 0 0 0 - - -; #X floatatom 266 110 9 0 0 0 - - -; #X obj 18 86 LPZ1~; #X obj 266 78 LPZ1; #X obj 18 28 WhiteNoise~; #X connect 1 0 4 0; #X connect 3 0 0 0; #X connect 3 0 0 1; #X connect 4 0 2 0; #X connect 5 0 3 0; --- NEW FILE: brz2.pd --- #N canvas 0 0 450 300 10; #X obj 12 159 dac~; #X floatatom 265 37 9 0 0 0 - - -; #X floatatom 266 110 9 0 0 0 - - -; #X obj 18 28 WhiteNoise~; #X obj 18 86 BRZ2~; #X obj 266 78 BRZ2; #X connect 1 0 5 0; #X connect 3 0 4 0; #X connect 4 0 0 0; #X connect 4 0 0 1; #X connect 5 0 2 0;

1 0

externals/sc4pd/source main.cpp,1.25,1.26
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-serv19885/source Modified Files: main.cpp Log Message: Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** main.cpp 8 Aug 2004 16:29:26 -0000 1.25 --- main.cpp 8 Aug 2004 17:30:20 -0000 1.26 *************** *** 66,70 **** "TwoPole~, \n" " TwoZero~, FOS(~), SOS~, RLPF~, RHPF~, LPF~, HPF~, BPF~, " ! "BRF~" "\n" ); --- 66,71 ---- "TwoPole~, \n" " TwoZero~, FOS(~), SOS~, RLPF~, RHPF~, LPF~, HPF~, BPF~, " ! "BRF~,\n" ! " LPZ1(~), HPZ1(~), LPZ2(~), HPZ2(~), BPZ2(~), BRZ2(~)" "\n" ); *************** *** 263,266 **** --- 264,285 ---- FLEXT_DSP_SETUP(BRF_ar); + + FLEXT_DSP_SETUP(LPZ1_ar); + FLEXT_SETUP(LPZ1_kr); + + FLEXT_DSP_SETUP(HPZ1_ar); + FLEXT_SETUP(HPZ1_kr); + + FLEXT_DSP_SETUP(LPZ2_ar); + FLEXT_SETUP(LPZ2_kr); + + FLEXT_DSP_SETUP(HPZ2_ar); + FLEXT_SETUP(HPZ2_kr); + + FLEXT_DSP_SETUP(BRZ2_ar); + FLEXT_SETUP(BRZ2_kr); + + FLEXT_DSP_SETUP(BPZ2_ar); + FLEXT_SETUP(BPZ2_kr); }

1 0

externals/sc4pd make-files.txt,1.23,1.24
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-serv19885 Modified Files: make-files.txt Log Message: Index: make-files.txt =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/make-files.txt,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** make-files.txt 8 Aug 2004 16:29:25 -0000 1.23 --- make-files.txt 8 Aug 2004 17:30:20 -0000 1.24 *************** *** 15,17 **** 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 BPF.cpp BRF.cpp --- 15,18 ---- 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 BPF.cpp BRF.cpp LPZ1.cpp HPZ1.cpp LPZ2.cpp HPZ2.cpp \ ! BPZ2.cpp BRZ2.cpp

1 0

externals/sc4pd/pd bpf.pd,NONE,1.1 brf.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-serv11508/pd Added Files: bpf.pd brf.pd Log Message: brf & bpf --- NEW FILE: bpf.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 obj 130 147 BPF~ 440 0.5; #X msg 271 121 krq \$1; #X connect 1 0 3 0; #X connect 2 0 5 0; #X connect 3 0 5 0; #X connect 4 0 6 0; #X connect 5 0 0 0; #X connect 5 0 0 1; #X connect 6 0 5 0; --- NEW FILE: brf.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 krq \$1; #X obj 130 147 BRF~ 4440 4.3; #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 make-files.txt,1.22,1.23
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-serv11508 Modified Files: make-files.txt Log Message: brf & bpf Index: make-files.txt =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/make-files.txt,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** make-files.txt 8 Aug 2004 11:10:29 -0000 1.22 --- make-files.txt 8 Aug 2004 16:29:25 -0000 1.23 *************** *** 15,17 **** 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 --- 15,17 ---- 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 BPF.cpp BRF.cpp

1 0

← Newer
1
...
9
10
11
12
13
14
15
...
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