[PD-cvs] externals/sc4pd/source Rand.cpp,NONE,1.1
Tim Blechmann
timblech at users.sourceforge.net
Wed Jul 14 20:34:38 CEST 2004
- Previous message: [PD-cvs] externals/sc4pd/source main.cpp,1.1.1.1,1.2 support.hpp,1.1.1.1,1.2 Dust.cpp,1.1.1.1,1.2 Dust2.cpp,1.1.1.1,1.2
- Next message: [PD-cvs] abstractions/rradical/memento careOSC.pd,NONE,1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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);
}
- Previous message: [PD-cvs] externals/sc4pd/source main.cpp,1.1.1.1,1.2 support.hpp,1.1.1.1,1.2 Dust.cpp,1.1.1.1,1.2 Dust2.cpp,1.1.1.1,1.2
- Next message: [PD-cvs] abstractions/rradical/memento careOSC.pd,NONE,1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list