Pd-cvs August 2004

pd-cvs@lists.iem.at

10 participants
171 discussions

externals/sc4pd config-pd-linux.txt,1.6,1.7 make-files.txt,1.20,1.21 makefile.pd-linux,1.3,1.4
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-serv7034 Modified Files: config-pd-linux.txt make-files.txt makefile.pd-linux Log Message: Index: config-pd-linux.txt =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/config-pd-linux.txt,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** config-pd-linux.txt 7 Aug 2004 14:01:30 -0000 1.6 --- config-pd-linux.txt 7 Aug 2004 22:56:21 -0000 1.7 *************** *** 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.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** make-files.txt 7 Aug 2004 20:43:57 -0000 1.20 --- make-files.txt 7 Aug 2004 22:56:21 -0000 1.21 *************** *** 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 --- 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 Index: makefile.pd-linux =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/makefile.pd-linux,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** makefile.pd-linux 4 Aug 2004 18:23:14 -0000 1.3 --- makefile.pd-linux 7 Aug 2004 22:56:21 -0000 1.4 *************** *** 25,29 **** CFLAGS+=-DFLEXT_SHARED -DFLEXT_THREADS LDFLAGS+=-Bdynamic ! LINKFLEXT=-lflext else LINKFLEXT=$(FLEXTLIB) --- 25,29 ---- CFLAGS+=-DFLEXT_SHARED -DFLEXT_THREADS LDFLAGS+=-Bdynamic ! LINKFLEXT=-lflext_d else LINKFLEXT=$(FLEXTLIB)

1 0

externals/sc4pd/source OneZero.cpp,NONE,1.1
by Tim Blechmann 07 Aug '04

07 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20371/source Added Files: OneZero.cpp Log Message: --- NEW FILE: OneZero.cpp --- /* sc4pd OneZero, OneZero~ 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: Goh Lee Kwang: Internal Pleasures */ #include "sc4pd.hpp" /* ------------------------ OneZero~ -------------------------------*/ class OneZero_ar: public sc4pd_dsp { FLEXT_HEADER(OneZero_ar,sc4pd_dsp); public: OneZero_ar(int argc, t_atom *argv); protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); void m_set(float f) { n_b1=f; changed = true; } private: float m_b1, m_x1; float n_b1; bool changed; FLEXT_CALLBACK_F(m_set); }; FLEXT_LIB_DSP_V("OneZero~",OneZero_ar); OneZero_ar::OneZero_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"coef",m_set); //parse arguments AtomList Args(argc,argv); m_b1 = sc_getfloatarg(Args,0); AddOutSignal(); m_x1 = 0.f; } void OneZero_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float b1 = m_b1; float x1 = m_x1; if (changed) { m_b1=n_b1; float b1_slope = CALCSLOPE(m_b1, b1); if (b1 >= 0.f && m_b1 >= 0) { for (int i = 0; i!= n;++i) { float x0 = ZXP(nin); ZXP(nout) = x0 + b1 * (x1 - x0); x1 = x0; b1 += b1_slope; } } else if (b1 <= 0.f && m_b1 <= 0) { for (int i = 0; i!= n;++i) { float x0 = ZXP(nin); ZXP(nout) = x0 + b1 * (x1 + x0); x1 = x0; b1 += b1_slope; } } else { for (int i = 0; i!= n;++i) { float x0 = ZXP(nin); ZXP(nout) = (1.f - fabs(b1)) * x0 + b1 * x1; x1 = x0; b1 += b1_slope; } } changed = false; } else { if (b1 >= 0.f) { for (int i = 0; i!= n;++i) { float x0 = ZXP(nin); ZXP(nout) = x0 + b1 * (x1 - x0); x1 = x0; } } else { for (int i = 0; i!= n;++i) { float x0 = ZXP(nin); ZXP(nout) = x0 + b1 * (x1 + x0); x1 = x0; } } } m_x1 = x1; } /* ------------------------ OneZero ---------------------------------*/ class OneZero_kr: public flext_base { FLEXT_HEADER(OneZero_kr,flext_base); public: OneZero_kr(int argc, t_atom *argv); protected: void m_perform(float f); void m_set(float f) { m_b1=f; } private: float m_b1, m_x1; FLEXT_CALLBACK_F(m_set); FLEXT_CALLBACK_F(m_perform); }; FLEXT_LIB_V("OneZero",OneZero_kr); OneZero_kr::OneZero_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD(0,m_perform); FLEXT_ADDMETHOD_(0,"set",m_set); AddOutFloat(); //parse arguments AtomList Args(argc,argv); m_b1 = sc_getfloatarg(Args,0); m_x1=0; } void OneZero_kr::m_perform(float f) { ToOutFloat(0,((1-abs(m_b1))*f)+m_b1*m_x1); m_x1=f; }

1 0

externals/sc4pd/pd onezero.pd,NONE,1.1
by Tim Blechmann 07 Aug '04

07 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20371/pd Added Files: onezero.pd Log Message: --- NEW FILE: onezero.pd --- #N canvas 0 0 450 300 10; #X obj 12 159 dac~; #X obj 89 131 print~; #X obj 144 112 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X floatatom 112 20 5 0 0 0 - - -; #X floatatom 265 37 9 0 0 0 - - -; #X floatatom 266 110 9 0 0 0 - - -; #X obj 18 28 WhiteNoise~; #X msg 89 60 coef \$1; #X obj 18 86 OneZero~ 0.3; #X obj 266 78 OneZero 0.3; #X connect 2 0 1 0; #X connect 3 0 7 0; #X connect 4 0 9 0; #X connect 6 0 8 0; #X connect 7 0 8 0; #X connect 8 0 1 0; #X connect 8 0 0 0; #X connect 8 0 0 1; #X connect 9 0 5 0;

1 0

externals/sc4pd/source TwoPole.cpp,NONE,1.1 OnePole.cpp,1.1,1.2 main.cpp,1.21,1.22 sc4pd.hpp,1.4,1.5
by Tim Blechmann 07 Aug '04

