/*----------------------------------------------------------------------------
*
* File:
* eas_wtsynth.c
*
* Contents and purpose:
* Implements the synthesizer functions.
*
* Copyright Sonic Network Inc. 2004
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*
*----------------------------------------------------------------------------
* Revision Control:
* $Revision: 795 $
* $Date: 2007-08-01 00:14:45 -0700 (Wed, 01 Aug 2007) $
*----------------------------------------------------------------------------
*/
// includes
#include "eas_data.h"
#include "eas_report.h"
#include "eas_host.h"
#include "eas_math.h"
#include "eas_synth_protos.h"
#include "eas_wtsynth.h"
#include "eas_pan.h"
#ifdef DLS_SYNTHESIZER
#include "eas_dlssynth.h"
#endif
#ifdef _METRICS_ENABLED
#include "eas_perf.h"
#endif
/* local prototypes */
static EAS_RESULT WT_Initialize(S_VOICE_MGR *pVoiceMgr);
static void WT_ReleaseVoice (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, S_SYNTH_VOICE *pVoice, EAS_I32 voiceNum);
static void WT_MuteVoice (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, S_SYNTH_VOICE *pVoice, EAS_I32 voiceNum);
static void WT_SustainPedal (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, S_SYNTH_VOICE *pVoice, S_SYNTH_CHANNEL *pChannel, EAS_I32 voiceNum);
static EAS_RESULT WT_StartVoice (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, S_SYNTH_VOICE *pVoice, EAS_I32 voiceNum, EAS_U16 regionIndex);
static EAS_BOOL WT_UpdateVoice (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, S_SYNTH_VOICE *pVoice, EAS_I32 voiceNum, EAS_I32 *pMixBuffer, EAS_I32 numSamples);
static void WT_UpdateChannel (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, EAS_U8 channel);
static EAS_I32 WT_UpdatePhaseInc (S_WT_VOICE *pWTVoice, const S_ARTICULATION *pArt, S_SYNTH_CHANNEL *pChannel, EAS_I32 pitchCents);
static EAS_I32 WT_UpdateGain (S_SYNTH_VOICE *pVoice, S_WT_VOICE *pWTVoice, const S_ARTICULATION *pArt, S_SYNTH_CHANNEL *pChannel, EAS_I32 gain);
static void WT_UpdateEG1 (S_WT_VOICE *pWTVoice, const S_ENVELOPE *pEnv);
static void WT_UpdateEG2 (S_WT_VOICE *pWTVoice, const S_ENVELOPE *pEnv);
#ifdef EAS_SPLIT_WT_SYNTH
extern EAS_BOOL WTE_StartFrame (EAS_FRAME_BUFFER_HANDLE pFrameBuffer);
extern EAS_BOOL WTE_EndFrame (EAS_FRAME_BUFFER_HANDLE pFrameBuffer, EAS_I32 *pMixBuffer, EAS_I16 masterGain);
#endif
#ifdef _FILTER_ENABLED
static void WT_UpdateFilter (S_WT_VOICE *pWTVoice, S_WT_INT_FRAME *pIntFrame, const S_ARTICULATION *pArt);
#endif
#ifdef _STATS
extern double statsPhaseIncrement;
extern double statsMaxPhaseIncrement;
extern long statsPhaseSampleCount;
extern double statsSampleSize;
extern long statsSampleCount;
#endif
/*----------------------------------------------------------------------------
* Synthesizer interface
*----------------------------------------------------------------------------
*/
const S_SYNTH_INTERFACE wtSynth =
{
WT_Initialize,
WT_StartVoice,
WT_UpdateVoice,
WT_ReleaseVoice,
WT_MuteVoice,
WT_SustainPedal,
WT_UpdateChannel
};
#ifdef EAS_SPLIT_WT_SYNTH
const S_FRAME_INTERFACE wtFrameInterface =
{
WTE_StartFrame,
WTE_EndFrame
};
#endif
/*----------------------------------------------------------------------------
* WT_Initialize()
*----------------------------------------------------------------------------
* Purpose:
*
* Inputs:
* pVoice - pointer to voice to initialize
*
* Outputs:
*
*----------------------------------------------------------------------------
*/
static EAS_RESULT WT_Initialize (S_VOICE_MGR *pVoiceMgr)
{
EAS_INT i;
for (i = 0; i < NUM_WT_VOICES; i++)
{
pVoiceMgr->wtVoices[i].artIndex = DEFAULT_ARTICULATION_INDEX;
pVoiceMgr->wtVoices[i].eg1State = DEFAULT_EG1_STATE;
pVoiceMgr->wtVoices[i].eg1Value = DEFAULT_EG1_VALUE;
pVoiceMgr->wtVoices[i].eg1Increment = DEFAULT_EG1_INCREMENT;
pVoiceMgr->wtVoices[i].eg2State = DEFAULT_EG2_STATE;
pVoiceMgr->wtVoices[i].eg2Value = DEFAULT_EG2_VALUE;
pVoiceMgr->wtVoices[i].eg2Increment = DEFAULT_EG2_INCREMENT;
/* left and right gain values are needed only if stereo output */
#if (NUM_OUTPUT_CHANNELS == 2)
pVoiceMgr->wtVoices[i].gainLeft = DEFAULT_VOICE_GAIN;
pVoiceMgr->wtVoices[i].gainRight = DEFAULT_VOICE_GAIN;
#endif
pVoiceMgr->wtVoices[i].phaseFrac = DEFAULT_PHASE_FRAC;
pVoiceMgr->wtVoices[i].phaseAccum = DEFAULT_PHASE_INT;
#ifdef _FILTER_ENABLED
pVoiceMgr->wtVoices[i].filter.z1 = DEFAULT_FILTER_ZERO;
pVoiceMgr->wtVoices[i].filter.z2 = DEFAULT_FILTER_ZERO;
#endif
}
return EAS_TRUE;
}
/*----------------------------------------------------------------------------
* WT_ReleaseVoice()
*----------------------------------------------------------------------------
* Purpose:
* The selected voice is being released.
*
* Inputs:
* pEASData - pointer to S_EAS_DATA
* pVoice - pointer to voice to release
*
* Outputs:
* None
*----------------------------------------------------------------------------
*/
/*lint -esym(715, pVoice) used in some implementations */
static void WT_ReleaseVoice (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, S_SYNTH_VOICE *pVoice, EAS_I32 voiceNum)
{
S_WT_VOICE *pWTVoice;
const S_ARTICULATION *pArticulation;
#ifdef DLS_SYNTHESIZER
if (pVoice->regionIndex & FLAG_RGN_IDX_DLS_SYNTH)
{
DLS_ReleaseVoice(pVoiceMgr, pSynth, pVoice, voiceNum);
return;
}
#endif
pWTVoice = &pVoiceMgr->wtVoices[voiceNum];
pArticulation = &pSynth->pEAS->pArticulations[pWTVoice->artIndex];
/* release EG1 */
pWTVoice->eg1State = eEnvelopeStateRelease;
pWTVoice->eg1Increment = pArticulation->eg1.releaseTime;
/*
The spec says we should release EG2, but doing so with the current
voicing is causing clicks. This fix will need to be coordinated with
a new sound library release
*/
/* release EG2 */
pWTVoice->eg2State = eEnvelopeStateRelease;
pWTVoice->eg2Increment = pArticulation->eg2.releaseTime;
}
/*----------------------------------------------------------------------------
* WT_MuteVoice()
*----------------------------------------------------------------------------
* Purpose:
* The selected voice is being muted.
*
* Inputs:
* pVoice - pointer to voice to release
*
* Outputs:
* None
*----------------------------------------------------------------------------
*/
/*lint -esym(715, pSynth) used in some implementations */
static void WT_MuteVoice (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, S_SYNTH_VOICE *pVoice, EAS_I32 voiceNum)
{
#ifdef DLS_SYNTHESIZER
if (pVoice->regionIndex & FLAG_RGN_IDX_DLS_SYNTH)
{
DLS_MuteVoice(pVoiceMgr, pSynth, pVoice, voiceNum);
return;
}
#endif
/* clear deferred action flags */
pVoice->voiceFlags &=
~(VOICE_FLAG_DEFER_MIDI_NOTE_OFF |
VOICE_FLAG_SUSTAIN_PEDAL_DEFER_NOTE_OFF |
VOICE_FLAG_DEFER_MUTE);
/* set the envelope state */
pVoiceMgr->wtVoices[voiceNum].eg1State = eEnvelopeStateMuted;
pVoiceMgr->wtVoices[voiceNum].eg2State = eEnvelopeStateMuted;
}
/*----------------------------------------------------------------------------
* WT_SustainPedal()
*----------------------------------------------------------------------------
* Purpose:
* The selected voice is held due to sustain pedal
*
* Inputs:
* pVoice - pointer to voice to sustain
*
* Outputs:
* None
*----------------------------------------------------------------------------
*/
/*lint -esym(715, pChannel) used in some implementations */
static void WT_SustainPedal (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, S_SYNTH_VOICE *pVoice, S_SYNTH_CHANNEL *pChannel, EAS_I32 voiceNum)
{
S_WT_VOICE *pWTVoice;
#ifdef DLS_SYNTHESIZER
if (pVoice->regionIndex & FLAG_RGN_IDX_DLS_SYNTH)
{
DLS_SustainPedal(pVoiceMgr, pSynth, pVoice, pChannel, voiceNum);
return;
}
#endif
/* don't catch the voice if below the sustain level */
pWTVoice = &pVoiceMgr->wtVoices[voiceNum];
if (pWTVoice->eg1Value < pSynth->pEAS->pArticulations[pWTVoice->artIndex].eg1.sustainLevel)
return;
/* sustain flag is set, damper pedal is on */
/* defer releasing this note until the damper pedal is off */
pWTVoice->eg1State = eEnvelopeStateDecay;
pVoice->voiceState = eVoiceStatePlay;
/*
because sustain pedal is on, this voice
should defer releasing its note
*/
pVoice->voiceFlags |= VOICE_FLAG_SUSTAIN_PEDAL_DEFER_NOTE_OFF;
#ifdef _DEBUG_SYNTH
{ /* dpp: EAS_ReportEx(_EAS_SEVERITY_INFO, "WT_SustainPedal: defer note off because sustain pedal is on\n"); */ }
#endif
}
/*----------------------------------------------------------------------------
* WT_StartVoice()
*----------------------------------------------------------------------------
* Purpose:
* Assign the region for the given instrument using the midi key number
* and the RPN2 (coarse tuning) value. By using RPN2 as part of the
* region selection process, we reduce the amount a given sample has
* to be transposed by selecting the closest recorded root instead.
*
* This routine is the second half of SynthAssignRegion().
* If the region was successfully found by SynthFindRegionIndex(),
* then assign the region's parameters to the voice.
*
* Setup and initialize the following voice parameters:
* m_nRegionIndex
*
* Inputs:
* pVoice - ptr to the voice we have assigned for this channel
* nRegionIndex - index of the region
* pEASData - pointer to overall EAS data structure
*
* Outputs:
* success - could find and assign the region for this voice's note otherwise
* failure - could not find nor assign the region for this voice's note
*
* Side Effects:
* psSynthObject->m_sVoice[].m_nRegionIndex is assigned
* psSynthObject->m_sVoice[] parameters are assigned
*----------------------------------------------------------------------------
*/
static EAS_RESULT WT_StartVoice (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, S_SYNTH_VOICE *pVoice, EAS_I32 voiceNum, EAS_U16 regionIndex)
{
S_WT_VOICE *pWTVoice;
const S_WT_REGION *pRegion;
const S_ARTICULATION *pArt;
S_SYNTH_CHANNEL *pChannel;
#if (NUM_OUTPUT_CHANNELS == 2)
EAS_INT pan;
#endif
#ifdef EAS_SPLIT_WT_SYNTH
S_WT_CONFIG wtConfig;
#endif
/* no samples have been synthesized for this note yet */
pVoice->regionIndex = regionIndex;
pVoice->voiceFlags = VOICE_FLAG_NO_SAMPLES_SYNTHESIZED_YET;
/* get the articulation index for this region */
pWTVoice = &pVoiceMgr->wtVoices[voiceNum];
pChannel = &pSynth->channels[pVoice->channel & 15];
/* update static channel parameters */
if (pChannel->channelFlags & CHANNEL_FLAG_UPDATE_CHANNEL_PARAMETERS)
WT_UpdateChannel(pVoiceMgr, pSynth, pVoice->channel & 15);
#ifdef DLS_SYNTHESIZER
if (pVoice->regionIndex & FLAG_RGN_IDX_DLS_SYNTH)
return DLS_StartVoice(pVoiceMgr, pSynth, pVoice, voiceNum, regionIndex);
#endif
pRegion = &(pSynth->pEAS->pWTRegions[regionIndex]);
pWTVoice->artIndex = pRegion->artIndex;
#ifdef _DEBUG_SYNTH
{ /* dpp: EAS_ReportEx(_EAS_SEVERITY_INFO, "WT_StartVoice: Voice %ld; Region %d\n", (EAS_I32) (pVoice - pVoiceMgr->voices), regionIndex); */ }
#endif
pArt = &pSynth->pEAS->pArticulations[pWTVoice->artIndex];
/* MIDI note on puts this voice into attack state */
pWTVoice->eg1State = eEnvelopeStateAttack;
pWTVoice->eg1Value = 0;
pWTVoice->eg1Increment = pArt->eg1.attackTime;
pWTVoice->eg2State = eEnvelopeStateAttack;
pWTVoice->eg2Value = 0;
pWTVoice->eg2Increment = pArt->eg2.attackTime;
/* init the LFO */
pWTVoice->modLFO.lfoValue = 0;
pWTVoice->modLFO.lfoPhase = -pArt->lfoDelay;
pVoice->gain = 0;
#if (NUM_OUTPUT_CHANNELS == 2)
/*
Get the Midi CC10 pan value for this voice's channel
convert the pan value to an "angle" representation suitable for
our sin, cos calculator. This representation is NOT necessarily the same
as the transform in the GM manuals because of our sin, cos calculator.
"angle" = (CC10 - 64)/128
*/
pan = (EAS_INT) pSynth->channels[pVoice->channel & 15].pan - 64;
pan += pArt->pan;
EAS_CalcPanControl(pan, &pWTVoice->gainLeft, &pWTVoice->gainRight);
#endif
#ifdef _FILTER_ENABLED
/* clear out the filter states */
pWTVoice->filter.z1 = 0;
pWTVoice->filter.z2 = 0;
#endif
/* if this wave is to be generated using noise generator */
if (pRegion->region.keyGroupAndFlags & REGION_FLAG_USE_WAVE_GENERATOR)
{
pWTVoice->phaseAccum = 4574296;
pWTVoice->loopStart = WT_NOISE_GENERATOR;
pWTVoice->loopEnd = 4574295;
}
/* normal sample */
else
{
#ifdef EAS_SPLIT_WT_SYNTH
if (voiceNum < NUM_PRIMARY_VOICES)
pWTVoice->phaseAccum = (EAS_U32) pSynth->pEAS->pSamples + pSynth->pEAS->pSampleOffsets[pRegion->waveIndex];
else
pWTVoice->phaseAccum = pSynth->pEAS->pSampleOffsets[pRegion->waveIndex];
#else
pWTVoice->phaseAccum = (EAS_U32) pSynth->pEAS->pSamples + pSynth->pEAS->pSampleOffsets[pRegion->waveIndex];
#endif
if (pRegion->region.keyGroupAndFlags & REGION_FLAG_IS_LOOPED)
{
pWTVoice->loopStart = pWTVoice->phaseAccum + pRegion->loopStart;
pWTVoice->loopEnd = pWTVoice->phaseAccum + pRegion->loopEnd - 1;
}
else
pWTVoice->loopStart = pWTVoice->loopEnd = pWTVoice->phaseAccum + pSynth->pEAS->pSampleLen[pRegion->waveIndex] - 1;
}
#ifdef EAS_SPLIT_WT_SYNTH
/* configure off-chip voices */
if (voiceNum >= NUM_PRIMARY_VOICES)
{
wtConfig.phaseAccum = pWTVoice->phaseAccum;
wtConfig.loopStart = pWTVoice->loopStart;
wtConfig.loopEnd = pWTVoice->loopEnd;
wtConfig.gain = pVoice->gain;
#if (NUM_OUTPUT_CHANNELS == 2)
wtConfig.gainLeft = pWTVoice->gainLeft;
wtConfig.gainRight = pWTVoice->gainRight;
#endif
WTE_ConfigVoice(voiceNum - NUM_PRIMARY_VOICES, &wtConfig, pVoiceMgr->pFrameBuffer);
}
#endif
return EAS_SUCCESS;
}
/*----------------------------------------------------------------------------
* WT_CheckSampleEnd
*----------------------------------------------------------------------------
* Purpose:
* Check for end of sample and calculate number of samples to synthesize
*
* Inputs:
*
* Outputs:
*
* Notes:
*
*----------------------------------------------------------------------------
*/
EAS_BOOL WT_CheckSampleEnd (S_WT_VOICE *pWTVoice, S_WT_INT_FRAME *pWTIntFrame, EAS_BOOL update)
{
EAS_U32 endPhaseAccum;
EAS_U32 endPhaseFrac;
EAS_I32 numSamples;
EAS_BOOL done = EAS_FALSE;
/* check to see if we hit the end of the waveform this time */
/*lint -e{703} use shift for performance */
endPhaseFrac = pWTVoice->phaseFrac + (pWTIntFrame->frame.phaseIncrement << SYNTH_UPDATE_PERIOD_IN_BITS);
endPhaseAccum = pWTVoice->phaseAccum + GET_PHASE_INT_PART(endPhaseFrac);
if (endPhaseAccum >= pWTVoice->loopEnd)
{
/* calculate how far current ptr is from end */
numSamples = (EAS_I32) (pWTVoice->loopEnd - pWTVoice->phaseAccum);
/* now account for the fractional portion */
/*lint -e{703} use shift for performance */
numSamples = (EAS_I32) ((numSamples << NUM_PHASE_FRAC_BITS) - pWTVoice->phaseFrac);
pWTIntFrame->numSamples = 1 + (numSamples / pWTIntFrame->frame.phaseIncrement);
/* sound will be done this frame */
done = EAS_TRUE;
}
/* update data for off-chip synth */
if (update)
{
pWTVoice->phaseFrac = endPhaseFrac;
pWTVoice->phaseAccum = endPhaseAccum;
}
return done;
}
/*----------------------------------------------------------------------------
* WT_UpdateVoice()
*----------------------------------------------------------------------------
* Purpose:
* Synthesize a block of samples for the given voice.
* Use linear interpolation.
*
* Inputs:
* pEASData - pointer to overall EAS data structure
*
* Outputs:
* number of samples actually written to buffer
*
* Side Effects:
* - samples are added to the presently free buffer
*
*----------------------------------------------------------------------------
*/
static EAS_BOOL WT_UpdateVoice (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, S_SYNTH_VOICE *pVoice, EAS_I32 voiceNum, EAS_I32 *pMixBuffer, EAS_I32 numSamples)
{
S_WT_VOICE *pWTVoice;
S_WT_INT_FRAME intFrame;
S_SYNTH_CHANNEL *pChannel;
const S_WT_REGION *pWTRegion;
const S_ARTICULATION *pArt;
EAS_I32 temp;
EAS_BOOL done;
#ifdef DLS_SYNTHESIZER
if (pVoice->regionIndex & FLAG_RGN_IDX_DLS_SYNTH)
return DLS_UpdateVoice(pVoiceMgr, pSynth, pVoice, voiceNum, pMixBuffer, numSamples);
#endif
/* establish pointers to critical data */
pWTVoice = &pVoiceMgr->wtVoices[voiceNum];
pWTRegion = &pSynth->pEAS->pWTRegions[pVoice->regionIndex & REGION_INDEX_MASK];
pArt = &pSynth->pEAS->pArticulations[pWTVoice->artIndex];
pChannel = &pSynth->channels[pVoice->channel & 15];
intFrame.prevGain = pVoice->gain;
/* update the envelopes */
WT_UpdateEG1(pWTVoice, &pArt->eg1);
WT_UpdateEG2(pWTVoice, &pArt->eg2);
/* update the LFO */
WT_UpdateLFO(&pWTVoice->modLFO, pArt->lfoFreq);
#ifdef _FILTER_ENABLED
/* calculate filter if library uses filter */
if (pSynth->pEAS->libAttr & LIB_FORMAT_FILTER_ENABLED)
WT_UpdateFilter(pWTVoice, &intFrame, pArt);
else
intFrame.frame.k = 0;
#endif
/* update the gain */
intFrame.frame.gainTarget = WT_UpdateGain(pVoice, pWTVoice, pArt, pChannel, pWTRegion->gain);
/* calculate base pitch*/
temp = pChannel->staticPitch + pWTRegion->tuning;
/* include global transpose */
if (pChannel->channelFlags & CHANNEL_FLAG_RHYTHM_CHANNEL)
temp += pVoice->note * 100;
else
temp += (pVoice->note + pSynth->globalTranspose) * 100;
intFrame.frame.phaseIncrement = WT_UpdatePhaseInc(pWTVoice, pArt, pChannel, temp);
/* call into engine to generate samples */
intFrame.pAudioBuffer = pVoiceMgr->voiceBuffer;
intFrame.pMixBuffer = pMixBuffer;
intFrame.numSamples = numSamples;
/* check for end of sample */
if ((pWTVoice->loopStart != WT_NOISE_GENERATOR) && (pWTVoice->loopStart == pWTVoice->loopEnd))
done = WT_CheckSampleEnd(pWTVoice, &intFrame, (EAS_BOOL) (voiceNum >= NUM_PRIMARY_VOICES));
else
done = EAS_FALSE;
#ifdef EAS_SPLIT_WT_SYNTH
if (voiceNum < NUM_PRIMARY_VOICES)
{
#ifndef _SPLIT_WT_TEST_HARNESS
WT_ProcessVoice(pWTVoice, &intFrame);
#endif
}
else
WTE_ProcessVoice(voiceNum - NUM_PRIMARY_VOICES, &intFrame.frame, pVoiceMgr->pFrameBuffer);
#else
WT_ProcessVoice(pWTVoice, &intFrame);
#endif
/* clear flag */
pVoice->voiceFlags &= ~VOICE_FLAG_NO_SAMPLES_SYNTHESIZED_YET;
/* if voice has finished, set flag for voice manager */
if ((pVoice->voiceState != eVoiceStateStolen) && (pWTVoice->eg1State == eEnvelopeStateMuted))
done = EAS_TRUE;
/* if the update interval has elapsed, then force the current gain to the next
* gain since we never actually reach the next gain when ramping -- we just get
* very close to the target gain.
*/
pVoice->gain = (EAS_I16) intFrame.frame.gainTarget;
return done;
}
/*----------------------------------------------------------------------------
* WT_UpdatePhaseInc()
*----------------------------------------------------------------------------
* Purpose:
* Calculate the phase increment
*
* Inputs:
* pVoice - pointer to the voice being updated
* psRegion - pointer to the region
* psArticulation - pointer to the articulation
* nChannelPitchForThisVoice - the portion of the pitch that is fixed for this
* voice during the duration of this synthesis
* pEASData - pointer to overall EAS data structure
*
* Outputs:
*
* Side Effects:
* set the phase increment for this voice
*----------------------------------------------------------------------------
*/
static EAS_I32 WT_UpdatePhaseInc (S_WT_VOICE *pWTVoice, const S_ARTICULATION *pArt, S_SYNTH_CHANNEL *pChannel, EAS_I32 pitchCents)
{
EAS_I32 temp;
/*pitchCents due to CC1 = LFO * (CC1 / 128) * DEFAULT_LFO_MOD_WHEEL_TO_PITCH_CENTS */
temp = MULT_EG1_EG1(DEFAULT_LFO_MOD_WHEEL_TO_PITCH_CENTS,
((pChannel->modWheel) << (NUM_EG1_FRAC_BITS -7)));
/* pitchCents due to channel pressure = LFO * (channel pressure / 128) * DEFAULT_LFO_CHANNEL_PRESSURE_TO_PITCH_CENTS */
temp += MULT_EG1_EG1(DEFAULT_LFO_CHANNEL_PRESSURE_TO_PITCH_CENTS,
((pChannel->channelPressure) << (NUM_EG1_FRAC_BITS -7)));
/* now multiply the (channel pressure + CC1) pitch values by the LFO value */
temp = MULT_EG1_EG1(pWTVoice->modLFO.lfoValue, temp);
/*
add in the LFO pitch due to
channel pressure and CC1 along with
the LFO pitch, the EG2 pitch, and the
"static" pitch for this voice on this channel
*/
temp += pitchCents +
(MULT_EG1_EG1(pWTVoice->eg2Value, pArt->eg2ToPitch)) +
(MULT_EG1_EG1(pWTVoice->modLFO.lfoValue, pArt->lfoToPitch));
/* convert from cents to linear phase increment */
return EAS_Calculate2toX(temp);
}
/*----------------------------------------------------------------------------
* WT_UpdateChannel()
*----------------------------------------------------------------------------
* Purpose:
* Calculate and assign static channel parameters
* These values only need to be updated if one of the controller values
* for this channel changes
*
* Inputs:
* nChannel - channel to update
* pEASData - pointer to overall EAS data structure
*
* Outputs:
*
* Side Effects:
* - the given channel's static gain and static pitch are updated
*----------------------------------------------------------------------------
*/
/*lint -esym(715, pVoiceMgr) reserved for future use */
static void WT_UpdateChannel (S_VOICE_MGR *pVoiceMgr, S_SYNTH *pSynth, EAS_U8 channel)
{
EAS_I32 staticGain;
EAS_I32 pitchBend;
S_SYNTH_CHANNEL *pChannel;
pChannel = &pSynth->channels[channel];
/*
nChannelGain = (CC7 * CC11)^2 * master volume
where CC7 == 100 by default, CC11 == 127, master volume == 32767
*/
staticGain = MULT_EG1_EG1((pChannel->volume) << (NUM_EG1_FRAC_BITS - 7),
(pChannel->expression) << (NUM_EG1_FRAC_BITS - 7));
/* staticGain has to be squared */
staticGain = MULT_EG1_EG1(staticGain, staticGain);
pChannel->staticGain = (EAS_I16) MULT_EG1_EG1(staticGain, pSynth->masterVolume);
/*
calculate pitch bend: RPN0 * ((2*pitch wheel)/16384 -1)
However, if we use the EG1 macros, remember that EG1 has a full
scale value of 32768 (instead of 16384). So instead of multiplying
by 2, multiply by 4 (left shift by 2), and subtract by 32768 instead
of 16384. This utilizes the fact that the EG1 macro places a binary
point 15 places to the left instead of 14 places.
*/
/*lint -e{703} <avoid multiply for performance>*/
pitchBend =
(((EAS_I32)(pChannel->pitchBend) << 2)
- 32768);
pChannel->staticPitch =
MULT_EG1_EG1(pitchBend, pChannel->pitchBendSensitivity);
/* if this is not a drum channel, then add in the per-channel tuning */
if (!(pChannel->channelFlags & CHANNEL_FLAG_RHYTHM_CHANNEL))
pChannel->staticPitch += pChannel->finePitch + (pChannel->coarsePitch * 100);
/* clear update flag */
pChannel->channelFlags &= ~CHANNEL_FLAG_UPDATE_CHANNEL_PARAMETERS;
return;
}
/*----------------------------------------------------------------------------
* WT_UpdateGain()
*----------------------------------------------------------------------------
* Purpose:
* Calculate and assign static voice parameters as part of WT_UpdateVoice()
*
* Inputs:
* pVoice - ptr to the synth voice that we want to synthesize
* pEASData - pointer to overall EAS data structure
*
* Outputs:
*
* Side Effects:
* - various voice parameters are calculated and assigned
*
*----------------------------------------------------------------------------
*/
static EAS_I32 WT_UpdateGain (S_SYNTH_VOICE *pVoice, S_WT_VOICE *pWTVoice, const S_ARTICULATION *pArt, S_SYNTH_CHANNEL *pChannel, EAS_I32 gain)
{
EAS_I32 lfoGain;
EAS_I32 temp;
/*
If this voice was stolen, then the velocity is actually
for the new note, not the note that we are currently ramping down.
So we really shouldn't use this velocity. However, that would require
more memory to store the velocity value, and the improvement may
not be sufficient to warrant the added memory.
*/
/* velocity is fixed at note start for a given voice and must be squared */
temp = (pVoice->velocity) << (NUM_EG1_FRAC_BITS - 7);
temp = MULT_EG1_EG1(temp, temp);
/* region gain is fixed as part of the articulation */
temp = MULT_EG1_EG1(temp, gain);
/* include the channel gain */
temp = MULT_EG1_EG1(temp, pChannel->staticGain);
/* calculate LFO gain using an approximation for 10^x */
lfoGain = MULT_EG1_EG1(pWTVoice->modLFO.lfoValue, pArt->lfoToGain);
lfoGain = MULT_EG1_EG1(lfoGain, LFO_GAIN_TO_CENTS);
/* convert from a dB-like value to linear gain */
lfoGain = EAS_Calculate2toX(lfoGain);
temp = MULT_EG1_EG1(temp, lfoGain);
/* calculate the voice's gain */
temp = (EAS_I16)MULT_EG1_EG1(temp, pWTVoice->eg1Value);
return temp;
}
/*----------------------------------------------------------------------------
* WT_UpdateEG1()
*----------------------------------------------------------------------------
* Purpose:
* Calculate the EG1 envelope for the given voice (but do not update any
* state)
*
* Inputs:
* pVoice - ptr to the voice whose envelope we want to update
* nVoice - this voice's number - used only for debug
* pEASData - pointer to overall EAS data structure
*
* Outputs:
* nValue - the envelope value
*
* Side Effects:
* - updates EG1 state value for the given voice
*----------------------------------------------------------------------------
*/
static void WT_UpdateEG1 (S_WT_VOICE *pWTVoice, const S_ENVELOPE *pEnv)
{
EAS_I32 temp;
switch (pWTVoice->eg1State)
{
case eEnvelopeStateAttack:
temp = pWTVoice->eg1Value + pWTVoice->eg1Increment;
/* check if we have reached peak amplitude */
if (temp >= SYNTH_FULL_SCALE_EG1_GAIN)
{
/* limit the volume */
temp = SYNTH_FULL_SCALE_EG1_GAIN;
/* prepare to move to decay state */
pWTVoice->eg1State = eEnvelopeStateDecay;
pWTVoice->eg1Increment = pEnv->decayTime;
}
break;
/* exponential decay */
case eEnvelopeStateDecay:
temp = MULT_EG1_EG1(pWTVoice->eg1Value, pWTVoice->eg1Increment);
/* check if we have reached sustain level */
if (temp <= pEnv->sustainLevel)
{
/* enforce the sustain level */
temp = pEnv->sustainLevel;
/* if sustain level is zero, skip sustain & release the voice */
if (temp > 0)
pWTVoice->eg1State = eEnvelopeStateSustain;
/* move to sustain state */
else
pWTVoice->eg1State = eEnvelopeStateMuted;
}
break;
case eEnvelopeStateSustain:
return;
case eEnvelopeStateRelease:
temp = MULT_EG1_EG1(pWTVoice->eg1Value, pWTVoice->eg1Increment);
/* if we hit zero, this voice isn't contributing any audio */
if (temp <= 0)
{
temp = 0;
pWTVoice->eg1State = eEnvelopeStateMuted;
}
break;
/* voice is muted, set target to zero */
case eEnvelopeStateMuted:
temp = 0;
break;
case eEnvelopeStateInvalid:
default:
temp = 0;
#ifdef _DEBUG_SYNTH
{ /* dpp: EAS_ReportEx(_EAS_SEVERITY_INFO, "WT_UpdateEG1: error, %d is an unrecognized state\n",
pWTVoice->eg1State); */ }
#endif
break;
}
pWTVoice->eg1Value = (EAS_I16) temp;
}
/*----------------------------------------------------------------------------
* WT_UpdateEG2()
*----------------------------------------------------------------------------
* Purpose:
* Update the EG2 envelope for the given voice
*
* Inputs:
* pVoice - ptr to the voice whose envelope we want to update
* pEASData - pointer to overall EAS data structure
*
* Outputs:
*
* Side Effects:
* - updates EG2 values for the given voice
*----------------------------------------------------------------------------
*/
static void WT_UpdateEG2 (S_WT_VOICE *pWTVoice, const S_ENVELOPE *pEnv)
{
EAS_I32 temp;
switch (pWTVoice->eg2State)
{
case eEnvelopeStateAttack:
temp = pWTVoice->eg2Value + pWTVoice->eg2Increment;
/* check if we have reached peak amplitude */
if (temp >= SYNTH_FULL_SCALE_EG1_GAIN)
{
/* limit the volume */
temp = SYNTH_FULL_SCALE_EG1_GAIN;
/* prepare to move to decay state */
pWTVoice->eg2State = eEnvelopeStateDecay;
pWTVoice->eg2Increment = pEnv->decayTime;
}
break;
/* implement linear pitch decay in cents */
case eEnvelopeStateDecay:
temp = pWTVoice->eg2Value -pWTVoice->eg2Increment;
/* check if we have reached sustain level */
if (temp <= pEnv->sustainLevel)
{
/* enforce the sustain level */
temp = pEnv->sustainLevel;
/* prepare to move to sustain state */
pWTVoice->eg2State = eEnvelopeStateSustain;
}
break;
case eEnvelopeStateSustain:
return;
case eEnvelopeStateRelease:
temp = pWTVoice->eg2Value - pWTVoice->eg2Increment;
if (temp <= 0)
{
temp = 0;
pWTVoice->eg2State = eEnvelopeStateMuted;
}
break;
/* voice is muted, set target to zero */
case eEnvelopeStateMuted:
temp = 0;
break;
case eEnvelopeStateInvalid:
default:
temp = 0;
#ifdef _DEBUG_SYNTH
{ /* dpp: EAS_ReportEx(_EAS_SEVERITY_INFO, "WT_UpdateEG2: error, %d is an unrecognized state\n",
pWTVoice->eg2State); */ }
#endif
break;
}
pWTVoice->eg2Value = (EAS_I16) temp;
}
/*----------------------------------------------------------------------------
* WT_UpdateLFO ()
*----------------------------------------------------------------------------
* Purpose:
* Calculate the LFO for the given voice
*
* Inputs:
* pLFO - ptr to the LFO data
* phaseInc - phase increment
*
* Outputs:
*
* Side Effects:
* - updates LFO values for the given voice
*----------------------------------------------------------------------------
*/
void WT_UpdateLFO (S_LFO_CONTROL *pLFO, EAS_I16 phaseInc)
{
/* To save memory, if m_nPhaseValue is negative, we are in the
* delay phase, and m_nPhaseValue represents the time left
* in the delay.
*/
if (pLFO->lfoPhase < 0)
{
pLFO->lfoPhase++;
return;
}
/* calculate LFO output from phase value */
/*lint -e{701} Use shift for performance */
pLFO->lfoValue = (EAS_I16) (pLFO->lfoPhase << 2);
/*lint -e{502} <shortcut to turn sawtooth into triangle wave> */
if ((pLFO->lfoPhase > 0x1fff) && (pLFO->lfoPhase < 0x6000))
pLFO->lfoValue = ~pLFO->lfoValue;
/* update LFO phase */
pLFO->lfoPhase = (pLFO->lfoPhase + phaseInc) & 0x7fff;
}
#ifdef _FILTER_ENABLED
/*----------------------------------------------------------------------------
* WT_UpdateFilter()
*----------------------------------------------------------------------------
* Purpose:
* Update the Filter parameters
*
* Inputs:
* pVoice - ptr to the voice whose filter we want to update
* pEASData - pointer to overall EAS data structure
*
* Outputs:
*
* Side Effects:
* - updates Filter values for the given voice
*----------------------------------------------------------------------------
*/
static void WT_UpdateFilter (S_WT_VOICE *pWTVoice, S_WT_INT_FRAME *pIntFrame, const S_ARTICULATION *pArt)
{
EAS_I32 cutoff;
/* no need to calculate filter coefficients if it is bypassed */
if (pArt->filterCutoff == DEFAULT_EAS_FILTER_CUTOFF_FREQUENCY)
{
pIntFrame->frame.k = 0;
return;
}
/* determine the dynamic cutoff frequency */
cutoff = MULT_EG1_EG1(pWTVoice->eg2Value, pArt->eg2ToFc);
cutoff += pArt->filterCutoff;
/* subtract the A5 offset and the sampling frequency */
cutoff -= FILTER_CUTOFF_FREQ_ADJUST + A5_PITCH_OFFSET_IN_CENTS;
/* limit the cutoff frequency */
if (cutoff > FILTER_CUTOFF_MAX_PITCH_CENTS)
cutoff = FILTER_CUTOFF_MAX_PITCH_CENTS;
else if (cutoff < FILTER_CUTOFF_MIN_PITCH_CENTS)
cutoff = FILTER_CUTOFF_MIN_PITCH_CENTS;
WT_SetFilterCoeffs(pIntFrame, cutoff, pArt->filterQ);
}
#endif
#if defined(_FILTER_ENABLED) || defined(DLS_SYNTHESIZER)
/*----------------------------------------------------------------------------
* coef
*----------------------------------------------------------------------------
* Table of filter coefficients for low-pass filter
*----------------------------------------------------------------------------
*
* polynomial coefficients are based on 8kHz sampling frequency
* filter coef b2 = k2 = k2g0*k^0 + k2g1*k^1*(2^x) + k2g2*k^2*(2^x)
*
*where k2g0, k2g1, k2g2 are from the truncated power series expansion on theta
*(k*2^x = theta, but we incorporate the k along with the k2g0, k2g1, k2g2)
*note: this is a power series in 2^x, not k*2^x
*where k = (2*pi*440)/8kHz == convert octaves to radians
*
* so actually, the following coefs listed as k2g0, k2g1, k2g2 are really
* k2g0*k^0 = k2g0
* k2g1*k^1
* k2g2*k^2
*
*
* filter coef n1 = numerator = n1g0*k^0 + n1g1*k^1*(2^x) + n1g2*k^2*(2^x) + n1g3*k^3*(2^x)
*
*where n1g0, n1g1, n1g2, n1g3 are from the truncated power series expansion on theta
*(k*2^x = theta, but we incorporate the k along with the n1g0, n1g1, n1g2, n2g3)
*note: this is a power series in 2^x, not k*2^x
*where k = (2*pi*440)/8kHz == convert octaves to radians
*we also include the optimization factor of 0.81
*
* so actually, the following coefs listed as n1g0, n1g1, n1g2, n2g3 are really
* n1g0*k^0 = n1g0
* n1g1*k^1
* n1g2*k^2
* n1g3*k^3
*
* NOTE that n1g0 == n1g1 == 0, always, so we only need to store n1g2 and n1g3
*----------------------------------------------------------------------------
*/
static const EAS_I16 nk1g0 = -32768;
static const EAS_I16 nk1g2 = 1580;
static const EAS_I16 k2g0 = 32767;
static const EAS_I16 k2g1[] =
{
-11324, /* k2g1[0] = -0.3455751918948761 */
-10387, /* k2g1[1] = -0.3169878073928751 */
-9528, /* k2g1[2] = -0.29076528753345476 */
-8740, /* k2g1[3] = -0.2667120011011279 */
-8017, /* k2g1[4] = -0.24464850028971705 */
-7353, /* k2g1[5] = -0.22441018194495696 */
-6745, /* k2g1[6] = -0.20584605955455101 */
-6187, /* k2g1[7] = -0.18881763682420102 */
-5675, /* k2g1[8] = -0.1731978744360067 */
-5206, /* k2g1[9] = -0.15887024228080968 */
-4775, /* k2g1[10] = -0.14572785009373057 */
-4380, /* k2g1[11] = -0.13367265000706827 */
-4018, /* k2g1[12] = -0.1226147050712642 */
-3685, /* k2g1[13] = -0.11247151828678581 */
-3381, /* k2g1[14] = -0.10316741714122014 */
-3101, /* k2g1[15] = -0.0946329890599603 */
-2844, /* k2g1[16] = -0.08680456355870586 */
-2609, /* k2g1[17] = -0.07962373723441349 */
-2393, /* k2g1[18] = -0.07303693805092666 */
-2195, /* k2g1[19] = -0.06699502566866912 */
-2014, /* k2g1[20] = -0.06145292483669077 */
-1847, /* k2g1[21] = -0.056369289112013346 */
-1694, /* k2g1[22] = -0.05170619239747895 */
-1554, /* k2g1[23] = -0.04742884599684141 */
-1426, /* k2g1[24] = -0.043505339076210514 */
-1308, /* k2g1[25] = -0.03990640059558053 */
-1199, /* k2g1[26] = -0.03660518093435039 */
-1100, /* k2g1[27] = -0.03357705158166837 */
-1009, /* k2g1[28] = -0.030799421397205727 */
-926, /* k2g1[29] = -0.028251568071585884 */
-849 /* k2g1[30] = -0.025914483529091967 */
};
static const EAS_I16 k2g2[] =
{
1957, /* k2g2[0] = 0.059711106626580836 */
1646, /* k2g2[1] = 0.05024063501786333 */
1385, /* k2g2[2] = 0.042272226217199664 */
1165, /* k2g2[3] = 0.03556764576567844 */
981, /* k2g2[4] = 0.029926444346999134 */
825, /* k2g2[5] = 0.025179964880280382 */
694, /* k2g2[6] = 0.02118630011706455 */
584, /* k2g2[7] = 0.01782604998793514 */
491, /* k2g2[8] = 0.014998751854573014 */
414, /* k2g2[9] = 0.012619876941179595 */
348, /* k2g2[10] = 0.010618303146468736 */
293, /* k2g2[11] = 0.008934188679954682 */
246, /* k2g2[12] = 0.007517182949855368 */
207, /* k2g2[13] = 0.006324921212866403 */
174, /* k2g2[14] = 0.005321757979794424 */
147, /* k2g2[15] = 0.004477701309210577 */
123, /* k2g2[16] = 0.00376751612730811 */
104, /* k2g2[17] = 0.0031699697655869644 */
87, /* k2g2[18] = 0.00266719715992703 */
74, /* k2g2[19] = 0.0022441667321724647 */
62, /* k2g2[20] = 0.0018882309854916855 */
52, /* k2g2[21] = 0.0015887483774966232 */
44, /* k2g2[22] = 0.0013367651661223448 */
37, /* k2g2[23] = 0.0011247477162958733 */
31, /* k2g2[24] = 0.0009463572640678758 */
26, /* k2g2[25] = 0.0007962604042473498 */
22, /* k2g2[26] = 0.0006699696356181593 */
18, /* k2g2[27] = 0.0005637091964589207 */
16, /* k2g2[28] = 0.00047430217920125243 */
13, /* k2g2[29] = 0.00039907554925166274 */
11 /* k2g2[30] = 0.00033578022828973666 */
};
static const EAS_I16 n1g2[] =
{
3170, /* n1g2[0] = 0.0967319927350769 */
3036, /* n1g2[1] = 0.0926446051254155 */
2908, /* n1g2[2] = 0.08872992911818503 */
2785, /* n1g2[3] = 0.08498066682523227 */
2667, /* n1g2[4] = 0.08138982872895201 */
2554, /* n1g2[5] = 0.07795072065216213 */
2446, /* n1g2[6] = 0.0746569312785634 */
2343, /* n1g2[7] = 0.07150232020051943 */
2244, /* n1g2[8] = 0.06848100647187474 */
2149, /* n1g2[9] = 0.06558735764447099 */
2058, /* n1g2[10] = 0.06281597926792246 */
1971, /* n1g2[11] = 0.06016170483307614 */
1888, /* n1g2[12] = 0.05761958614040857 */
1808, /* n1g2[13] = 0.05518488407540374 */
1732, /* n1g2[14] = 0.052853059773715245 */
1659, /* n1g2[15] = 0.05061976615964251 */
1589, /* n1g2[16] = 0.04848083984214659 */
1521, /* n1g2[17] = 0.046432293353298 */
1457, /* n1g2[18] = 0.04447030771468711 */
1396, /* n1g2[19] = 0.04259122531793907 */
1337, /* n1g2[20] = 0.040791543106060944 */
1280, /* n1g2[21] = 0.03906790604290942 */
1226, /* n1g2[22] = 0.037417100858604564 */
1174, /* n1g2[23] = 0.035836050059229754 */
1125, /* n1g2[24] = 0.03432180618965023 */
1077, /* n1g2[25] = 0.03287154633875494 */
1032, /* n1g2[26] = 0.03148256687687814 */
988, /* n1g2[27] = 0.030152278415589925 */
946, /* n1g2[28] = 0.028878200980459685 */
906, /* n1g2[29] = 0.02765795938779331 */
868 /* n1g2[30] = 0.02648927881672521 */
};
static const EAS_I16 n1g3[] =
{
-548, /* n1g3[0] = -0.016714088475899017 */
-481, /* n1g3[1] = -0.014683605122742116 */
-423, /* n1g3[2] = -0.012899791676436092 */
-371, /* n1g3[3] = -0.01133268185193299 */
-326, /* n1g3[4] = -0.00995594976868754 */
-287, /* n1g3[5] = -0.008746467702146129 */
-252, /* n1g3[6] = -0.00768391756106361 */
-221, /* n1g3[7] = -0.006750449563854721 */
-194, /* n1g3[8] = -0.005930382380083576 */
-171, /* n1g3[9] = -0.005209939699767622 */
-150, /* n1g3[10] = -0.004577018805123356 */
-132, /* n1g3[11] = -0.004020987256990177 */
-116, /* n1g3[12] = -0.003532504280467257 */
-102, /* n1g3[13] = -0.00310336384922047 */
-89, /* n1g3[14] = -0.002726356832432369 */
-78, /* n1g3[15] = -0.002395149888601605 */
-69, /* n1g3[16] = -0.0021041790717285314 */
-61, /* n1g3[17] = -0.0018485563625771063 */
-53, /* n1g3[18] = -0.001623987554831628 */
-47, /* n1g3[19] = -0.0014267001167177025 */
-41, /* n1g3[20] = -0.0012533798162347005 */
-36, /* n1g3[21] = -0.0011011150453668693 */
-32, /* n1g3[22] = -0.0009673479079754438 */
-28, /* n1g3[23] = -0.0008498312496971563 */
-24, /* n1g3[24] = -0.0007465909079943587 */
-21, /* n1g3[25] = -0.0006558925481952733 */
-19, /* n1g3[26] = -0.0005762125284029567 */
-17, /* n1g3[27] = -0.0005062123038325457 */
-15, /* n1g3[28] = -0.0004447159405951901 */
-13, /* n1g3[29] = -0.00039069036118270117 */
-11 /* n1g3[30] = -0.00034322798979677605 */
};
/*----------------------------------------------------------------------------
* WT_SetFilterCoeffs()
*----------------------------------------------------------------------------
* Purpose:
* Update the Filter parameters
*
* Inputs:
* pVoice - ptr to the voice whose filter we want to update
* pEASData - pointer to overall EAS data structure
*
* Outputs:
*
* Side Effects:
* - updates Filter values for the given voice
*----------------------------------------------------------------------------
*/
void WT_SetFilterCoeffs (S_WT_INT_FRAME *pIntFrame, EAS_I32 cutoff, EAS_I32 resonance)
{
EAS_I32 temp;
/*
Convert the cutoff, which has had A5 subtracted, using the 2^x approx
Note, this cutoff is related to theta cutoff by
theta = k * 2^x
We use 2^x and incorporate k in the power series coefs instead
*/
cutoff = EAS_Calculate2toX(cutoff);
/* calculate b2 coef */
temp = k2g1[resonance] + MULT_AUDIO_COEF(cutoff, k2g2[resonance]);
temp = k2g0 + MULT_AUDIO_COEF(cutoff, temp);
pIntFrame->frame.b2 = temp;
/* calculate b1 coef */
temp = MULT_AUDIO_COEF(cutoff, nk1g2);
temp = nk1g0 + MULT_AUDIO_COEF(cutoff, temp);
temp += MULT_AUDIO_COEF(temp, pIntFrame->frame.b2);
pIntFrame->frame.b1 = temp >> 1;
/* calculate K coef */
temp = n1g2[resonance] + MULT_AUDIO_COEF(cutoff, n1g3[resonance]);
temp = MULT_AUDIO_COEF(cutoff, temp);
temp = MULT_AUDIO_COEF(cutoff, temp);
pIntFrame->frame.k = temp;
}
#endif