Pd-cvs July 2004

pd-cvs@lists.iem.at

7 participants
73 discussions

externals/sc4pd/source Logistic.cpp,NONE,1.1 Crackle.cpp,1.1.1.1,1.2 main.cpp,1.6,1.7
by Tim Blechmann 17 Jul '04

17 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29579/source Modified Files: Crackle.cpp main.cpp Added Files: Logistic.cpp Log Message: one more object and some changes Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** main.cpp 16 Jul 2004 16:43:48 -0000 1.6 --- main.cpp 17 Jul 2004 17:27:17 -0000 1.7 *************** *** 58,62 **** "TExpRand(~), IRand(~), TIRand(~),\n CoinGate, " "LinRand(~), NRand(~), ExpRand(~), LFClipNoise(~),\n" ! " LFNoise0(~), LFNoise1(~), LFNoise2\n"); //initialize objects --- 58,62 ---- "TExpRand(~), IRand(~), TIRand(~),\n CoinGate, " "LinRand(~), NRand(~), ExpRand(~), LFClipNoise(~),\n" ! " LFNoise0(~), LFNoise1(~), LFNoise2(~), Logistic(~)\n"); //initialize objects *************** *** 131,134 **** --- 131,137 ---- FLEXT_DSP_SETUP(LFNoise2_ar); FLEXT_SETUP(LFNoise2_kr); + + FLEXT_DSP_SETUP(Logistic_ar); + FLEXT_SETUP(Logistic_kr); } --- NEW FILE: Logistic.cpp --- /* sc4pd Logistic, Logistic~ 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: Fred Frith: Gravity */ #include <flext.h> #include "SC_PlugIn.h" #include "support.hpp" #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) #error You need at least FLEXT version 0.4.6 #endif /* ------------------------ Logistic~ -------------------------------*/ class Logistic_ar: public flext_dsp { FLEXT_HEADER(Logistic_ar,flext_dsp); public: Logistic_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(float f) { m_freq = sc_min(f,m_sr); } void m_param(float f) { m_paramf = f; } private: int m_freq; float m_paramf; int m_sr; double m_y1; int m_counter; FLEXT_CALLBACK_F(m_set); FLEXT_CALLBACK_F(m_param); }; FLEXT_LIB_DSP_V("Logistic~",Logistic_ar); Logistic_ar::Logistic_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"set",m_set); FLEXT_ADDMETHOD_(0,"parameter",m_set); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); m_paramf = sc_getfloatarg(Args,1); m_y1 = sc_getfloatarg(Args,2); m_sr=48000; // this is just a guess (i'll think about this later) AddOutSignal(); } void Logistic_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { m_sr = Samplerate(); m_paramf = sc_min(m_paramf,m_sr); } void Logistic_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nout = *out; if(m_sr == m_paramf) { /* it might be possible to implement this without the branch */ double y1 = m_y1; double paramf = m_paramf; for (int i = 0; i!= n;++i) { (*(nout)++)= y1 = paramf * y1 * (1.0 - y1); } m_y1 = y1; } else { double y1 = m_y1; double paramf = m_paramf; int counter = m_counter; int remain = n; do { if (counter<=0) { counter = (int)(m_sr / sc_max(m_freq, .001f)); counter = sc_max(1, counter); y1 = paramf * y1 * (1.0 - y1); } int nsmps = sc_min(remain, counter); remain -= nsmps; counter -= nsmps; for (int i = 0; i!= nsmps;++i) { (*(nout)++)=y1; } } while(remain); m_y1 = y1; m_counter = counter; } } /* ------------------------ Logistic ---------------------------------*/ class Logistic_kr: public flext_base { FLEXT_HEADER(Logistic_kr,flext_base); public: Logistic_kr(int argc, t_atom *argv); protected: void m_perform(); void m_param(float f) { m_paramf = f; } private: float m_paramf; double m_y1; FLEXT_CALLBACK(m_perform); FLEXT_CALLBACK_F(m_param); }; FLEXT_LIB_V("Logistic",Logistic_kr); Logistic_kr::Logistic_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"parameter",m_param); FLEXT_ADDBANG(0,m_perform); //parse arguments AtomList Args(argc,argv); m_paramf = sc_getfloatarg(Args,0); m_y1 = sc_getfloatarg(Args,1); AddOutFloat(); } void Logistic_kr::m_perform() { m_y1 = m_paramf * m_y1 * (1.0 - m_y1); ToOutFloat(0,m_y1); } Index: Crackle.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Crackle.cpp,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** Crackle.cpp 14 Jul 2004 16:21:44 -0000 1.1.1.1 --- Crackle.cpp 17 Jul 2004 17:27:17 -0000 1.2 *************** *** 75,79 **** : m_y1(0.3f),m_y2(0.f) { ! FLEXT_ADDMETHOD_(0,"set",m_set); //parse arguments AtomList Args(argc,argv); --- 75,79 ---- : m_y1(0.3f),m_y2(0.f) { ! FLEXT_ADDMETHOD_(0,"parameter",m_set); //parse arguments AtomList Args(argc,argv); *************** *** 140,144 **** { FLEXT_ADDBANG(0,m_perform); ! FLEXT_ADDMETHOD_(0,"set",m_set); //parse arguments --- 140,144 ---- { FLEXT_ADDBANG(0,m_perform); ! FLEXT_ADDMETHOD_(0,"parameter",m_set); //parse arguments

1 0

externals/sc4pd/source LFNoise1.cpp,NONE,1.1 LFNoise2.cpp,NONE,1.1 LFClipNoise.cpp,1.1,1.2 LFNoise0.cpp,1.1,1.2 main.cpp,1.5,1.6
by Tim Blechmann 16 Jul '04

