Pd-cvs July 2004

pd-cvs@lists.iem.at

7 participants
73 discussions

externals/sc4pd make-files.txt,1.2,1.3
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-serv1574 Modified Files: make-files.txt Log Message: rng have setable seed and other changes Index: make-files.txt =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/make-files.txt,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** make-files.txt 14 Jul 2004 22:09:37 -0000 1.2 --- make-files.txt 15 Jul 2004 19:05:05 -0000 1.3 *************** *** 5,7 **** BrownNoise.cpp ClipNoise.cpp GrayNoise.cpp WhiteNoise.cpp \ PinkNoise.cpp Dust2.cpp Crackle.cpp Rand.cpp TRand.cpp TExpRand.cpp \ ! IRand.cpp TIRand.cpp \ No newline at end of file --- 5,8 ---- BrownNoise.cpp ClipNoise.cpp GrayNoise.cpp WhiteNoise.cpp \ 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

1 0

externals/sc4pd/pd LinRand.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-serv1370/pd Added Files: LinRand.pd Log Message: further checkins --- NEW FILE: LinRand.pd --- #N canvas 0 0 450 300 10; #X obj 226 70 LinRand 1 2 3; #X floatatom 226 95 5 0 0 0 - - -; #X connect 0 0 1 0;

1 0