07 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20139/source Modified Files: OnePole.cpp main.cpp sc4pd.hpp Added Files: TwoPole.cpp Log Message: Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** main.cpp 7 Aug 2004 14:01:31 -0000 1.21 --- main.cpp 7 Aug 2004 20:43:57 -0000 1.22 *************** *** 63,67 **** " DelayL~, DelayC~, CombN~, CombL~, CombC~, AllpassN~, " "AllpassL~,\n" ! " AllpassC~, PitchShift~, Resonz~, OnePole(~)" "\n" ); --- 63,69 ---- " DelayL~, DelayC~, CombN~, CombL~, CombC~, AllpassN~, " "AllpassL~,\n" ! " AllpassC~, PitchShift~, Resonz~, OnePole(~), OneZero(~)" ! "TwoPole~" ! "\n" ); *************** *** 236,239 **** --- 238,246 ---- FLEXT_DSP_SETUP(OnePole_ar); FLEXT_SETUP(OnePole_kr); + + FLEXT_DSP_SETUP(OneZero_ar); + FLEXT_SETUP(OneZero_kr); + + FLEXT_DSP_SETUP(TwoPole_ar); } --- NEW FILE: TwoPole.cpp --- /* sc4pd TwoPole~ 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" /* ------------------------ TwoPole~ -------------------------------*/ class TwoPole_ar: public sc4pd_dsp { FLEXT_HEADER(TwoPole_ar,sc4pd_dsp); public: TwoPole_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_y1, m_y2, 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("TwoPole~",TwoPole_ar); TwoPole_ar::TwoPole_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_y1 = 0.f; m_y2 = 0.f; } void TwoPole_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; 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) { ZXP(nout) = y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = y2 = ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = y1 = ZXP(nin) + b1 * y2 + b2 * y0; b1 += b1_slope; b2 += b2_slope; } for (int i = 0; i!= mFilterRemain;++i) { ZXP(nout) = y0 = ZXP(nin) + b1 * y1 + b2 * y2; y2 = y1; y1 = y0; } m_b1 = b1; m_b2 = b2; changed = false; } else { float b1 = m_b1; float b2 = m_b2; for (int i = 0; i!= mFilterLoops;++i) { ZXP(nout) = y0 = ZXP(nin) + b1 * y1 + b2 * y2; ZXP(nout) = y2 = ZXP(nin) + b1 * y0 + b2 * y1; ZXP(nout) = y1 = ZXP(nin) + b1 * y2 + b2 * y0; } for (int i = 0; i!= mFilterRemain;++i) { ZXP(nout) = y0 = ZXP(nin) + b1 * y1 + b2 * y2; y2 = y1; y1 = y0; } } m_y1 = zapgremlins(y1); m_y2 = zapgremlins(y2); } /* no control rate two pole filter */ Index: OnePole.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/OnePole.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OnePole.cpp 7 Aug 2004 14:05:40 -0000 1.1 --- OnePole.cpp 7 Aug 2004 20:43:57 -0000 1.2 *************** *** 32,36 **** http://www.audiosynth.com ! Coded while listening to: */ --- 32,36 ---- http://www.audiosynth.com ! Coded while listening to: Goh Lee Kwang: Internal Pleasures */ *************** *** 241,245 **** void OnePole_kr::m_perform(float f) { ! m_y1= f + m_b1 * (m_y1 - f); ToOutFloat(0,m_y1); } --- 241,245 ---- void OnePole_kr::m_perform(float f) { ! m_y1= ((1-abs(m_b1))*f)+m_b1*m_y1; ToOutFloat(0,m_y1); } Index: sc4pd.hpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/sc4pd.hpp,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** sc4pd.hpp 7 Aug 2004 14:01:31 -0000 1.4 --- sc4pd.hpp 7 Aug 2004 20:43:57 -0000 1.5 *************** *** 103,112 **** } ! inline float sc_filterloops() { return Blocksize() / 3; } ! inline float sc_filterremain() { return Blocksize() % 3; --- 103,112 ---- } ! inline int sc_filterloops() { return Blocksize() / 3; } ! inline int sc_filterremain() { return Blocksize() % 3;

1 0

externals/sc4pd/pd twopole.pd,NONE,1.1
by Tim Blechmann 07 Aug '04

07 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20139/pd Added Files: twopole.pd Log Message: --- NEW FILE: twopole.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 obj 130 147 TwoPole~ 440 0.5; #X msg 201 121 kfreq \$1; #X floatatom 294 81 5 0 0 0 - - -; #X msg 271 121 kradius \$1; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 0 0; #X connect 3 0 0 1; #X connect 4 0 3 0; #X connect 5 0 6 0; #X connect 6 0 3 0;

1 0

externals/sc4pd make-files.txt,1.19,1.20
by Tim Blechmann 07 Aug '04

07 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20139 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.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** make-files.txt 7 Aug 2004 14:01:30 -0000 1.19 --- make-files.txt 7 Aug 2004 20:43:57 -0000 1.20 *************** *** 13,15 **** Lag2.cpp Lag3.cpp LinExp.cpp DelayUnit.cpp DelayN.cpp DelayL.cpp \ DelayC.cpp CombN.cpp CombL.cpp CombC.cpp AllpassN.cpp AllpassL.cpp \ ! AllpassC.cpp PitchShift.cpp Resonz.cpp OnePole.cpp --- 13,16 ---- Lag2.cpp Lag3.cpp LinExp.cpp DelayUnit.cpp DelayN.cpp DelayL.cpp \ DelayC.cpp CombN.cpp CombL.cpp CombC.cpp AllpassN.cpp AllpassL.cpp \ ! AllpassC.cpp PitchShift.cpp Resonz.cpp OnePole.cpp OneZero.cpp \ ! TwoPole.cpp

1 0

externals/sc4pd/pd onepole.pd,NONE,1.1 pitchshift.pd,NONE,1.1 resonz.pd,NONE,1.1
by Tim Blechmann 07 Aug '04

