placea.c File Reference

#include "f2c.h"

Include dependency graph for placea.c:

Go to the source code of this file.

Functions
int	placea_ (integer *ipitch, integer *voibuf, integer *obound, integer *af, integer *vwin, integer *awin, integer *ewin, integer *lframe, integer *maxwin)

Function Documentation

placea_()

int placea_	(	integer *	ipitch,
		integer *	voibuf,
		integer *	obound,
		integer *	af,
		integer *	vwin,
		integer *	awin,
		integer *	ewin,
		integer *	lframe,
		integer *	maxwin
	)

Definition at line 116 of file placea.c.

References FALSE_, i_nint(), lframe, and TRUE_.

Referenced by analys_().

{
 /* System generated locals */
 real r__1;

 /* Builtin functions */
 integer i_nint(real *);

 /* Local variables */
 logical allv, winv;
 integer i__, j, k, l, hrange;
 logical ephase;
 integer lrange;

/* Arguments */
/* Local variables that need not be saved */
 /* Parameter adjustments */
 ewin -= 3;
 awin -= 3;
 vwin -= 3;
 --voibuf;

 /* Function Body */
 lrange = (*af - 2) * *lframe + 1;
 hrange = *af * *lframe;
/* Place the Analysis window based on the voicing window */
/* placement, onsets, tentative voicing decision, and pitch. */

/* Case 1: Sustained Voiced Speech */
/* If the five most recent voicing decisions are */
/* voiced, then the window is placed phase-synchronously with the */
/* previous window, as close to the present voicing window if possible.
*/
/* If onsets bound the voicing window, then preference is given to */
/* a phase-synchronous placement which does not overlap these onsets. */

/* Case 2: Voiced Transition */
/* If at least one voicing decision in AF is voicied, and there are no
*/
/* onsets, then the window is placed as in case 1. */

/* Case 3: Unvoiced Speech or Onsets */
/* If both voicing decisions in AF are unvoiced, or there are onsets, */
/* then the window is placed coincident with the voicing window. */

/* Note: During phase-synchronous placement of windows, the length */
/* is not altered from MAXWIN, since this would defeat the purpose */
/* of phase-synchronous placement. */
/* Check for case 1 and case 2 */
 allv = voibuf[((*af - 2) << 1) + 2] == 1;
 allv = allv && voibuf[((*af - 1) << 1) + 1] == 1;
 allv = allv && voibuf[((*af - 1) << 1) + 2] == 1;
 allv = allv && voibuf[(*af << 1) + 1] == 1;
 allv = allv && voibuf[(*af << 1) + 2] == 1;
 winv = voibuf[(*af << 1) + 1] == 1 || voibuf[(*af << 1) + 2] == 1;
 if (allv || (winv && *obound == 0)) {
/* APHASE: Phase synchronous window placement. */
/* Get minimum lower index of the window. */
 i__ = (lrange + *ipitch - 1 - awin[((*af - 1) << 1) + 1]) / *ipitch;
 i__ *= *ipitch;
 i__ += awin[((*af - 1) << 1) + 1];
/* L = the actual length of this frame's analysis window. */
 l = *maxwin;
/* Calculate the location where a perfectly centered window would star
t. */
 k = (vwin[(*af << 1) + 1] + vwin[(*af << 1) + 2] + 1 - l) / 2;
/* Choose the actual location to be the pitch multiple closest to this
. */
 r__1 = (real) (k - i__) / *ipitch;
 awin[(*af << 1) + 1] = i__ + i_nint(&r__1) * *ipitch;
 awin[(*af << 1) + 2] = awin[(*af << 1) + 1] + l - 1;
/* If there is an onset bounding the right of the voicing window and t
he */
/* analysis window overlaps that, then move the analysis window backwa
rd */
/* to avoid this onset. */
 if (*obound >= 2 && awin[(*af << 1) + 2] > vwin[(*af << 1) + 2]) {
 awin[(*af << 1) + 1] -= *ipitch;
 awin[(*af << 1) + 2] -= *ipitch;
 }
/* Similarly for the left of the voicing window. */
 if ((*obound == 1 || *obound == 3) && awin[(*af << 1) + 1] < vwin[(*
 af << 1) + 1]) {
 awin[(*af << 1) + 1] += *ipitch;
 awin[(*af << 1) + 2] += *ipitch;
 }
/* If this placement puts the analysis window above HRANGE, then */
/* move it backward an integer number of pitch periods. */
 while(awin[(*af << 1) + 2] > hrange) {
 awin[(*af << 1) + 1] -= *ipitch;
 awin[(*af << 1) + 2] -= *ipitch;
 }
/* Similarly if the placement puts the analysis window below LRANGE.
*/
 while(awin[(*af << 1) + 1] < lrange) {
 awin[(*af << 1) + 1] += *ipitch;
 awin[(*af << 1) + 2] += *ipitch;
 }
/* Make Energy window be phase-synchronous. */
 ephase = TRUE_;
/* Case 3 */
 } else {
 awin[(*af << 1) + 1] = vwin[(*af << 1) + 1];
 awin[(*af << 1) + 2] = vwin[(*af << 1) + 2];
 ephase = FALSE_;
 }
/* RMS is computed over an integer number of pitch periods in the analysis
 */
/*window. When it is not placed phase-synchronously, it is placed as clos
e*/
/* as possible to onsets. */
 j = (awin[(*af << 1) + 2] - awin[(*af << 1) + 1] + 1) / *ipitch * *ipitch;
 if (j == 0 || ! winv) {
 ewin[(*af << 1) + 1] = vwin[(*af << 1) + 1];
 ewin[(*af << 1) + 2] = vwin[(*af << 1) + 2];
 } else if (! ephase && *obound == 2) {
 ewin[(*af << 1) + 1] = awin[(*af << 1) + 2] - j + 1;
 ewin[(*af << 1) + 2] = awin[(*af << 1) + 2];
 } else {
 ewin[(*af << 1) + 1] = awin[(*af << 1) + 1];
 ewin[(*af << 1) + 2] = awin[(*af << 1) + 1] + j - 1;
 }
 return 0;
} /* placea_ */