externals/sc4pd/source CoinGate.cpp,NONE,1.1 LinRand.cpp,NONE,1.1 NRand.cpp,NONE,1.1 support.cpp,NONE,1.1
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-serv1370/d Added Files: CoinGate.cpp LinRand.cpp NRand.cpp support.cpp Log Message: further checkins --- NEW FILE: CoinGate.cpp --- /* sc4pd CoinGate 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: the sounds coming through my open window */ #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 /* ------------------------ CoinGate ---------------------------------*/ class CoinGate_kr: public flext_base { FLEXT_HEADER(CoinGate_kr,flext_base); public: CoinGate_kr(int argc, t_atom *argv); protected: void m_bang(); void m_seed(int i) { rgen.init(i); } private: float prob; FLEXT_CALLBACK(m_bang); FLEXT_CALLBACK_I(m_seed); RGen rgen; }; FLEXT_LIB_V("CoinGate",CoinGate_kr); CoinGate_kr::CoinGate_kr(int argc, t_atom *argv) { AtomList Args(argc,argv); rgen.init(timeseed()); prob = sc_getfloatarg(Args,0); FLEXT_ADDBANG(0,m_bang); FLEXT_ADDMETHOD_(0,"seed",m_seed); AddOutBang(); } void CoinGate_kr::m_bang() { if(rgen.frand() < prob) ToOutBang(0); } --- NEW FILE: support.cpp --- /* sc4pd: support functions 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: Nmperign & Guenter Mueller: More Gloom, More Light */ #include <flext.h> #include "SC_PlugIn.h" #include <sys/time.h> #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) #error You need at least FLEXT version 0.4.6 #endif 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; } float sc_getfloatarg (flext::AtomList a,int i) { if (a.Count() > 0 && a.Count() > i) return flext::GetAFloat(a[i]); else return 0; } 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 #define RGET \ uint32 s1 = rgen.s1; \ uint32 s2 = rgen.s2; \ uint32 s3 = rgen.s3; #define RPUT \ rgen.s1 = s1; \ rgen.s2 = s2; \ rgen.s3 = s3; int32 timeseed() { static int32 count = 0; struct timeval tv; gettimeofday(&tv, 0); return (int32)tv.tv_sec ^ (int32)tv.tv_usec ^ count--; } --- NEW FILE: LinRand.cpp --- /* sc4pd LinRand, LinRand~ 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 /* ------------------------ LinRand~ -------------------------------*/ class LinRand_ar: public flext_dsp { FLEXT_HEADER(LinRand_ar,flext_dsp); public: LinRand_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("LinRand~",LinRand_ar); LinRand_ar::LinRand_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); AtomList Args(argc,argv); if (Args.Count() != 3) { post("not enough arguments"); return; } lo=sc_getfloatarg(Args,0); hi=sc_getfloatarg(Args,1); sc_n=sc_getfloatarg(Args,2); rgen.init(timeseed()); AddOutSignal(); } void LinRand_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { float range = hi - lo; float a, b; a = rgen.frand(); b = rgen.frand(); if (sc_n <= 0) { m_sample = sc_min(a, b) * range + lo; } else { m_sample = sc_max(a, b) * range + lo; } } void LinRand_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; } } /* ------------------------ LinRand ---------------------------------*/ class LinRand_kr: public flext_base { FLEXT_HEADER(LinRand_kr,flext_base); public: LinRand_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("LinRand",LinRand_kr); LinRand_kr::LinRand_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); AtomList Args(argc,argv); if (Args.Count() != 3) { post("not enough arguments"); return; } lo=sc_getfloatarg(Args,0); hi=sc_getfloatarg(Args,1); sc_n=sc_getfloatarg(Args,2); rgen.init(timeseed()); AddOutFloat(); } void LinRand_kr::m_loadbang() { float range = hi - lo; float a, b; a = rgen.frand(); b = rgen.frand(); if (sc_n <= 0) { ToOutFloat(0,sc_min(a, b) * range + lo); } else { ToOutFloat(0,sc_max(a, b) * range + lo); } } --- NEW FILE: NRand.cpp --- /* sc4pd NRand, NRand~ 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 /* ------------------------ NRand~ -------------------------------*/ class NRand_ar: public flext_dsp { FLEXT_HEADER(NRand_ar,flext_dsp); public: NRand_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("NRand~",NRand_ar); NRand_ar::NRand_ar(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); AtomList Args(argc,argv); if (Args.Count() != 3) { post("not enough arguments"); return; } lo=sc_getfloatarg(Args,0); hi=sc_getfloatarg(Args,1); sc_n=sc_getfloatarg(Args,2); rgen.init(timeseed()); AddOutSignal(); } void NRand_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { float range = hi - lo; float sum = 0; for (int i=0; i<sc_n; ++i) { sum += rgen.frand(); } m_sample = (sum/sc_n) * range + lo; } void NRand_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; } } /* ------------------------ NRand ---------------------------------*/ class NRand_kr: public flext_base { FLEXT_HEADER(NRand_kr,flext_base); public: NRand_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("NRand",NRand_kr); NRand_kr::NRand_kr(int argc, t_atom *argv) { FLEXT_ADDMETHOD_(0,"seed",m_seed); AtomList Args(argc,argv); if (Args.Count() != 3) { post("not enough arguments"); return; } lo=sc_getfloatarg(Args,0); hi=sc_getfloatarg(Args,1); sc_n=sc_getfloatarg(Args,2); rgen.init(timeseed()); AddOutFloat(); } void NRand_kr::m_loadbang() { float range = hi - lo; float sum = 0; for (int i=0; i<sc_n; ++i) { sum += rgen.frand(); } ToOutFloat(0,(sum/sc_n) * range + lo); }

1 0

pd/src d_soundfile.c,1.1.1.2.2.17,1.1.1.2.2.18
by Tim Blechmann 15 Jul '04

15 Jul '04

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6029 Modified Files: Tag: devel_0_37 d_soundfile.c Log Message: thread syncronization won't work with -rt ... Index: d_soundfile.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/d_soundfile.c,v retrieving revision 1.1.1.2.2.17 retrieving revision 1.1.1.2.2.18 diff -C2 -d -r1.1.1.2.2.17 -r1.1.1.2.2.18 *** d_soundfile.c 12 Jul 2004 14:15:07 -0000 1.1.1.2.2.17 --- d_soundfile.c 15 Jul 2004 16:45:47 -0000 1.1.1.2.2.18 *************** *** 1004,1010 **** void soundfiler_thread(void) { - /* thread has been started, the main thread can continue */ - pthread_cond_signal(&(soundfiler_queue->cond)); - while (1) { --- 1004,1007 ---- *************** *** 1183,1189 **** sf_param.sched_priority); - /* we wait until the helper thread is ready */ - pthread_cond_wait(&soundfiler_queue->cond, &soundfiler_queue->mutex); - } --- 1180,1183 ----