07 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25088/pd Added Files: onepole.pd pitchshift.pd resonz.pd Log Message: checkins --- NEW FILE: pitchshift.pd --- #N canvas 317 183 450 300 10; #X floatatom 152 51 5 0 0 0 - - -; #X obj 67 187 dac~; #X floatatom 264 55 5 0 0 0 - - -; #X obj 76 55 osc~ 440; #X msg 152 80 pitchRatio \$1; #X msg 264 79 pitchDispersion \$1; #X floatatom 264 101 5 0 0 0 - - -; #X msg 264 125 timeDispersion \$1; #X obj 62 129 PitchShift~ 0.02 0.5 0 0; #X connect 0 0 4 0; #X connect 2 0 5 0; #X connect 3 0 8 0; #X connect 4 0 8 0; #X connect 5 0 8 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 1 0; #X connect 8 0 1 1; --- NEW FILE: resonz.pd --- #N canvas 0 0 450 300 10; #X floatatom 188 40 5 0 0 0 - - -; #X obj 67 187 dac~; #X floatatom 316 83 5 0 0 0 - - -; #X msg 185 88 freq \$1; #X msg 316 107 rq \$1; #X obj 79 57 Dust~ 44; #X obj 77 138 Resonz~ 440 20; #X connect 0 0 3 0; #X connect 2 0 4 0; #X connect 3 0 6 0; #X connect 4 0 6 0; #X connect 5 0 6 0; #X connect 6 0 1 0; #X connect 6 0 1 1; --- NEW FILE: onepole.pd --- #N canvas 0 0 450 300 10; #X obj 12 159 dac~; #X obj 89 131 print~; #X obj 144 112 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X floatatom 112 20 5 0 0 0 - - -; #X floatatom 265 37 9 0 0 0 - - -; #X floatatom 266 110 9 0 0 0 - - -; #X obj 18 28 WhiteNoise~; #X msg 89 60 coef \$1; #X obj 18 86 OnePole~ 0.3; #X obj 85 251 dac~; #X obj 94 211 OnePole~ 0.3 ar; #X obj 94 171 Dust~ 444; #X obj 266 78 OnePole 0.3; #X connect 2 0 1 0; #X connect 3 0 7 0; #X connect 4 0 12 0; #X connect 6 0 8 0; #X connect 7 0 8 0; #X connect 8 0 1 0; #X connect 8 0 0 0; #X connect 8 0 0 1; #X connect 10 0 9 0; #X connect 10 0 9 1; #X connect 11 0 10 1; #X connect 11 0 10 0; #X connect 12 0 5 0;

1 0

externals/sc4pd/source OnePole.cpp,NONE,1.1 Resonz.cpp,NONE,1.1
by Tim Blechmann 07 Aug '04

07 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25088/source Added Files: OnePole.cpp Resonz.cpp Log Message: checkins --- NEW FILE: OnePole.cpp --- /* sc4pd OnePole, OnePole~ 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: */ #include "sc4pd.hpp" /* ------------------------ OnePole~ -------------------------------*/ class OnePole_ar: public sc4pd_dsp { FLEXT_HEADER(OnePole_ar,sc4pd_dsp); public: OnePole_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(float f) { n_b1=f; changed = true; } void m_ar() { SETSIGFUN(m_signal_fun,SIGFUN(m_signal_ar)); } void m_kr() { SETSIGFUN(m_signal_fun,SIGFUN(m_signal_kr)); } private: float m_b1, m_y1; float n_b1; bool changed; DEFSIGCALL (m_signal_fun); DEFSIGFUN (m_signal_ar); DEFSIGFUN (m_signal_kr); FLEXT_CALLBACK_F(m_set); FLEXT_CALLBACK(m_ar); FLEXT_CALLBACK(m_kr); }; FLEXT_LIB_DSP_V("OnePole~",OnePole_ar); OnePole_ar::OnePole_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"coef",m_set); FLEXT_ADDMETHOD_(0,"ar",m_ar); FLEXT_ADDMETHOD_(0,"kr",m_kr); //parse arguments AtomList Args(argc,argv); m_b1 = sc_getfloatarg(Args,0); if(sc_ar(Args)) { SETSIGFUN(m_signal_fun,SIGFUN(m_signal_ar)); AddInSignal(); AddInSignal(); } else // if not given, use control rate SETSIGFUN(m_signal_fun,SIGFUN(m_signal_kr)); AddOutSignal(); m_y1 = 0.f; } void OnePole_ar::m_signal_ar(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float *b1p = *(in+1); float y1 = m_y1; for (int i = 0; i!= n;++i) { float y0 = ZXP(nin); float b1 = ZXP(b1p); ZXP(nout) = y1 = y0 + b1 * (y1 - y0); } m_y1 = zapgremlins(y1); } void OnePole_ar::m_signal_kr(int n, t_sample *const *in, t_sample *const *out) { t_sample *nin = *in; t_sample *nout = *out; float b1 = m_b1; float y1 = m_y1; if (changed) { m_b1=n_b1; float b1_slope = CALCSLOPE(m_b1, b1); if (b1 >= 0.f && m_b1 >= 0) { for (int i = 0; i!= n;++i) { float y0 = ZXP(nin); ZXP(nout) = y1 = y0 + b1 * (y1 - y0); b1 += b1_slope; } } else if (b1 <= 0.f && m_b1 <= 0) { for (int i = 0; i!= n;++i) { float y0 = ZXP(nin); ZXP(nout) = y1 = y0 + b1 * (y1 + y0); b1 += b1_slope; } } else { for (int i = 0; i!= n;++i) { float y0 = ZXP(nin); ZXP(nout) = y1 = (1.f - fabs(b1)) * y0 + b1 * y1; b1 += b1_slope; } } changed = false; } else { if (b1 >= 0.f) { for (int i = 0; i!= n;++i) { float y0 = ZXP(nin); ZXP(nout) = y1 = y0 + b1 * (y1 - y0); } } else { for (int i = 0; i!= n;++i) { float y0 = ZXP(nin); ZXP(nout) = y1 = y0 + b1 * (y1 + y0); } } } m_y1 = zapgremlins(y1); } /* ------------------------ OnePole ---------------------------------*/ class OnePole_kr: public flext_base { FLEXT_HEADER(OnePole_kr,flext_base); public: OnePole_kr(int argc, t_atom *argv); protected: void m_perform(float f); void m_set(float f) { m_b1=f; } private: float m_b1, m_y1; FLEXT_CALLBACK_F(m_set); FLEXT_CALLBACK_F(m_perform); }; FLEXT_LIB_V("OnePole",OnePole_kr); OnePole_kr::OnePole_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD(0,m_perform); FLEXT_ADDMETHOD_(0,"set",m_set); AddOutFloat(); //parse arguments AtomList Args(argc,argv); m_b1 = sc_getfloatarg(Args,0); m_y1=0; } void OnePole_kr::m_perform(float f) { m_y1= f + m_b1 * (m_y1 - f); ToOutFloat(0,m_y1); } --- NEW FILE: Resonz.cpp --- /* sc4pd Resonz~, Resonz 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: MIMEO: Electric Chair And Table */ #include "sc4pd.hpp" /* ------------------------ Resonz~ -----------------------------*/ class Resonz_ar :public sc4pd_dsp { FLEXT_HEADER(Resonz_ar,sc4pd_dsp); public: Resonz_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); void m_set_freq(float f) { m_freq = f; m_ffreq = m_freq * mRadiansPerSample; changed = true; } void m_set_rq(float f) { m_rq = f; changed = true; } private: FLEXT_CALLBACK_F(m_set_freq); FLEXT_CALLBACK_F(m_set_rq); float m_y1, m_y2, m_a0, m_b1, m_b2, m_freq, m_rq, m_ffreq; bool changed; float mRadiansPerSample, mFilterSlope, mFilterLoops, mFilterRemain; }; FLEXT_LIB_DSP_V("Resonz~",Resonz_ar); Resonz_ar::Resonz_ar(int argc,t_atom * argv) { FLEXT_ADDMETHOD_(0,"freq",m_set_freq); FLEXT_ADDMETHOD_(0,"rq",m_set_rq); AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); m_rq = sc_getfloatarg(Args,1); AddOutSignal(); m_a0 = 0.f; m_b1 = 0.f; m_b2 = 0.f; m_y1 = 0.f; m_y2 = 0.f; changed = false; } void Resonz_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { mRadiansPerSample = sc_radianspersample(); mFilterSlope = sc_filterslope(); mFilterLoops = sc_filterloops(); mFilterRemain = sc_filterremain(); m_ffreq = m_freq * mRadiansPerSample; } void Resonz_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nout = *out; t_sample *nin = *in; float y0; float y1 = m_y1; float y2 = m_y2; float a0 = m_a0; float b1 = m_b1; float b2 = m_b2; if (changed = true) { float B = m_ffreq * m_rq; float R = 1.f - B * 0.5f; float twoR = 2.f * R; float R2 = R * R; float cost = (twoR * cos(m_ffreq)) / (1.f + R2); float b1_next = twoR * cost; float b2_next = -R2; float a0_next = (1.f - R2) * 0.5f; float a0_slope = (a0_next - a0) * mFilterSlope; float b1_slope = (b1_next - b1) * mFilterSlope; float b2_slope = (b2_next - 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_next; m_b1 = b1_next; m_b2 = b2_next; 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 resonz */

