From 0aa3917ce03265d942b86fcc0b0d224b0e46627f Mon Sep 17 00:00:00 2001 From: Tim Blechmann Date: Fri, 30 Jul 2004 21:27:07 +0000 Subject: Binary Operators svn path=/trunk/externals/tb/; revision=1899 --- sc4pd/source/ring1.cpp | 136 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 136 insertions(+) create mode 100644 sc4pd/source/ring1.cpp (limited to 'sc4pd/source/ring1.cpp') diff --git a/sc4pd/source/ring1.cpp b/sc4pd/source/ring1.cpp new file mode 100644 index 0000000..b9aee15 --- /dev/null +++ b/sc4pd/source/ring1.cpp @@ -0,0 +1,136 @@ +/* sc4pd + ring1, ring1~ + + 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: Evan Parker & Keith Rowe: Dark Rags + +*/ + +#include +#include "SC_PlugIn.h" + +#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) +#error You need at least FLEXT version 0.4.6 +#endif + + +inline float sc_ring1 (float a, float b) +{ + return a*b+a; +} + + +/* ------------------------ ring1~ -----------------------------*/ + +class ring1_ar + :public flext_dsp +{ + FLEXT_HEADER(ring1_ar,flext_dsp); + +public: + ring1_ar(int argc,t_atom * argv); + +protected: + virtual void m_signal(int n, t_sample *const *in, t_sample *const *out); + +private: + +}; + +FLEXT_LIB_DSP_V("ring1~",ring1_ar); + +ring1_ar::ring1_ar(int argc,t_atom * argv) +{ + AddInSignal(); + AddInSignal(); + AddOutSignal(); +} + +void ring1_ar::m_signal(int n, t_sample *const *in, + t_sample *const *out) +{ + t_sample *nout = *out; + t_sample *nin1 = *in; + t_sample *nin2 = *(in+1); + + for (int i = 0; i!= n;++i) + { + if( *nin2 > 0) + (*(nout)++) = sc_ring1( (*(nin1)++), (*(nin2)++) ); + } +} + + + +/* ------------------------ ring1 ------------------------------*/ + +class ring1_kr + :public flext_base +{ + FLEXT_HEADER(ring1_kr,flext_base); + +public: + ring1_kr(int argc,t_atom * argv); + +protected: + void m_perform(float f); + void m_set(float f); + +private: + float b; + FLEXT_CALLBACK_F(m_perform); + FLEXT_CALLBACK_F(m_set); +}; + +FLEXT_LIB_V("ring1",ring1_kr); + +ring1_kr::ring1_kr(int argc,t_atom * argv) + :b(0) +{ + + AddInFloat(); + AddInFloat(); + AddOutFloat(); + + FLEXT_ADDMETHOD(0,m_perform); + FLEXT_ADDMETHOD(1,m_set); +} + +void ring1_kr::m_perform(float f) +{ + ToOutFloat(0,sc_ring1(f,b)); +} + +void ring1_kr::m_set(float f) +{ + b=f; +} -- cgit v1.2.1 From 1bf32780fe1281eda6deb51f661f2f234a16fd1f Mon Sep 17 00:00:00 2001 From: Tim Blechmann Date: Mon, 2 Aug 2004 20:13:59 +0000 Subject: *** empty log message *** svn path=/trunk/externals/tb/; revision=1904 --- sc4pd/source/ring1.cpp | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'sc4pd/source/ring1.cpp') diff --git a/sc4pd/source/ring1.cpp b/sc4pd/source/ring1.cpp index b9aee15..f3bce43 100644 --- a/sc4pd/source/ring1.cpp +++ b/sc4pd/source/ring1.cpp @@ -35,13 +35,7 @@ */ -#include -#include "SC_PlugIn.h" - -#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 406) -#error You need at least FLEXT version 0.4.6 -#endif - +#include "sc4pd.hpp" inline float sc_ring1 (float a, float b) { -- cgit v1.2.1 From 89f570e5ebeab979202acf679974bafd05072692 Mon Sep 17 00:00:00 2001 From: Tim Blechmann Date: Sat, 7 Aug 2004 14:01:31 +0000 Subject: sc4pd_dsp class and other changes svn path=/trunk/externals/tb/; revision=1912 --- sc4pd/source/ring1.cpp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'sc4pd/source/ring1.cpp') diff --git a/sc4pd/source/ring1.cpp b/sc4pd/source/ring1.cpp index f3bce43..9c09e40 100644 --- a/sc4pd/source/ring1.cpp +++ b/sc4pd/source/ring1.cpp @@ -46,9 +46,9 @@ inline float sc_ring1 (float a, float b) /* ------------------------ ring1~ -----------------------------*/ class ring1_ar - :public flext_dsp + :public sc4pd_dsp { - FLEXT_HEADER(ring1_ar,flext_dsp); + FLEXT_HEADER(ring1_ar,sc4pd_dsp); public: ring1_ar(int argc,t_atom * argv); -- cgit v1.2.1