From 2ae5d551c7b67fe5ff413e85d1e68eb1a063993a Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sat, 30 Jul 2011 20:40:34 +0000
Subject: added template-style README and LICENSE and purged cruft in prep for
 porting to the library template

svn path=/trunk/externals/unauthorized/; revision=15171
---
 stksitar~/stksitar~.cc | 119 -------------------------------------------------
 1 file changed, 119 deletions(-)
 delete mode 100644 stksitar~/stksitar~.cc

(limited to 'stksitar~/stksitar~.cc')

diff --git a/stksitar~/stksitar~.cc b/stksitar~/stksitar~.cc
deleted file mode 100644
index bfa7a54..0000000
--- a/stksitar~/stksitar~.cc
+++ /dev/null
@@ -1,119 +0,0 @@
-/* stksitar~ -- STK-based sitar synthesis
- * requires STK library
- * Copyleft 2001 Yves Degoyon.
- * Permission is granted to use this software for any purpose provided you
- * keep this copyright notice intact.
- *
- * THE AUTHOR AND HIS EXPLOITERS MAKE NO WARRANTY, EXPRESS OR IMPLIED,
- * IN CONNECTION WITH THIS SOFTWARE.
- *
-*/
-
-#include "m_pd.h"
-#include "sitar.h"
-
-#define DEFAULT_FREQ 250.0
-#define DEFAULT_PLUCK 0.25
-
-typedef struct _stksitar
-{
-    t_object x_obj;
-    sitar *x_stksitar;
-    t_int x_on;
-    t_float x_freq;
-    t_float x_pluck;
-} t_stksitar;
-
-static t_class *stksitar_class;
-
-static void *stksitar_new(void)
-{
-    t_stksitar *x = (t_stksitar *)pd_new(stksitar_class);
-    x->x_freq = DEFAULT_FREQ;
-    x->x_pluck = DEFAULT_PLUCK;
-    outlet_new(&x->x_obj, &s_signal);
-    inlet_new( &x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("freq") );
-    inlet_new( &x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("pluck") );
-    if( (x->x_stksitar = new sitar( 50.0 )) == NULL ) {
-       post( "stksitar~: cannot build sitar instrument from STK" );
-       return NULL;
-    } else {
-       return (x);
-    }
-}
-
-static void stksitar_freq(t_stksitar* x, t_float ffreq)
-{
-    if ( ffreq < 50.0 )
-    {
-       post("stksitar~ : wrong frequency" );
-       return;
-    }
-    x->x_stksitar->setFreq( (StkFloat) ffreq );
-    x->x_freq = ffreq;
-}
-
-static void stksitar_pluck(t_stksitar* x, t_float fpluck)
-{
-    if ( fpluck < 0.05 || fpluck > 0.35 )
-    {
-       post("stksitar~ : wrong pluck argument" );
-       return;
-    }
-    x->x_stksitar->pluck( (StkFloat) fpluck );
-    x->x_pluck = fpluck;
-}
-
-static void stksitar_play(t_stksitar* x)
-{
-    x->x_on = 1; // activate sound
-    x->x_stksitar->noteOn( x->x_freq, x->x_pluck ); // start sound
-}
-
-static void stksitar_stop(t_stksitar* x)
-{
-    x->x_on = 0; // deactivate sound
-}
-
-static t_int *stksitar_perform(t_int *w)
-{
-    t_float *out = (t_float *)(w[1]);
-    int n = (int)(w[2]);
-    t_stksitar* x = (t_stksitar*)(w[3]);
-
-    while ( n-- ) 
-    {
-       if ( x->x_on ) 
-       {
-         double dare;
-
-         dare = (float)x->x_stksitar->tick();
-         // post( "synthesis : %f", dare );
-         *out=dare;
-       }
-       else
-       {
-         *(out) = 0.0;
-       }
-       out++;
-    }
-
-    return (w+4);
-}
-
-static void stksitar_dsp(t_stksitar *x, t_signal **sp)
-{
-    dsp_add(stksitar_perform, 3, sp[0]->s_vec, sp[0]->s_n, x);
-}
-
-extern "C" void stksitar_tilde_setup(void)
-{
-    stksitar_class = class_new(gensym("stksitar~"), (t_newmethod)stksitar_new, 0,
-    	sizeof(t_stksitar), 0, A_NULL);
-    class_sethelpsymbol(stksitar_class, gensym("help-stksitar~.pd"));
-    class_addmethod(stksitar_class, (t_method)stksitar_dsp, gensym("dsp"), A_NULL);
-    class_addmethod(stksitar_class, (t_method)stksitar_play, gensym("play") , A_NULL);
-    class_addmethod(stksitar_class, (t_method)stksitar_stop, gensym("stop") , A_NULL);
-    class_addmethod(stksitar_class, (t_method)stksitar_freq, gensym("freq") , A_DEFFLOAT, A_NULL);
-    class_addmethod(stksitar_class, (t_method)stksitar_pluck, gensym("pluck") , A_DEFFLOAT, A_NULL);
-}
-- 
cgit v1.2.1