1 0

externals/sc4pd/headers/plugin_interface SC_Constants.h,1.1.1.1,1.2
by Tim Blechmann 07 Aug '04

07 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/headers/plugin_interface In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24095/headers/plugin_interface Modified Files: SC_Constants.h Log Message: sc4pd_dsp class and other changes Index: SC_Constants.h =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/headers/plugin_interface/SC_Constants.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** SC_Constants.h 14 Jul 2004 16:21:34 -0000 1.1.1.1 --- SC_Constants.h 7 Aug 2004 14:01:30 -0000 1.2 *************** *** 44,46 **** const float kBadValue = 1e20f; // used in the secant table for values very close to 1/0 ! #endif \ No newline at end of file --- 44,46 ---- const float kBadValue = 1e20f; // used in the secant table for values very close to 1/0 ! #endif

1 0

externals/sc4pd/source BrownNoise.cpp,1.3,1.4 ClipNoise.cpp,1.4,1.5 Crackle.cpp,1.3,1.4 Decay.cpp,1.3,1.4 Decay2.cpp,1.2,1.3 DelayUnit.cpp,1.3,1.4 DelayUnit.hpp,1.2,1.3 Dust.cpp,1.4,1.5 Dust2.cpp,1.4,1.5 ExpRand.cpp,1.3,1.4 GrayNoise.cpp,1.3,1.4 Hasher.cpp,1.2,1.3 IRand.cpp,1.3,1.4 Impulse.cpp,1.2,1.3 Integrator.cpp,1.2,1.3 LFClipNoise.cpp,1.3,1.4 LFNoise0.cpp,1.3,1.4 LFNoise1.cpp,1.2,1.3 LFNoise2.cpp,1.2,1.3 LFPulse.cpp,1.2,1.3 LFSaw.cpp,1.2,1.3 Lag.cpp,1.1,1.2 Lag2.cpp,1.1,1.2 Lag3.cpp,1.1,1.2 La
by Tim Blechmann 07 Aug '04

