"Spectrum" now shows same range as "EQ"

Author: ShortDevelopment

VBAudioRouter/Controls/EQNodeControl.xaml.vb

@@ -29,8 +29,8 @@ Namespace Controls
 
         Dim EQEffect As EqualizerEffectDefinition
 
-        Private Const MinFreq As Integer = 100
-        Private Const MaxFreq As Integer = 12000
+        Public Const MinFreq As Integer = 100
+        Public Const MaxFreq As Integer = 12000
 
         Public Async Function Initialize(graph As AudioGraph) As Task Implements IAudioNodeControl.Initialize
             _BaseAudioNode = graph.CreateSubmixNode()

VBAudioRouter/Controls/SpectrumNodeControl.xaml.vb

@@ -26,8 +26,8 @@ Namespace Controls
             Dim _source As PlaybackSource = PlaybackSource.CreateFromAudioNode(BaseAudioNode)
             Dim _converter As New SourceConverter()
             _converter.Source = _source.Source
-            _converter.MinFrequency = 110.0F ' Note A2
-            _converter.MaxFrequency = 3520.0F ' Note A7
+            _converter.MinFrequency = EQNodeControl.MinFreq
+            _converter.MaxFrequency = EQNodeControl.MaxFreq
             _converter.FrequencyCount = 12 * 5 * 5 ' 5 octaves, 5 bars per note
             _converter.FrequencyScale = ScaleType.Logarithmic
             _converter.SpectrumRiseTime = TimeSpan.FromMilliseconds(20)