Added spectrum output

Author: ShortDevelopment

VBAudioRouter/Controls/SpectrumNodeControl.xaml

@@ -0,0 +1,28 @@
+<UserControl
+    x:Class="VBAudioRouter.Controls.SpectrumNodeControl"
+    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+    xmlns:local="using:VBAudioRouter"
+    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
+    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:controls="using:VBAudioRouter.Controls"
+    mc:Ignorable="d"
+    xmlns:visualizer="using:AudioVisualizer">
+
+    <Grid Background="#3F3F3F" RequestedTheme="Dark">
+        <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="15" />
+            <ColumnDefinition Width="*" />
+            <ColumnDefinition Width="15" />
+        </Grid.ColumnDefinitions>
+        <StackPanel Grid.Column="0">
+            <controls:ConnectorControl x:Name="IngoingConnectorInternal" Margin="0,5,0,5" IsOutgoing="False">
+                <controls:ConnectorControl.RenderTransform>
+                    <CompositeTransform TranslateX="-18" />
+                </controls:ConnectorControl.RenderTransform>
+            </controls:ConnectorControl>
+        </StackPanel>
+        <StackPanel Grid.Column="1">
+            <visualizer:SpectrumVisualizer Width="400" Height="200" x:Name="SpectrumVisualizer" UnlitElement="Transparent" />
+        </StackPanel>
+    </Grid>
+</UserControl>

VBAudioRouter/Controls/SpectrumNodeControl.xaml.vb

@@ -0,0 +1,47 @@
+Imports AudioVisualizer
+Imports VBAudioRouter.AudioGraphControl
+Imports Windows.Devices.Enumeration
+Imports Windows.Media.Audio
+Imports Windows.Media.Devices
+
+Namespace Controls
+
+    Public NotInheritable Class SpectrumNodeControl
+        Inherits UserControl
+        Implements IAudioNodeControl
+
+#Region "Identity"
+
+        Public ReadOnly Property NodeType As NodeTypeEnum Implements IAudioNodeControl.NodeType
+            Get
+                Return NodeTypeEnum.Output
+            End Get
+        End Property
+        Public Property Canvas As Canvas Implements IAudioNodeControl.Canvas
+        Public ReadOnly Property BaseAudioNode As IAudioNode Implements IAudioNodeControl.BaseAudioNode
+        Public ReadOnly Property OutgoingConnector As ConnectorControl = Nothing Implements IAudioNodeControl.OutgoingConnector
+#End Region
+
+        Public Async Function Initialize(graph As AudioGraph) As Task Implements IAudioNodeControl.Initialize
+            _BaseAudioNode = graph.CreateSubmixNode()
+
+            ' https://github.com/clarkezone/audiovisualizer/blob/47938f7cf592daedd705c125b1e218f93d0bbc4b/samples/VisualizationPlayer/AudioNodePage.xaml.cs#L64
+            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.FrequencyCount = 12 * 5 * 5 ' 5 octaves, 5 bars per note
+            _converter.FrequencyScale = ScaleType.Logarithmic
+            _converter.SpectrumRiseTime = TimeSpan.FromMilliseconds(20)
+            _converter.SpectrumFallTime = TimeSpan.FromMilliseconds(200)
+            _converter.RmsRiseTime = TimeSpan.FromMilliseconds(20) ' Use RMS To gate noise, fast rise slow fall
+            _converter.RmsFallTime = TimeSpan.FromMilliseconds(500)
+            _converter.ChannelCount = 1
+            SpectrumVisualizer.Source = _converter
+        End Function
+
+        Public Sub OnStateChanged(state As GraphState) Implements IAudioNodeControl.OnStateChanged : End Sub
+    End Class
+
+End Namespace

VBAudioRouter/MainPage.xaml

@@ -31,6 +31,7 @@
                             <MenuFlyoutItem Text="File" Tag="FileInputNodeControl" Click="MenuFlyoutItem_Click" />
                             <MenuFlyoutItem Text="TTS" Tag="TextToSpeechInputNodeControl" Click="MenuFlyoutItem_Click" />
                         </MenuFlyoutSubItem>
+                        <MenuFlyoutSeparator />
                         <MenuFlyoutSubItem Text="Effects">
                             <MenuFlyoutItem Text="Equalizer" Tag="EQNodeControl" Click="MenuFlyoutItem_Click" />
                             <MenuFlyoutItem Text="Reverb" Tag="ReverbNodeControl" Click="MenuFlyoutItem_Click" />
@@ -40,12 +41,18 @@
                         <MenuFlyoutSubItem Text="Transforms">
                             <MenuFlyoutItem Text="Gain" Tag="GainNodeControl" Click="MenuFlyoutItem_Click" />
                         </MenuFlyoutSubItem>
+                        <MenuFlyoutSeparator />
+                        <MenuFlyoutSubItem Text="Output">
+                            <MenuFlyoutItem Text="Device" IsEnabled="False" />
+                            <MenuFlyoutItem Text="File" IsEnabled="False" />
+                            <MenuFlyoutItem Text="Spectrum" Tag="SpectrumNodeControl" Click="MenuFlyoutItem_Click" />
+                        </MenuFlyoutSubItem>
                     </MenuFlyout>
                 </Grid.ContextFlyout>
                 <controls1:NodeControl Title="Output" TitleBrush="{StaticResource NodeTitleBarColor}" VerticalAlignment="Top" HorizontalAlignment="Left">
                     <controls1:OutputNodeControl Canvas="{x:Bind ConnectionCanvas}" x:Name="DefaultOutputNode" />
                 </controls1:NodeControl>
-            </Grid>            
+            </Grid>
             <StackPanel Orientation="Horizontal" HorizontalAlignment="Center" VerticalAlignment="Top" Margin="10" CornerRadius="5" Background="{StaticResource MenuBackground}">
                 <AppBarButton x:Name="PlayButton" Icon="Play" Foreground="{StaticResource PositiveColor}" LabelPosition="Collapsed" />
                 <AppBarButton x:Name="StopButton" Icon="Stop" Foreground="{StaticResource NegativeColor}" IsEnabled="False" LabelPosition="Collapsed" />

VBAudioRouter/VBAudioRouter.vbproj

@@ -150,6 +150,9 @@
     <Compile Include="Controls\EchoNodeControl.xaml.vb">
       <DependentUpon>EchoNodeControl.xaml</DependentUpon>
     </Compile>
+    <Compile Include="Controls\SpectrumNodeControl.xaml.vb">
+      <DependentUpon>SpectrumNodeControl.xaml</DependentUpon>
+    </Compile>
     <Compile Include="Controls\TextToSpeechInputNodeControl.xaml.vb">
       <DependentUpon>TextToSpeechInputNodeControl.xaml</DependentUpon>
     </Compile>
@@ -267,6 +270,10 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="Controls\SpectrumNodeControl.xaml">
+      <Generator>MSBuild:Compile</Generator>
+      <SubType>Designer</SubType>
+    </Page>
     <Page Include="Controls\TextToSpeechInputNodeControl.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
@@ -342,7 +349,10 @@
       <Version>7.1.1</Version>
     </PackageReference>
     <PackageReference Include="Microsoft.UI.Xaml">
-      <Version>2.7.0</Version>
+      <Version>2.8.0-prerelease.210927001</Version>
+    </PackageReference>
+    <PackageReference Include="UWPAudioVisualizer">
+      <Version>1.0.38</Version>
     </PackageReference>
   </ItemGroup>
   <PropertyGroup Condition=" '$(VisualStudioVersion)' == '' or '$(VisualStudioVersion)' &lt; '14.0' ">