[PD-cvs] externals/sc4pd/source LinCong.cpp,NONE,1.1 Latoocarfian.cpp,1.1,1.2 main.cpp,1.8,1.9
Tim Blechmann
timblech at users.sourceforge.net
Fri Jul 23 12:01:58 CEST 2004
Update of /cvsroot/pure-data/externals/sc4pd/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10138/source
Modified Files:
Latoocarfian.cpp main.cpp
Added Files:
LinCong.cpp
Log Message:
added LinCong ugen
Index: main.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** main.cpp 19 Jul 2004 21:28:04 -0000 1.8
--- main.cpp 23 Jul 2004 10:01:56 -0000 1.9
***************
*** 59,63 ****
"LinRand(~), NRand(~), ExpRand(~), LFClipNoise(~),\n"
" LFNoise0(~), LFNoise1(~), LFNoise2(~), Logistic(~), "
! "Latoocarfian(~)\n");
//initialize objects
--- 59,63 ----
"LinRand(~), NRand(~), ExpRand(~), LFClipNoise(~),\n"
" LFNoise0(~), LFNoise1(~), LFNoise2(~), Logistic(~), "
! "Latoocarfian(~), LinCong(~)\n");
//initialize objects
***************
*** 138,141 ****
--- 138,144 ----
FLEXT_DSP_SETUP(Latoocarfian_ar);
FLEXT_SETUP(Latoocarfian_kr);
+
+ FLEXT_DSP_SETUP(LinCong_ar);
+ FLEXT_SETUP(LinCong_kr);
}
Index: Latoocarfian.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/sc4pd/source/Latoocarfian.cpp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Latoocarfian.cpp 19 Jul 2004 21:28:04 -0000 1.1
--- Latoocarfian.cpp 23 Jul 2004 10:01:56 -0000 1.2
***************
*** 92,96 ****
Latoocarfian_ar::Latoocarfian_ar(int argc, t_atom *argv)
! :m_x(0.4),m_y(1)
{
FLEXT_ADDMETHOD_(0,"a",m_set_a);
--- 92,96 ----
Latoocarfian_ar::Latoocarfian_ar(int argc, t_atom *argv)
! :m_x(4),m_y(1)
{
FLEXT_ADDMETHOD_(0,"a",m_set_a);
***************
*** 101,110 ****
//parse arguments
AtomList Args(argc,argv);
-
if (Args.Count()!=4)
{
post("4 arguments needed");
}
-
m_a = sc_getfloatarg(Args,0);
m_b = sc_getfloatarg(Args,1);
--- 101,108 ----
--- NEW FILE: LinCong.cpp ---
/* sc4pd
LinCong, LinCong~
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: Keith Rowe & John Tilbury: Duos For Doris
*/
#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
/* ------------------------ LinCong~ -------------------------------*/
class LinCong_ar:
public flext_dsp
{
FLEXT_HEADER(LinCong_ar,flext_dsp);
public:
LinCong_ar(int argc, t_atom *argv);
protected:
virtual void m_signal(int n, t_sample *const *in, t_sample *const *out);
void m_set_seed(float f)
{
m_seed = (int)f;
}
void m_set_mul(float f)
{
m_mul = (int)f;
}
void m_set_add(float f)
{
m_add = (int)f;
}
void m_set_mod(float f)
{
m_mod = (int)f;
m_scale = 2/f; //output between -1 and 1
}
private:
unsigned int m_seed; //seed
unsigned int m_mul, m_add, m_mod; //parameters
float m_scale;
FLEXT_CALLBACK_F(m_set_seed);
FLEXT_CALLBACK_F(m_set_mul);
FLEXT_CALLBACK_F(m_set_add);
FLEXT_CALLBACK_F(m_set_mod);
};
FLEXT_LIB_DSP_V("LinCong~",LinCong_ar);
LinCong_ar::LinCong_ar(int argc, t_atom *argv)
{
FLEXT_ADDMETHOD_(0,"seed",m_set_seed);
FLEXT_ADDMETHOD_(0,"mul",m_set_mul);
FLEXT_ADDMETHOD_(0,"add",m_set_add);
FLEXT_ADDMETHOD_(0,"mod",m_set_mod);
//parse arguments
AtomList Args(argc,argv);
if (Args.Count()!=4)
{
post("4 arguments needed");
}
m_seed = sc_getfloatarg(Args,0);
m_mul = sc_getfloatarg(Args,1);
m_add = sc_getfloatarg(Args,2);
m_set_mod(sc_getfloatarg(Args,3));
AddOutSignal();
}
void LinCong_ar::m_signal(int n, t_sample *const *in,
t_sample *const *out)
{
t_sample *xout = *out;
unsigned int seed = m_seed;
unsigned int mul = m_mul;
unsigned int add = m_add;
unsigned int mod = m_mod;
float scale = m_scale;
for (int i = 0; i!= n;++i)
{
seed=(seed * mul + add) % mod;
(*(xout)++)=float(seed)*scale - 1;
}
m_seed = seed;
}
/* ------------------------ LinCong ---------------------------------*/
class LinCong_kr:
public flext_base
{
FLEXT_HEADER(LinCong_kr,flext_base);
public:
LinCong_kr(int argc, t_atom *argv);
protected:
void m_perform();
void m_set_seed(float f)
{
m_seed = (int)f;
}
void m_set_mul(float f)
{
m_mul = (int)f;
}
void m_set_add(float f)
{
m_add = (int)f;
}
void m_set_mod(float f)
{
m_mod = (int)f;
m_scale = 2/f; //output between -1 and 1
}
private:
unsigned int m_seed; //seed
unsigned int m_mul, m_add, m_mod; //parameters
float m_scale;
FLEXT_CALLBACK_F(m_set_seed);
FLEXT_CALLBACK_F(m_set_mul);
FLEXT_CALLBACK_F(m_set_add);
FLEXT_CALLBACK_F(m_set_mod);
FLEXT_CALLBACK(m_perform);
};
FLEXT_LIB_V("LinCong",LinCong_kr);
LinCong_kr::LinCong_kr(int argc, t_atom *argv)
{
FLEXT_ADDMETHOD_(0,"seed",m_set_seed);
FLEXT_ADDMETHOD_(0,"mul",m_set_mul);
FLEXT_ADDMETHOD_(0,"add",m_set_add);
FLEXT_ADDMETHOD_(0,"mod",m_set_mod);
FLEXT_ADDBANG(0,m_perform);
//parse arguments
AtomList Args(argc,argv);
if (Args.Count()!=4)
{
post("4 arguments needed");
}
m_seed = sc_getfloatarg(Args,0);
m_mul = sc_getfloatarg(Args,1);
m_add = sc_getfloatarg(Args,2);
m_set_mod(sc_getfloatarg(Args,3));
AddOutFloat();
}
void LinCong_kr::m_perform()
{
m_seed=(m_seed * m_mul + m_add) % m_mod;
ToOutFloat(0,float(m_seed) * m_scale - 1);
}
More information about the Pd-cvs
mailing list