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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
/* 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. */
/* CHECKED:
bang for a float at > (refman error: >=)
bang for a list if all >= (refman page says the same)
bang for a list if any is >, even if the rest (but not previous) is <
well...
*/
#include "m_pd.h"
#include "common/loud.h"
#include "common/grow.h"
#define PAST_MAXSIZE 8 /* CHECKED */
typedef struct past
{
t_object x_ob;
int x_low;
int x_size; /* as allocated */
int x_nthresh; /* as used */
t_atom *x_thresh;
t_atom x_thrini[PAST_MAXSIZE];
} t_past;
static t_class *past_class;
static int past_compare(t_past *x, t_float f, t_atom *ap)
{
if (ap->a_type == A_FLOAT)
{
if (f > ap->a_w.w_float)
return (1);
else if (f == ap->a_w.w_float)
return (0);
else
return (-1);
}
else /* CHECKED */
{
if (f > 0.)
return (1);
else if (f == 0.)
return (0);
else
return (-1);
}
}
static void past_float(t_past *x, t_float f)
{
if (x->x_nthresh == 1)
{
if (past_compare(x, f, x->x_thresh) > 0) /* CHECKED: equal is low */
{
if (x->x_low)
{
x->x_low = 0;
outlet_bang(((t_object *)x)->ob_outlet);
}
}
else x->x_low = 1;
}
else if (past_compare(x, f, x->x_thresh) < 0) x->x_low = 1;
}
/* CHECKME: x_low handling */
static void past_list(t_past *x, t_symbol *s, int ac, t_atom *av)
{
if (ac && ac <= x->x_nthresh)
{
int result;
t_atom *vp = x->x_thresh;
if (av->a_type == A_FLOAT
&& (result = past_compare(x, av->a_w.w_float, vp)) >= 0)
{
if (!result)
{
for (ac--, av++, vp++; ac; ac--, av++, vp++)
{
if (av->a_type != A_FLOAT
|| (result =
past_compare(x, av->a_w.w_float, vp++)) < 0)
{
x->x_low = 1;
return;
}
if (result) break;
}
}
if (x->x_low)
{
x->x_low = 0;
outlet_bang(((t_object *)x)->ob_outlet);
}
}
else x->x_low = 1;
}
}
static void past_clear(t_past *x)
{
x->x_low = 1;
}
static void past_set(t_past *x, t_symbol *s, int ac, t_atom *av)
{
if (ac)
{
t_atom *vp = x->x_thresh;
if (ac > x->x_size)
{
loud_incompatible_max(past_class, PAST_MAXSIZE, "guard points");
x->x_thresh = grow_nodata(&ac, &x->x_size, x->x_thresh,
PAST_MAXSIZE, x->x_thrini,
sizeof(*x->x_thresh));
}
x->x_nthresh = ac;
while (ac--) *vp++ = *av++;
/* CHECKED: x_low is not set here */
}
}
static void past_free(t_past *x)
{
if (x->x_thresh != x->x_thrini)
freebytes(x->x_thresh, x->x_size * sizeof(*x->x_thresh));
}
static void *past_new(t_symbol *s, int ac, t_atom *av)
{
t_past *x = (t_past *)pd_new(past_class);
x->x_low = 1;
x->x_nthresh = 0;
x->x_size = PAST_MAXSIZE;
x->x_thresh = x->x_thrini;
outlet_new((t_object *)x, &s_bang);
past_set(x, 0, ac, av);
return (x);
}
void past_setup(void)
{
past_class = class_new(gensym("past"),
(t_newmethod)past_new,
(t_method)past_free,
sizeof(t_past), 0, A_GIMME, 0);
class_addfloat(past_class, past_float);
class_addlist(past_class, past_list);
class_addmethod(past_class, (t_method)past_clear, gensym("clear"), 0);
class_addmethod(past_class, (t_method)past_set, gensym("set"), A_GIMME, 0);
}
|
