shithub: sox

ref: 221486c5526d96794e5257e55b2b07459861225f
dir: /src/tremolo.c/

View raw version
/*
 * This 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 of the License, or (at
 * your option) any later version.
 *
 * This library 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 this library.  If not, write to the Free Software Foundation,
 * Fifth Floor, 51 Franklin Street, Boston, MA 02111-1301, USA.
 */

/* Effect: tremolo  (c) 2007 robs@users.sourceforge.net */

#include "synth.h"

static int getopts(eff_t effp, int n, char * * argv) 
{
  double speed, depth = 40;
  char dummy;     /* To check for extraneous chars. */
  char offset[100];
  char * synth_args[] = {"sine", "fmod", 0, 0};

  if (n < 1 || n > 2 ||
      sscanf(argv[0], "%lf %c", &speed, &dummy) != 1 || speed < 0 ||
      (n > 1 && sscanf(argv[1], "%lf %c", &depth, &dummy) != 1) ||
      depth <= 0 || depth > 100) {
    st_fail(effp->h->usage);
    return ST_EOF;
  }
  synth_args[2] = argv[0];
  sprintf(offset, "%g", 100 - depth / 2);
  synth_args[3] = offset;
  return st_synth_getopts(effp, array_length(synth_args), synth_args);
}

st_effect_t const * st_tremolo_effect_fn(void)
{
  static st_effect_t driver = {
    "tremolo", "Usage: tremolo speed_Hz [depth_percent];", ST_EFF_MCHAN,
    getopts, st_synth_start, st_synth_flow, 0, 0, 0,
  };
  return &driver;
}