16 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18458/source Modified Files: LFClipNoise.cpp LFNoise0.cpp main.cpp Added Files: LFNoise1.cpp LFNoise2.cpp Log Message: Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** main.cpp 15 Jul 2004 21:34:12 -0000 1.5 --- main.cpp 16 Jul 2004 16:43:48 -0000 1.6 *************** *** 58,62 **** "TExpRand(~), IRand(~), TIRand(~),\n CoinGate, " "LinRand(~), NRand(~), ExpRand(~), LFClipNoise(~),\n" ! " LFNoise0(~)\n"); //initialize objects --- 58,62 ---- "TExpRand(~), IRand(~), TIRand(~),\n CoinGate, " "LinRand(~), NRand(~), ExpRand(~), LFClipNoise(~),\n" ! " LFNoise0(~), LFNoise1(~), LFNoise2\n"); //initialize objects *************** *** 125,128 **** --- 125,134 ---- FLEXT_DSP_SETUP(LFNoise0_ar); FLEXT_SETUP(LFNoise0_kr); + + FLEXT_DSP_SETUP(LFNoise1_ar); + FLEXT_SETUP(LFNoise1_kr); + + FLEXT_DSP_SETUP(LFNoise2_ar); + FLEXT_SETUP(LFNoise2_kr); } Index: LFNoise0.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LFNoise0.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** LFNoise0.cpp 15 Jul 2004 21:34:12 -0000 1.1 --- LFNoise0.cpp 16 Jul 2004 16:43:47 -0000 1.2 *************** *** 155,160 **** protected: ! void m_perform(); ! void m_seed(int i) { --- 155,160 ---- protected: ! void m_perform(void*); ! void m_seed(int i) { *************** *** 164,170 **** void m_set(float f) { ! double dt = sc_min(1/f, .001f); m_timer.Reset(); ! m_timer.Periodic(1000*dt); } --- 164,170 ---- void m_set(float f) { ! double dt = sc_max(1/f, .001f); m_timer.Reset(); ! m_timer.Periodic(dt); } *************** *** 188,201 **** AtomList Args(argc,argv); ! double dt = sc_min(1/sc_getfloatarg(Args,0), .001f); rgen.init(timeseed()); ! m_timer.Periodic(1000*dt); AddOutFloat(); } ! void LFNoise0_kr::m_perform() { ToOutFloat(0,rgen.frand2()); --- 188,201 ---- AtomList Args(argc,argv); ! double dt = sc_max(1/sc_getfloatarg(Args,0), .001f); rgen.init(timeseed()); ! m_timer.Periodic(dt); AddOutFloat(); } ! void LFNoise0_kr::m_perform(void*) { ToOutFloat(0,rgen.frand2()); --- NEW FILE: LFNoise2.cpp --- /* sc4pd LFNoise2, LFNoise2~ 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: Guenther Mueller & Toshimaru Nakamura: Tint */ #include <flext.h> #include "SC_PlugIn.h" #include "support.hpp" #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) #error You need at least FLEXT version 0.4.6 #endif /* ------------------------ LFNoise2~ -------------------------------*/ class LFNoise2_ar: public flext_dsp { FLEXT_HEADER(LFNoise2_ar,flext_dsp); public: LFNoise2_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_seed(int i) { rgen.init(i); } void m_set(float f) { m_freq = f; } private: RGen rgen; float m_freq; float m_level; float m_slope; float m_curve; int m_counter; int m_sr; float m_nextvalue; float m_nextmidpt; FLEXT_CALLBACK_I(m_seed); FLEXT_CALLBACK_F(m_set); }; FLEXT_LIB_DSP_V("LFNoise2~",LFNoise2_ar); LFNoise2_ar::LFNoise2_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); FLEXT_ADDMETHOD_(0,"set",m_set); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); rgen.init(timeseed()); m_counter=0; m_level=rgen.frand2(); m_slope=0; m_curve=0; m_nextvalue=0; m_nextmidpt=0; AddOutSignal(); } void LFNoise2_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { m_sr = Samplerate(); } void LFNoise2_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nout = *out; float level = m_level; int32 counter = m_counter; float slope = m_slope; float curve = m_curve; RGET; int remain = n; do { if (counter<=0) { float value = m_nextvalue; m_nextvalue = frand2(s1,s2,s3); level = m_nextmidpt; m_nextmidpt = (m_nextvalue + value) * .5; counter = (int32)(m_sr / sc_max(m_freq, .001f)); counter = sc_max(2, counter); float fseglen = (float)counter; curve = 2.f * (m_nextmidpt - level - fseglen * slope) / (fseglen * fseglen + fseglen); } int nsmps = sc_min(remain, counter); remain -= nsmps; counter -= nsmps; for (int i = 0; i!= nsmps;++i) { (*(nout)++)=level; slope+=curve; level+=slope; } } while(remain); m_level = level; m_counter = counter; m_slope = slope; m_curve = curve; RPUT; } /* ------------------------ LFNoise2 ---------------------------------*/ class LFNoise2_kr: public flext_base { FLEXT_HEADER(LFNoise2_kr,flext_base); public: LFNoise2_kr(int argc, t_atom *argv); protected: void m_perform(void*); void m_seed(int i) { rgen.init(i); } void m_set(float); private: RGen rgen; float m_level; float m_slope; float m_curve; float m_nextvalue; float m_nextmidpt; float dt; //in s float tick; //in s int counter; Timer m_timer; FLEXT_CALLBACK_I(m_seed); FLEXT_CALLBACK_T(m_perform); FLEXT_CALLBACK_F(m_set); }; FLEXT_LIB_V("LFNoise2",LFNoise2_kr); LFNoise2_kr::LFNoise2_kr(int argc, t_atom *argv) : tick(0.01) { FLEXT_ADDMETHOD_(0,"seed",m_seed); FLEXT_ADDMETHOD_(0,"set",m_set); FLEXT_ADDTIMER(m_timer,m_perform); //parse arguments AtomList Args(argc,argv); rgen.init(timeseed()); m_level=rgen.frand2(); AddOutFloat(); m_set(sc_getfloatarg(Args,0)); } void LFNoise2_kr::m_set(float f) { dt = sc_max(1/f, .001f); counter = (dt/tick); counter = sc_max(2, counter); float value = m_nextvalue; m_nextvalue = rgen.frand2(); m_level = m_nextmidpt; m_nextmidpt = (m_nextvalue + value) * .5; float fseglen = (float)counter; m_curve = 2.f * (m_nextmidpt - m_level - fseglen * m_slope) / (fseglen * fseglen + fseglen); m_timer.Reset(); m_timer.Delay(tick); } void LFNoise2_kr::m_perform(void*) { m_slope+=m_curve; m_level+=m_slope; ToOutFloat(0,m_level); if (--counter) { m_timer.Reset(); m_timer.Delay(tick); } else { counter = (dt/tick); counter = sc_max(2, counter); float value = m_nextvalue; m_nextvalue = rgen.frand2(); m_level = m_nextmidpt; m_nextmidpt = (m_nextvalue + value) * .5; float fseglen = (float)counter; m_curve = 2.f * (m_nextmidpt - m_level - fseglen * m_slope) / (fseglen * fseglen + fseglen); m_timer.Reset(); m_timer.Delay(tick); } } Index: LFClipNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/LFClipNoise.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** LFClipNoise.cpp 15 Jul 2004 21:34:12 -0000 1.1 --- LFClipNoise.cpp 16 Jul 2004 16:43:47 -0000 1.2 *************** *** 155,159 **** protected: ! void m_perform(); void m_seed(int i) --- 155,159 ---- protected: ! void m_perform(void*); void m_seed(int i) *************** *** 164,170 **** void m_set(float f) { ! double dt = sc_min(1/f, .001f); m_timer.Reset(); ! m_timer.Periodic(1000*dt); } --- 164,170 ---- void m_set(float f) { ! double dt = sc_max(1/f, .001f); m_timer.Reset(); ! m_timer.Periodic(dt); } *************** *** 188,201 **** AtomList Args(argc,argv); ! double dt = sc_min(1/sc_getfloatarg(Args,0), .001f); rgen.init(timeseed()); ! m_timer.Periodic(1000*dt); AddOutFloat(); } ! void LFClipNoise_kr::m_perform() { ToOutFloat(0,rgen.fcoin()); --- 188,201 ---- AtomList Args(argc,argv); ! double dt = sc_max(1/sc_getfloatarg(Args,0), .001f); rgen.init(timeseed()); ! m_timer.Periodic(dt); AddOutFloat(); } ! void LFClipNoise_kr::m_perform(void*) { ToOutFloat(0,rgen.fcoin()); --- NEW FILE: LFNoise1.cpp --- /* sc4pd LFNoise1, LFNoise1~ 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: Fred Frith: Gravity */ #include <flext.h> #include "SC_PlugIn.h" #include "support.hpp" #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) #error You need at least FLEXT version 0.4.6 #endif /* ------------------------ LFNoise1~ -------------------------------*/ class LFNoise1_ar: public flext_dsp { FLEXT_HEADER(LFNoise1_ar,flext_dsp); public: LFNoise1_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_seed(int i) { rgen.init(i); } void m_set(float f) { m_freq = f; } private: RGen rgen; float m_freq; float m_level; float m_slope; int m_counter; int m_sr; FLEXT_CALLBACK_I(m_seed); FLEXT_CALLBACK_F(m_set); }; FLEXT_LIB_DSP_V("LFNoise1~",LFNoise1_ar); LFNoise1_ar::LFNoise1_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); FLEXT_ADDMETHOD_(0,"set",m_set); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); rgen.init(timeseed()); m_counter=0; m_level=rgen.frand2(); m_slope=0; AddOutSignal(); } void LFNoise1_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { m_sr = Samplerate(); } void LFNoise1_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nout = *out; float level = m_level; int32 counter = m_counter; float slope = m_slope; RGET; int remain = n; do { if (counter<=0) { counter = (int)(m_sr / sc_max(m_freq, .001f)); counter = sc_max(1, counter); float nextlevel = frand2(s1,s2,s3); slope = (nextlevel - level) / counter; } int nsmps = sc_min(remain, counter); remain -= nsmps; counter -= nsmps; for (int i = 0; i!= nsmps;++i) { (*(nout)++)=level; level+=slope; } } while(remain); m_level = level; m_counter = counter; m_slope = slope; RPUT; } /* ------------------------ LFNoise1 ---------------------------------*/ class LFNoise1_kr: public flext_base { FLEXT_HEADER(LFNoise1_kr,flext_base); public: LFNoise1_kr(int argc, t_atom *argv); protected: void m_perform(void*); void m_seed(int i) { rgen.init(i); } void m_set(float); private: RGen rgen; float m_level; float m_slope; float dt; //in s float tick; //in s int counter; Timer m_timer; FLEXT_CALLBACK_I(m_seed); FLEXT_CALLBACK_T(m_perform); FLEXT_CALLBACK_F(m_set); }; FLEXT_LIB_V("LFNoise1",LFNoise1_kr); LFNoise1_kr::LFNoise1_kr(int argc, t_atom *argv) : tick(0.01) { FLEXT_ADDMETHOD_(0,"seed",m_seed); FLEXT_ADDMETHOD_(0,"set",m_set); FLEXT_ADDTIMER(m_timer,m_perform); //parse arguments AtomList Args(argc,argv); rgen.init(timeseed()); m_level=rgen.frand2(); AddOutFloat(); m_set(sc_getfloatarg(Args,0)); } void LFNoise1_kr::m_set(float f) { dt = sc_max(1/f, .001f); counter = (dt/tick); float nextlevel = rgen.frand2(); m_slope = (nextlevel - m_level) / counter; m_timer.Reset(); m_timer.Delay(tick); } void LFNoise1_kr::m_perform(void*) { m_level+=m_slope; ToOutFloat(0,m_level); if (--counter) { m_timer.Reset(); m_timer.Delay(tick); } else { counter = (dt/tick); float nextlevel = rgen.frand2(); m_slope = (nextlevel - m_level) / counter; m_timer.Reset(); m_timer.Delay(tick); } }

