added LinCong ugen

svn path=/trunk/externals/tb/; revision=1887

3 files changed, 223 insertions, 4 deletions

diff --git a/sc4pd/source/Latoocarfian.cpp b/sc4pd/source/Latoocarfian.cpp
index f831c27..c509711 100644
--- a/sc4pd/source/Latoocarfian.cpp
+++ b/sc4pd/source/Latoocarfian.cpp
@@ -91,7 +91,7 @@ private:
 FLEXT_LIB_DSP_V("Latoocarfian~",Latoocarfian_ar);
 
 Latoocarfian_ar::Latoocarfian_ar(int argc, t_atom *argv)
-    :m_x(0.4),m_y(1)
+    :m_x(4),m_y(1)
 {
     FLEXT_ADDMETHOD_(0,"a",m_set_a);
     FLEXT_ADDMETHOD_(0,"b",m_set_b);
@@ -100,12 +100,10 @@ Latoocarfian_ar::Latoocarfian_ar(int argc, t_atom *argv)
 
     //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);
diff --git a/sc4pd/source/LinCong.cpp b/sc4pd/source/LinCong.cpp
new file mode 100644
index 0000000..0da0df7
--- /dev/null
+++ b/sc4pd/source/LinCong.cpp
@@ -0,0 +1,218 @@
+/* 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);
+}
diff --git a/sc4pd/source/main.cpp b/sc4pd/source/main.cpp
index 668c300..9f2287a 100644
--- a/sc4pd/source/main.cpp
+++ b/sc4pd/source/main.cpp
@@ -58,7 +58,7 @@ void sc4pd_library_setup()
 	 "TExpRand(~), IRand(~), TIRand(~),\n          CoinGate, "
 	 "LinRand(~), NRand(~), ExpRand(~), LFClipNoise(~),\n"
 	 "          LFNoise0(~), LFNoise1(~), LFNoise2(~), Logistic(~), "
-	 "Latoocarfian(~)\n");
+	 "Latoocarfian(~), LinCong(~)\n");
 
     //initialize objects
     FLEXT_DSP_SETUP(Dust_ar);
@@ -137,6 +137,9 @@ void sc4pd_library_setup()
 
     FLEXT_DSP_SETUP(Latoocarfian_ar);
     FLEXT_SETUP(Latoocarfian_kr);
+
+    FLEXT_DSP_SETUP(LinCong_ar);
+    FLEXT_SETUP(LinCong_kr);
 }
 
 FLEXT_LIB_SETUP(sc4pd,sc4pd_library_setup);