Movie Player ActiveX Control

SetDistortionParam

 

Set the parameter of Distortion effect. You must set UsePitchTempo property = false if you want to use Audio Effect. If you set AudioEffect property =-1, it will not use audio effect.

Public Function SetDistortionParam(
  ByVal fWetDryMix As float, _
  ByVal fDepth As float, _
  ByVal fFeedback As float, _
  ByVal fFrequency As float, _
 ByVal lWaveform As long, _
 ByVal fDelay As float, _
 ByVal lPhase As float, _
    )

 

Parameter
fGain
Amount of signal change after distortion, in the range from -60 through 0. The default value is -18 dB.

fEdge
Percentage of distortion intensity, in the range  in the range from 0 through 100. The default value is 15 percent.

fPostEQCenterFrequency
Center frequency of harmonic content addition, in the range from 100 through 8000. The default value is 2400 Hz.

fPostEQBandwidth
Width of frequency band that determines range of harmonic content addition, in the range from 100 through 8000. The default value is 2400 Hz.

fPreLowpassCutoff
Filter cutoff for high-frequency harmonics attenuation, in the range from 100 through 8000. The default value is 8000 Hz.


No Return Value


Example

   

Visual Basic Syntax
iAudioEffectCount = MoviePlayer1.GetAudioEffectCount
For i = 0 To iAudioEffectCount - 1
  List1.AddItem MoviePlayer1.GetAudioEffectName(i)
Next
MoviePlayer1.UsePitchTempo = False
MoviePlayer1.AudioEffect = List1.ListIndex
MoviePlayer1.FileName = "c:\test1.mpg"
MoviePlayer1.SetDistortionParam Text23, Text24, Text25, Text26, Text27