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
|
/* 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. */
/* LATER reconsider making float/int conversions
more compatible (and less useful). */
#include "m_pd.h"
#include "sickle/sic.h"
#include "sickle/arsic.h"
typedef t_arsic t_lookup;
static t_class *lookup_class;
#define LOOKUP_DEFSIZE 512
static void lookup_set(t_lookup *x, t_symbol *s)
{
arsic_setarray((t_arsic *)x, s, 1);
}
static t_int *lookup_perform(t_int *w)
{
t_arsic *sic = (t_arsic *)(w[1]);
int nblock = (int)(w[2]);
t_float *out = (t_float *)(w[6]);
if (sic->s_playable)
{
t_float *xin = (t_float *)(w[3]);
t_float *oin = (t_float *)(w[4]);
t_float *sin = (t_float *)(w[5]);
int vecsize = sic->s_vecsize;
t_float *vec = sic->s_vectors[0]; /* playable implies nonzero (mono) */
while (nblock--)
{
float off = *oin++; /* msp: converted to int (if not a signal) */
int siz = (int)*sin++ - 1; /* msp: converted to int (signal too) */
float pos = (siz > 0 ? off + siz * (*xin++ + 1.0) * 0.5 : off);
int ndx = (int)pos;
int ndx1 = ndx + 1;
if (ndx1 > 0 && ndx1 < vecsize)
{
float val = vec[ndx];
*out++ = val + (vec[ndx1] - val) * (pos - ndx);
}
/* CHECKED: */
else if (ndx1 == 0) *out++ = *vec * (pos + 1.0);
else if (ndx1 == vecsize) *out++ = vec[ndx] * (ndx1 - pos);
else *out++ = 0;
}
}
else while (nblock--) *out++ = 0;
return (w + 7);
}
static void lookup_dsp(t_lookup *x, t_signal **sp)
{
arsic_dsp((t_arsic *)x, sp, lookup_perform, 1);
}
static void lookup_free(t_lookup *x)
{
arsic_free((t_arsic *)x);
}
static void *lookup_new(t_symbol *s, t_floatarg f1, t_floatarg f2)
{
/* CHECKED: lookup~ always uses the first channel in a multi-channel buffer~
(as the refman says). */
/* three auxiliary signals: amplitude, offset and size inputs */
t_lookup *x = (t_lookup *)arsic_new(lookup_class, s, 0, 0, 3);
if (x)
{
arsic_setminsize((t_arsic *)x, 2);
if (f1 < 0) f1 = 0;
if (f2 <= 0) f2 = LOOKUP_DEFSIZE;
sic_newinlet((t_sic *)x, f1);
sic_newinlet((t_sic *)x, f2);
outlet_new((t_object *)x, &s_signal);
}
return (x);
}
void lookup_tilde_setup(void)
{
lookup_class = class_new(gensym("lookup~"),
(t_newmethod)lookup_new,
(t_method)lookup_free,
sizeof(t_lookup), 0,
A_DEFSYM, A_DEFFLOAT, A_DEFFLOAT, 0);
arsic_setup(lookup_class, lookup_dsp, SIC_FLOATTOSIGNAL);
class_addmethod(lookup_class, (t_method)lookup_set,
gensym("set"), A_SYMBOL, 0);
}
|
