}
nread = nextOut - output;
writebuffer(csound, output, &block, outfd, nread, &O);
csound->Message(csound, "\n\n");
if (O.ringbell)
csound->MessageS(csound, CSOUNDMSG_REALTIME, "\a");
return 0;
err_rtn_msg:
csound->ErrorMsg(csound, err_msg);
return -1;
}
static const char *usage_txt[] = {
Str_noop("usage: srconv [flags] infile\n\nflags:"),
Str_noop("-P num\tpitch transposition ratio (srate/r) [do not specify "
"both P and r]"),
Str_noop("-Q num\tquality factor (1 to 8: default = 2)"),
Str_noop("-i filnam\tbreak file"),
Str_noop("-r num\toutput sample rate (must be specified)"),
Str_noop("-o fnam\tsound output filename\n"),
Str_noop("-A\tcreate an AIFF format output soundfile"),
Str_noop("-J\tcreate an IRCAM format output soundfile"),
Str_noop("-W\tcreate a WAV format output soundfile"),
Str_noop("-h\tno header on output soundfile"),
Str_noop("-c\t8-bit signed_char sound samples"),
Str_noop("-a\talaw sound samples"),
Str_noop("-8\t8-bit unsigned_char sound samples"),
Str_noop("-u\tulaw sound samples"),
Str_noop("-s\tshort_int sound samples"),
p->linePos = 0;
}
}
static CS_NOINLINE void pvlook_printvalue(PVLOOK *p, float x)
{
if (!p->printInts)
pvlook_print(p, " %.3f", x);
else {
int32_t n = (int32_t) (x < 0.0f ? x - 0.5f : x + 0.5f);
pvlook_print(p, " %d", n);
}
}
static const char *pvlook_usage_txt[] = {
Str_noop("pvlook is a program which reads a Csound pvanal's pvoc"),
Str_noop("file and outputs frequency and magnitude trajectories for each "),
Str_noop("of the analysis bins."),
"",
Str_noop("usage: pvlook [-bb X] [-eb X] [-bf X] [-ef X] [-i] file > output"),
"",
Str_noop(" -bb X begin at analysis bin X. Numbered from 1 [defaults to 1]"),
Str_noop(" -eb X end at analysis bin X [defaults to highest]"),
Str_noop(" -bf X begin at analysis frame X. Numbered from 1 [defaults to 1]"),
Str_noop(" -ef X end at analysis frame X [defaults to last]"),
Str_noop(" -i prints values as integers [defaults to floating point]"),
"",
NULL
};
static int32_t pvlook(CSOUND *csound, int32_t argc, char *argv[])
writebuffer(csound, outfd, ob1, i, &nrecs, &O);
/* csound->rewriteheader(outfd); */
csound->Message(csound, "\n\n");
if (Verbose) {
csound->Message(csound, Str("processing complete\n"));
csound->Message(csound, "N = %d\n", N);
csound->Message(csound, "M = %d\n", M);
csound->Message(csound, "L = %d\n", L);
csound->Message(csound, "D = %d\n", D);
}
return 0;
}
static const char *usage_txt[] = {
Str_noop("usage: dnoise [flags] input_file"),
"",
Str_noop("flags:"),
Str_noop("i = noise reference soundfile"),
Str_noop("o = output file"),
Str_noop("N = # of bandpass filters (1024)"),
Str_noop("w = filter overlap factor: {0,1,(2),3} DO NOT USE -w AND -M"),
Str_noop("M = analysis window length (N-1 unless -w is specified)"),
Str_noop("L = synthesis window length (M)"),
Str_noop("D = decimation factor (M/8)"),
Str_noop("b = begin time in noise reference soundfile (0)"),
Str_noop("B = starting sample in noise reference soundfile (0)"),
Str_noop("e = end time in noise reference soundfile (end)"),
Str_noop("E = final sample in noise reference soundfile (end)"),
Str_noop("t = threshold above noise reference in dB (30)"),
Str_noop("S = sharpness of noise-gate turnoff (1) (1 to 5)"),
for (n = 0; n < len; n++)
STA(Linebuf)[n] = Linestart[n];
n = (int) (Linestart - &(STA(Linebuf)[0]));
STA(Linep) -= n;
Linend -= n;
}
if (Linend == STA(Linep)) /* return if no more data is available */
break;
STA(Linep) = Linend; /* accum the chars */
}
}
/* send a lineevent from the orchestra -matt 2001/12/07 */
static const char *errmsg_1 =
Str_noop("event: param 1 must be \"a\", \"i\", \"q\", \"f\", or \"e\"");
static const char *errmsg_2 =
Str_noop("event: string name is allowed only for \"i\" and \"q\" events");
int eventOpcode_(CSOUND *csound, LINEVENT *p, int insname, char p1)
{
EVTBLK evt;
int i;
char opcod;
memset(&evt, 0, sizeof(EVTBLK));
if (p1==0)
opcod = *((STRINGDAT*) p->args[0])->data;
else opcod = p1;
if (UNLIKELY((opcod != 'a' && opcod != 'i' && opcod != 'q' && opcod != 'f' &&
