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); }