1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
/* Copyright (c) 2002-2003 krzYszcz and others.
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
#include "m_pd.h"
typedef struct _xbendin
{
t_object x_ob;
int x_omni;
unsigned char x_ready;
unsigned char x_status;
unsigned char x_channel;
unsigned char x_lsb;
t_outlet *x_chanout;
} t_xbendin;
static t_class *xbendin_class;
static void xbendin_clear(t_xbendin *x)
{
x->x_status = 0;
x->x_ready = 0;
}
static void xbendin_float(t_xbendin *x, t_float f)
{
int ival = (int)f; /* CHECKME */
if (ival < 0)
{
/* CHECKME */
return;
}
if (ival < 256) /* CHECKME */
{
unsigned char bval = ival;
if (bval & 0x80)
{
unsigned char status = bval & 0xF0;
if (status == 0xF0)
{
/* CHECKME */
if (bval < 0xF8)
xbendin_clear(x);
}
else if (status == 0xE0)
{
unsigned char channel = bval & 0x0F;
if (x->x_omni)
x->x_channel = channel;
x->x_status = (x->x_channel == channel);
x->x_ready = 0;
}
else xbendin_clear(x);
}
else if (x->x_ready)
{
if (x->x_omni)
outlet_float(x->x_chanout, x->x_channel + 1);
outlet_float(((t_object *)x)->ob_outlet, (bval << 7) + x->x_lsb);
x->x_ready = 0;
}
else if (x->x_status)
{
x->x_lsb = bval;
x->x_ready = 1;
}
}
else xbendin_clear(x);
}
static void *xbendin_new(t_floatarg f)
{
int channel = (int)f; /* CHECKME */
t_xbendin *x = (t_xbendin *)pd_new(xbendin_class);
outlet_new((t_object *)x, &s_float);
if (x->x_omni = (channel == 0)) /* CHECKME */
x->x_chanout = outlet_new((t_object *)x, &s_float);
else
x->x_channel = (unsigned char)--channel; /* CHECKME */
xbendin_clear(x);
return (x);
}
void xbendin_setup(void)
{
xbendin_class = class_new(gensym("xbendin"),
(t_newmethod)xbendin_new, 0,
sizeof(t_xbendin), 0,
A_DEFFLOAT, 0);
class_addfloat(xbendin_class, xbendin_float);
/* CHECKME autocasting lists to floats */
}
|
