ref: 343be1a4a94d4f35f597ed3a5f0bc3e3eacdde4d
dir: /pick.c/
/*
* July 5, 1991
* Copyright 1991 Lance Norskog And Sundry Contributors
* This source code is freely redistributable and may be used for
* any purpose. This copyright notice must be maintained.
* Lance Norskog And Sundry Contributors are not responsible for
* the consequences of using this software.
*/
/*
* "pick" effect by Lauren Weinstein (lauren@vortex.com); 2/94
* Creates a 1 channel file by selecting a single channel from
* a 2 or 4 channel file. Does not currently allow creating a 2 channel
* file by selecting 2 channels from a 4 channel file.
*/
#include "st.h"
/* Private data for SKEL file */
typedef struct pickstuff {
int chan; /* selected channel */
} *pick_t;
/* channel names are offset by 1 from actual channel byte array offsets */
#define CHAN_1 0
#define CHAN_2 1
#define CHAN_3 2
#define CHAN_4 3
/*
* Process options
*/
int st_pick_getopts(effp, n, argv)
eff_t effp;
int n;
char **argv;
{
pick_t pick = (pick_t) effp->priv;
if (n == 1 && argv[0][0] == '-') { /* must specify channel to pick */
switch (argv[0][1]) {
case 'l':
pick->chan = CHAN_1;
return (ST_SUCCESS);
case 'r':
pick->chan = CHAN_2;
return (ST_SUCCESS);
case '1':
pick->chan = CHAN_1;
return (ST_SUCCESS);
case '2':
pick->chan = CHAN_2;
return (ST_SUCCESS);
case '3':
pick->chan = CHAN_3;
return (ST_SUCCESS);
case '4':
pick->chan = CHAN_4;
return (ST_SUCCESS);
}
}
/* Invalid option given. Will give error when st_pick_stat()
* is called
*/
pick->chan = -1;
return (ST_SUCCESS);
}
/*
* Start processing. Final option checking is done here since
* error/usage messages will vary based on the number of input/output
* channels selected, and that info is not available in pick_getopts()
* above.
*/
int st_pick_start(effp)
eff_t effp;
{
pick_t pick = (pick_t) effp->priv;
if (effp->outinfo.channels != 1) /* must be one output channel */
{
st_fail("Pick effect requires output to be forced to 1 channel. Currenty it is set for %d channels.",effp->outinfo.channels);
return (ST_EOF);
}
if (effp->ininfo.channels != 2 && effp->ininfo.channels != 4)
{
st_fail("Pick effect can not work with mono input data.");
return (ST_EOF);
}
if (effp->ininfo.channels == 2) { /* check for valid option */
if (pick->chan == -1 || pick->chan == CHAN_3 || pick->chan == CHAN_4)
{
st_fail("Must specify channel to pick: '-l', '-r', '-1', or '-2'.");
return (ST_EOF);
}
}
else /* must be 4 channels; check for valid option */
if (pick->chan == -1)
{
st_fail("Must specify channel to pick: '-1', '-2', '-3', or '-4'.");
return (ST_EOF);
}
return (ST_SUCCESS);
}
/*
* Process signed long samples from ibuf to obuf,
* isamp or osamp samples, whichever is smaller,
* while picking appropriate channels.
*/
int st_pick_flow(effp, ibuf, obuf, isamp, osamp)
eff_t effp;
LONG *ibuf, *obuf;
LONG *isamp, *osamp;
{
pick_t pick = (pick_t) effp->priv;
int len, done;
switch (effp->ininfo.channels) {
case 2:
len = ((*isamp/2 > *osamp) ? *osamp : *isamp/2);
for(done = 0; done < len; done++) {
*obuf++ = ibuf[pick->chan];
ibuf += 2;
}
*isamp = len * 2;
*osamp = len;
break;
case 4:
len = ((*isamp/4 > *osamp) ? *osamp : *isamp/4);
for(done = 0; done < len; done++) {
*obuf++ = ibuf[pick->chan];
ibuf += 4;
}
*isamp = len * 4;
*osamp = len;
break;
}
return (ST_SUCCESS);
}
/*
* Do anything required when you stop reading samples.
* Don't close input file!
*/
int st_pick_stop(effp)
eff_t effp;
{
/* nothing to do */
return (ST_SUCCESS);
}