1 0

externals/sc4pd/pd lfnoise1.pd,NONE,1.1 lfnoise0.pd,1.1,1.2
by Tim Blechmann 16 Jul '04

16 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18458/pd Modified Files: lfnoise0.pd Added Files: lfnoise1.pd Log Message: Index: lfnoise0.pd =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/pd/lfnoise0.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** lfnoise0.pd 15 Jul 2004 21:34:12 -0000 1.1 --- lfnoise0.pd 16 Jul 2004 16:43:47 -0000 1.2 *************** *** 4,10 **** -1; #X floatatom 246 97 5 0 0 0 - - -; - #X obj 246 55 LFNoise0 10; #X obj 89 48 LFNoise0~ 1000; #X connect 1 0 0 0; ! #X connect 3 0 2 0; ! #X connect 4 0 0 0; --- 4,17 ---- -1; #X floatatom 246 97 5 0 0 0 - - -; #X obj 89 48 LFNoise0~ 1000; + #X obj 246 143 timer; + #X obj 246 123 t b b; + #X floatatom 246 168 5 0 0 0 - - -; + #X obj 246 55 LFNoise0 10; #X connect 1 0 0 0; ! #X connect 2 0 5 0; ! #X connect 3 0 0 0; ! #X connect 4 0 6 0; ! #X connect 5 0 4 0; ! #X connect 5 1 4 1; ! #X connect 7 0 2 0; --- NEW FILE: lfnoise1.pd --- #N canvas 0 0 450 300 10; #X obj 89 115 print~; #X obj 141 88 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X floatatom 246 97 5 0 0 0 - - -; #X obj 246 143 timer; #X obj 246 123 t b b; #X floatatom 246 168 5 0 0 0 - - -; #X obj 246 55 LFNoise0 10; #X obj 89 48 LFNoise1~ 100; #X connect 1 0 0 0; #X connect 2 0 4 0; #X connect 3 0 5 0; #X connect 4 0 3 0; #X connect 4 1 3 1; #X connect 6 0 2 0; #X connect 7 0 0 0;

1 0

externals/sc4pd config-pd-linux.txt,1.1.1.1,1.2 make-files.txt,1.4,1.5 makefile.pd-linux,1.1.1.1,1.2
by Tim Blechmann 16 Jul '04

16 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18458 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.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** config-pd-linux.txt 14 Jul 2004 16:21:08 -0000 1.1.1.1 --- config-pd-linux.txt 16 Jul 2004 16:43:47 -0000 1.2 *************** *** 29,34 **** # additional compiler flags # (check whether they fit to your system!) ! #UFLAGS=-xN -tpp7 -ip -ipo_obj # icc ! # UFLAGS=-mcpu=pentium4 -mmmx -msse2 -msse -mfpmath=sse # gcc 3.2 --- 29,34 ---- # additional compiler flags # (check whether they fit to your system!) ! UFLAGS=-xN -tpp7 -ip -ipo_obj # icc ! #UFLAGS=-g -mcpu=pentium4 -mmmx -msse2 -msse -mfpmath=sse # gcc 3.2 Index: make-files.txt =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/make-files.txt,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** make-files.txt 15 Jul 2004 21:34:10 -0000 1.4 --- make-files.txt 16 Jul 2004 16:43:47 -0000 1.5 *************** *** 6,8 **** PinkNoise.cpp Dust2.cpp Crackle.cpp Rand.cpp TRand.cpp TExpRand.cpp \ IRand.cpp TIRand.cpp CoinGate.cpp support.cpp LinRand.cpp NRand.cpp\ ! ExpRand.cpp LFClipNoise.cpp LFNoise0.cpp \ No newline at end of file --- 6,8 ---- PinkNoise.cpp Dust2.cpp Crackle.cpp Rand.cpp TRand.cpp TExpRand.cpp \ IRand.cpp TIRand.cpp CoinGate.cpp support.cpp LinRand.cpp NRand.cpp\ ! ExpRand.cpp LFClipNoise.cpp LFNoise0.cpp LFNoise1.cpp LFNoise2.cpp \ No newline at end of file Index: makefile.pd-linux =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/makefile.pd-linux,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** makefile.pd-linux 14 Jul 2004 16:21:08 -0000 1.1.1.1 --- makefile.pd-linux 16 Jul 2004 16:43:47 -0000 1.2 *************** *** 56,60 **** $(TARGET) : $(patsubst %.cpp,$(TARGDIR)/%.o,$(SRCS)) $(CXX) $(LDFLAGS) -shared $^ $(patsubst %,-l%,$(LIBS)) -L$(FLEXTPATH) $(LINKFLEXT) -o $@ ! #strip --strip-unneeded $@ chmod 755 $@ --- 56,60 ---- $(TARGET) : $(patsubst %.cpp,$(TARGDIR)/%.o,$(SRCS)) $(CXX) $(LDFLAGS) -shared $^ $(patsubst %,-l%,$(LIBS)) -L$(FLEXTPATH) $(LINKFLEXT) -o $@ ! strip --strip-unneeded $@ chmod 755 $@

1 0

externals/sc4pd/headers/plugin_interface SC_RGen.h,1.1.1.1,1.2
by Tim Blechmann 15 Jul '04

