an old project - wandering whether it still works

svn path=/trunk/externals/hardware/; revision=9672

5 files changed, 1388 insertions, 0 deletions

diff --git a/MIDIvice/src/MIDIvice.c b/MIDIvice/src/MIDIvice.c
new file mode 100644
index 0000000..67cf293
--- /dev/null
+++ b/MIDIvice/src/MIDIvice.c
@@ -0,0 +1,36 @@
+#include "MIDIvice.h"
+void motormix_setup();
+
+typedef struct MIDIvice 
+{
+  t_object t_ob;
+} t_MIDIvice;
+
+t_class *MIDIvice_class;
+
+static void MIDIvice_help(void)
+{
+  post("\nMIDIvice  "VERSION);
+  post("supported devices:");
+  post("\tmotormix\t\tMotorMix(tm) by cm-labs(r)"
+       "\n");
+}
+
+void *MIDIvice_new(void)
+{
+  t_MIDIvice *x = (t_MIDIvice *)pd_new(MIDIvice_class);
+  return (void *)x;
+}
+
+
+void MIDIvice_setup(void) 
+{
+  motormix_setup();
+
+  /* ************************************** */
+  post("\n\tMIDIvice "VERSION);
+  post("\tcopyleft forum::für::umläute @ IEM/KUG 2002-2008");
+ 
+  MIDIvice_class = class_new(gensym("MIDIvice"), MIDIvice_new, 0, sizeof(t_MIDIvice), 0, 0);
+  class_addmethod(MIDIvice_class, MIDIvice_help, gensym("help"), 0);
+}
diff --git a/MIDIvice/src/MIDIvice.h b/MIDIvice/src/MIDIvice.h
new file mode 100644
index 0000000..65382a7
--- /dev/null
+++ b/MIDIvice/src/MIDIvice.h
@@ -0,0 +1,38 @@
+/* ********************************************** */
+/* the MIDIvice external                          */
+/* externals for controlling MIDI-devices         */
+/* ********************************************** */
+/*                            forum::für::umläute */
+/* ********************************************** */
+
+/* the MIDIvice external is a runtime-library for miller s. puckette's realtime-computermusic-software "pure data"
+ * therefore you NEED "pure data" to make any use of the MIDIvice external
+ * (except if you want to use the code for other things)
+ * download "pure data" at
+
+ http://iem.kug.ac.at/pd
+ ftp://iem.kug.ac.at/pd
+
+ *
+ * if you are looking for the latest release of the MIDIvice-external you should have another look at
+
+ ftp://iem.kug.ac.at/pd/Externals/MIDIvice
+
+ * 
+ * MIDIvice is published under the GNU GeneralPublicLicense, that must be shipped with MIDIvice.
+ * if you are using Debian GNU/linux, the GNU-GPL can be found under /usr/share/common-licenses/GPL
+ * if you still haven't found a copy of the GNU-GPL, have a look at http://www.gnu.org
+ *
+ * "pure data" has it's own license, that comes shipped with "pure data".
+ *
+ * there are ABSOLUTELY NO WARRANTIES for anything
+ */
+
+#ifndef INCLUDE_MIDIVICE_H__
+#define INCLUDE_MIDIVICE_H__
+
+#include "m_pd.h"
+
+#define VERSION "0.1"
+
+#endif
diff --git a/MIDIvice/src/makefile b/MIDIvice/src/makefile
new file mode 100644
index 0000000..447d820
--- /dev/null
+++ b/MIDIvice/src/makefile
@@ -0,0 +1,75 @@
+current: all
+
+
+# the MIDIVICE-EXTERNAL-makefile
+# everything is GnuGPL that should come with the MIDIvice.tgz
+# NO WARRANTIES FOR ANYTHING
+# et cetera
+# 1999:forum::für::umläute:2001
+
+# make sure that the "m_pd.h" is somehow available either by putting it into this
+# directory, by adding it's path to the INCLUDE-path or by putting it into an
+# already included path, e.g. "/usr/local/include/"
+
+#these are the user adjustables : adjust them to fit into your system
+# PD will install to $(DESTDIR)$(INSTALLL_PREFIX)$(PDLIBDIR), which is /usr/local/lib/pd
+# by default
+DESTDIR =
+INSTALL_PREFIX = /usr/local
+PDLIBDIR = /lib/pd
+#these were the user adjustables
+
+
+TARGETS = MIDIvice \
+	motormix
+
+# ----------------------- LINUX ----------------------------
+.SUFFIXES: .pd_linux
+
+
+LINUXOBJECTS = $(TARGETS:%=%.o)
+ARCH = $(shell uname --machine)
+
+PD_DIR = $(DESTDIR)$(INSTALL_PREFIX)$(PDLIBDIR)
+
+ifeq (${ARCH},alpha)
+AFLAGS = -mieee  -mcpu=ev56
+endif
+
+LINCLUDE =
+
+$(LINUXOBJECTS): *.h
+
+CFLAGS = -O2 -g -Wall $(LINCLUDE) $(UCFLAGS) $(AFLAGS)
+
+everything: clean all install distclean
+
+distclean:
+	touch dummy.o
+	touch dummy.pd_linux
+	touch dummy~
+	touch _dummy
+	rm *.o *.pd_linux *~ _*
+
+clean:
+	touch dummy.o
+	touch dummy.pd_linux
+	rm *.o *.pd_linux
+
+all: $(LINUXOBJECTS)
+
+	@echo :: $(LINUXOBJECTS)
+
+	ld -export_dynamic  -shared -o MIDIvice.pd_linux *.o -lc -lm
+	strip --strip-unneeded MIDIvice.pd_linux
+
+.c.pd_linux:
+	cc $(CFLAGS) -O2 -DPD -fPIC $(INCLUDE) -c -o $*.o $*.c
+
+
+install: installdocs
+	install -m 644 MIDIvice.pd_linux $(PD_DIR)/extra
+
+installdocs:
+	install -d $(PD_DIR)/doc/5.reference/MIDIvice
+	install -m644 ../doc/* $(PD_DIR)/doc/5.reference/MIDIvice
diff --git a/MIDIvice/src/motormix.c b/MIDIvice/src/motormix.c
new file mode 100644
index 0000000..982a268
--- /dev/null
+++ b/MIDIvice/src/motormix.c
@@ -0,0 +1,865 @@
+
+/* 2801:forum::für::umläute:2002 */
+
+/*
+  motormix by CM-labs
+*/
+
+#include "MIDIvice.h"
+#include <string.h>
+#include <ctype.h>
+
+#define LCD_TEXT  0x10
+#define LCD_GRAPH 0x11
+#define SEG7      0x12
+
+static int x_port = 0;
+static t_symbol *ctlin_sym;
+static t_symbol *notein_sym;
+
+void outmidi_noteon(int portno, int channel, int pitch, int velo);
+void outmidi_controlchange(int portno, int channel, int ctlno, int value);
+void sys_putmidibyte(int portno, int byte);
+
+static void outmidi_byte(unsigned char byte)
+{ sys_putmidibyte(x_port, byte); }
+
+
+
+/* ------------------------- LCDtext ------------------------------- */
+
+static t_class *LCDtext_class;
+typedef struct _LCDtext
+{
+  t_object x_obj;
+
+  int pos;
+  int length;
+  t_binbuf *bbuf;
+} t_LCDtext;
+
+
+static void LCD_header(unsigned char type)
+{
+  outmidi_byte(0xF0);
+  outmidi_byte(0x00);
+  outmidi_byte(0x01);
+  outmidi_byte(0x0F);
+  outmidi_byte(0x00);
+  outmidi_byte(0x11);
+  outmidi_byte(0x00);
+  outmidi_byte(type);
+}
+static void LCD_footer(void)
+{
+  outmidi_byte(0xF7);
+}
+
+static void LCDtext_text(t_LCDtext *x)
+{
+  char *c, *str=0;
+  int n, slen;
+  int pos = x->pos;
+  int len = x->length;
+  int rest=0;
+
+  if (!x->bbuf)return;
+
+  binbuf_gettext(x->bbuf, &str, &slen);
+  c=str;
+  if (len>slen){
+    n=slen;
+    rest=len-slen;
+  } else n=len?len:slen;
+
+  if (n>0x50-pos)n=0x50-pos;
+
+  LCD_header(LCD_TEXT);
+  outmidi_byte(pos);
+  while(n--)outmidi_byte(*c++);
+  while(rest--)outmidi_byte(' ');
+  LCD_footer();
+
+  freebytes(str, slen);
+}
+
+static void LCDtext_clear(t_LCDtext *x, t_float fmode)
+{
+  int mode = fmode;
+  int offset = (mode==2)?0x28:0x00;
+  int n = (mode>0)?0x28:0x50;
+
+  post("offset=%d\tn=%d", offset, n);
+
+  LCD_header(LCD_TEXT);
+  outmidi_byte(offset);
+
+  while(n--)outmidi_byte(' ');
+
+  LCD_footer();
+}
+
+static void LCDtext_any(t_LCDtext *x, t_symbol *s, int argc, t_atom *argv)
+{
+  //  t_atom a;
+  binbuf_clear(x->bbuf);
+
+  if ((s != &s_list)&&(s != &s_float)&&(s != &s_symbol)){
+    t_atom a;
+    SETSYMBOL(&a, s);
+    binbuf_add(x->bbuf, 1, &a);
+  }
+  binbuf_add(x->bbuf, argc, argv);
+
+  LCDtext_text(x);
+}
+
+static void LCDtext_pos(t_LCDtext *x, t_float pos, t_float len)
+{
+  if (pos<0 )pos=0;
+  if (pos>80)pos=80;
+  if (len<0 )len=0;
+
+  x->pos=pos;
+  x->length=len;
+}
+
+
+static void *LCDtext_new(t_floatarg f)
+{
+  t_LCDtext *x = (t_LCDtext *)pd_new(LCDtext_class);
+  int pos = f;
+
+  if (pos<0)pos=0;
+  if (pos>0x4f)pos=0x4f;
+  x->pos=pos;
+  //  floatinlet_new(&x->x_obj, &x->pos);
+  inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym(""));
+
+  x->bbuf = binbuf_new();
+
+  return (x);
+}
+static void LCDtext_setup(void)
+{
+  LCDtext_class = class_new(gensym("motormix_LCDtext"), (t_newmethod)LCDtext_new, 
+			      0, sizeof(t_LCDtext), 0, A_DEFFLOAT, 0);
+  class_addcreator((t_newmethod)LCDtext_new, gensym("mm_LCDtext"), A_DEFFLOAT, 0);
+
+  class_addmethod(LCDtext_class, (t_method)LCDtext_pos, gensym(""), A_DEFFLOAT, A_DEFFLOAT, 0);
+  class_addmethod(LCDtext_class, (t_method)LCDtext_clear, gensym("clear"), A_DEFFLOAT, 0);
+  class_addbang(LCDtext_class, (t_method)LCDtext_text);
+
+  class_addanything(LCDtext_class, LCDtext_any);
+  class_sethelpsymbol(LCDtext_class, gensym("MIDIvice/motormix"));
+}
+/* ------------------------- LCDgraph ------------------------------- */
+
+static t_class *LCDgraph_class;
+typedef struct _LCDgraph
+{
+  t_object x_obj;
+
+  t_float pos;
+  int type;
+} t_LCDgraph;
+
+static void LCDgraph_valpos(int pos, int val)
+{
+  if ((pos<1)||(pos>8))return;
+  if (val<0)val=0;
+  if (val>127)val=127;
+  outmidi_byte(pos-1);
+  outmidi_byte(val);
+}
+
+static void LCDgraph_float(t_LCDgraph *x, t_float f)
+{
+  if ((x->pos<1)||(x->pos>8))return;
+
+  LCD_header(LCD_GRAPH);
+  outmidi_byte(x->type);
+  LCDgraph_valpos(x->pos, f);
+  LCD_footer();
+}
+
+static void LCDgraph_clear(t_LCDgraph *x)
+{
+  int n = 0x28;
+  int pos=0x28;
+
+  LCD_header(LCD_TEXT);
+  outmidi_byte(pos);
+  while(n--)outmidi_byte(' ');
+  LCD_footer();
+}
+
+
+static void LCDgraph_pos(t_LCDgraph *x, t_float pos)
+{
+  x->pos=pos;
+}
+static void LCDgraph_typ(t_LCDgraph *x, t_float type)
+{
+  if (type<0 )type=0;
+  if (type>7)type=7;
+
+  x->type=type;
+}
+static void *LCDgraph_new(t_float ftype)
+{
+  t_LCDgraph *x = (t_LCDgraph *)pd_new(LCDgraph_class);
+
+  LCDgraph_typ(x, ftype);
+  floatinlet_new(&x->x_obj, &x->pos);
+  inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("type"));
+  x->pos=0;
+
+  return (x);
+}
+static void LCDgraph_setup(void)
+{
+  LCDgraph_class = class_new(gensym("motormix_LCDgraph"), (t_newmethod)LCDgraph_new, 
+			      0, sizeof(t_LCDgraph), 0, A_DEFFLOAT, 0);
+  class_addcreator((t_newmethod)LCDgraph_new, gensym("mm_LCDgraph"), A_DEFFLOAT, 0);
+
+  class_addmethod(LCDgraph_class, (t_method)LCDgraph_typ, gensym("type"), A_DEFFLOAT, 0);
+  class_addmethod(LCDgraph_class, (t_method)LCDgraph_pos, gensym(""), A_DEFFLOAT, 0);
+  class_addmethod(LCDgraph_class, (t_method)LCDgraph_clear, gensym("clear"), 0);
+  class_addfloat (LCDgraph_class, (t_method)LCDgraph_float);
+
+  //  class_addbang(LCDgraph_class, (t_method)LCDgraph_graph);
+  class_sethelpsymbol(LCDgraph_class, gensym("MIDIvice/motormix"));
+}
+
+/* ------------------------- seg7 ------------------------------- */
+
+static t_class *seg7_class;
+typedef struct _seg7
+{
+  t_object x_obj;
+
+  t_float point1, point2;
+  char c1, c2;
+} t_seg7;
+
+static void seg7_nibblebyte(char c, int point)
+{
+  char C = toupper(c);
+  char lo=C&0x0F;
+  char hi=(C>>4)&0x0F;
+  if (point)hi|=0x40;
+  //  post("C=%c=%c", c, C);
+  //  post("hi=%x\tlo=%x", hi, lo);
+
+  outmidi_byte(hi);
+  outmidi_byte(lo);
+}
+
+static void seg7_write(char c1, int pt1, char c2, int pt2)
+{
+  LCD_header(SEG7);
+
+  seg7_nibblebyte(c1, pt1);
+  seg7_nibblebyte(c2, pt2);
+
+  LCD_footer();
+}
+
+static void seg7_clear(t_seg7 *x, t_float fmode)
+{
+  int mode = fmode;
+
+  LCD_header(SEG7);
+  if (mode!=2)seg7_nibblebyte(' ', 0);
+  else seg7_nibblebyte(0, 0);
+  if (mode!=1)seg7_nibblebyte(' ', 0);
+  else seg7_nibblebyte(0, 0);
+
+  LCD_footer();
+}
+
+static void seg7_list(t_seg7 *x, t_symbol *s, int argc, t_atom* argv)
+{
+  char seg1, seg2;
+  int pt1=(x->point1 != 0);
+  int pt2=(x->point2 != 0);
+
+  seg1=(argv->a_type==A_SYMBOL)?
+    *atom_getsymbol(argv)->s_name:
+    (atom_getint(argv)%10+0x30);
+  argv++;
+  if (argc>1)seg2=(argv->a_type==A_SYMBOL)?*atom_getsymbol(argv)->s_name:(atom_getint(argv)%10+0x30);
+  else {
+    seg2=seg1;
+    seg1=' ';
+  }
+  //  post("seg1=%c\tseg2=%c", seg1, seg2);
+  
+  x->c1=seg1;
+  x->c2=seg2;
+
+  seg7_write(seg1, pt1, seg2, pt2);
+}
+static void seg7_symbol(t_seg7 *x, t_symbol *s)
+{
+  int pt1=(x->point1 != 0);
+  int pt2=(x->point2 != 0);
+  char c1=*s->s_name;
+  char c2=x->c2;
+
+  x->c1=c1;
+
+  //  post("c1=%c\tc2=%c", c1, c2);
+
+  seg7_write(c1, pt1, c2, pt2);
+}
+static void seg7_symbol2(t_seg7 *x, t_symbol *s)
+{
+  x->c2=*s->s_name;
+}
+static void seg7_bang(t_seg7 *x)
+{
+  int pt1=(x->point1 != 0);
+  int pt2=(x->point2 != 0);
+  char c1=x->c1;
+  char c2=x->c2;
+
+  seg7_write(c1, pt1, c2, pt2);
+}
+
+static void *seg7_new(void)
+{
+  t_seg7 *x = (t_seg7 *)pd_new(seg7_class);
+ 
+  floatinlet_new(&x->x_obj, &x->point1);
+  inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("symbol"), gensym(""));
+  floatinlet_new(&x->x_obj, &x->point2);
+
+  x->point1=x->point2=0;
+  x->c1=x->c2=0;
+
+  return (x);
+}
+static void seg7_setup(void)
+{
+  seg7_class = class_new(gensym("motormix_7seg"), (t_newmethod)seg7_new, 
+			      0, sizeof(t_seg7), 0, A_GIMME, 0);
+  class_addcreator((t_newmethod)seg7_new, gensym("mm_7seg"), A_GIMME, 0);
+  class_addbang(seg7_class, seg7_bang);
+  class_addlist(seg7_class, seg7_list);
+  class_addsymbol(seg7_class, seg7_symbol);
+  class_addmethod(seg7_class, (t_method)seg7_clear, gensym("clear"), A_DEFFLOAT, 0);
+  class_addmethod(seg7_class, (t_method)seg7_symbol2, gensym(""), A_DEFSYMBOL, 0);
+  class_sethelpsymbol(seg7_class, gensym("MIDIvice/motormix"));
+}
+
+/* ------------------------- LED ------------------------------- */
+
+static t_class *LED_class;
+typedef struct _LED
+{
+  t_object x_obj;
+
+  t_float LED;
+  t_float state;
+} t_LED;
+
+static void LED_float(t_LED *x, t_float f)
+{
+  int MSB, LSB;
+  int state = x->state;
+  int offset = 0;
+  int id = f;
+
+  if (id<0)return;
+  LSB=id%8;
+  MSB=id/8;
+
+  x->LED=id;
+
+
+  if (state>0)offset=0x40;
+  else if (state<0)offset=0x50;
+
+  //  if (MSB<8)offset++;
+#if 0
+  post("LED: %x %x %x %x", 0x0C, MSB, 0x2C, LSB+offset);
+  //  post("LED: %d %d %d %d\n", 0x0C, MSB, 0x2C, LSB+offset);
+#endif
+  outmidi_controlchange(x_port>>4, x_port&15, 0x0C, MSB);
+  outmidi_controlchange(x_port>>4, x_port&15, 0x2C, LSB+offset);
+}
+
+static void LED_symbol(t_LED *x, t_symbol *s)
+{
+  post("motormix_LED: no method for symbol");
+}
+
+static void LED_bang(t_LED *x)
+{
+  LED_float(x, x->LED);
+}
+
+static void *LED_new(void)
+{
+  t_LED *x = (t_LED *)pd_new(LED_class);
+
+  x->LED=-1;
+  floatinlet_new(&x->x_obj, &x->state);
+
+  x->state=0;
+
+  return (x);
+}
+static void LED_setup(void)
+{
+  LED_class = class_new(gensym("motormix_LED"), (t_newmethod)LED_new, 
+			      0, sizeof(t_LED), 0, 0);
+  class_addcreator((t_newmethod)LED_new, gensym("mm_LED"), 0);
+ 
+  class_addsymbol(LED_class, LED_symbol);
+  class_addfloat (LED_class, LED_float);
+  class_addbang  (LED_class, LED_bang);
+  class_sethelpsymbol(LED_class, gensym("MIDIvice/motormix"));
+}
+
+
+/* button */
+static t_class *button_class;
+typedef struct _button
+{
+  t_object x_obj;
+  int      o_itsme;      // the fader changed
+  int      o_imtouched;  // the fader was touched
+
+  t_outlet *o_value; // actual fader-value
+  t_outlet *o_touch; // 1=touched; 0=released
+
+  int activefader;
+  int fader;
+  unsigned char MSB, LSB;
+} t_button;
+
+static void button_touch(t_button *x, unsigned char value, unsigned char control)
+{
+  int pressed=0;
+  int MSB=x->MSB;
+  int LSB=0;
+
+  x->o_imtouched=0;
+
+  if (x->MSB<8){
+    if ((value==0x00) || (value==0x40))return;
+  }
+
+  LSB=value;
+
+  if (LSB>=0x40){
+    pressed=1;
+    LSB-=0x40;
+  }
+
+  outlet_float(x->o_touch, pressed);
+  outlet_float(x->o_value, MSB*8+LSB);
+}
+
+static void button_list(t_button *x, t_symbol *s, int argc, t_atom *argv)
+{
+  unsigned char ctl = atom_getfloatarg(0, argc, argv);
+  unsigned char val = atom_getfloatarg(1, argc, argv);
+  //  int channel   = atom_getfloatarg(2, argc, argv);
+
+  if (x->o_imtouched)button_touch(x, val, ctl);
+
+  if (ctl==0x0f){
+	x->o_imtouched=1;
+	x->MSB=val;
+      }
+}
+static void button_free(t_button *x)
+{
+  pd_unbind(&x->x_obj.ob_pd, ctlin_sym);
+}
+static void *button_new()
+{
+  t_button *x = (t_button *)pd_new(button_class);
+
+  x->o_value=outlet_new(&x->x_obj, &s_float);
+  x->o_touch=outlet_new(&x->x_obj, &s_float);
+
+  x->o_imtouched = 0;
+
+  pd_bind(&x->x_obj.ob_pd, ctlin_sym);
+
+  return (x);
+}
+static void button_setup(void)
+{
+  button_class = class_new(gensym("motormix_button"), (t_newmethod)button_new, (t_method)button_free,
+			   sizeof(t_button), CLASS_NOINLET, A_DEFFLOAT,  0);
+  class_addcreator((t_newmethod)button_new, gensym("mm_button"), A_DEFFLOAT, 0);
+ 
+  class_addlist(button_class, button_list);
+  class_sethelpsymbol(button_class, gensym("MIDIvice/motormix"));
+}
+
+/* ------------------------- rotary ------------------------------- */
+
+
+static t_class *rotary_class;
+typedef struct _rotary
+{
+  t_object x_obj;
+
+  t_outlet *o_value; // actual rot-value
+  t_outlet *o_rot; // rot-number
+
+  int rot;
+} t_rotary;
+
+static void rotary_list(t_rotary *x, t_symbol *s, int argc, t_atom *argv)
+{
+  unsigned char ctl = atom_getfloatarg(0, argc, argv);
+  unsigned char val = atom_getfloatarg(1, argc, argv);
+  //  int channel   = atom_getfloatarg(2, argc, argv);
+
+  if ((ctl>=0x40) && (ctl<0x48)) {
+    if (x->rot) {
+      if (ctl+1-0x40==x->rot){
+	//	int value = (val>=64)?val-64:-val;
+	outlet_float(x->o_value, (val>=64)?val-64:-val);
+	  }
+    } else {
+      outlet_float(x->o_rot, (t_float)(ctl-0x40+1));
+      outlet_float(x->o_value, (val>=64)?val-64:-val);  
+    }
+  }
+}
+static void rotary_free(t_rotary *x)
+{
+  pd_unbind(&x->x_obj.ob_pd, ctlin_sym);
+}
+static void *rotary_new(t_floatarg f)
+{
+  t_rotary *x = (t_rotary *)pd_new(rotary_class);
+
+  if ((f<0) || (f>=9)){
+    post("motormix_rotary: rot [%d] specified. only rotariess 1..8(&0) are valid", (int)f);
+    f=0;
+  }
+  x->rot = f;
+
+  x->o_value=outlet_new(&x->x_obj, &s_float);
+  if (!x->rot) x->o_rot=outlet_new(&x->x_obj, &s_float);
+
+  pd_bind(&x->x_obj.ob_pd, ctlin_sym);
+
+  return (x);
+}
+static void rotary_setup(void)
+{
+  rotary_class = class_new(gensym("motormix_rotary"), (t_newmethod)rotary_new,  (t_method)rotary_free,
+			      sizeof(t_rotary), CLASS_NOINLET, A_DEFFLOAT,  0);
+  class_addcreator((t_newmethod)rotary_new, gensym("mm_rotary"), A_DEFFLOAT, 0);
+ 
+  class_addlist(rotary_class, rotary_list);
+  class_sethelpsymbol(rotary_class, gensym("MIDIvice/motormix"));
+}
+
+/* ------------------------- encoder ------------------------------- */
+
+static t_class *encoder_class;
+typedef struct _encoder
+{
+  t_object x_obj;
+
+  t_outlet *o_value; // actual rot-value
+  t_outlet *o_push;  // pushed
+} t_encoder;
+
+static void encoder_list(t_encoder *x, t_symbol *s, int argc, t_atom *argv)
+{
+  unsigned char ctl = atom_getfloatarg(0, argc, argv);
+  unsigned char val = atom_getfloatarg(1, argc, argv);
+  //  int channel   = atom_getfloatarg(2, argc, argv);
+
+  if (ctl==0x48) outlet_float(x->o_value, (val>=64)?val-64:-val);
+  else if (ctl==0x49)outlet_float(x->o_push, (t_float)(val==0x01));
+}
+static void encoder_free(t_encoder *x)
+{
+  pd_unbind(&x->x_obj.ob_pd, ctlin_sym);
+}
+static void *encoder_new(void)
+{
+  t_encoder *x = (t_encoder *)pd_new(encoder_class);
+
+  x->o_value=outlet_new(&x->x_obj, &s_float);
+  x->o_push =outlet_new(&x->x_obj, &s_float);
+
+  pd_bind(&x->x_obj.ob_pd, ctlin_sym);
+
+  return (x);
+}
+static void encoder_setup(void)
+{
+  encoder_class = class_new(gensym("motormix_encoder"), (t_newmethod)encoder_new,  (t_method)encoder_free,
+			    sizeof(t_encoder), CLASS_NOINLET, 0);
+   class_addcreator((t_newmethod)encoder_new, gensym("mm_encoder"), 0);
+
+  class_addlist(encoder_class, encoder_list);
+  class_sethelpsymbol(encoder_class, gensym("MIDIvice/motormix"));
+}
+
+
+/* ------------------------- faderIn ------------------------------- */
+
+static t_class *faderIn_class;
+typedef struct _faderIn
+{
+  t_object x_obj;
+  int      o_itsme;      // the fader changed
+  int      o_imtouched;  // the fader was touched
+
+  t_outlet *o_value; // actual fader-value
+  t_outlet *o_touch; // 1=touched; 0=released
+  t_outlet *o_fader; // fader-number
+
+  int activefader;
+  int fader;
+  unsigned char MSB, LSB;
+} t_faderIn;
+
+static void faderIn_parse(t_faderIn *x, unsigned char value, unsigned char control)
+{
+  unsigned int fader = (x->fader)?x->fader:x->activefader;
+  x->o_itsme=0;
+
+  if (fader+31==control){
+    x->LSB=value;
+    if (!x->fader)outlet_float(x->o_fader, x->activefader);
+    outlet_float(x->o_value, x->MSB+(1./128)*x->LSB);
+  }
+}
+static void faderIn_touch(t_faderIn *x, unsigned char value, unsigned char control)
+{
+  x->o_imtouched=0;
+
+  if (control==0x2F){
+    switch (value) {
+    case 0x00:
+      if (!x->fader)outlet_float(x->o_fader, x->activefader);
+      outlet_float(x->o_touch, 0.);
+      break;
+    case 0x40:
+      if (!x->fader)outlet_float(x->o_fader, x->activefader);
+      outlet_float(x->o_touch, 1.);
+    default:
+      break;
+    }
+  }
+}
+
+static void faderIn_list(t_faderIn *x, t_symbol *s, int argc, t_atom *argv)
+{
+  unsigned char ctl = atom_getfloatarg(0, argc, argv);
+  unsigned char val = atom_getfloatarg(1, argc, argv);
+  //  int channel   = atom_getfloatarg(2, argc, argv);
+
+  if (x->o_itsme)    faderIn_parse(x, val, ctl);
+  if (x->o_imtouched)faderIn_touch(x, val, ctl);
+
+  if (ctl==0x0f){
+    if (x->fader) {
+      if (val+1==x->fader){ // touched me
+	x->o_imtouched=1;
+      }
+    } else {
+      if (val<=7){ // touched us
+	x->o_imtouched=1;
+	x->activefader=val+1;
+      }
+    }
+  } else if (ctl<0x08) {
+    if (x->fader) {
+      if (ctl+1==x->fader){
+	x->o_itsme=1;
+	x->MSB=val;
+      }
+    } else {
+      x->o_itsme=1;
+      x->activefader=ctl+1;
+      x->MSB=val;
+    }
+  }
+}
+static void faderIn_free(t_faderIn *x)
+{
+  pd_unbind(&x->x_obj.ob_pd, ctlin_sym);
+}
+static void *faderIn_new(t_floatarg f)
+{
+  t_faderIn *x = (t_faderIn *)pd_new(faderIn_class);
+
+  if ((f<0) || (f>=9)){
+    post("motormix_fader: fader [%d] specified. only faders 1..8(&0) are valid", (int)f);
+    f=0;
+  }
+  x->fader = f;
+
+  x->o_value=outlet_new(&x->x_obj, &s_float);
+  x->o_touch=outlet_new(&x->x_obj, &s_float);
+  if (!x->fader) x->o_fader=outlet_new(&x->x_obj, &s_float);
+
+  x->o_itsme     = 0;
+  x->o_imtouched = 0;
+  x->activefader = 0;
+
+  pd_bind(&x->x_obj.ob_pd, ctlin_sym);
+
+  return (x);
+}
+static void faderIn_setup(void)
+{
+  faderIn_class = class_new(gensym("motormix_faderIn"), (t_newmethod)faderIn_new,  (t_method)faderIn_free,
+			    sizeof(t_faderIn), CLASS_NOINLET, A_DEFFLOAT,  0);
+  class_addcreator((t_newmethod)faderIn_new, gensym("mm_faderIn"), A_DEFFLOAT, 0);
+ 
+  class_addlist(faderIn_class, faderIn_list);
+  class_sethelpsymbol(faderIn_class, gensym("MIDIvice/motormix"));
+}
+
+/* ------------------------- faderOut ------------------------------- */
+
+static t_class *faderOut_class;
+typedef struct _faderOut
+{
+  t_object x_obj;
+
+  t_float fader;
+} t_faderOut;
+
+static void faderOut_float(t_faderOut *x, t_float f)
+{
+  int fader=x->fader;
+  unsigned char MSB, LSB;
+  if (f>=128)f=128;
+  else if (f<0)f=0;
+  if ((fader<1) || (fader>8))return;    
+
+  MSB=f;
+  LSB=(f-MSB)*128;
+  outmidi_controlchange(x_port>>4, x_port&15, fader-1, MSB);
+  outmidi_controlchange(x_port>>4, x_port&15, fader-1+32, LSB);
+}
+
+static void *faderOut_new(t_floatarg f)
+{
+  t_faderOut *x = (t_faderOut *)pd_new(faderOut_class);
+
+  if ((f<0) || (f>=9)){
+    post("motormix_fader: fader [%d] specified. only faders 1..8(&0) are valid", (int)f);
+    f=0;
+  }
+  x->fader=f;
+  if (!x->fader)floatinlet_new(&x->x_obj, &x->fader);
+
+  return (x);
+}
+static void faderOut_setup(void)
+{
+  faderOut_class = class_new(gensym("motormix_faderOut"), (t_newmethod)faderOut_new, 
+			      0, sizeof(t_faderOut), 0, A_DEFFLOAT,  0);
+  class_addcreator((t_newmethod)faderOut_new, gensym("mm_faderOut"), A_DEFFLOAT, 0);
+ 
+  class_addfloat(faderOut_class, faderOut_float);
+  class_sethelpsymbol(faderOut_class, gensym("MIDIvice/motormix"));
+}
+
+/* ------------------------- motormix ------------------------------- */
+
+static t_class *motormix_class;
+typedef struct _motormix
+{
+  t_object x_obj;
+} t_motormix;
+static void motormix_return(t_motormix *x, t_symbol *s, int argc, t_atom *argv)
+{
+  int p = atom_getfloatarg(0, argc, argv);
+  int v = atom_getfloatarg(1, argc, argv);
+
+  if ((p==0x00) && (v==0x7F))
+    outlet_bang(x->x_obj.ob_outlet);
+}
+
+static void motormix_bang(t_motormix *x)
+{ outmidi_noteon(x_port>>4, x_port&15,0,0); }
+
+static void motormix_help(t_motormix *x)
+{
+  post("MIDIvice - motormix\n===================");
+  post("support for MotorMix (tm) by cm-labs (r)");
+  post("  \tmotormix_faderIn"
+       "\n\tmotormix_rotary"
+       "\n\tmotormix_encoder"
+       "\n\tmotormix_button"
+       "\n\tmotormix_faderOut"
+       "\n\tmotormix_LED"
+       "\n\tmotormix_LCDtext"
+       "\n\tmotormix_LCDgraph"
+       "\n\tmotormix_7seg");
+  post("(l) forum::für::umläute @ IEM, Graz; 2002");
+}
+static void motormix_reset(t_motormix *x)
+{ /* this LOOKs like a reset; i don't know what it really is... */
+  LCD_header(SEG7);
+  LCD_footer(); 
+}
+static void motormix_free(t_motormix *x)
+{
+  pd_unbind(&x->x_obj.ob_pd, notein_sym);
+}
+static void *motormix_new(t_floatarg f)
+{
+  t_motormix *x = (t_motormix *)pd_new(motormix_class);
+  x_port=f;
+  outlet_new(&x->x_obj, &s_float);
+  pd_bind(&x->x_obj.ob_pd, notein_sym);
+  //  outmidi_noteon(x_port>>4,x_port&15,0,0); // isn't this dangerous ???
+  return (x);
+}
+
+void motormix_setup(void)
+{
+  motormix_class = class_new(gensym("motormix"), (t_newmethod)motormix_new, (t_method)motormix_free,
+			     sizeof(t_motormix), 0/*0CLASS_NOINLET*/, /*A_DEFFLOAT,*/  0);
+  
+  class_addcreator((t_newmethod)motormix_new, gensym("MotorMix"), /*A_DEFFLOAT,*/ 0);
+
+  class_addmethod(motormix_class, (t_method)motormix_help, gensym("help"), 0);
+  class_addbang(motormix_class, motormix_bang);
+  class_addmethod(motormix_class, (t_method)motormix_reset, gensym("reset"), 0);
+  class_addlist(motormix_class, motormix_return);
+ 
+  class_sethelpsymbol(motormix_class, gensym("MIDIvice/motormix"));
+
+  ctlin_sym = gensym("#ctlin");
+  notein_sym = gensym("#notein");
+
+  button_setup();
+  faderIn_setup();
+  faderOut_setup();
+  rotary_setup();
+  encoder_setup();
+  LED_setup();
+
+  LCDtext_setup();
+  LCDgraph_setup();
+  seg7_setup();
+
+  /* we have to send a motormix_ping once before it starts reacting.
+   * this seems to be a problem with pd, but i don't have hardware to test it right now
+   */
+  outmidi_noteon(x_port>>4,x_port&15,0,0); 
+}
diff --git a/MIDIvice/src/motormix_buttons.txt b/MIDIvice/src/motormix_buttons.txt
new file mode 100644
index 0000000..47c4004
--- /dev/null
+++ b/MIDIvice/src/motormix_buttons.txt
@@ -0,0 +1,374 @@
+
+static int LED_sym2id(t_symbol *s)
+{
+  int id=-1;
+
+  if (s==gensym("1"))id=1; // +
+  else if (s==gensym("2"))id=2; // +
+  else if (s==gensym("3"))id=3; // +
+  else if (s==gensym("4"))id=4; // +
+  else if (s==gensym("5"))id=5; // +
+  else if (s==gensym("6"))id=6; // +
+  else if (s==gensym("7"))id=7; // +
+  else if (s==gensym("8"))id=8; // +
+  else if (s==gensym("a"))id=10;
+  else if (s==gensym("b"))id=11;
+  else if (s==gensym("c"))id=12;
+  else if (s==gensym("d"))id=13;
+  else if (s==gensym("e"))id=14;
+  else if (s==gensym("f"))id=15;
+  else if (s==gensym("g"))id=16;
+  else if (s==gensym("h"))id=17;
+  else if (s==gensym("i"))id=18;// +
+  else if (s==gensym("j"))id=19;// +
+  else if (s==gensym("k"))id=20;// +
+  else if (s==gensym("l"))id=21;// +
+  else if (s==gensym("m"))id=22;// +
+  else if (s==gensym("n"))id=23;// +
+  else if (s==gensym("o"))id=24;// +
+  else if (s==gensym("p"))id=25;// +
+  else if (s==gensym("q"))id=26;// +
+  else if (s==gensym("r"))id=27;// +
+  else if (s==gensym("s"))id=28;// +
+  else if (s==gensym("t"))id=29;// +
+  else if (s==gensym("u"))id=30;// +
+  else if (s==gensym("v"))id=31;// +
+  else if (s==gensym("w"))id=32;// +
+  else if (s==gensym("x"))id=33;// +
+  else if (s==gensym("y"))id=34;// +
+  else if (s==gensym("z"))id=35;// +
+  else if (s==gensym("0"))id=0;// +
+  else if (s==gensym("9"))id=9;// +
+  else if (s==gensym("*"))id=36;// +
+  else if (s==gensym("="))id=37;// +
+  else if (s==gensym("/"))id=38;// +
+  else if (s==gensym("."))id=39;// +
+  else if (s==gensym("shift"))  id=40;
+  else if (s==gensym("undo"))   id=41;
+  else if (s==gensym("default"))id=42;
+  else if (s==gensym("all"))    id=43;
+  else if (s==gensym("window")) id=44;
+  else if (s==gensym("plug-in"))id=45;//...
+  else if (s==gensym("suspend"))id=46;
+  else if (s==gensym("auto"))   id=47;
+
+  else if (s==gensym("escape")) id=48;//
+  else if (s==gensym("enter"))  id=49;
+  else if (s==gensym("last"))   id=40;
+  else if (s==gensym("next"))   id=51;
+  else if (s==gensym("rewind")) id=52;
+  else if (s==gensym("f-fwd"))  id=53;//
+  else if (s==gensym("stop"))   id=54;
+  else if (s==gensym("play"))   id=55;
+
+  else if (s==gensym("bank"))   id=56;
+  else if (s==gensym("group"))  id=57;
+  else if (s==gensym("record")) id=58;
+  else if (s==gensym("functA")) id=59;
+  else if (s==gensym("write"))  id=50;
+  else if (s==gensym("functB")) id=61;
+  else if (s==gensym("burn"))   id=62;
+  else if (s==gensym("functC")) id=63;
+  else if (s==gensym("fx"))     id=64;//...
+  else if (s==gensym("fxbyps")) id=65;//...
+  else if (s==gensym("effect1"))id=66;//.
+  else if (s==gensym("eff-1"))  id=67;//.
+  else if (s==gensym("mute"))   id=68;//...
+  else if (s==gensym("s-mute")) id=69;//...
+  else if (s==gensym("effect2"))id=60;//.
+  else if (s==gensym("eff-2"))  id=71;//.
+  else if (s==gensym("pre"))    id=72;//...
+  else if (s==gensym("post"))   id=73;//...
+  else if (s==gensym("pre/pst"))id=74;//...
+  else if (s==gensym("effect3"))id=75;//.
+  else if (s==gensym("eff-3"))  id=76;//.
+  else if (s==gensym("sel"))    id=77;//...
+  else if (s==gensym("select")) id=77;//...
+  else if (s==gensym("effect4"))id=78;//.
+  else if (s==gensym("eff-4"))  id=79;//.
+  
+
+       return id;
+}
+
+static void LED_id2rowcol(int id, int* row, int *col)
+{
+  *row=-1;
+  *col=-1;
+
+  if (id==1)*row=0,*col=0; //1
+  else if (id==2)*row=0,*col=1;
+  else if (id==3)*row=0,*col=2;
+  else if (id==4)*row=0,*col=3;
+  else if (id==5)*row=0,*col=4;
+  else if (id==6)*row=0,*col=5;
+  else if (id==7)*row=0,*col=6;
+  else if (id==8)*row=0,*col=7;
+
+  else if (id==10)*row=4,*col=0;//a
+  else if (id==11)*row=4,*col=1;
+  else if (id==12)*row=4,*col=2;
+  else if (id==13)*row=4,*col=3;
+  else if (id==14)*row=4,*col=4;
+  else if (id==15)*row=4,*col=5;
+  else if (id==16)*row=4,*col=6;
+  else if (id==17)*row=4,*col=7;
+  else if (id==18)*row=3,*col=0;//i
+  else if (id==19)*row=3,*col=1;
+  else if (id==20)*row=3,*col=2;
+  else if (id==21)*row=3,*col=3;
+  else if (id==22)*row=3,*col=4;
+  else if (id==23)*row=3,*col=5;
+  else if (id==24)*row=3,*col=6;
+  else if (id==25)*row=3,*col=7;
+  else if (id==26)*row=2,*col=0;//q
+  else if (id==27)*row=2,*col=1;
+  else if (id==28)*row=2,*col=2;
+  else if (id==29)*row=2,*col=3;
+  else if (id==30)*row=2,*col=4;
+  else if (id==31)*row=2,*col=5;
+  else if (id==32)*row=2,*col=6;
+  else if (id==33)*row=2,*col=7;
+  else if (id==34)*row=1,*col=0;//y
+  else if (id==35)*row=1,*col=1;
+  else if (id==0) *row=1,*col=2;
+  else if (id==9) *row=1,*col=3;
+  else if (id==36)*row=1,*col=4;
+  else if (id==37)*row=1,*col=5;
+  else if (id==38)*row=1,*col=6;
+  else if (id==39)*row=1,*col=7;
+
+  else if (id==40)*row=0,*col=8;//shift -- LEFT SIDE
+  else if (id==41)*row=1,*col=8;
+  else if (id==42)*row=2,*col=8;
+  else if (id==43)*row=3,*col=8;
+  else if (id==44)*row=4,*col=8;
+  else if (id==45)*row=5,*col=8;
+  else if (id==46)*row=6,*col=8;
+  else if (id==47)*row=7,*col=8;
+  else if (id==48)*row=0,*col=9;//escape -- RIGHT SIDE
+  else if (id==49)*row=1,*col=9;
+  else if (id==50)*row=2,*col=9;
+  else if (id==51)*row=3,*col=9;
+  else if (id==52)*row=4,*col=9;
+  else if (id==53)*row=5,*col=9;
+  else if (id==54)*row=6,*col=9;
+  else if (id==55)*row=7,*col=9;
+  else if (id==56)*row=0,*col=10;//left-arrow -- VIEW
+  else if (id==57)*row=1,*col=10;
+  else if (id==58)*row=2,*col=10;
+  else if (id==59)*row=3,*col=10;
+  else if (id==50)*row=4,*col=10;
+  else if (id==61)*row=5,*col=10;
+  else if (id==62)*row=6,*col=10;
+  else if (id==63)*row=7,*col=10;
+  else if (id==64)*row=0,*col=11;
+  else if (id==65)*row=0,*col=11;
+  else if (id==66)*row=1,*col=11;
+  else if (id==67)*row=1,*col=11;
+  else if (id==68)*row=2,*col=11;
+  else if (id==69)*row=2,*col=11;
+  else if (id==60)*row=3,*col=11;
+  else if (id==71)*row=3,*col=11;
+  else if (id==72)*row=4,*col=11;
+  else if (id==73)*row=4,*col=11;
+  else if (id==74)*row=4,*col=11;
+  else if (id==75)*row=5,*col=11;
+  else if (id==76)*row=5,*col=11;
+  else if (id==77)*row=6,*col=11;
+  else if (id==78)*row=7,*col=11;
+  else if (id==79)*row=7,*col=11;
+}
+
+
+static t_class *LED_class;
+typedef struct _LED
+{
+  t_object x_obj;
+
+  t_float LED;
+  t_float state;
+} t_LED;
+
+static void LED_float(t_LED *x, t_float f)
+{
+  int row, col;
+  int state = x->state;
+  int offset = 0;
+  int id = f;
+
+  LED_id2rowcol(id, &row, &col);
+
+  if (id<0)return;
+
+  if (state>0)offset=0x40;
+  else if (state<0)offset=0x50;
+
+
+  if (col<8)offset++;
+#if 0
+  post("LED: %x %x %x %x", 0x0C, col, 0x2C, row+offset);
+  post("LED: %d %d %d %d\n", 0x0C, col, 0x2C, row+offset);
+#endif
+  outmidi_controlchange(x_port>>4, x_port&15, 0x0C, col);
+  outmidi_controlchange(x_port>>4, x_port&15, 0x2C, row+offset);
+}
+
+static void LED_symbol(t_LED *x, t_symbol *s)
+{
+  LED_float(x, LED_sym2id(s));
+}
+
+static void LED_bang(t_LED *x)
+{
+
+}
+
+static void *LED_new(void)
+{
+  t_LED *x = (t_LED *)pd_new(LED_class);
+
+  x->LED=-1;
+  floatinlet_new(&x->x_obj, &x->state);
+
+  x->state=0;
+
+  return (x);
+}
+static void LED_setup(void)
+{
+  LED_class = class_new(gensym("motormix_LED"), (t_newmethod)LED_new, 
+			      0, sizeof(t_LED), 0, 0);
+  class_addcreator((t_newmethod)LED_new, gensym("LED"), 0);
+ 
+  class_addsymbol(LED_class, LED_symbol);
+  class_addfloat (LED_class, LED_float);
+  class_addbang  (LED_class, LED_bang);
+  class_sethelpsymbol(LED_class, gensym("zexy/motormix"));
+}
+
+/* button */
+static t_class *button_class;
+typedef struct _button
+{
+  t_object x_obj;
+  int      o_itsme;      // the fader changed
+  int      o_imtouched;  // the fader was touched
+
+  t_outlet *o_value; // actual fader-value
+  t_outlet *o_touch; // 1=touched; 0=released
+
+  int activefader;
+  int fader;
+  unsigned char MSB, LSB;
+} t_button;
+
+static void button_touch(t_button *x, unsigned char value, unsigned char control)
+{
+  int pressed=0;
+  int MSB=x->MSB;
+  int LSB=0;
+  int id=0;
+
+  x->o_imtouched=0;
+
+  if (x->MSB<8){
+    if ((value==0x00) || (value==0x40))return;
+  }
+
+  if (value>=0x40){
+    pressed=1;
+    value-=0x40;
+  }
+
+  LSB=value;
+
+  post("MSB=%d, LSB=%d", MSB, LSB);
+
+  switch (MSB) {
+  case 0x08: /* left side */
+    id=MSB+40;
+    break;
+  case 0x09: /* right side */
+    id=MSB+
+    break;
+  case 0x0A: /* VIEW */
+    break;
+  case 0x0B: /* fx */
+    break;
+  default:
+    if (MSB>0x08)return;
+    switch (LSB) {
+    case 0x01: /* 1..8 */
+      id=MSB+1;
+      break;
+    case 0x05: /* a..h */
+      id=MSB+10;
+      break;
+    case 0x04: /* i..p */
+      id=MSB+18;
+      break;
+    case 0x03: /* q..x */
+      id=MSB+26;
+      break;
+    case 0x02: /* y.. . */
+      switch (MSB){
+      case 0: case 1:
+	id=MSB+34;
+	break;
+      case 2:
+	id=0;
+	break;
+      case 3:
+	id=9;
+	break;
+      default:
+	id=MSB+32;
+      }
+      break;
+    default:
+      return;
+    }
+  }
+
+
+  outlet_float(x->o_touch, pressed);
+  outlet_float(x->o_value, id);
+}
+
+static void button_list(t_button *x, t_symbol *s, int argc, t_atom *argv)
+{
+  unsigned char ctl = atom_getfloatarg(0, argc, argv);
+  unsigned char val = atom_getfloatarg(1, argc, argv);
+  //  int channel   = atom_getfloatarg(2, argc, argv);
+
+  if (x->o_imtouched)button_touch(x, val, ctl);
+
+  if (ctl==0x0f){
+	x->o_imtouched=1;
+	x->MSB=val;
+      }
+}
+
+static void *button_new()
+{
+  t_button *x = (t_button *)pd_new(button_class);
+
+  x->o_value=outlet_new(&x->x_obj, &s_float);
+  x->o_touch=outlet_new(&x->x_obj, &s_float);
+
+  x->o_imtouched = 0;
+
+  pd_bind(&x->x_obj.ob_pd, ctlin_sym);
+
+  return (x);
+}
+static void button_setup(void)
+{
+  button_class = class_new(gensym("motormix_button"), (t_newmethod)button_new, 
+			      0, sizeof(t_button), CLASS_NOINLET, A_DEFFLOAT,  0);
+  class_addcreator((t_newmethod)button_new, gensym("button"), A_DEFFLOAT, 0);
+ 
+  class_addlist(button_class, button_list);
+  class_sethelpsymbol(button_class, gensym("zexy/motormix"));
+}