1 0

externals/sc4pd/pd trand.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-serv20344/pd Added Files: trand.pd Log Message: check in --- NEW FILE: trand.pd --- #N canvas 0 0 450 300 10; #X obj 277 115 TRand 2 3; #X floatatom 280 143 6 0 0 0 - - -; #X obj 275 88 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 144 74 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 144 96 t b b; #X obj 144 154 print~; #X obj 174 118 TRand~ 1 3; #X connect 0 0 1 0; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 4 1 6 0; #X connect 6 0 5 0;

1 0

externals/sc4pd/source main.cpp,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-serv19555/source Modified Files: main.cpp Log Message: some more ugens Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** main.cpp 14 Jul 2004 18:29:52 -0000 1.2 --- main.cpp 14 Jul 2004 22:09:37 -0000 1.3 *************** *** 1,3 **** ! /* sc4pd library initialization Copyright (c) 2004 Tim Blechmann. --- 1,4 ---- ! /* sc4pd ! library initialization Copyright (c) 2004 Tim Blechmann. *************** *** 52,56 **** "BrownNoise(~),\n" " ClipNoise(~), GrayNoise(~), Dust2(~), WhiteNoise(~), " ! "PinkNoise(~), \n Crackle(~), Rand(~)\n"); //initialize objects --- 53,58 ---- "BrownNoise(~),\n" " ClipNoise(~), GrayNoise(~), Dust2(~), WhiteNoise(~), " ! "PinkNoise(~), \n Crackle(~), Rand(~), TRand(~), " ! "TExpRand(~), IRand(~), TIRand(~)\n"); //initialize objects *************** *** 91,94 **** --- 93,107 ---- FLEXT_SETUP(Rand_kr); + FLEXT_DSP_SETUP(TRand_ar); + FLEXT_SETUP(TRand_kr); + + FLEXT_DSP_SETUP(TExpRand_ar); + FLEXT_SETUP(TExpRand_kr); + + FLEXT_DSP_SETUP(IRand_ar); + FLEXT_SETUP(IRand_kr); + + FLEXT_DSP_SETUP(TIRand_ar); + FLEXT_SETUP(TIRand_kr); }

1 0

externals/sc4pd make-files.txt,1.1.1.1,1.2
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-serv19555 Modified Files: make-files.txt Log Message: some more ugens Index: make-files.txt =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/make-files.txt,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** make-files.txt 14 Jul 2004 16:21:08 -0000 1.1.1.1 --- make-files.txt 14 Jul 2004 22:09:37 -0000 1.2 *************** *** 4,6 **** main.cpp Dust.cpp MantissaMask.cpp Hasher.cpp Median.cpp \ BrownNoise.cpp ClipNoise.cpp GrayNoise.cpp WhiteNoise.cpp \ ! PinkNoise.cpp Dust2.cpp Crackle.cpp \ No newline at end of file --- 4,7 ---- main.cpp Dust.cpp MantissaMask.cpp Hasher.cpp Median.cpp \ BrownNoise.cpp ClipNoise.cpp GrayNoise.cpp WhiteNoise.cpp \ ! PinkNoise.cpp Dust2.cpp Crackle.cpp Rand.cpp TRand.cpp TExpRand.cpp \ ! IRand.cpp TIRand.cpp \ No newline at end of file

1 0

externals/sc4pd/source TExpRand.cpp,NONE,1.1 TIRand.cpp,NONE,1.1 IRand.cpp,NONE,1.1 TRand.cpp,NONE,1.1
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-serv19114 Added Files: TExpRand.cpp TIRand.cpp IRand.cpp TRand.cpp Log Message: check in --- NEW FILE: TExpRand.cpp --- /* sc4pd TExpRand, TExpRand~ 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: Assif Tsahar: Open Systems */ #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 /* ------------------------ TExpRand~ -------------------------------*/ class TExpRand_ar: public flext_dsp { FLEXT_HEADER(TExpRand_ar,flext_dsp); public: TExpRand_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_bang(); void m_sethi(float f) { hi = f; ratio = hi / lo; } void m_setlo(float f) { lo = f; ratio = hi / lo; } private: float m_sample; float lo; float hi; float ratio; RGen rgen; FLEXT_CALLBACK(m_bang); FLEXT_CALLBACK_F(m_setlo); FLEXT_CALLBACK_F(m_sethi); }; FLEXT_LIB_DSP_V("TExpRand~",TExpRand_ar); TExpRand_ar::TExpRand_ar(int argc, t_atom *argv) { AtomList Args(argc,argv); if (Args.Count() != 2) { post("not enough arguments"); return; } lo=sc_getfloatarg(Args,0); hi=sc_getfloatarg(Args,1); ratio = hi / lo; rgen.init(0); //this should be changed AddOutSignal(); FLEXT_ADDBANG(0,m_bang); FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); } void TExpRand_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { m_sample = pow(ratio, rgen.frand()) * lo; } void TExpRand_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; } } void TExpRand_ar::m_bang() { m_sample = pow(ratio, rgen.frand()) * lo; } /* ------------------------ TExpRand ---------------------------------*/ class TExpRand_kr: public flext_base { FLEXT_HEADER(TExpRand_kr,flext_base); public: TExpRand_kr(int argc, t_atom *argv); protected: void m_loadbang(); void m_bang(); void m_sethi(float f) { hi = f; ratio = hi / lo; } void m_setlo(float f) { lo = f; ratio = hi / lo; } private: float lo; float hi; float ratio; RGen rgen; FLEXT_CALLBACK(m_bang); FLEXT_CALLBACK_F(m_setlo); FLEXT_CALLBACK_F(m_sethi); }; FLEXT_LIB_V("TExpRand",TExpRand_kr); TExpRand_kr::TExpRand_kr(int argc, t_atom *argv) { AtomList Args(argc,argv); if (Args.Count() != 2) { post("not enough arguments"); return; } lo=sc_getfloatarg(Args,0); hi=sc_getfloatarg(Args,1); ratio = hi / lo; rgen.init(0); AddOutFloat(); FLEXT_ADDBANG(0,m_bang); FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); } void TExpRand_kr::m_loadbang() { ToOutFloat(0,pow(ratio, rgen.frand()) * lo); } void TExpRand_kr::m_bang() { ToOutFloat(0,pow(ratio, rgen.frand()) * lo); } --- NEW FILE: TIRand.cpp --- /* sc4pd TIRand, TIRand~ 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: Sachiko M: Debris */ #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 /* ------------------------ TIRand~ -------------------------------*/ class TIRand_ar: public flext_dsp { FLEXT_HEADER(TIRand_ar,flext_dsp); public: TIRand_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_bang(); void m_sethi(int i) { hi = i; range = hi - lo; } void m_setlo(int i) { lo = i; range = hi - lo; } private: float m_sample; int lo; int hi; int range; RGen rgen; FLEXT_CALLBACK(m_bang); FLEXT_CALLBACK_I(m_setlo); FLEXT_CALLBACK_I(m_sethi); }; FLEXT_LIB_DSP_V("TIRand~",TIRand_ar); TIRand_ar::TIRand_ar(int argc, t_atom *argv) { AtomList Args(argc,argv); if (Args.Count() != 2) { post("not enough arguments"); return; } lo=int(sc_getfloatarg(Args,0)); hi=int(sc_getfloatarg(Args,1)); range = hi - lo; rgen.init(0); //this should be changed AddOutSignal(); FLEXT_ADDBANG(0,m_bang); FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); } void TIRand_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { m_sample = float(rgen.irand(range) + lo); } void TIRand_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; } } void TIRand_ar::m_bang() { m_sample = float(rgen.irand(range) + lo); } /* ------------------------ TIRand ---------------------------------*/ class TIRand_kr: public flext_base { FLEXT_HEADER(TIRand_kr,flext_base); public: TIRand_kr(int argc, t_atom *argv); protected: void m_loadbang(); void m_bang(); void m_sethi(int i) { hi = i; range = hi - lo; } void m_setlo(int i) { lo = i; range = hi - lo; } private: int lo; int hi; int range; RGen rgen; FLEXT_CALLBACK(m_bang); FLEXT_CALLBACK_I(m_setlo); FLEXT_CALLBACK_I(m_sethi); }; FLEXT_LIB_V("TIRand",TIRand_kr); TIRand_kr::TIRand_kr(int argc, t_atom *argv) { AtomList Args(argc,argv); if (Args.Count() != 2) { post("not enough arguments"); return; } lo=int(sc_getfloatarg(Args,0)); hi=int(sc_getfloatarg(Args,1)); range = hi - lo; rgen.init(0); AddOutInt(); FLEXT_ADDBANG(0,m_bang); FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); } void TIRand_kr::m_loadbang() { ToOutInt(0,rgen.irand(range) + lo); } void TIRand_kr::m_bang() { ToOutInt(0,rgen.irand(range) + lo); } --- NEW FILE: IRand.cpp --- /* sc4pd IRand, IRand~ 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: Assif Tsahar: Open Systems */ #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 /* ------------------------ IRand~ -------------------------------*/ class IRand_ar: public flext_dsp { FLEXT_HEADER(IRand_ar,flext_dsp); public: IRand_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); private: float m_sample; int lo; int hi; RGen rgen; }; FLEXT_LIB_DSP_V("IRand~",IRand_ar); IRand_ar::IRand_ar(int argc, t_atom *argv) { AtomList Args(argc,argv); if (Args.Count() != 2) { post("not enough arguments"); return; } lo=int(sc_getfloatarg(Args,0)); hi=int(sc_getfloatarg(Args,1)); rgen.init(0); //this should be changed AddOutSignal(); } void IRand_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { int range = hi - lo; m_sample = float(rgen.irand(range) + lo); } void IRand_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; } } /* ------------------------ IRand ---------------------------------*/ class IRand_kr: public flext_base { FLEXT_HEADER(IRand_kr,flext_base); public: IRand_kr(int argc, t_atom *argv); protected: void m_loadbang(); private: int lo; int hi; RGen rgen; }; FLEXT_LIB_V("IRand",IRand_kr); IRand_kr::IRand_kr(int argc, t_atom *argv) { AtomList Args(argc,argv); if (Args.Count() != 2) { post("not enough arguments"); return; } lo=int(sc_getfloatarg(Args,0)); hi=int(sc_getfloatarg(Args,1)); rgen.init(0); AddOutInt(); } void IRand_kr::m_loadbang() { int range = hi - lo; ToOutInt(0,rgen.irand(range) + lo); } --- NEW FILE: TRand.cpp --- /* sc4pd TRand, TRand~ 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: Annette Krebs & Taku Sugimoto: A Duo In Berlin */ #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 /* ------------------------ TRand~ -------------------------------*/ class TRand_ar: public flext_dsp { FLEXT_HEADER(TRand_ar,flext_dsp); public: TRand_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_bang(); void m_sethi(float f) { hi = f; range = hi - lo; } void m_setlo(float f) { lo = f; range = hi - lo; } private: float m_sample; float lo; float hi; float range; RGen rgen; FLEXT_CALLBACK(m_bang); FLEXT_CALLBACK_F(m_setlo); FLEXT_CALLBACK_F(m_sethi); }; FLEXT_LIB_DSP_V("TRand~",TRand_ar); TRand_ar::TRand_ar(int argc, t_atom *argv) { AtomList Args(argc,argv); if (Args.Count() != 2) { post("not enough arguments"); return; } lo=sc_getfloatarg(Args,0); hi=sc_getfloatarg(Args,1); range = hi - lo; rgen.init(0); //this should be changed AddOutSignal(); FLEXT_ADDBANG(0,m_bang); FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); } void TRand_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { m_sample = rgen.frand() * range + lo; } void TRand_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; } } void TRand_ar::m_bang() { m_sample = rgen.frand() * range + lo; } /* ------------------------ TRand ---------------------------------*/ class TRand_kr: public flext_base { FLEXT_HEADER(TRand_kr,flext_base); public: TRand_kr(int argc, t_atom *argv); protected: void m_loadbang(); void m_bang(); void m_sethi(float f) { hi = f; range = hi - lo; } void m_setlo(float f) { lo = f; range = hi - lo; } private: float lo; float hi; float range; RGen rgen; FLEXT_CALLBACK(m_bang); FLEXT_CALLBACK_F(m_setlo); FLEXT_CALLBACK_F(m_sethi); }; FLEXT_LIB_V("TRand",TRand_kr); TRand_kr::TRand_kr(int argc, t_atom *argv) { AtomList Args(argc,argv); if (Args.Count() != 2) { post("not enough arguments"); return; } lo=sc_getfloatarg(Args,0); hi=sc_getfloatarg(Args,1); range = hi - lo; rgen.init(0); AddOutFloat(); FLEXT_ADDBANG(0,m_bang); FLEXT_ADDMETHOD_(0,"setlo",m_setlo); FLEXT_ADDMETHOD_(0,"sethi",m_sethi); } void TRand_kr::m_loadbang() { ToOutFloat(0,rgen.frand() * range + lo); } void TRand_kr::m_bang() { ToOutFloat(0,rgen.frand() * range + lo); }

