Update of /cvsroot/pure-data/externals/sc4pd/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25852/source
Modified Files: main.cpp Added Files: Latoocarfian.cpp Log Message: another object
Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/sc4pd/source/main.cpp,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** main.cpp 17 Jul 2004 17:27:17 -0000 1.7 --- main.cpp 19 Jul 2004 21:28:04 -0000 1.8 *************** *** 58,62 **** "TExpRand(~), IRand(~), TIRand(~),\n CoinGate, " "LinRand(~), NRand(~), ExpRand(~), LFClipNoise(~),\n" ! " LFNoise0(~), LFNoise1(~), LFNoise2(~), Logistic(~)\n");
//initialize objects --- 58,63 ---- "TExpRand(~), IRand(~), TIRand(~),\n CoinGate, " "LinRand(~), NRand(~), ExpRand(~), LFClipNoise(~),\n" ! " LFNoise0(~), LFNoise1(~), LFNoise2(~), Logistic(~), " ! "Latoocarfian(~)\n");
//initialize objects *************** *** 134,137 **** --- 135,141 ---- FLEXT_DSP_SETUP(Logistic_ar); FLEXT_SETUP(Logistic_kr); + + FLEXT_DSP_SETUP(Latoocarfian_ar); + FLEXT_SETUP(Latoocarfian_kr); }
--- NEW FILE: Latoocarfian.cpp --- /* sc4pd Latoocarfian, Latoocarfian~
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
/* ------------------------ Latoocarfian~ -------------------------------*/
class Latoocarfian_ar: public flext_dsp { FLEXT_HEADER(Latoocarfian_ar,flext_dsp);
public: Latoocarfian_ar(int argc, t_atom *argv);
protected: virtual void m_signal(int n, t_sample *const *in, t_sample *const *out);
void m_set_a(float f) { m_a = f; }
void m_set_b(float f) { m_b = f; }
void m_set_c(float f) { m_c = f; }
void m_set_d(float f) { m_d = f; }
private: float m_x, m_y; //state float m_a, m_b, m_c, m_d; //parameters
FLEXT_CALLBACK_F(m_set_a); FLEXT_CALLBACK_F(m_set_b); FLEXT_CALLBACK_F(m_set_c); FLEXT_CALLBACK_F(m_set_d); };
FLEXT_LIB_DSP_V("Latoocarfian~",Latoocarfian_ar);
Latoocarfian_ar::Latoocarfian_ar(int argc, t_atom *argv) :m_x(0.4),m_y(1) { FLEXT_ADDMETHOD_(0,"a",m_set_a); FLEXT_ADDMETHOD_(0,"b",m_set_b); FLEXT_ADDMETHOD_(0,"c",m_set_c); FLEXT_ADDMETHOD_(0,"d",m_set_d);
//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); m_c = sc_getfloatarg(Args,2); m_d = sc_getfloatarg(Args,3);
AddOutSignal(); AddOutSignal(); // supercollider is only using the x coordinate }
void Latoocarfian_ar::m_signal(int n, t_sample *const *in, t_sample *const *out) { t_sample *xout = *out; t_sample *yout = *(out+1);
float a = m_a; float b = m_b; float c = m_c; float d = m_d;
float x = m_x; float y = m_y;
for (int i = 0; i!= n;++i) { float x_new=sin(y*b)+c*sin(x*b); float y_new=sin(x*a)+d*sin(y*a); (*(xout)++)=x=x_new; (*(yout)++)=y=y_new; } m_x = x; m_y = y; }
/* ------------------------ Latoocarfian ---------------------------------*/
class Latoocarfian_kr: public flext_base { FLEXT_HEADER(Latoocarfian_kr,flext_base);
public: Latoocarfian_kr(int argc, t_atom *argv);
protected: void m_perform();
void m_set_a(float f) { m_a = f; }
void m_set_b(float f) { m_b = f; }
void m_set_c(float f) { m_c = f; }
void m_set_d(float f) { m_d = f; }
private: float m_x, m_y; //state float m_a, m_b, m_c, m_d; //parameters
FLEXT_CALLBACK_F(m_set_a); FLEXT_CALLBACK_F(m_set_b); FLEXT_CALLBACK_F(m_set_c); FLEXT_CALLBACK_F(m_set_d); FLEXT_CALLBACK(m_perform); };
FLEXT_LIB_V("Latoocarfian",Latoocarfian_kr);
Latoocarfian_kr::Latoocarfian_kr(int argc, t_atom *argv) :m_x(1),m_y(1) { FLEXT_ADDMETHOD_(0,"a",m_set_a); FLEXT_ADDMETHOD_(0,"b",m_set_b); FLEXT_ADDMETHOD_(0,"c",m_set_c); FLEXT_ADDMETHOD_(0,"d",m_set_d);
FLEXT_ADDBANG(0,m_perform);
//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); m_c = sc_getfloatarg(Args,2); m_d = sc_getfloatarg(Args,3);
AddOutFloat(); AddOutFloat(); // one outlet more than sc }
void Latoocarfian_kr::m_perform() { m_x=sin(m_y*m_b)+m_c*sin(m_x*m_b); m_y=sin(m_x*m_a)+m_d*sin(m_y*m_a);
ToOutFloat(0,m_x); ToOutFloat(1,m_y); }