Extension/Rate.rd.ext.ps1
|
<# .Synopsis Adjusts the rate of media. .Description Adjusts the playback rate of media, making it slower or faster. .Notes This uses a variety of filters: * setpts * atempo * asetpts .LINK https://ffmpeg.org/ffmpeg-filters.html#setpts .LINK https://ffmpeg.org/ffmpeg-filters.html#atempo #> [Management.Automation.Cmdlet("(?>Edit|Show)","Media")] # It extends Edit or Show-Media param( # The new rate of the media. [Parameter(Mandatory)] [double] $Rate ) $streams = $MediaInfo.streams $hasVideo = $streams | Where-Object { $_.Codec_Type -eq 'Video'} $hasAudio = $streams | Where-Object { $_.Codec_Type -eq 'Audio'} if ($hasVideo -and $hasAudio) { $videoRate = 1 / $rate "-filter_complex" if ($rate -ge .05 -and $rate -le 100) { "`"[0:v]setpts=$videoRate*PTS[v];[0:a]atempo=$Rate[a]`"" } else { Write-Warning 'Stream Contains Audio and is being adjusted by a factor greater than 2. Audio frames will be dropped rather instead of adjusting the tempo.' "`"[0:v]setpts=$videoRate*PTS[v];[0:a]asetpts=$videoRate*PTS[a]`"" } "-map" '"[v]"' "-map" '"[a]"' } elseif ($hasVideo) { $videoRate = 1 / $rate '-vf' "setpts=$videoRate*PTS" } elseif ($hasAudio) { '-af' if ($rate -ge .05 -and $rate -le 100) { "atempo=$Rate" } else { Write-Warning 'Stream Contains Audio and is being adjusted by a factor greater than 2. Audio frames will be dropped rather instead of adjusting the tempo.' "asetpts=$Rate*PTS" } } |