07 Aug '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24095/source Modified Files: BrownNoise.cpp ClipNoise.cpp Crackle.cpp Decay.cpp Decay2.cpp DelayUnit.cpp DelayUnit.hpp Dust.cpp Dust2.cpp ExpRand.cpp GrayNoise.cpp Hasher.cpp IRand.cpp Impulse.cpp Integrator.cpp LFClipNoise.cpp LFNoise0.cpp LFNoise1.cpp LFNoise2.cpp LFPulse.cpp LFSaw.cpp Lag.cpp Lag2.cpp Lag3.cpp Latoocarfian.cpp LinCong.cpp LinExp.cpp LinRand.cpp Logistic.cpp MantissaMask.cpp Median.cpp NRand.cpp PinkNoise.cpp PitchShift.cpp Rand.cpp TExpRand.cpp TIRand.cpp TRand.cpp WhiteNoise.cpp absdif.cpp amclip.cpp difsqr.cpp excess.cpp hypot.cpp main.cpp ring1.cpp ring2.cpp ring3.cpp ring4.cpp sc4pd.hpp scaleneg.cpp sqrdif.cpp sqrsum.cpp sumsqr.cpp Log Message: sc4pd_dsp class and other changes Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** main.cpp 6 Aug 2004 08:34:42 -0000 1.20 --- main.cpp 7 Aug 2004 14:01:31 -0000 1.21 *************** *** 63,67 **** " DelayL~, DelayC~, CombN~, CombL~, CombC~, AllpassN~, " "AllpassL~,\n" ! " AllpassC~, PitchShift~" "\n" ); --- 63,67 ---- " DelayL~, DelayC~, CombN~, CombL~, CombC~, AllpassN~, " "AllpassL~,\n" ! " AllpassC~, PitchShift~, Resonz~, OnePole(~)" "\n" ); *************** *** 229,232 **** --- 229,239 ---- FLEXT_DSP_SETUP(AllpassC_ar); + + FLEXT_DSP_SETUP(PitchShift_ar); + + FLEXT_DSP_SETUP(Resonz_ar); + + FLEXT_DSP_SETUP(OnePole_ar); + FLEXT_SETUP(OnePole_kr); } Index: BrownNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/BrownNoise.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** BrownNoise.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- BrownNoise.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 41,47 **** class BrownNoise_ar: ! public flext_dsp { ! FLEXT_HEADER(BrownNoise_ar,flext_dsp); public: --- 41,47 ---- class BrownNoise_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(BrownNoise_ar,sc4pd_dsp); public: Index: Latoocarfian.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Latoocarfian.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Latoocarfian.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- Latoocarfian.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 42,48 **** class Latoocarfian_ar: ! public flext_dsp { ! FLEXT_HEADER(Latoocarfian_ar,flext_dsp); public: --- 42,48 ---- class Latoocarfian_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(Latoocarfian_ar,sc4pd_dsp); public: Index: Dust2.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Dust2.cpp,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Dust2.cpp 2 Aug 2004 19:18:22 -0000 1.4 --- Dust2.cpp 7 Aug 2004 14:01:31 -0000 1.5 *************** *** 41,47 **** class Dust2_ar: ! public flext_dsp { ! FLEXT_HEADER(Dust2_ar,flext_dsp); public: --- 41,47 ---- class Dust2_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(Dust2_ar,sc4pd_dsp); public: Index: Rand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Rand.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Rand.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- Rand.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 42,48 **** class Rand_ar: ! public flext_dsp { ! FLEXT_HEADER(Rand_ar,flext_dsp); public: --- 42,48 ---- class Rand_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(Rand_ar,sc4pd_dsp); public: Index: LFNoise0.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LFNoise0.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** LFNoise0.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- LFNoise0.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 42,48 **** class LFNoise0_ar: ! public flext_dsp { ! FLEXT_HEADER(LFNoise0_ar,flext_dsp); public: --- 42,48 ---- class LFNoise0_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(LFNoise0_ar,sc4pd_dsp); public: Index: Lag.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Lag.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Lag.cpp 2 Aug 2004 21:13:50 -0000 1.1 --- Lag.cpp 7 Aug 2004 14:01:31 -0000 1.2 *************** *** 41,47 **** class Lag_ar ! :public flext_dsp { ! FLEXT_HEADER(Lag_ar,flext_dsp); public: --- 41,47 ---- class Lag_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(Lag_ar,sc4pd_dsp); public: Index: LinCong.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LinCong.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** LinCong.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- LinCong.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class LinCong_ar: ! public flext_dsp { ! FLEXT_HEADER(LinCong_ar,flext_dsp); public: --- 42,48 ---- class LinCong_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(LinCong_ar,sc4pd_dsp); public: Index: Crackle.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Crackle.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Crackle.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- Crackle.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 41,47 **** class Crackle_ar: ! public flext_dsp { ! FLEXT_HEADER(Crackle_ar,flext_dsp); public: --- 41,47 ---- class Crackle_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(Crackle_ar,sc4pd_dsp); public: Index: ring1.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/ring1.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ring1.cpp 2 Aug 2004 20:13:59 -0000 1.2 --- ring1.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 47,53 **** class ring1_ar ! :public flext_dsp { ! FLEXT_HEADER(ring1_ar,flext_dsp); public: --- 47,53 ---- class ring1_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(ring1_ar,sc4pd_dsp); public: Index: WhiteNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/WhiteNoise.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** WhiteNoise.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- WhiteNoise.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 42,48 **** class WhiteNoise_ar: ! public flext_dsp { ! FLEXT_HEADER(WhiteNoise_ar,flext_dsp); public: --- 42,48 ---- class WhiteNoise_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(WhiteNoise_ar,sc4pd_dsp); public: Index: MantissaMask.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/MantissaMask.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** MantissaMask.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- MantissaMask.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 36,47 **** */ ! #include "support.hpp" /* ------------------------ MantissaMask~ -----------------------------*/ class MantissaMask_ar ! :public flext_dsp { ! FLEXT_HEADER(MantissaMask_ar,flext_dsp); public: --- 36,47 ---- */ ! #include "sc4pd.hpp" /* ------------------------ MantissaMask~ -----------------------------*/ class MantissaMask_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(MantissaMask_ar,sc4pd_dsp); public: Index: Decay.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Decay.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Decay.cpp 2 Aug 2004 20:13:59 -0000 1.3 --- Decay.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 42,48 **** class Decay_ar ! :public flext_dsp { ! FLEXT_HEADER(Decay_ar,flext_dsp); public: --- 42,48 ---- class Decay_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(Decay_ar,sc4pd_dsp); public: Index: Dust.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Dust.cpp,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Dust.cpp 2 Aug 2004 19:18:22 -0000 1.4 --- Dust.cpp 7 Aug 2004 14:01:31 -0000 1.5 *************** *** 40,46 **** class Dust_ar: ! public flext_dsp { ! FLEXT_HEADER(Dust_ar,flext_dsp); public: --- 40,46 ---- class Dust_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(Dust_ar,sc4pd_dsp); public: Index: TExpRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/TExpRand.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TExpRand.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- TExpRand.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 42,48 **** class TExpRand_ar: ! public flext_dsp { ! FLEXT_HEADER(TExpRand_ar,flext_dsp); public: --- 42,48 ---- class TExpRand_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(TExpRand_ar,sc4pd_dsp); public: Index: LinRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LinRand.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** LinRand.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- LinRand.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class LinRand_ar: ! public flext_dsp { ! FLEXT_HEADER(LinRand_ar,flext_dsp); public: --- 42,48 ---- class LinRand_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(LinRand_ar,sc4pd_dsp); public: Index: LFSaw.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LFSaw.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** LFSaw.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- LFSaw.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class LFSaw_ar: ! public flext_dsp { ! FLEXT_HEADER(LFSaw_ar,flext_dsp); public: --- 42,48 ---- class LFSaw_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(LFSaw_ar,sc4pd_dsp); public: Index: ClipNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/ClipNoise.cpp,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ClipNoise.cpp 2 Aug 2004 19:18:22 -0000 1.4 --- ClipNoise.cpp 7 Aug 2004 14:01:31 -0000 1.5 *************** *** 42,48 **** class ClipNoise_ar: ! public flext_dsp { ! FLEXT_HEADER(ClipNoise_ar,flext_dsp); public: --- 42,48 ---- class ClipNoise_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(ClipNoise_ar,sc4pd_dsp); public: Index: DelayUnit.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/DelayUnit.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** DelayUnit.cpp 4 Aug 2004 16:43:26 -0000 1.3 --- DelayUnit.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 31,40 **** SuperCollider by James McCartney http://www.audiosynth.com - Coded while listening to: */ ! #include "sc4pd.hpp" #include "DelayUnit.hpp" --- 31,40 ---- SuperCollider by James McCartney http://www.audiosynth.com + Coded while listening to: */ ! // #include "sc4pd.hpp" #include "DelayUnit.hpp" Index: ring4.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/ring4.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ring4.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- ring4.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 48,54 **** class ring4_ar ! :public flext_dsp { ! FLEXT_HEADER(ring4_ar,flext_dsp); public: --- 48,54 ---- class ring4_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(ring4_ar,sc4pd_dsp); public: Index: sumsqr.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/sumsqr.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** sumsqr.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- sumsqr.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 48,54 **** class sumsqr_ar ! :public flext_dsp { ! FLEXT_HEADER(sumsqr_ar,flext_dsp); public: --- 48,54 ---- class sumsqr_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(sumsqr_ar,sc4pd_dsp); public: Index: hypot.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/hypot.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** hypot.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- hypot.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class hypot_ar ! :public flext_dsp { ! FLEXT_HEADER(hypot_ar,flext_dsp); public: --- 42,48 ---- class hypot_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(hypot_ar,sc4pd_dsp); public: Index: PitchShift.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/PitchShift.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** PitchShift.cpp 6 Aug 2004 08:34:42 -0000 1.1 --- PitchShift.cpp 7 Aug 2004 14:01:31 -0000 1.2 *************** *** 32,36 **** http://www.audiosynth.com ! Coded while listening to: */ --- 32,36 ---- http://www.audiosynth.com ! Coded while listening to: Bernhard Lang: Differenz / Wiederholung 2 */ *************** *** 41,47 **** class PitchShift_ar ! :public flext_dsp { ! FLEXT_HEADER(PitchShift_ar,flext_dsp); public: --- 41,47 ---- class PitchShift_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(PitchShift_ar,sc4pd_dsp); public: *************** *** 56,64 **** virtual void m_dsp(int n, t_sample *const *in, t_sample *const *out); - void m_set_windowsize(float f) - { - m_windowsize = f; - } - void m_set_pitchratio (float f) { --- 56,59 ---- *************** *** 77,81 **** private: ! float m_windowsize, m_pitchratio,m_pitchdispersion,m_timedispersion; RGen rgen; --- 72,76 ---- private: ! float m_windowsize,m_pitchratio,m_pitchdispersion,m_timedispersion; RGen rgen; *************** *** 94,98 **** DEFSIGFUN(m_signal_z); - FLEXT_CALLBACK_F(m_set_windowsize); FLEXT_CALLBACK_F(m_set_pitchratio); FLEXT_CALLBACK_F(m_set_pitchdispersion); --- 89,92 ---- *************** *** 104,108 **** PitchShift_ar::PitchShift_ar(int argc,t_atom * argv) { - FLEXT_ADDMETHOD_(0,"windowSize",m_set_windowsize); FLEXT_ADDMETHOD_(0,"pitchRatio",m_set_pitchratio); FLEXT_ADDMETHOD_(0,"pitchDispersion",m_set_pitchdispersion); --- 98,101 ---- *************** *** 116,119 **** --- 109,113 ---- return; } + m_windowsize = sc_getfloatarg(Args,0); m_pitchratio = sc_getfloatarg(Args,1); *************** *** 133,138 **** long delaybufsize; ! float /* *out, *in,*/ *dlybuf; ! float winsize, pchratio; float fdelaylen, slope; long framesize, last; --- 127,132 ---- long delaybufsize; ! float *dlybuf; ! float pchratio; float fdelaylen, slope; long framesize, last; *************** *** 141,147 **** //in = ZIN(0); pchratio = m_pitchratio; - winsize = m_windowsize; ! delaybufsize = (long)ceil(winsize * SAMPLERATE * 3.f + 3.f); fdelaylen = delaybufsize - 3; --- 135,140 ---- //in = ZIN(0); pchratio = m_pitchratio; ! delaybufsize = (long)ceil(m_windowsize * SAMPLERATE * 3.f + 3.f); fdelaylen = delaybufsize - 3; *************** *** 160,164 **** m_mask = last = (delaybufsize - 1); ! m_framesize = framesize = ((long)(winsize * SAMPLERATE) + 2) & ~3; m_slope = slope = 2.f / framesize; m_stage = 3; --- 153,157 ---- m_mask = last = (delaybufsize - 1); ! m_framesize = framesize = ((long)(m_windowsize * SAMPLERATE) + 2) & ~3; m_slope = slope = 2.f / framesize; m_stage = 3; *************** *** 198,202 **** float dsamp4, dsamp4_slope, ramp4, ramp4_slope; float fdelaylen, d1, d2, frac, slope, samp_slope, startpos, ! winsize, pchdisp, timedisp; long remain, nsmps, idelaylen, irdphase, irdphaseb, iwrphase; long mask, idsamp; --- 191,195 ---- float dsamp4, dsamp4_slope, ramp4, ramp4_slope; float fdelaylen, d1, d2, frac, slope, samp_slope, startpos, ! pchdisp, timedisp; long remain, nsmps, idelaylen, irdphase, irdphaseb, iwrphase; long mask, idsamp; *************** *** 209,216 **** pchratio = m_pitchratio; - winsize = m_windowsize; pchdisp = m_pitchdispersion; timedisp = m_timedispersion; ! timedisp = sc_clip(timedisp, 0.f, winsize) * SAMPLERATE; dlybuf = m_dlybuf; --- 202,208 ---- pchratio = m_pitchratio; pchdisp = m_pitchdispersion; timedisp = m_timedispersion; ! timedisp = sc_clip(timedisp, 0.f, m_windowsize) * SAMPLERATE; dlybuf = m_dlybuf; *************** *** 467,471 **** float dsamp4, dsamp4_slope, ramp4, ramp4_slope; float fdelaylen, d1, d2, frac, slope, samp_slope, startpos, ! winsize, pchdisp, timedisp; long remain, nsmps, idelaylen, irdphase, irdphaseb, iwrphase, mask, idsamp; long counter, stage, framesize; --- 459,463 ---- float dsamp4, dsamp4_slope, ramp4, ramp4_slope; float fdelaylen, d1, d2, frac, slope, samp_slope, startpos, ! pchdisp, timedisp; long remain, nsmps, idelaylen, irdphase, irdphaseb, iwrphase, mask, idsamp; long counter, stage, framesize; *************** *** 477,485 **** pchratio = m_pitchratio; - winsize = m_windowsize; pchdisp = m_pitchdispersion; timedisp = m_timedispersion; ! timedisp = sc_clip(timedisp, 0.f, winsize) * SAMPLERATE; dlybuf = m_dlybuf; --- 469,476 ---- pchratio = m_pitchratio; pchdisp = m_pitchdispersion; timedisp = m_timedispersion; ! timedisp = sc_clip(timedisp, 0.f, m_windowsize) * SAMPLERATE; dlybuf = m_dlybuf; *************** *** 636,638 **** ! /* todo: does a control rate PitchShift make sense? */ --- 627,629 ---- ! /* a control rate PitchShift doesn't make sense */ Index: ring2.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/ring2.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ring2.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- ring2.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 47,53 **** class ring2_ar ! :public flext_dsp { ! FLEXT_HEADER(ring2_ar,flext_dsp); public: --- 47,53 ---- class ring2_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(ring2_ar,sc4pd_dsp); public: Index: Median.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Median.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Median.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- Median.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 108,114 **** class Median_ar ! :public flext_dsp { ! FLEXT_HEADER(Median_ar,flext_dsp); public: --- 108,114 ---- class Median_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(Median_ar,sc4pd_dsp); public: *************** *** 167,173 **** class Median_kr ! :public flext_dsp { ! FLEXT_HEADER(Median_kr,flext_dsp); public: --- 167,173 ---- class Median_kr ! :public sc4pd_dsp { ! FLEXT_HEADER(Median_kr,sc4pd_dsp); public: Index: Lag2.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Lag2.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Lag2.cpp 3 Aug 2004 09:56:19 -0000 1.1 --- Lag2.cpp 7 Aug 2004 14:01:31 -0000 1.2 *************** *** 41,47 **** class Lag2_ar ! :public flext_dsp { ! FLEXT_HEADER(Lag2_ar,flext_dsp); public: --- 41,47 ---- class Lag2_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(Lag2_ar,sc4pd_dsp); public: Index: Lag3.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Lag3.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Lag3.cpp 3 Aug 2004 09:56:19 -0000 1.1 --- Lag3.cpp 7 Aug 2004 14:01:31 -0000 1.2 *************** *** 41,47 **** class Lag3_ar ! :public flext_dsp { ! FLEXT_HEADER(Lag3_ar,flext_dsp); public: --- 41,47 ---- class Lag3_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(Lag3_ar,sc4pd_dsp); public: Index: GrayNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/GrayNoise.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** GrayNoise.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- GrayNoise.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 41,47 **** class GrayNoise_ar: ! public flext_dsp { ! FLEXT_HEADER(GrayNoise_ar,flext_dsp); public: --- 41,47 ---- class GrayNoise_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(GrayNoise_ar,sc4pd_dsp); public: Index: Integrator.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Integrator.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Integrator.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- Integrator.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 41,47 **** class Integrator_ar ! :public flext_dsp { ! FLEXT_HEADER(Integrator_ar,flext_dsp); public: --- 41,47 ---- class Integrator_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(Integrator_ar,sc4pd_dsp); public: Index: ExpRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/ExpRand.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ExpRand.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- ExpRand.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 41,47 **** class ExpRand_ar: ! public flext_dsp { ! FLEXT_HEADER(ExpRand_ar,flext_dsp); public: --- 41,47 ---- class ExpRand_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(ExpRand_ar,sc4pd_dsp); public: Index: LFNoise2.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LFNoise2.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** LFNoise2.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- LFNoise2.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class LFNoise2_ar: ! public flext_dsp { ! FLEXT_HEADER(LFNoise2_ar,flext_dsp); public: --- 42,48 ---- class LFNoise2_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(LFNoise2_ar,sc4pd_dsp); public: Index: LFClipNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LFClipNoise.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** LFClipNoise.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- LFClipNoise.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 42,48 **** class LFClipNoise_ar: ! public flext_dsp { ! FLEXT_HEADER(LFClipNoise_ar,flext_dsp); public: --- 42,48 ---- class LFClipNoise_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(LFClipNoise_ar,sc4pd_dsp); public: Index: ring3.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/ring3.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ring3.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- ring3.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 47,53 **** class ring3_ar ! :public flext_dsp { ! FLEXT_HEADER(ring3_ar,flext_dsp); public: --- 47,53 ---- class ring3_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(ring3_ar,sc4pd_dsp); public: Index: amclip.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/amclip.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** amclip.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- amclip.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class amclip_ar ! :public flext_dsp { ! FLEXT_HEADER(amclip_ar,flext_dsp); public: --- 42,48 ---- class amclip_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(amclip_ar,sc4pd_dsp); public: Index: LFNoise1.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LFNoise1.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** LFNoise1.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- LFNoise1.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class LFNoise1_ar: ! public flext_dsp { ! FLEXT_HEADER(LFNoise1_ar,flext_dsp); public: --- 42,48 ---- class LFNoise1_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(LFNoise1_ar,sc4pd_dsp); public: Index: IRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/IRand.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** IRand.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- IRand.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 41,47 **** class IRand_ar: ! public flext_dsp { ! FLEXT_HEADER(IRand_ar,flext_dsp); public: --- 41,47 ---- class IRand_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(IRand_ar,sc4pd_dsp); public: Index: Logistic.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Logistic.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Logistic.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- Logistic.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class Logistic_ar: ! public flext_dsp { ! FLEXT_HEADER(Logistic_ar,flext_dsp); public: --- 42,48 ---- class Logistic_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(Logistic_ar,sc4pd_dsp); public: Index: sqrdif.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/sqrdif.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** sqrdif.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- sqrdif.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 49,55 **** class sqrdif_ar ! :public flext_dsp { ! FLEXT_HEADER(sqrdif_ar,flext_dsp); public: --- 49,55 ---- class sqrdif_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(sqrdif_ar,sc4pd_dsp); public: Index: Impulse.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Impulse.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Impulse.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- Impulse.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class Impulse_ar: ! public flext_dsp { ! FLEXT_HEADER(Impulse_ar,flext_dsp); public: --- 42,48 ---- class Impulse_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(Impulse_ar,sc4pd_dsp); public: Index: Hasher.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Hasher.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Hasher.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- Hasher.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 36,47 **** */ ! #include "support.hpp" /* ------------------------ Hasher~ -----------------------------------*/ class Hasher_ar ! :public flext_dsp { ! FLEXT_HEADER(Hasher_ar,flext_dsp); public: --- 36,47 ---- */ ! #include "sc4pd.hpp" /* ------------------------ Hasher~ -----------------------------------*/ class Hasher_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(Hasher_ar,sc4pd_dsp); public: Index: LFPulse.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LFPulse.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** LFPulse.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- LFPulse.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class LFPulse_ar: ! public flext_dsp { ! FLEXT_HEADER(LFPulse_ar,flext_dsp); public: --- 42,48 ---- class LFPulse_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(LFPulse_ar,sc4pd_dsp); public: Index: sqrsum.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/sqrsum.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** sqrsum.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- sqrsum.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 49,55 **** class sqrsum_ar ! :public flext_dsp { ! FLEXT_HEADER(sqrsum_ar,flext_dsp); public: --- 49,55 ---- class sqrsum_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(sqrsum_ar,sc4pd_dsp); public: Index: PinkNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/PinkNoise.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** PinkNoise.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- PinkNoise.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 41,47 **** class PinkNoise_ar: ! public flext_dsp { ! FLEXT_HEADER(PinkNoise_ar,flext_dsp); public: --- 41,47 ---- class PinkNoise_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(PinkNoise_ar,sc4pd_dsp); public: Index: absdif.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/absdif.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** absdif.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- absdif.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 49,55 **** class absdif_ar ! :public flext_dsp { ! FLEXT_HEADER(absdif_ar,flext_dsp); public: --- 49,55 ---- class absdif_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(absdif_ar,sc4pd_dsp); public: Index: NRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/NRand.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** NRand.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- NRand.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class NRand_ar: ! public flext_dsp { ! FLEXT_HEADER(NRand_ar,flext_dsp); public: --- 42,48 ---- class NRand_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(NRand_ar,sc4pd_dsp); public: Index: TIRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/TIRand.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TIRand.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- TIRand.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 42,48 **** class TIRand_ar: ! public flext_dsp { ! FLEXT_HEADER(TIRand_ar,flext_dsp); public: --- 42,48 ---- class TIRand_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(TIRand_ar,sc4pd_dsp); public: Index: sc4pd.hpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/sc4pd.hpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** sc4pd.hpp 3 Aug 2004 09:56:19 -0000 1.3 --- sc4pd.hpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 36,40 **** #ifndef _SC4PD_HPP - #define _SC$PD_HPP #include <flext.h> --- 36,39 ---- *************** *** 64,69 **** #define BUFLENGTH Blocksize() - - /* to make sure the behaviour is consistent: */ --- 63,66 ---- *************** *** 73,77 **** --- 70,128 ---- + class sc4pd_dsp + : public flext_dsp + { + FLEXT_HEADER(sc4pd_dsp,flext_dsp); + /* some initialisation functions, adapted from SC_Rate.cpp*/ + + inline float sc_sampledur() + { + return 1 / Samplerate(); + } + + inline float sc_radianspersample() + { + return twopi / Samplerate(); + } + + inline float sc_bufduration() + { + return Blocksize() / Samplerate(); + } + + inline float sc_bufrate() + { + return 1 / sc_bufduration(); + } + + inline float sc_slopefactor() + { + return 1 / Blocksize(); + } + + inline float sc_filterloops() + { + return Blocksize() / 3; + } + + inline float sc_filterremain() + { + return Blocksize() % 3; + } + + inline float sc_filterslope() + { + float f = sc_filterloops(); + if (f == 0) + return 0; + else + return 1. / f; + } + + }; + + + #define _SC$PD_HPP #endif Index: scaleneg.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/scaleneg.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** scaleneg.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- scaleneg.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class scaleneg_ar ! :public flext_dsp { ! FLEXT_HEADER(scaleneg_ar,flext_dsp); public: --- 42,48 ---- class scaleneg_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(scaleneg_ar,sc4pd_dsp); public: Index: DelayUnit.hpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/DelayUnit.hpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** DelayUnit.hpp 3 Aug 2004 17:51:51 -0000 1.2 --- DelayUnit.hpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 38,44 **** #include "sc4pd.hpp" ! class DelayUnit_ar : public flext_dsp { ! FLEXT_HEADER(DelayUnit_ar, flext_dsp); public: /* functions */ --- 38,46 ---- #include "sc4pd.hpp" ! class DelayUnit_ar ! : public sc4pd_dsp { ! FLEXT_HEADER(DelayUnit_ar,sc4pd_dsp); ! public: /* functions */ Index: LinExp.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LinExp.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** LinExp.cpp 3 Aug 2004 09:56:19 -0000 1.1 --- LinExp.cpp 7 Aug 2004 14:01:31 -0000 1.2 *************** *** 43,49 **** class LinExp_ar ! :public flext_dsp { ! FLEXT_HEADER(LinExp_ar,flext_dsp); public: --- 43,49 ---- class LinExp_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(LinExp_ar,sc4pd_dsp); public: Index: difsqr.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/difsqr.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** difsqr.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- difsqr.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 48,54 **** class difsqr_ar ! :public flext_dsp { ! FLEXT_HEADER(difsqr_ar,flext_dsp); public: --- 48,54 ---- class difsqr_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(difsqr_ar,sc4pd_dsp); public: Index: Decay2.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Decay2.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Decay2.cpp 2 Aug 2004 21:13:50 -0000 1.2 --- Decay2.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 42,48 **** class Decay2_ar ! :public flext_dsp { ! FLEXT_HEADER(Decay2_ar,flext_dsp); public: --- 42,48 ---- class Decay2_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(Decay2_ar,sc4pd_dsp); public: Index: excess.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/excess.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** excess.cpp 2 Aug 2004 19:18:22 -0000 1.2 --- excess.cpp 7 Aug 2004 14:01:31 -0000 1.3 *************** *** 41,47 **** class excess_ar ! :public flext_dsp { ! FLEXT_HEADER(excess_ar,flext_dsp); public: --- 41,47 ---- class excess_ar ! :public sc4pd_dsp { ! FLEXT_HEADER(excess_ar,sc4pd_dsp); public: Index: TRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/TRand.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TRand.cpp 2 Aug 2004 19:18:22 -0000 1.3 --- TRand.cpp 7 Aug 2004 14:01:31 -0000 1.4 *************** *** 42,48 **** class TRand_ar: ! public flext_dsp { ! FLEXT_HEADER(TRand_ar,flext_dsp); public: --- 42,48 ---- class TRand_ar: ! public sc4pd_dsp { ! FLEXT_HEADER(TRand_ar,sc4pd_dsp); public:

1 0

← Newer
1
...
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