aboutsummaryrefslogtreecommitdiff
path: root/modules++
diff options
context:
space:
mode:
Diffstat (limited to 'modules++')
-rw-r--r--modules++/loopsampler.cc138
1 files changed, 0 insertions, 138 deletions
diff --git a/modules++/loopsampler.cc b/modules++/loopsampler.cc
deleted file mode 100644
index 01d2d26..0000000
--- a/modules++/loopsampler.cc
+++ /dev/null
@@ -1,138 +0,0 @@
-/*
- * loopsampler.cc - a sampler object for looping
- * Copyright (c) 2000-2003 by Tom Schouten
- *
- * 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., 675 Mass Ave, Cambridge, MA 02139, USA.
- */
-
-
-#include "m_pd.h"
-#include <math.h>
-
-
-/* "soundfiler" object */
-
-#define QUEUE_LENGTH 64;
-typedef struct
-{
-} t_audiobuffer;
-
-
-
-typedef struct
-{
- t_soundfiler_queue q[QUEUE_LENGTH];
-
-} t_soundfiler;
-
-
-
-
-
-/* sample player class */
-
-
-typedef struct loopsampler_struct
-{
- t_object x_obj;
- t_float x_f;
-
- t_symbol *x_soundfile;
- t_int x_channels;
- t_int x_frames;
- t_float *x_buffer;
-
-} t_loopsampler;
-
-void loopsampler_bang(t_loopsampler *x)
-{
-
-}
-
-
-static t_int *loopsampler_perform(t_int *w)
-{
-
-
- t_loopsampler *x = (t_loopsampler *)(w[1]);
- t_int n = (t_int)(w[2]);
- t_float *inL = (float *)(w[3]);
- t_float *inR = (float *)(w[4]);
- t_float *outL = (float *)(w[5]);
- t_float *outR = (float *)(w[6]);
- t_int i;
- t_float x;
-
- if (!x->x_buffer) goto nofile;
-
-
-
-
- nofile:
- while (n--){
- *outL++ = 0.0f;
- *outR++ = 0.0f;
- }
-
- return (w+7);
-}
-
-static void loopsampler_dsp(t_loopsampler *x, t_signal **sp)
-{
- dsp_add(loopsampler_perform, 6, x->loopsampler, sp[0]->s_n, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec);
-
-}
-void loopsampler_free(void)
-{
-
-}
-
-t_class *loopsampler_class;
-
-void *loopsampler_new(t_floatarg fsections)
-{
- t_loopsampler *x = (t_loopsampler *)pd_new(loopsampler_class);
-
-
- inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("signal"), gensym("signal"));
- outlet_new(&x->x_obj, gensym("signal"));
- outlet_new(&x->x_obj, gensym("signal"));
-
- x->x_buffer = 0;
- x->x_soundfile = 0;
- x->x_channels = 0;
- x->x_frames = 0;
-
- return (void *)x;
-}
-
-
-extern "C" {
-
-void loopsampler_tilde_setup(void)
-{
- //post("loopsampler~ v0.1");
-
- loopsampler_class = class_new(gensym("loopsampler~"), (t_newmethod)loopsampler_new,
- (t_method)loopsampler_free, sizeof(t_loopsampler), 0, A_DEFFLOAT, 0);
-
- CLASS_MAINSIGNALIN(loopsampler_class, t_loopsampler, x_f);
- class_addmethod(loopsampler_class, (t_method)loopsampler_bang, gensym("bang"), (t_atomtype)0);
- class_addmethod(loopsampler_class, (t_method)loopsampler_dsp, gensym("dsp"), (t_atomtype)0);
-
-
-}
-
-}