1 0

abstractions/rradical/memento careOSC.pd,NONE,1.1
by Frank Barknecht 14 Jul '04

14 Jul '04

Update of /cvsroot/pure-data/abstractions/rradical/memento In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30628 Added Files: careOSC.pd Log Message: Added careOSC: careOSC is able to persist a RRADICAL state to a textfile using OSC-notation. Order in this file does matter. --- NEW FILE: careOSC.pd --- #N canvas 159 71 136 70 10; #N canvas 0 0 1009 776 guts 0; #X msg 136 235 chdir; #N canvas 0 0 710 488 listdirs 0; #X obj 35 14 inlet; #X obj 284 279 outlet; #X obj 348 27 inlet; #X msg 240 13 getsub; #X obj 286 250 textfile; #X msg 269 168 clear; #X msg 357 165 print; #X obj 239 43 t b a b; #X msg 220 191 rewind; #X text 356 253 toplevel dirs; #X obj 299 100 spigot; #X msg 301 69 0; #X msg 329 70 1; #X obj 428 281 outlet; #X obj 37 89 select getsub output; #X msg 452 154 bang; #X obj 38 48 symbol; #X obj 40 40; #X obj 361 279 outlet; #X obj 299 138 prepend add; #X connect 0 0 16 0; #X connect 2 0 10 0; #X connect 3 0 7 0; #X connect 4 0 1 0; #X connect 4 1 18 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 8 0; #X connect 7 0 11 0; #X connect 7 1 13 0; #X connect 7 2 5 0; #X connect 7 2 12 0; #X connect 8 0 4 0; #X connect 10 0 19 0; #X connect 11 0 10 1; #X connect 12 0 10 1; #X connect 14 0 3 0; #X connect 14 1 4 0; #X connect 15 0 4 0; #X connect 16 0 14 0; #X connect 19 0 4 0; #X restore 79 315 pd listdirs; #X msg 79 238 getsub; #X msg 93 264 output; #N canvas 0 0 710 488 listdirs 0; #X obj 35 14 inlet; #X obj 284 279 outlet; #X obj 348 27 inlet; #X msg 240 13 getsub; #X obj 286 250 textfile; #X msg 269 168 clear; #X msg 357 165 print; #X obj 239 43 t b a b; #X msg 220 191 rewind; #X text 356 253 toplevel dirs; #X obj 299 100 spigot; #X msg 301 69 0; #X msg 329 70 1; #X obj 428 281 outlet; #X obj 37 89 select getsub output; #X msg 452 154 bang; #X obj 38 48 symbol; #X obj 361 279 outlet; #X obj 309 148 prepend add; #X connect 0 0 16 0; #X connect 2 0 10 0; #X connect 3 0 7 0; #X connect 4 0 1 0; #X connect 4 1 17 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 8 0; #X connect 7 0 11 0; #X connect 7 1 13 0; #X connect 7 2 5 0; #X connect 7 2 12 0; #X connect 8 0 4 0; #X connect 10 0 18 0; #X connect 11 0 10 1; #X connect 12 0 10 1; #X connect 14 0 3 0; #X connect 14 1 4 0; #X connect 15 0 4 0; #X connect 16 0 14 0; #X connect 18 0 4 0; #X restore 448 208 pd listdirs; #X msg 421 174 getsub; #X obj 339 170 symbol; #X msg 486 176 output; #X msg 298 198 chdir \$1; #X msg 219 141 absdir \$1; #X obj 198 119 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 62 178 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 216 73 loadbang; #X obj 61 200 t b b b b; #X obj 79 342 send \$0-top; #X obj 344 77 r \$0-top; #X obj 352 135 t b b b b a; #X obj 469 149 until; #X msg 219 98 1; #X obj 584 327 prepend chdir; #X msg 526 330 getall; #X obj 542 275 t b a a; #X obj 779 378 symbol; #X msg 776 358 \$1; #X obj 739 293 prepend list; #X obj 781 322 t a a; #X msg 700 404 \$2; #X msg 757 436 set \$1; #X obj 761 479 prepend nothing; #X obj 783 408 makefilename %s/preset; #X obj 549 557 prepend nothing; #X obj 605 468 makefilename; #X msg 586 532 set \$1; #X msg 629 444 set \$1%s; #X obj 693 648 textfile; #X obj 689 611 prepend add; #X msg 797 571 clear; #X msg 62 401 print; #X obj 476 101 del 250; #X text 536 96 savety measure; #X obj 214 320 pool RRADICAL; #X obj 575 366 pool RRADICAL; #X text 47 75 bang for save!; #X text 907 615 write file; #X obj 865 586 prepend write; #X obj 863 529 r \$0-save; #X obj 78 146 r \$0-create; #X obj 860 555 savepanel; #X obj 693 705 outlet; #X obj 714 675 until; #X obj 534 594 r \$0-load; #X obj 537 626 openpanel; #X msg 539 647 read \$1; #X obj 530 669 t b b a; #X msg 567 696 rewind; #X text 122 365 list topdirs; #X text 538 208 list subdirs (presets!); #X connect 0 0 40 0; #X connect 1 0 14 0; #X connect 1 2 40 0; #X connect 2 0 1 0; #X connect 3 0 1 0; #X connect 4 0 21 0; #X connect 4 1 3 0; #X connect 4 1 17 1; #X connect 4 2 40 0; #X connect 5 0 4 0; #X connect 6 0 8 0; #X connect 7 0 4 0; #X connect 8 0 40 0; #X connect 9 0 40 0; #X connect 10 0 9 0; #X connect 11 0 13 0; #X connect 12 0 18 0; #X connect 13 0 37 0; #X connect 13 1 3 0; #X connect 13 2 2 0; #X connect 13 3 0 0; #X connect 13 3 36 0; #X connect 15 0 16 0; #X connect 16 1 38 0; #X connect 16 2 17 0; #X connect 16 3 5 0; #X connect 16 4 6 0; #X connect 17 0 7 0; #X connect 18 0 9 0; #X connect 19 0 41 0; #X connect 20 0 41 0; #X connect 21 0 20 0; #X connect 21 1 19 0; #X connect 21 2 24 0; #X connect 22 0 29 0; #X connect 22 0 33 0; #X connect 23 0 22 0; #X connect 24 0 25 0; #X connect 25 0 26 0; #X connect 25 1 23 0; #X connect 26 0 28 0; #X connect 27 0 28 0; #X connect 28 0 35 0; #X connect 29 0 27 0; #X connect 30 0 35 0; #X connect 31 0 32 0; #X connect 32 0 30 0; #X connect 33 0 31 0; #X connect 34 0 48 0; #X connect 34 1 49 1; #X connect 35 0 34 0; #X connect 36 0 34 0; #X connect 37 0 34 0; #X connect 38 0 17 1; #X connect 40 1 1 1; #X connect 40 1 4 1; #X connect 41 0 30 0; #X connect 41 1 31 0; #X connect 44 0 34 0; #X connect 45 0 47 0; #X connect 46 0 11 0; #X connect 47 0 44 0; #X connect 49 0 34 0; #X connect 50 0 51 0; #X connect 51 0 52 0; #X connect 52 0 53 0; #X connect 53 0 49 0; #X connect 53 1 54 0; #X connect 53 2 34 0; #X connect 54 0 34 0; #X restore 23 4 pd guts; #X obj 13 28 bng 24 250 50 0 \$0-create \$0-create create 0 -6 0 8 -24198 -1 -1; #X obj 57 28 bng 24 250 50 0 \$0-save \$0-save save 0 -6 0 8 -241291 -1 -1; #X obj 98 29 bng 24 250 50 0 \$0-load \$0-load load 0 -6 0 8 -258699 -1 -1; #X obj 49 49 outlet; #X connect 0 0 4 0; #X coords 0 0 1 1 120 60 1;

