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
|
/*
select.c:
Copyright (C) 2016 John ffitch
This file is part of Csound.
The Csound Library is free software; you can redistribute it
and/or modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
Csound is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with Csound; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
02110-1301 USA
*/
#include "csoundCore.h"
typedef struct Select {
OPDS h;
MYFLT *ar, *in1, *in2, *less, *equal, *more;
} Selecter;
static int32_t selecter(CSOUND *csound, Selecter* p)
{
IGN(csound);
MYFLT *ar = p->ar;
MYFLT *a1=p->in1, *a2=p->in2, *al=p->less, *ae=p->equal, *am=p->more;
uint32_t offset = p->h.insdshead->ksmps_offset;
uint32_t early = p->h.insdshead->ksmps_no_end;
uint32_t n, nsmps = CS_KSMPS;
if (UNLIKELY(offset)) memset(ar, '\0', offset*sizeof(MYFLT));
if (UNLIKELY(early)) {
nsmps -= early;
memset(&ar[nsmps], '\0', early*sizeof(MYFLT));
}
for (n=offset; n<nsmps; n++) {
ar[n] = a1[n]<a2[n] ? al[n] : a1[n]==a2[n] ? ae[n] : am[n];
}
return OK;
}
#define S(x) sizeof(x)
static OENTRY select_localops[] = {
{ "select", S(Selecter), 0, 2, "a", "aaaaa", NULL, (SUBR)selecter}
};
LINKAGE_BUILTIN(select_localops)
|
