From 0f12c96d992570360af4676b90d1cb2f40cf6fa8 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 21 Mar 2011 21:01:26 +0000 Subject: refactored x_midi.c into individual objects, and split out inmidi_* functions to e_midi.c in pd-extended.git svn path=/trunk/; revision=15037 --- externals/vanilla/midiclkin.c | 50 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 externals/vanilla/midiclkin.c (limited to 'externals/vanilla/midiclkin.c') diff --git a/externals/vanilla/midiclkin.c b/externals/vanilla/midiclkin.c new file mode 100644 index 00000000..29396abb --- /dev/null +++ b/externals/vanilla/midiclkin.c @@ -0,0 +1,50 @@ +/* Copyright (c) 1997-2001 Miller Puckette and others. +* For information on usage and redistribution, and for a DISCLAIMER OF ALL +* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ + +/* MIDI. */ + +#include "m_pd.h" + +static t_symbol *midiclkin_sym; + +static t_class *midiclkin_class; + +typedef struct _midiclkin +{ + t_object x_obj; + t_outlet *x_outlet1; + t_outlet *x_outlet2; +} t_midiclkin; + +static void *midiclkin_new(t_floatarg f) +{ + t_midiclkin *x = (t_midiclkin *)pd_new(midiclkin_class); + x->x_outlet1 = outlet_new(&x->x_obj, &s_float); + x->x_outlet2 = outlet_new(&x->x_obj, &s_float); + pd_bind(&x->x_obj.ob_pd, midiclkin_sym); + return (x); +} + +static void midiclkin_list(t_midiclkin *x, t_symbol *s, int argc, t_atom *argv) +{ + t_float value = atom_getfloatarg(0, argc, argv); + t_float count = atom_getfloatarg(1, argc, argv); + outlet_float(x->x_outlet2, count); + outlet_float(x->x_outlet1, value); +} + +static void midiclkin_free(t_midiclkin *x) +{ + pd_unbind(&x->x_obj.ob_pd, midiclkin_sym); +} + +void midiclkin_setup(void) +{ + midiclkin_class = class_new(gensym("midiclkin"), + (t_newmethod)midiclkin_new, (t_method)midiclkin_free, + sizeof(t_midiclkin), CLASS_NOINLET, A_DEFFLOAT, 0); + class_addlist(midiclkin_class, midiclkin_list); + class_sethelpsymbol(midiclkin_class, gensym("midi")); + midiclkin_sym = gensym("#midiclkin"); +} -- cgit v1.2.1