15 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd/headers/plugin_interface In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29224/headers/plugin_interface Modified Files: SC_RGen.h Log Message: the work of this evening ... Index: SC_RGen.h =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/headers/plugin_interface/SC_RGen.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** SC_RGen.h 14 Jul 2004 16:21:31 -0000 1.1.1.1 --- SC_RGen.h 15 Jul 2004 21:34:11 -0000 1.2 *************** *** 166,170 **** // only return one of the two values -1.0 or +1.0 union { uint32 i; float f; } u; // union for floating point conversion of result ! u.i = 0x3E000000 | (0x80000000 & trand()); return u.f; } --- 166,170 ---- // only return one of the two values -1.0 or +1.0 union { uint32 i; float f; } u; // union for floating point conversion of result ! u.i = 0x3F800000 | (0x80000000 & trand()); return u.f; }

1 0

externals/sc4pd/pd clipnoise.pd,NONE,1.1 lfclipnoise.pd,NONE,1.1 lfnoise0.pd,NONE,1.1
by Tim Blechmann 15 Jul '04

15 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29224/pd Added Files: clipnoise.pd lfclipnoise.pd lfnoise0.pd Log Message: the work of this evening ... --- NEW FILE: lfnoise0.pd --- #N canvas 0 0 450 300 10; #X obj 89 115 print~; #X obj 141 88 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X floatatom 246 97 5 0 0 0 - - -; #X obj 246 55 LFNoise0 10; #X obj 89 48 LFNoise0~ 1000; #X connect 1 0 0 0; #X connect 3 0 2 0; #X connect 4 0 0 0; --- NEW FILE: clipnoise.pd --- #N canvas 0 0 450 300 10; #X obj 89 48 ClipNoise~; #X obj 89 115 print~; #X obj 141 88 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 246 55 ClipNoise; #X floatatom 246 97 5 0 0 0 - - -; #X obj 251 27 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X connect 0 0 1 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 5 0 3 0; --- NEW FILE: lfclipnoise.pd --- #N canvas 0 0 450 300 10; #X obj 89 115 print~; #X obj 141 88 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X floatatom 246 97 5 0 0 0 - - -; #X obj 89 48 LFClipNoise~ 1000; #X obj 246 55 LFClipNoise 10; #X connect 1 0 0 0; #X connect 3 0 0 0; #X connect 4 0 2 0;

1 0

externals/sc4pd/source LFClipNoise.cpp,NONE,1.1 LFNoise0.cpp,NONE,1.1 ClipNoise.cpp,1.2,1.3 ExpRand.cpp,1.1,1.2 main.cpp,1.4,1.5 support.cpp,1.1,1.2
by Tim Blechmann 15 Jul '04

15 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29224/source Modified Files: ClipNoise.cpp ExpRand.cpp main.cpp support.cpp Added Files: LFClipNoise.cpp LFNoise0.cpp Log Message: the work of this evening ... Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** main.cpp 15 Jul 2004 19:05:05 -0000 1.4 --- main.cpp 15 Jul 2004 21:34:12 -0000 1.5 *************** *** 57,61 **** "PinkNoise(~), \n Crackle(~), Rand(~), TRand(~), " "TExpRand(~), IRand(~), TIRand(~),\n CoinGate, " ! "LinRand(~), NRand(~), ExpRand(~)\n"); //initialize objects --- 57,62 ---- "PinkNoise(~), \n Crackle(~), Rand(~), TRand(~), " "TExpRand(~), IRand(~), TIRand(~),\n CoinGate, " ! "LinRand(~), NRand(~), ExpRand(~), LFClipNoise(~),\n" ! " LFNoise0(~)\n"); //initialize objects *************** *** 118,121 **** --- 119,128 ---- FLEXT_DSP_SETUP(ExpRand_ar); FLEXT_SETUP(ExpRand_kr); + + FLEXT_DSP_SETUP(LFClipNoise_ar); + FLEXT_SETUP(LFClipNoise_kr); + + FLEXT_DSP_SETUP(LFNoise0_ar); + FLEXT_SETUP(LFNoise0_kr); } Index: ExpRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/ExpRand.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ExpRand.cpp 15 Jul 2004 19:05:05 -0000 1.1 --- ExpRand.cpp 15 Jul 2004 21:34:12 -0000 1.2 *************** *** 98,102 **** { float ratio = hi / lo; ! m_sample = pow(ratio,rgen.frand()) * lo); } --- 98,102 ---- { float ratio = hi / lo; ! m_sample = pow(ratio,rgen.frand()) * lo; } --- NEW FILE: LFNoise0.cpp --- /* sc4pd LFNoise0, LFNoise0~ 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: Elliott Sharp: Revenge Of The Stuttering Child */ #include <flext.h> #include "SC_PlugIn.h" #include "support.hpp" #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) #error You need at least FLEXT version 0.4.6 #endif /* ------------------------ LFNoise0~ -------------------------------*/ class LFNoise0_ar: public flext_dsp { FLEXT_HEADER(LFNoise0_ar,flext_dsp); public: LFNoise0_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_seed(int i) { rgen.init(i); } void m_set(float f) { m_freq = f; } private: RGen rgen; float m_freq; float m_level; int m_counter; int m_sr; FLEXT_CALLBACK_I(m_seed); FLEXT_CALLBACK_F(m_set); }; FLEXT_LIB_DSP_V("LFNoise0~",LFNoise0_ar); LFNoise0_ar::LFNoise0_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); FLEXT_ADDMETHOD_(0,"set",m_set); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); m_counter=0; m_level=0; rgen.init(timeseed()); AddOutSignal(); } void LFNoise0_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { m_sr = Samplerate(); } void LFNoise0_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nout = *out; float level = m_level; int32 counter = m_counter; RGET; int remain = n; do { if (counter<=0) { counter = (int)(m_sr / sc_max(m_freq, .001f)); counter = sc_max(1, counter); level = frand2(s1,s2,s3); } int nsmps = sc_min(remain, counter); remain -= nsmps; counter -= nsmps; for (int i = 0; i!= nsmps;++i) { (*(nout)++)=level; } } while(remain); m_level = level; m_counter = counter; RPUT; } /* ------------------------ LFNoise0 ---------------------------------*/ class LFNoise0_kr: public flext_base { FLEXT_HEADER(LFNoise0_kr,flext_base); public: LFNoise0_kr(int argc, t_atom *argv); protected: void m_perform(); void m_seed(int i) { rgen.init(i); } void m_set(float f) { double dt = sc_min(1/f, .001f); m_timer.Reset(); m_timer.Periodic(1000*dt); } private: RGen rgen; Timer m_timer; FLEXT_CALLBACK_I(m_seed); FLEXT_CALLBACK_T(m_perform); FLEXT_CALLBACK_F(m_set); }; FLEXT_LIB_V("LFNoise0",LFNoise0_kr); LFNoise0_kr::LFNoise0_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); FLEXT_ADDMETHOD_(0,"set",m_set); FLEXT_ADDTIMER(m_timer,m_perform); //parse arguments AtomList Args(argc,argv); double dt = sc_min(1/sc_getfloatarg(Args,0), .001f); rgen.init(timeseed()); m_timer.Periodic(1000*dt); AddOutFloat(); } void LFNoise0_kr::m_perform() { ToOutFloat(0,rgen.frand2()); } --- NEW FILE: LFClipNoise.cpp --- /* sc4pd LFClipNoise, LFClipNoise~ 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: Elliott Sharp: Revenge Of The Stuttering Child */ #include <flext.h> #include "SC_PlugIn.h" #include "support.hpp" #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) #error You need at least FLEXT version 0.4.6 #endif /* ------------------------ LFClipNoise~ -------------------------------*/ class LFClipNoise_ar: public flext_dsp { FLEXT_HEADER(LFClipNoise_ar,flext_dsp); public: LFClipNoise_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_seed(int i) { rgen.init(i); } void m_set(float f) { m_freq = f; } private: RGen rgen; float m_freq; float m_level; int m_counter; int m_sr; FLEXT_CALLBACK_I(m_seed); FLEXT_CALLBACK_F(m_set); }; FLEXT_LIB_DSP_V("LFClipNoise~",LFClipNoise_ar); LFClipNoise_ar::LFClipNoise_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); FLEXT_ADDMETHOD_(0,"set",m_set); //parse arguments AtomList Args(argc,argv); m_freq = sc_getfloatarg(Args,0); m_counter=0; m_level=0; rgen.init(timeseed()); AddOutSignal(); } void LFClipNoise_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { m_sr = Samplerate(); } void LFClipNoise_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nout = *out; float level = m_level; int32 counter = m_counter; RGET; int remain = n; do { if (counter<=0) { counter = (int)(m_sr / sc_max(m_freq, .001f)); counter = sc_max(1, counter); level = fcoin(s1,s2,s3); } int nsmps = sc_min(remain, counter); remain -= nsmps; counter -= nsmps; for (int i = 0; i!= nsmps;++i) { (*(nout)++)=level; } } while(remain); m_level = level; m_counter = counter; RPUT; } /* ------------------------ LFClipNoise ---------------------------------*/ class LFClipNoise_kr: public flext_base { FLEXT_HEADER(LFClipNoise_kr,flext_base); public: LFClipNoise_kr(int argc, t_atom *argv); protected: void m_perform(); void m_seed(int i) { rgen.init(i); } void m_set(float f) { double dt = sc_min(1/f, .001f); m_timer.Reset(); m_timer.Periodic(1000*dt); } private: RGen rgen; Timer m_timer; FLEXT_CALLBACK_I(m_seed); FLEXT_CALLBACK_T(m_perform); FLEXT_CALLBACK_F(m_set); }; FLEXT_LIB_V("LFClipNoise",LFClipNoise_kr); LFClipNoise_kr::LFClipNoise_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); FLEXT_ADDMETHOD_(0,"set",m_set); FLEXT_ADDTIMER(m_timer,m_perform); //parse arguments AtomList Args(argc,argv); double dt = sc_min(1/sc_getfloatarg(Args,0), .001f); rgen.init(timeseed()); m_timer.Periodic(1000*dt); AddOutFloat(); } void LFClipNoise_kr::m_perform() { ToOutFloat(0,rgen.fcoin()); } Index: support.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/support.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** support.cpp 15 Jul 2004 19:03:22 -0000 1.1 --- support.cpp 15 Jul 2004 21:34:12 -0000 1.2 *************** *** 36,42 **** #include <flext.h> #include "SC_PlugIn.h" - #include <sys/time.h> #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) --- 36,42 ---- #include <flext.h> + #include <flsupport.h> #include "SC_PlugIn.h" #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) *************** *** 44,48 **** #endif - bool sc_add (flext::AtomList a) { --- 44,47 ---- *************** *** 97,102 **** { static int32 count = 0; ! struct timeval tv; ! gettimeofday(&tv, 0); ! return (int32)tv.tv_sec ^ (int32)tv.tv_usec ^ count--; } --- 96,110 ---- { static int32 count = 0; ! ! double time = flext::GetOSTime(); ! ! double sec = trunc(time); ! double usec = (time-sec)*1e6; ! ! time_t tsec = sec; ! suseconds_t tusec =usec; /* not exacty the way, it's calculated ! in SuperCollider, but it's only ! the seed */ ! ! return (int32)tsec ^ (int32)tusec ^ count--; } Index: ClipNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/ClipNoise.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ClipNoise.cpp 15 Jul 2004 19:05:05 -0000 1.2 --- ClipNoise.cpp 15 Jul 2004 21:34:12 -0000 1.3 *************** *** 135,143 **** rgen.init(timeseed()); ! AddOutFloat(); } void ClipNoise_kr::m_perform() { ! ToOutFloat(0,rgen.fcoin()); } --- 135,143 ---- rgen.init(timeseed()); ! AddOutInt(); } void ClipNoise_kr::m_perform() { ! ToOutInt(0,rgen.fcoin()); }

