function M=scaler_smoothed_example_module(NAME)
% M=scaler_smoothed_example_module(NAME)
% Creates a smoothly varying scaler module with a single input
% and single output pin.  This module operates on floating-point
% signals.  Arguments:
%    NAME - name of the module.

% Copyright 2007-2016.  DSP Concepts, Inc.  All Rights Reserved.

% ----------------------------------------------------------------------
% Create the high-level object with interface variables only.
% ----------------------------------------------------------------------

M=awe_module('ScalerSmoothedExample', 'Linear multichannel smoothly varying scaler');

% Version is auto-updated by SVN:
M.moduleVersion = generate_version('$Revision: 30333 $');
if (nargin == 0)
    return;
end
M.name=NAME;
M.preBuildFunc=@scaler_smoothed_example_prebuild;
M.processFunc=@scaler_smoothed_example_process;
M.setFunc=@scaler_smoothed_example_set;

PT=new_pin_type;

add_pin(M, 'input', 'in', 'audio input', PT);
add_pin(M, 'output', 'out', 'audio output', PT);

add_variable(M, 'gain', 'float', 0, 'parameter', 'Target gain');
M.gain.range=[-10 10];
M.gain.units='linear';

add_variable(M, 'smoothingTime', 'float', 10, 'parameter', 'Time constant of the smoothing process');
M.smoothingTime.range=[0 1000];
M.smoothingTime.units='msec';

add_variable(M, 'currentGain', 'float', M.gain, 'state', 'Instantaneous gain applied by the module.  This is also the starting gain of the module.', 1);
M.currentGain.range=M.gain.range;
M.currentGain.units='linear';

add_variable(M, 'smoothingCoeff', 'float', NaN, 'derived', 'Smoothing coefficient', 1);

awe_addcodemarker(M, 'processFunction', 'Insert:InnerScalerSmoothedExample_Process.c');
awe_addcodemarker(M, 'setFunction', 'Insert:InnerScalerSmoothedExample_Set.c');
awe_addcodemarker(M, 'srcFileInclude', '#include "FilterDesign.h"');
M.wireAllocation='across';

% ----------------------------------------------------------------------
% Documentation
% ----------------------------------------------------------------------

M.docInfo.discussion={'Scales all input channels by a single gain value. ', ...
    'Changes to the gain parameter are exponentially smoothed (first order IIR) at the sample rate, with the time constant determined by the smoothingTime parameter. ', ...
    'This module is controlled by varying the gain variable.  Internally, currentGain represents the instantaneous smoothed gain that is applied. ', ...
    'currentGain exponentially approaches gain with a time constant equal to smoothingTime. ', ...
    '', ...
    'The module''s prebuild function initializes the currentGain equal to the gain.  Thus, the module begins in a converged state.'};

% ----------------------------------------------------------------------
% Add the inspector information
% ----------------------------------------------------------------------

M.guiInfo.isExpanded=0;

M.gain.guiInfo.controlType='slider';
add_control(M, '.gain');

add_control(M, '.moduleStatus', 'right', 1);
add_control(M, '.smoothingTime', 'below', 1);

% ----------------------------------------------------------------------
% Module browser information
% ----------------------------------------------------------------------

M.moduleBrowser.path = 'Examples';
M.moduleBrowser.image = '../images/ExamplesIcon.bmp';
M.moduleBrowser.searchTags = 'scaler volume';
M.shapeInfo.basicShape = 'triangle';
M.shapeInfo.legend = ' ';

return;

% ----------------------------------------------------------------------
% Prebuild function.  Behavior is based on the data type of the
% input pin
% ----------------------------------------------------------------------

function M=scaler_smoothed_example_prebuild(M)

M.currentGain=M.gain;
M.currentGain.range=M.gain.range;

% Propagate the type of the input pin to the output
M.outputPin{1}.type=M.inputPin{1}.type;

return;

% ----------------------------------------------------------------------
% Set function.  Computes the smoothing coefficient
% ----------------------------------------------------------------------

function M=scaler_smoothed_example_set(M)

% Compute the smoothing coefficient based on the smoothing time
SR=M.inputPin{1}.type.sampleRate;
M.smoothingCoeff = design_smoother(M.smoothingTime, SR, 1);

return;

ModuleDownsamplerExample 0xBEEF8805, BaseModule

{

    D                       int        // Decimation factor.  1 out of every D samples is output
}

ModuleFaderExampleFract32 0xBEEF8803, BaseModule

{

    scaleFval               float      // Scaler Front
    scaleBval               float      // Scaler Back
    smoothingTimeF          float      // Time constant of the smoothing process
    smoothingTimeB          float      // Time constant of the smoothing process
    scalerF                 *ModuleScalerSmoothedFract32 // Linear multichannel smoothly varying scaler
    scalerB                 *ModuleScalerSmoothedFract32 // Linear multichannel smoothly varying scaler
    inter                   *ModuleInterleave // Interleaves multiple audio signals
}

ModuleFaderExample 0xBEEF8802, BaseModule

{

    fade                    float      // Front/back Balance.  +1 = front only.  -1 = rear only.
    smoothingTime           float      // Time constant of the smoothing process
    scalerF                 *ModuleScalerSmoothed // Gain control with linear units and smoothing
    scalerB                 *ModuleScalerSmoothed // Gain control with linear units and smoothing
    inter                   *ModuleInterleave // Interleaves multiple audio signals
}

ModuleLAHLimiterExample 0xBEEF8806, BaseModule

{

    maxDelayTime            float      // Maximum delay time
    max_abs                 *ModuleMaxAbs // Computes the maximum absolute value of all input channels on a sample-by-sample basis
    core                    *ModuleAGCLimiterCore // Gain computer used to realize soft-knee peak limiters
    delay                   *ModuleDelayMsec // Time delay in which the delay is specified in milliseconds
    mult                    *ModuleAGCMultiplier // Mono x N-channel multiplier
}

ModulePeakHoldExampleFract32 0xBEEF8807, BaseModule

{

    Reset                   int        // reset the current peak values
    attackTime              float      // Envelope detector attack time constant
    decayTime               float      // Envelope detector decay time constant
    decayCoef               fract32    // Computed coefficient used for decay
    attackCoef              fract32    // Computed coefficient used for attack
    peakHold                *fract32   // Array of peak values
    peakDecay               *fract32   // Array of decaying peak values
}

ModulePeakHoldExample 0xBEEF8804, BaseModule

{

    Reset                   int        // reset the current peak values
    attackTime              float      // Envelope detector attack time constant
    decayTime               float      // Envelope detector decay time constant
    decayCoef               float      // Computed coefficient used for decay
    attackCoef              float      // Computed coefficient used for attack
    peakHold                *float     // Array of peak values
    peakDecay               *float     // Array of decaying peak values
}

ModuleScalerExample 0xBEEF8801, BaseModule

{

    gain                    float      // Linear gain
}

ModuleScalerSmoothedExample 0xBEEF8800, BaseModule

{

    gain                    float      // Target gain
    smoothingTime           float      // Time constant of the smoothing process
    currentGain             float      // Instantaneous gain applied by the module.  This is also the starting gain of the module.
    smoothingCoeff          float      // Smoothing coefficient
}