1 0

externals/sc4pd/source Rand.cpp,NONE,1.1
by Tim Blechmann 14 Jul '04

14 Jul '04

Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8621 Added Files: Rand.cpp Log Message: checking in --- NEW FILE: Rand.cpp --- /* sc4pd Rand, Rand~ 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: the sounds coming through my open window */ #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 /* ------------------------ Rand~ -------------------------------*/ class Rand_ar: public flext_dsp { FLEXT_HEADER(Rand_ar,flext_dsp); public: Rand_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); private: float m_sample; float lo; float hi; RGen rgen; }; FLEXT_LIB_DSP_V("Rand~",Rand_ar); Rand_ar::Rand_ar(int argc, t_atom *argv) { 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(0); //this should be changed AddOutSignal(); } void Rand_ar::m_dsp(int n, t_sample *const *in, t_sample *const *out) { float range = hi - lo; m_sample = rgen.frand() * range + lo; } void Rand_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; } } /* ------------------------ Rand ---------------------------------*/ class Rand_kr: public flext_base { FLEXT_HEADER(Rand_kr,flext_base); public: Rand_kr(int argc, t_atom *argv); protected: void m_loadbang(); private: float lo; float hi; RGen rgen; }; FLEXT_LIB_V("Rand",Rand_kr); Rand_kr::Rand_kr(int argc, t_atom *argv) { 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(0); AddOutFloat(); } void Rand_kr::m_loadbang() { float range = hi - lo; ToOutFloat(0,rgen.frand() * range + lo); }

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