1 0

externals/sc4pd make-files.txt,1.3,1.4
by Tim Blechmann 15 Jul '04

15 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29224 Modified Files: make-files.txt Log Message: the work of this evening ... Index: make-files.txt =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/make-files.txt,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** make-files.txt 15 Jul 2004 19:05:05 -0000 1.3 --- make-files.txt 15 Jul 2004 21:34:10 -0000 1.4 *************** *** 6,8 **** PinkNoise.cpp Dust2.cpp Crackle.cpp Rand.cpp TRand.cpp TExpRand.cpp \ IRand.cpp TIRand.cpp CoinGate.cpp support.cpp LinRand.cpp NRand.cpp\ ! \ No newline at end of file --- 6,8 ---- PinkNoise.cpp Dust2.cpp Crackle.cpp Rand.cpp TRand.cpp TExpRand.cpp \ IRand.cpp TIRand.cpp CoinGate.cpp support.cpp LinRand.cpp NRand.cpp\ ! ExpRand.cpp LFClipNoise.cpp LFNoise0.cpp \ No newline at end of file

1 0

externals/sc4pd/pd-linux - New directory
by Tim Blechmann 15 Jul '04

15 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd/pd-linux In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2009/pd-linux Log Message: Directory /cvsroot/pure-data/externals/sc4pd/pd-linux added to the repository

1 0

externals/sc4pd/source ExpRand.cpp,NONE,1.1 BrownNoise.cpp,1.1.1.1,1.2 ClipNoise.cpp,1.1.1.1,1.2 Dust.cpp,1.2,1.3 Dust2.cpp,1.2,1.3 GrayNoise.cpp,1.1.1.1,1.2 IRand.cpp,1.1,1.2 PinkNoise.cpp,1.1.1.1,1.2 Rand.cpp,1.1,1.2 TExpRand.cpp,1.1,1.2 TIRand.cpp,1.1,1.2 TRand.cpp,1.1,1.2 WhiteNoise.cpp,1.1.1.1,1.2 main.cpp,1.3,1.4 support.hpp,1.2,1.3
by Tim Blechmann 15 Jul '04

