#! /usr/local/bin/pvtool

#define EXTRA_PARAMETERS 1

/* Brutal and simple HPF algorithm. Simply erases everything found in
   a bin with centre frequency lower than the passed parameter. */

int
pvaction (void)
{
  int i, j;
  for (j = 0; j < bins; j++)
    {
      if (bin_to_freq (j) < fparameter[0])
	for (i = 0; i < INPUT1_FRAMES; i++)
	  {
	    OUTPUT_PHIDOT (i, j) = INPUT1_PHIDOT (i, j);
	    OUTPUT_MAG (i, j) = 0;
	  }
      else
	for (i = 0; i < INPUT1_FRAMES; i++)
	  {
	    OUTPUT_PHIDOT (i, j) = INPUT1_PHIDOT (i, j);
	    OUTPUT_MAG (i, j) = INPUT1_MAG (i, j);
	  }
    }
  return (0);
}
