From 48c014742612aa874fc736a5be3ab43e1091fa45 Mon Sep 17 00:00:00 2001 From: "B. Bogart" Date: Mon, 26 Aug 2002 16:17:00 +0000 Subject: First upload of chaos externals! svn path=/trunk/externals/bbogart/chaos/; revision=92 --- ikeda.c | 124 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 124 insertions(+) create mode 100644 ikeda.c (limited to 'ikeda.c') diff --git a/ikeda.c b/ikeda.c new file mode 100644 index 0000000..2510d3e --- /dev/null +++ b/ikeda.c @@ -0,0 +1,124 @@ +/////////////////////////////////////////////////////////////////////////////////// +/* Ikeda Attractor PD External */ +/* Copyright Ben Bogart 2002 */ +/* This program is distributed under the terms of the GNU General Public License */ +/////////////////////////////////////////////////////////////////////////////////// + +/////////////////////////////////////////////////////////////////////////////////// +/* This file is part of Chaos PD Externals. */ +/* */ +/* Chaos PD Externals are free software; you can redistribute them and/or modify */ +/* them 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. */ +/* */ +/* Chaos PD Externals are distributed in the hope that they 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 the Chaos PD Externals; if not, write to the Free Software */ +/* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ +/////////////////////////////////////////////////////////////////////////////////// + +#include "m_pd.h" +#include + + +t_class *myclass; + +typedef struct thisismystruct +{ + t_object myobj; + double a,b,c,rho,lx0,ly0; + t_outlet *y_outlet; +} mystruct; + +static void calculate(mystruct *x) +{ + double lx0,ly0,lx1,ly1; + double a,b,c,rho,tmp,cos_tmp,sin_tmp; + + a = x->a; + b = x->b; + c = x->c; + rho = x->rho; + lx0 = x->lx0; + ly0 = x->ly0; + + + tmp = a - c / ( 1.0 + lx0*lx0 + ly0*ly0); + sin_tmp = sin(tmp); + cos_tmp = cos(tmp); + + lx1 = rho + b * ( lx0 * cos_tmp - ly0 * sin_tmp); + ly1 = b * ( lx0 * sin_tmp + ly0 * cos_tmp); + x->lx0 = lx1; + x->ly0 = ly1; + + outlet_float(x->myobj.ob_outlet, (t_float)lx1); + outlet_float(x->y_outlet, (t_float)ly1); +} + +static void reset(mystruct *x) +{ + x->lx0 = 0.1; + x->ly0 = 0.1; +} + +static void param(mystruct *x, t_floatarg a, t_floatarg b, t_floatarg c, t_floatarg rho) +{ + x->a = (double)a; + x->b = (double)b; + x->c = (double)c; + x->rho = (double)rho; +} + +void *ikeda_new(void) +{ + mystruct *x = (mystruct *)pd_new(myclass); + x->a = 0.4; + x->b = 0.9; + x->c = 6.0; + x->rho = 1.0; + x->lx0 = 0.1; + x->ly0 = 0.1; + + outlet_new(&x->myobj, &s_float); /* Default float outlet */ + x->y_outlet = outlet_new(&x->myobj, &s_float); /* New Outlet */ + return (void *)x; +} + + +void ikeda_setup(void) +{ + post("-------------------------"); /* Copyright info */ + post("Chaos PD Externals"); + post("Copyright Ben Bogart 2002"); + post("-------------------------"); + + myclass = class_new(gensym("ikeda"), /* symname is the symbolic name */ + (t_newmethod)ikeda_new, /* Constructor Function */ + 0, /* Destructor Function */ + sizeof(mystruct), /* Size of the structure */ + CLASS_DEFAULT, /* Graphical Representation */ + 0); /* 0 Terminates Argument List */ + + class_addbang(myclass, (t_method)calculate); + class_addmethod(myclass, + (t_method)reset, + gensym("reset"), + 0); + + class_addmethod(myclass, + (t_method)param, + gensym("param"), + A_DEFFLOAT, + A_DEFFLOAT, + A_DEFFLOAT, + A_DEFFLOAT, + 0); +} + + -- cgit v1.2.1