15 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1574/source Modified Files: BrownNoise.cpp ClipNoise.cpp Dust.cpp Dust2.cpp GrayNoise.cpp IRand.cpp PinkNoise.cpp Rand.cpp TExpRand.cpp TIRand.cpp TRand.cpp WhiteNoise.cpp main.cpp support.hpp Added Files: ExpRand.cpp Log Message: rng have setable seed and other changes Index: support.hpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/support.hpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** support.hpp 14 Jul 2004 18:29:52 -0000 1.2 --- support.hpp 15 Jul 2004 19:05:05 -0000 1.3 *************** *** 36,84 **** #include <flext.h> ! #include <flsupport.h> ! #include <strings.h> #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) #error You need at least FLEXT version 0.4.6 #endif - inline bool sc_add (flext::AtomList a) - { - for (int i = 0; i!=a.Count();++i) - { - if ( flext::IsSymbol(a[i]) ) - { - const char * teststring; - teststring = flext::GetString(a[i]); - if((strcmp(teststring,"add"))==0) - return true; - } - } - return false; - } - - inline float sc_getfloatarg (flext::AtomList a,int i) - { - if (a.Count() > 0 && a.Count() > i) - return flext::GetAFloat(a[i]); - else - return 0; - } ! inline bool sc_ar(flext::AtomList a) ! { ! for (int i = 0; i!=a.Count();++i) ! { ! if ( flext::IsSymbol(a[i]) ) ! { ! const char * teststring; ! teststring = flext::GetString(a[i]); ! if((strcmp(teststring,"ar"))==0) ! return true; ! } ! } ! return false; ! } // macros to put rgen state in registers --- 36,55 ---- #include <flext.h> ! //#include <flsupport.h> ! #include "SC_PlugIn.h" ! ! //#include <strings.h> #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) #error You need at least FLEXT version 0.4.6 #endif + /* for argument parsing */ + bool sc_add (flext::AtomList a); + float sc_getfloatarg (flext::AtomList a,int i); + bool sc_ar(flext::AtomList a); ! /* for rngs */ // macros to put rgen state in registers *************** *** 93,94 **** --- 64,66 ---- rgen.s3 = s3; + int32 timeseed(); Index: TExpRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/TExpRand.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TExpRand.cpp 14 Jul 2004 22:07:27 -0000 1.1 --- TExpRand.cpp 15 Jul 2004 19:05:05 -0000 1.2 *************** *** 73,76 **** --- 73,81 ---- ratio = hi / lo; } + + void m_seed(int i) + { + rgen.init(i); + } private: *************** *** 84,87 **** --- 89,93 ---- FLEXT_CALLBACK_F(m_setlo); FLEXT_CALLBACK_F(m_sethi); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 101,105 **** ratio = hi / lo; ! rgen.init(0); //this should be changed AddOutSignal(); --- 107,111 ---- ratio = hi / lo; ! rgen.init(timeseed()); AddOutSignal(); *************** *** 108,111 **** --- 114,118 ---- FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); + FLEXT_ADDMETHOD_(0,"seed",m_seed); } *************** *** 160,163 **** --- 167,175 ---- } + void m_seed(int i) + { + rgen.init(i); + } + private: float lo; *************** *** 168,171 **** --- 180,184 ---- FLEXT_CALLBACK_F(m_setlo); FLEXT_CALLBACK_F(m_sethi); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 184,188 **** ratio = hi / lo; ! rgen.init(0); AddOutFloat(); --- 197,201 ---- ratio = hi / lo; ! rgen.init(timeseed()); AddOutFloat(); *************** *** 191,194 **** --- 204,208 ---- FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); + FLEXT_ADDMETHOD_(0,"seed",m_seed); } Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** main.cpp 14 Jul 2004 22:09:37 -0000 1.3 --- main.cpp 15 Jul 2004 19:05:05 -0000 1.4 *************** *** 37,40 **** --- 37,41 ---- #include <flext.h> + #include "SC_PlugIn.h" #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) *************** *** 44,47 **** --- 45,49 ---- #define SC4PD_VERSION "0.01" + void sc4pd_library_setup() { *************** *** 54,58 **** " ClipNoise(~), GrayNoise(~), Dust2(~), WhiteNoise(~), " "PinkNoise(~), \n Crackle(~), Rand(~), TRand(~), " ! "TExpRand(~), IRand(~), TIRand(~)\n"); //initialize objects --- 56,61 ---- " ClipNoise(~), GrayNoise(~), Dust2(~), WhiteNoise(~), " "PinkNoise(~), \n Crackle(~), Rand(~), TRand(~), " ! "TExpRand(~), IRand(~), TIRand(~),\n CoinGate, " ! "LinRand(~), NRand(~), ExpRand(~)\n"); //initialize objects *************** *** 104,107 **** --- 107,121 ---- FLEXT_DSP_SETUP(TIRand_ar); FLEXT_SETUP(TIRand_kr); + + FLEXT_SETUP(CoinGate_kr); + + FLEXT_DSP_SETUP(LinRand_ar); + FLEXT_SETUP(LinRand_kr); + + FLEXT_DSP_SETUP(NRand_ar); + FLEXT_SETUP(NRand_kr); + + FLEXT_DSP_SETUP(ExpRand_ar); + FLEXT_SETUP(ExpRand_kr); } Index: IRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/IRand.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IRand.cpp 14 Jul 2004 22:07:27 -0000 1.1 --- IRand.cpp 15 Jul 2004 19:05:05 -0000 1.2 *************** *** 59,62 **** --- 59,67 ---- 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_seed(int i) + { + rgen.init(i); + } private: *************** *** 65,68 **** --- 70,74 ---- int hi; RGen rgen; + FLEXT_CALLBACK_I(m_seed); }; *************** *** 71,74 **** --- 77,82 ---- IRand_ar::IRand_ar(int argc, t_atom *argv) { + FLEXT_ADDMETHOD_(0,"seed",m_seed); + AtomList Args(argc,argv); *************** *** 81,85 **** hi=int(sc_getfloatarg(Args,1)); ! rgen.init(0); //this should be changed AddOutSignal(); --- 89,93 ---- hi=int(sc_getfloatarg(Args,1)); ! rgen.init(timeseed()); AddOutSignal(); *************** *** 120,127 **** --- 128,141 ---- void m_loadbang(); + void m_seed(int i) + { + rgen.init(i); + } + private: int lo; int hi; RGen rgen; + FLEXT_CALLBACK_I(m_seed); }; *************** *** 130,133 **** --- 144,149 ---- IRand_kr::IRand_kr(int argc, t_atom *argv) { + FLEXT_ADDMETHOD_(0,"seed",m_seed); + AtomList Args(argc,argv); if (Args.Count() != 2) *************** *** 139,143 **** hi=int(sc_getfloatarg(Args,1)); ! rgen.init(0); AddOutInt(); --- 155,159 ---- hi=int(sc_getfloatarg(Args,1)); ! rgen.init(timeseed()); AddOutInt(); Index: Dust2.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Dust2.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Dust2.cpp 14 Jul 2004 18:29:52 -0000 1.2 --- Dust2.cpp 15 Jul 2004 19:05:05 -0000 1.3 *************** *** 65,71 **** --- 65,77 ---- m_scale = m_thresh > 0.f ? 1.f / m_thresh : 0.f; } + + void m_seed(int i) + { + rgen.init(i); + } private: FLEXT_CALLBACK_F(m_set); + FLEXT_CALLBACK_I(m_seed); float m_density, m_thresh, m_scale; RGen rgen; *************** *** 78,81 **** --- 84,88 ---- { FLEXT_ADDMETHOD_(0,"set",m_set); + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments *************** *** 83,87 **** m_density=sc_getfloatarg(Args,0); ! rgen.init(0); //set seed to 0 AddOutSignal(); --- 90,94 ---- m_density=sc_getfloatarg(Args,0); ! rgen.init(timeseed()); AddOutSignal(); *************** *** 131,134 **** --- 138,146 ---- Timer Dust2_timer; void m_doit(void*); + + void m_seed(int i) + { + rgen.init(i); + } private: *************** *** 137,140 **** --- 149,153 ---- RGen rgen; FLEXT_CALLBACK_1(m_set,float); + FLEXT_CALLBACK_I(m_seed); FLEXT_CALLBACK_T(m_doit); }; *************** *** 146,149 **** --- 159,163 ---- { FLEXT_ADDMETHOD(0,m_set); + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments *************** *** 151,155 **** m_density=sc_getfloatarg(Args,0); ! rgen.init(0); //set seed to 0 AddOutFloat(); --- 165,169 ---- m_density=sc_getfloatarg(Args,0); ! rgen.init(timeseed()); AddOutFloat(); Index: PinkNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/PinkNoise.cpp,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** PinkNoise.cpp 14 Jul 2004 16:21:44 -0000 1.1.1.1 --- PinkNoise.cpp 15 Jul 2004 19:05:05 -0000 1.2 *************** *** 58,61 **** --- 58,66 ---- protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); + + void m_seed(int i) + { + rgen.init(i); + } private: *************** *** 63,66 **** --- 68,72 ---- int32 m_total; RGen rgen; + FLEXT_CALLBACK_I(m_seed); }; *************** *** 70,78 **** : m_total(0) { //parse arguments AtomList Args(argc,argv); ! rgen.init(0); //set seed to 0 for (int i=0; i<16; ++i) --- 76,85 ---- : m_total(0) { + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments AtomList Args(argc,argv); ! rgen.init(timeseed()); for (int i=0; i<16; ++i) *************** *** 124,127 **** --- 131,139 ---- protected: void m_perform(); + + void m_seed(int i) + { + rgen.init(i); + } private: *************** *** 130,133 **** --- 142,146 ---- RGen rgen; FLEXT_CALLBACK(m_perform); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 138,146 **** { FLEXT_ADDBANG(0,m_perform); //parse arguments AtomList Args(argc,argv); ! rgen.init(0); //set seed to 0 for (int i=0; i<16; ++i) --- 151,160 ---- { FLEXT_ADDBANG(0,m_perform); + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments AtomList Args(argc,argv); ! rgen.init(timeseed()); for (int i=0; i<16; ++i) Index: Rand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Rand.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Rand.cpp 14 Jul 2004 18:34:35 -0000 1.1 --- Rand.cpp 15 Jul 2004 19:05:05 -0000 1.2 *************** *** 59,62 **** --- 59,67 ---- 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_seed(int i) + { + rgen.init(i); + } private: *************** *** 65,68 **** --- 70,74 ---- float hi; RGen rgen; + FLEXT_CALLBACK_I(m_seed); }; *************** *** 71,74 **** --- 77,82 ---- Rand_ar::Rand_ar(int argc, t_atom *argv) { + FLEXT_ADDMETHOD_(0,"seed",m_seed); + AtomList Args(argc,argv); *************** *** 81,85 **** hi=sc_getfloatarg(Args,1); ! rgen.init(0); //this should be changed AddOutSignal(); --- 89,93 ---- hi=sc_getfloatarg(Args,1); ! rgen.init(timeseed()); AddOutSignal(); *************** *** 120,127 **** --- 128,141 ---- void m_loadbang(); + void m_seed(int i) + { + rgen.init(i); + } + private: float lo; float hi; RGen rgen; + FLEXT_CALLBACK_I(m_seed); }; *************** *** 130,133 **** --- 144,149 ---- Rand_kr::Rand_kr(int argc, t_atom *argv) { + FLEXT_ADDMETHOD_(0,"seed",m_seed); + AtomList Args(argc,argv); if (Args.Count() != 2) *************** *** 139,144 **** hi=sc_getfloatarg(Args,1); ! rgen.init(0); ! AddOutFloat(); } --- 155,160 ---- hi=sc_getfloatarg(Args,1); ! rgen.init(timeseed()); ! AddOutFloat(); } --- NEW FILE: ExpRand.cpp --- /* sc4pd ExpRand, ExpRand~ 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: Jim O'Rourke & Loren Mazzacane Connors: In Bern */ #include <flext.h> #include "SC_PlugIn.h" #include "support.hpp" #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) #error You need at least FLEXT version 0.4.6 #endif /* ------------------------ ExpRand~ -------------------------------*/ class ExpRand_ar: public flext_dsp { FLEXT_HEADER(ExpRand_ar,flext_dsp); public: ExpRand_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_seed(int i) { rgen.init(i); } private: float m_sample; float lo; float hi; int sc_n; RGen rgen; FLEXT_CALLBACK_I(m_seed); }; FLEXT_LIB_DSP_V("ExpRand~",ExpRand_ar); ExpRand_ar::ExpRand_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); AtomList Args(argc,argv); if (Args.Count() != 2) { post("not enough arguments"); return; } lo=sc_getfloatarg(Args,0); hi=sc_getfloatarg(Args,1); rgen.init(timeseed()); AddOutSignal(); } void ExpRand_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { float ratio = hi / lo; m_sample = pow(ratio,rgen.frand()) * lo); } void ExpRand_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *nout = *out; float sample = m_sample; for (int i = 0; i!= n;++i) { (*(nout)++) = sample; } } /* ------------------------ ExpRand ---------------------------------*/ class ExpRand_kr: public flext_base { FLEXT_HEADER(ExpRand_kr,flext_base); public: ExpRand_kr(int argc, t_atom *argv); protected: void m_loadbang(); void m_seed(int i) { rgen.init(i); } private: float lo; float hi; int sc_n; RGen rgen; FLEXT_CALLBACK_I(m_seed); }; FLEXT_LIB_V("ExpRand",ExpRand_kr); ExpRand_kr::ExpRand_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); AtomList Args(argc,argv); if (Args.Count() != 2) { post("not enough arguments"); return; } lo=sc_getfloatarg(Args,0); hi=sc_getfloatarg(Args,1); rgen.init(timeseed()); AddOutFloat(); } void ExpRand_kr::m_loadbang() { float ratio = hi / lo; ToOutFloat(0,pow(ratio,rgen.frand()) * lo); } Index: TIRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/TIRand.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TIRand.cpp 14 Jul 2004 22:07:27 -0000 1.1 --- TIRand.cpp 15 Jul 2004 19:05:05 -0000 1.2 *************** *** 74,77 **** --- 74,81 ---- } + void m_seed(int i) + { + rgen.init(i); + } private: *************** *** 85,88 **** --- 89,93 ---- FLEXT_CALLBACK_I(m_setlo); FLEXT_CALLBACK_I(m_sethi); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 102,106 **** range = hi - lo; ! rgen.init(0); //this should be changed AddOutSignal(); --- 107,111 ---- range = hi - lo; ! rgen.init(timeseed()); AddOutSignal(); *************** *** 109,112 **** --- 114,118 ---- FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); + FLEXT_ADDMETHOD_(0,"seed",m_seed); } *************** *** 161,164 **** --- 167,175 ---- } + void m_seed(int i) + { + rgen.init(i); + } + private: int lo; *************** *** 169,172 **** --- 180,184 ---- FLEXT_CALLBACK_I(m_setlo); FLEXT_CALLBACK_I(m_sethi); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 185,189 **** range = hi - lo; ! rgen.init(0); AddOutInt(); --- 197,201 ---- range = hi - lo; ! rgen.init(timeseed()); AddOutInt(); *************** *** 192,195 **** --- 204,208 ---- FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); + FLEXT_ADDMETHOD_(0,"seed",m_seed); } Index: BrownNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/BrownNoise.cpp,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** BrownNoise.cpp 14 Jul 2004 16:21:44 -0000 1.1.1.1 --- BrownNoise.cpp 15 Jul 2004 19:05:05 -0000 1.2 *************** *** 59,65 **** --- 59,71 ---- virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); + void m_seed(int i) + { + rgen.init(i); + } + private: float m_level; RGen rgen; + FLEXT_CALLBACK_I(m_seed); }; *************** *** 68,78 **** BrownNoise_ar::BrownNoise_ar(int argc, t_atom *argv) { - //parse arguments AtomList Args(argc,argv); ! rgen.init(0); //set seed to 0 m_level=rgen.frand2(); ! AddOutSignal(); } --- 74,85 ---- BrownNoise_ar::BrownNoise_ar(int argc, t_atom *argv) { //parse arguments AtomList Args(argc,argv); ! rgen.init(timeseed()); m_level=rgen.frand2(); ! ! FLEXT_ADDMETHOD_(0,"seed",m_seed); ! AddOutSignal(); } *************** *** 116,119 **** --- 123,131 ---- protected: void m_perform(); + + void m_seed(int i) + { + rgen.init(i); + } private: *************** *** 121,124 **** --- 133,137 ---- RGen rgen; FLEXT_CALLBACK(m_perform); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 128,136 **** { FLEXT_ADDBANG(0,m_perform); //parse arguments AtomList Args(argc,argv); ! rgen.init(0); //set seed to 0 m_level=rgen.frand2(); --- 141,150 ---- { FLEXT_ADDBANG(0,m_perform); + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments AtomList Args(argc,argv); ! rgen.init(timeseed()); m_level=rgen.frand2(); Index: GrayNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/GrayNoise.cpp,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** GrayNoise.cpp 14 Jul 2004 16:21:44 -0000 1.1.1.1 --- GrayNoise.cpp 15 Jul 2004 19:05:05 -0000 1.2 *************** *** 58,65 **** --- 58,71 ---- protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); + + void m_seed(int i) + { + rgen.init(i); + } private: int m_counter; RGen rgen; + FLEXT_CALLBACK_I(m_seed); }; *************** *** 68,76 **** GrayNoise_ar::GrayNoise_ar(int argc, t_atom *argv) { //parse arguments AtomList Args(argc,argv); ! rgen.init(0); //set seed to 0 AddOutSignal(); --- 74,83 ---- GrayNoise_ar::GrayNoise_ar(int argc, t_atom *argv) { + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments AtomList Args(argc,argv); ! rgen.init(timeseed()); AddOutSignal(); *************** *** 109,112 **** --- 116,124 ---- protected: void m_perform(); + + void m_seed(int i) + { + rgen.init(i); + } private: *************** *** 114,117 **** --- 126,130 ---- RGen rgen; FLEXT_CALLBACK(m_perform); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 121,129 **** { FLEXT_ADDBANG(0,m_perform); //parse arguments AtomList Args(argc,argv); ! rgen.init(0); //set seed to 0 AddOutFloat(); --- 134,143 ---- { FLEXT_ADDBANG(0,m_perform); + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments AtomList Args(argc,argv); ! rgen.init(timeseed()); AddOutFloat(); Index: TRand.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/TRand.cpp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TRand.cpp 14 Jul 2004 22:07:27 -0000 1.1 --- TRand.cpp 15 Jul 2004 19:05:05 -0000 1.2 *************** *** 74,77 **** --- 74,81 ---- } + void m_seed(int i) + { + rgen.init(i); + } private: *************** *** 85,88 **** --- 89,93 ---- FLEXT_CALLBACK_F(m_setlo); FLEXT_CALLBACK_F(m_sethi); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 102,106 **** range = hi - lo; ! rgen.init(0); //this should be changed AddOutSignal(); --- 107,111 ---- range = hi - lo; ! rgen.init(timeseed()); AddOutSignal(); *************** *** 109,112 **** --- 114,118 ---- FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); + FLEXT_ADDMETHOD_(0,"seed",m_seed); } *************** *** 161,164 **** --- 167,175 ---- } + void m_seed(int i) + { + rgen.init(i); + } + private: float lo; *************** *** 169,172 **** --- 180,184 ---- FLEXT_CALLBACK_F(m_setlo); FLEXT_CALLBACK_F(m_sethi); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 185,189 **** range = hi - lo; ! rgen.init(0); AddOutFloat(); --- 197,201 ---- range = hi - lo; ! rgen.init(timeseed()); AddOutFloat(); *************** *** 192,195 **** --- 204,208 ---- FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); + FLEXT_ADDMETHOD_(0,"seed",m_seed); } Index: WhiteNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/WhiteNoise.cpp,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** WhiteNoise.cpp 14 Jul 2004 16:21:44 -0000 1.1.1.1 --- WhiteNoise.cpp 15 Jul 2004 19:05:05 -0000 1.2 *************** *** 58,64 **** --- 58,70 ---- protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); + + void m_seed(int i) + { + rgen.init(i); + } private: RGen rgen; + FLEXT_CALLBACK_I(m_seed); }; *************** *** 67,75 **** WhiteNoise_ar::WhiteNoise_ar(int argc, t_atom *argv) { //parse arguments AtomList Args(argc,argv); ! rgen.init(0); //set seed to 0 AddOutSignal(); --- 73,82 ---- WhiteNoise_ar::WhiteNoise_ar(int argc, t_atom *argv) { + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments AtomList Args(argc,argv); ! rgen.init(timeseed()); AddOutSignal(); *************** *** 105,112 **** --- 112,125 ---- protected: void m_perform(); + + void m_seed(int i) + { + rgen.init(i); + } private: RGen rgen; FLEXT_CALLBACK(m_perform); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 116,124 **** { FLEXT_ADDBANG(0,m_perform); //parse arguments AtomList Args(argc,argv); ! rgen.init(0); //set seed to 0 AddOutFloat(); --- 129,138 ---- { FLEXT_ADDBANG(0,m_perform); + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments AtomList Args(argc,argv); ! rgen.init(timeseed()); AddOutFloat(); Index: ClipNoise.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/ClipNoise.cpp,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** ClipNoise.cpp 14 Jul 2004 16:21:44 -0000 1.1.1.1 --- ClipNoise.cpp 15 Jul 2004 19:05:05 -0000 1.2 *************** *** 58,64 **** --- 58,70 ---- protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); + + void m_seed(int i) + { + rgen.init(i); + } private: RGen rgen; + FLEXT_CALLBACK_I(m_seed); }; *************** *** 67,75 **** ClipNoise_ar::ClipNoise_ar(int argc, t_atom *argv) { //parse arguments AtomList Args(argc,argv); ! rgen.init(0); //set seed to 0 AddOutSignal(); --- 73,82 ---- ClipNoise_ar::ClipNoise_ar(int argc, t_atom *argv) { + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments AtomList Args(argc,argv); ! rgen.init(timeseed()); AddOutSignal(); *************** *** 105,112 **** --- 112,125 ---- protected: void m_perform(); + + void m_seed(int i) + { + rgen.init(i); + } private: RGen rgen; FLEXT_CALLBACK(m_perform); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 116,124 **** { FLEXT_ADDBANG(0,m_perform); ! //parse arguments AtomList Args(argc,argv); ! rgen.init(0); //set seed to 0 AddOutFloat(); --- 129,137 ---- { FLEXT_ADDBANG(0,m_perform); ! FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments AtomList Args(argc,argv); ! rgen.init(timeseed()); AddOutFloat(); Index: Dust.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/Dust.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Dust.cpp 14 Jul 2004 18:29:52 -0000 1.2 --- Dust.cpp 15 Jul 2004 19:05:05 -0000 1.3 *************** *** 64,70 **** --- 64,76 ---- m_scale = m_thresh > 0.f ? 1.f / m_thresh : 0.f; } + + void m_seed(int i) + { + rgen.init(i); + } private: FLEXT_CALLBACK_F(m_set); + FLEXT_CALLBACK_I(m_seed); float m_density, m_thresh, m_scale; RGen rgen; *************** *** 77,80 **** --- 83,87 ---- { FLEXT_ADDMETHOD_(0,"set",m_set); + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments *************** *** 82,86 **** m_density=sc_getfloatarg(Args,0); ! rgen.init(0); //set seed to 0 AddOutSignal(); --- 89,94 ---- m_density=sc_getfloatarg(Args,0); ! rgen.init(timeseed()); ! AddOutSignal(); *************** *** 130,133 **** --- 138,146 ---- Timer Dust_timer; void m_doit(void*); + + void m_seed(int i) + { + rgen.init(i); + } private: *************** *** 137,140 **** --- 150,154 ---- FLEXT_CALLBACK_1(m_set,float); FLEXT_CALLBACK_T(m_doit); + FLEXT_CALLBACK_I(m_seed); }; *************** *** 145,148 **** --- 159,163 ---- { FLEXT_ADDMETHOD(0,m_set); + FLEXT_ADDMETHOD_(0,"seed",m_seed); //parse arguments *************** *** 150,154 **** m_density=sc_getfloatarg(Args,0); ! rgen.init(0); //set seed to 0 AddOutFloat(); --- 165,169 ---- m_density=sc_getfloatarg(Args,0); ! rgen.init(timeseed()); AddOutFloat();

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs July 2004