void CPhoneticFeaturesDlg::OnVMGetPrevDatatblctrlphoneticfeatures(long FAR* Status)
{
long Row=m_datatblPhoneticFeatures.GetVMDataKey();
if (Row<=0) *Status=1;
else
{
Row--;
m_datatblPhoneticFeatures.SetVMDataKey(Row);
LoadRow(Row);
}
}
void CPhoneticFeaturesDlg::OnVMGetNextDatatblctrlphoneticfeatures(long FAR* Status)
{
long Row=m_datatblPhoneticFeatures.GetVMDataKey();
if (Row>=m_nRows-1) *Status=1;
else
{
Row++;
m_datatblPhoneticFeatures.SetVMDataKey(Row);
LoadRow(Row);
}
}
bool DataQuery::NextRow()
{
current_row++;
if (current_row >= limit)
{
return false;
}
LoadRow();
return true;
}
/*
* Compute 2D DFT on double data:
* forward if direction==FFT_FORWARD,
* inverse if direction==FFT_INVERSE.
*/
int fft2d(DCOMPLEX *array, int rows, int cols, int direction)
{
int i, maxsize, errflag;
if(!power_of_2(rows) || !power_of_2(cols)) {
handle_error("fft: input array must have dimensions a power of 2");
return(ERROR);
}
/* Allocate 1D buffer */
bigBuffd = array;
maxsize = rows>cols ? rows : cols;
errflag = allocateBuffer(maxsize);
if(errflag != NO_ERROR) return(errflag);
/* Compute transform row by row */
if(cols>1)
for(i=0;i<rows;i++)
{
LoadRow(bigBuffd,i,cols);
FFT842(direction,cols,stageBuff);
StoreRow(bigBuffd,i,cols);
}
/* Compute transform column by column */
if(rows>1)
for(i=0;i<cols;i++)
{
LoadCol(bigBuffd,i,rows,cols);
FFT842(direction,rows,stageBuff);
StoreCol(bigBuffd,i,rows,cols);
}
freeBuffer();
return(NO_ERROR);
}
void CPhoneticFeaturesDlg::OnVMGetRowDataDatatblctrlphoneticfeatures(long FAR* Status)
{
long Row=m_datatblPhoneticFeatures.GetVMDataKey();
if (Row<0 || Row>m_nRows-1) *Status=1;
else LoadRow(Row);
}
void CPhoneticFeaturesDlg::OnVMGetPercentDatatblctrlphoneticfeatures(long FAR* Status)
{
long Row=m_datatblPhoneticFeatures.GetVMDataKey();
m_datatblPhoneticFeatures.SetVMDataKey(Row*(m_nRows/100));
LoadRow(Row);
}
void CPhoneticFeaturesDlg::OnVMGetLastDatatblctrlphoneticfeatures(long FAR* Status)
{
long Row=m_nRows;
m_datatblPhoneticFeatures.SetVMDataKey(Row);
LoadRow(Row);
}