Extension/ShowSpectrum.RoughDraft.Extension.ps1
|
<# .SYNOPSIS Shows the audio spectrum .DESCRIPTION Shows the audio spectrum, using the [showspectrum filter](https://ffmpeg.org/ffmpeg-filters.html#showspectrum) .LINK https://ffmpeg.org/ffmpeg-filters.html#showspectrum .EXAMPLE Show-Media -InputPath .\a.mp3 -ShowSpectrum .EXAMPLE Edit-Media -InputPath .\a.mp3 -ShowSpectrum -OutputPath .\a.mp4 #> [Management.Automation.Cmdlet("(?>New|Edit|Show)", "Media")] param( # If set, will show a line waveform [Parameter(Mandatory)] [switch] $ShowSpectrum, # Set display mode [Alias('showspectrum_mode')] [ValidateSet("combined","separate")] [string] $ShowSpectrumMode, <# Specify how the spectrum should slide along the window. It accepts the following values: * replace - The samples start again on the left when they reach the right * scroll - the samples scroll from right to left * fullframe - frames are only produced when the samples reach the right * rscroll - the samples scroll from left to right * lreplace - the samples start again on the right when they reach the left #> [Alias('showspectrum_slide')] [ValidateSet("replace","scroll","fullframe","rscroll","lreplace")] [string] $ShowSpectrumSlide, # Specify the video size for the output. Default value is 600x200 [Alias('showspectrum_size')] [string] $ShowSpectrumSize, <# Show spectrum color mode * channel - each channel is displayed in a separate color * intensity - each channel is displayed using the same color scheme * rainbow - each channel is displayed using the rainbow color scheme * moreland - each channel is displayed using the moreland color scheme * nebulae - each channel is displayed using the nebulae color scheme * fire - each channel is displayed using the fire color scheme * fiery - each channel is displayed using the fiery color scheme * fruit - each channel is displayed using the fruit color scheme * cool - each channel is displayed using the cool color scheme * magma - each channel is displayed using the magma color scheme * green - each channel is displayed using the green color scheme * viridis - each channel is displayed using the viridis color scheme * plasma - each channel is displayed using the plasma color scheme * cividis - each channel is displayed using the cividis color scheme * terrain - each channel is displayed using the terrain color scheme #> [Alias('showspectrum_color')] [ValidateSet('channel','intensity','rainbow','moreland','nebulae','fire','fiery','fruit','cool','magma','green','viridis','plasma','cividis','terrain')] [string] $ShowSpectrumColorMode, # Specify scale used for calculating intensity color values. [Alias('showspectrum_scale')] [ValidateSet('lin','log','sqrt','cbrt','4thrt','5thrt')] [string] $ShowSpectrumColorScale, # Specify frequency scale. [Alias('showspectrum_fscale')] [ValidateSet('lin','log')] [string] $ShowSpectrumFrequencyScale, # Set saturation modifier for displayed colors. # Negative values provide alternative color scheme. # 0 is no saturation at all. # Saturation must be in [-10.0, 10.0] range. Default value is 1. [ValidateRange(-10.0,10.0)] [Alias('showspectrum_saturation')] [double] $ShowSpectrumSaturation, # Set window function. [Alias('showspectrum_win_func')] [ValidateSet( 'rect','bartlett','hann','hanning','hamming','blackman','welch','flattop', 'bharris','bnuttall','bhann','sine','nuttall','lanczos','gauss','tukey', 'dolph','cauchy','parzen','poisson','bohman')] [string] $ShowSpectrumWindowFunction, # Set orientation of time vs frequency axis [alias('showspectrum_orientation')] [ValidateSet('horizontal', 'vertical')] [string] $ShowSpectrumOrientation, # Set ratio of overlap window. Default value is 0. When value is 1 overlap is set to recommended size for specific window function currently used. [alias('showspectrum_overlap')] [ValidateRange(0,1)] [double] $ShowSpectrumOverlap, # Set scale gain for calculating intensity color values. Default value is 1. [alias('showspectrum_gain')] [double] $ShowSpectrumGain, # Set which data to display. Can be magnitude, default or phase, or unwrapped phase: uphase. [alias('showspectrum_data')] [ValidateSet('magnitude','phase','uphase')] [string] $ShowSpectrumData, # Set color rotation, must be in [-1.0, 1.0] range. Default value is 0 [alias('showspectrum_rotation')] [ValidateRange(-1,1)] [double] $ShowSpectrumColorRotation, # Set start frequency from which to display spectrogram. [Alias('showspectrum_start', 'ShowSpectrumBeginFrequency')] [int] $ShowSpectrumStartFrequency, # Set stop frequency to which to display spectrogram. [Alias('showspectrum_stop', 'ShowSpectrumEndFrequency')] [int] $ShowSpectrumStopFrequency, # Set upper frame rate limit. Default is auto, unlimited. [Alias('showspectrum_fps', 'ShowSpectrumFPS')] [string] $ShowSpectrumFramesPerSecond, # Draw time and frequency axes and legends. [Alias('showspectrum_legend')] [switch] $ShowSpectrumLegend, # Set dynamic range used to calculate intensity color values. Default is 120 dBFS. Allowed range is from 10 to 200 [Alias('showspectrum_drange')] [ValidateRange(10,200)] [int] $ShowSpectrumDynamicRange, # Set upper limit of input audio samples volume in dBFS. Default is 0 dBFS. Allowed range is from -100 to 100. [Alias('showspectrum_limit')] [ValidateRange(-100,100)] [int] $ShowSpectrumLimit, # Set opacity strength when using pixel format output with alpha component. [Alias('showspectrum_opacity')] [double] $ShowSpectrumOpacity ) $myCmd = $MyInvocation.MyCommand $filterArgs = @( foreach ($kv in $PSBoundParameters.GetEnumerator()) { $match= foreach ($paramAlias in $myCmd.Parameters[$kv.Key].Aliases) { $m = [Regex]::Match($paramAlias, '_(?<p>.+)$') if ($m.Success) { $m;break } } if ($match.Success) { $v = $kv.Value $p = $match.Value -replace '^_' if ($v -is [switch]) { $v = ($v -as [bool] -as [int]).ToString().ToLower() } if ($v -is [string] -and $myCmd.Parameters[$kv.Key].ValidateSet) { $v = $v.ToLower() } "$p=$($v)" } } ) -join ':' if ($commandName -eq 'Edit-Media') { $null = $outputPath -match '\.[^\.]+$' $outputPathExtension = $matches.0 $null = $inputPath -match '\.[^\.]+$' $inputPathExtension = $matches.0 if ($inputPathExtension -and $inputPathExtension -eq $outputPathExtension) { $inputCodecType = @((Get-Media -InputPath $inputPath).CodecTypes)[0] if ($inputCodecType -eq 'Audio') { [psvariable]::new('OutputPath', ($outputPath -replace '\.[^\.]+$','.mp4')) } } "-filter_complex" "[0:a]showspectrum=${filterargs},format=$pixelFormat[v]", "-map", "[v]", "-map", '0:a', '-c:v', 'libx264', '-c:a', 'copy' } else { "-f" "lavfi" "$inputAudioMovieFilter,asplit=2[out1][a];[a]showspectrum=${filterargs},format=yuv420p[out0]" } |