mirror of
https://github.com/staxrip/staxrip.git
synced 2026-10-18 14:40:32 +08:00
Dendraspis
1728 lines
69 KiB
VB.net
1728 lines
69 KiB
VB.net
Imports System.Globalization
|
|
Imports System.Text
|
|
Imports System.Text.RegularExpressions
|
|
Imports StaxRip.UI
|
|
Imports StaxRip.VideoEncoderCommandLine
|
|
|
|
<Serializable()>
|
|
Public Class SvtAv1HdrEnc
|
|
Inherits BasicVideoEncoder
|
|
|
|
Property ParamsStore As New PrimitiveStore
|
|
|
|
Sub New()
|
|
Name = "SvtAv1EncApp | SVT-AV1-HDR"
|
|
Params.ApplyPresetDefaultValues()
|
|
Params.ApplyPresetValues()
|
|
End Sub
|
|
|
|
Overloads Shared ReadOnly Property Package As Package
|
|
Get
|
|
Return Package.SvtAv1EncAppHdr
|
|
End Get
|
|
End Property
|
|
|
|
<NonSerialized>
|
|
Private ParamsValue As SvtAv1HdrEncParams
|
|
|
|
Property Params As SvtAv1HdrEncParams
|
|
Get
|
|
If ParamsValue Is Nothing Then
|
|
ParamsValue = New SvtAv1HdrEncParams
|
|
ParamsValue.Init(ParamsStore)
|
|
End If
|
|
|
|
Return ParamsValue
|
|
End Get
|
|
Set(value As SvtAv1HdrEncParams)
|
|
ParamsValue = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Overrides Property OverridesTargetFileName As Boolean
|
|
Get
|
|
Return Params.OverrideTargetFileName.Value
|
|
End Get
|
|
Set(value As Boolean)
|
|
If Params.OverrideTargetFileName.Value <> value Then
|
|
Params.OverrideTargetFileName.Value = value
|
|
Params.RaiseValueChanged(Params.OverrideTargetFileName)
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property OverridingTargetFileName As String
|
|
Get
|
|
Dim value = Macro.ExpandParamValues(Params.TargetFileName.Value, Params.Items)
|
|
value = value.Replace(Environment.NewLine, "")
|
|
Return value
|
|
End Get
|
|
End Property
|
|
|
|
Overrides ReadOnly Property IsDolbyVisionSet As Boolean
|
|
Get
|
|
If Not Params.DolbyVisionRpu.Visible Then Return False
|
|
Return Not String.IsNullOrWhiteSpace(Params.DolbyVisionRpu.Value)
|
|
End Get
|
|
End Property
|
|
|
|
Overrides ReadOnly Property IsOvercroppingAllowed As Boolean
|
|
Get
|
|
If Not Params.DolbyVisionRpu.Visible Then Return True
|
|
Return String.IsNullOrWhiteSpace(Params.DolbyVisionRpu.Value)
|
|
End Get
|
|
End Property
|
|
|
|
Overrides ReadOnly Property IsUnequalResizingAllowed As Boolean
|
|
Get
|
|
If Not Params.DolbyVisionRpu.Visible Then Return True
|
|
Return String.IsNullOrWhiteSpace(Params.DolbyVisionRpu.Value)
|
|
End Get
|
|
End Property
|
|
|
|
Overrides ReadOnly Property DolbyVisionMetadataPath As String
|
|
Get
|
|
If Not Params.DolbyVisionRpu.Visible Then Return Nothing
|
|
Return Params.DolbyVisionRpu.Value
|
|
End Get
|
|
End Property
|
|
|
|
Overrides ReadOnly Property Hdr10PlusMetadataPath As String
|
|
Get
|
|
If Not Params.Hdr10PlusJson.Visible Then Return Nothing
|
|
Return Params.Hdr10PlusJson.Value
|
|
End Get
|
|
End Property
|
|
|
|
|
|
Overrides ReadOnly Property Codec As String
|
|
Get
|
|
Return "av1"
|
|
End Get
|
|
End Property
|
|
|
|
Overrides ReadOnly Property OutputExt As String
|
|
Get
|
|
Return "ivf"
|
|
End Get
|
|
End Property
|
|
|
|
Overrides Function BeforeEncoding() As Boolean
|
|
Dim rpu = Params.DolbyVisionRpu.Value
|
|
|
|
If Not String.IsNullOrWhiteSpace(rpu) AndAlso rpu = p.HdrDolbyVisionMetadataFile?.Path AndAlso rpu.FileExists() Then
|
|
Dim offset = If(p.Script.IsFilterActive("Crop"), New Padding(p.CropLeft, p.CropTop, p.CropRight, p.CropBottom), Padding.Empty)
|
|
Dim mode = CType(Params.DolbyVisionRpuMode.Value, DoviMode)
|
|
|
|
p.HdrDolbyVisionMetadataFile.WriteEditorConfigFile(offset, mode, True)
|
|
Dim newPath = p.HdrDolbyVisionMetadataFile.WriteModifiedRpu(True)
|
|
|
|
If p.HdrDolbyVisionMetadataFile.HasToBeTrimmed Then
|
|
newPath = p.HdrDolbyVisionMetadataFile.TrimRpu()
|
|
End If
|
|
|
|
If Not String.IsNullOrWhiteSpace(newPath) Then
|
|
Params.DolbyVisionRpu.Value = newPath
|
|
Else
|
|
Return False
|
|
End If
|
|
End If
|
|
|
|
Return True
|
|
End Function
|
|
|
|
Overrides Sub Encode()
|
|
Encode("Video encoding", GetArgs(1, 0, 0, Nothing, p.Script), s.EncoderProcessPriority)
|
|
|
|
If Params.Passes > 1 Then
|
|
Encode("Video encoding second pass", GetArgs(2, 0, 0, Nothing, p.Script), s.EncoderProcessPriority)
|
|
End If
|
|
If Params.Passes > 2 Then
|
|
Encode("Video encoding second pass", GetArgs(3, 0, 0, Nothing, p.Script), s.EncoderProcessPriority)
|
|
End If
|
|
End Sub
|
|
|
|
Overloads Sub Encode(passName As String, commandLine As String, priority As ProcessPriorityClass)
|
|
If Not CanChunkEncode() Then
|
|
p.Script.Synchronize()
|
|
End If
|
|
|
|
Using proc As New Proc
|
|
proc.Package = Package
|
|
proc.Header = passName
|
|
proc.Encoding = Encoding.UTF8
|
|
proc.Priority = priority
|
|
proc.FrameCount = p.Script.GetFrameCount
|
|
proc.IntegerFrameOutput = Params.Progress.Value < 2
|
|
proc.SkipStrings = {"Encoding:", "Encoding frame", " Frames @ "}
|
|
|
|
If commandLine.Contains("|") Then
|
|
proc.File = "cmd.exe"
|
|
proc.Arguments = "/S /C """ + commandLine + """"
|
|
Else
|
|
proc.CommandLine = commandLine
|
|
End If
|
|
|
|
proc.Start()
|
|
End Using
|
|
End Sub
|
|
|
|
Overrides Sub SetMetaData(sourceFile As String)
|
|
If Not p.ImportVUIMetadata Then Exit Sub
|
|
|
|
Dim cl = ""
|
|
Dim colour_primaries = MediaInfo.GetVideo(sourceFile, "colour_primaries")
|
|
|
|
Select Case colour_primaries
|
|
Case "BT.2020"
|
|
cl += " --color-primaries 9"
|
|
Case "BT.709"
|
|
cl += " --color-primaries 1"
|
|
End Select
|
|
|
|
Dim transfer_characteristics = MediaInfo.GetVideo(sourceFile, "transfer_characteristics")
|
|
|
|
Select Case transfer_characteristics
|
|
Case "PQ", "SMPTE ST 2084"
|
|
cl += " --transfer-characteristics 16"
|
|
Case "BT.709"
|
|
cl += " --transfer-characteristics 1"
|
|
Case "HLG"
|
|
cl += " --transfer-characteristics 18"
|
|
End Select
|
|
|
|
Dim matrix_coefficients = MediaInfo.GetVideo(sourceFile, "matrix_coefficients")
|
|
|
|
Select Case matrix_coefficients
|
|
Case "BT.2020 non-constant"
|
|
cl += " --matrix-coefficients 9"
|
|
Case "BT.709"
|
|
cl += " --matrix-coefficients 1"
|
|
End Select
|
|
|
|
Dim color_range = MediaInfo.GetVideo(sourceFile, "colour_range")
|
|
|
|
Select Case color_range
|
|
Case "Limited"
|
|
cl += " --color-range 0"
|
|
Case "Full"
|
|
cl += " --color-range 1"
|
|
End Select
|
|
|
|
Dim chromaSubsampling_Position = MediaInfo.GetVideo(sourceFile, "ChromaSubsampling_Position")
|
|
Dim chromaloc = New String(chromaSubsampling_Position.Where(Function(c) c.IsDigit()).ToArray())
|
|
|
|
If Not String.IsNullOrEmpty(chromaloc) AndAlso chromaloc <> "0" Then
|
|
cl += $" --chroma-sample-position {chromaloc}"
|
|
End If
|
|
|
|
Dim masteringDisplay_ColorPrimaries = MediaInfo.GetVideo(sourceFile, "MasteringDisplay_ColorPrimaries")
|
|
Dim masteringDisplay_Luminance = MediaInfo.GetVideo(sourceFile, "MasteringDisplay_Luminance")
|
|
|
|
If masteringDisplay_ColorPrimaries <> "" AndAlso masteringDisplay_Luminance <> "" Then
|
|
Dim luminanceMatch = Regex.Match(masteringDisplay_Luminance, "min: ([\d\.]+) cd/m2, max: ([\d\.]+) cd/m2")
|
|
|
|
If luminanceMatch.Success Then
|
|
Dim luminanceMin = luminanceMatch.Groups(1).Value.ToDouble().ToInvariantString()
|
|
Dim luminanceMax = luminanceMatch.Groups(2).Value.ToDouble().ToInvariantString()
|
|
|
|
If masteringDisplay_ColorPrimaries.Contains("Display P3") Then
|
|
cl += $" --mastering-display ""G(0.265,0.690)B(0.15,0.06)R(0.68,0.32)WP(0.3127,0.329)L({luminanceMax},{luminanceMin})"""
|
|
cl += " --color-range 0"
|
|
End If
|
|
|
|
If masteringDisplay_ColorPrimaries.Contains("DCI P3") Then
|
|
cl += $" --mastering-display ""G(0.265,0.690)B(0.15,0.06)R(0.68,0.32)WP(0.314,0.351)L({luminanceMax},{luminanceMin})"""
|
|
cl += " --color-range 0"
|
|
End If
|
|
|
|
If masteringDisplay_ColorPrimaries.Contains("BT.2020") Then
|
|
cl += $" --mastering-display ""G(0.17,0.797)B(0.131,0.046)R(0.708,0.292)WP(0.3127,0.329)L({luminanceMax},{luminanceMin})"""
|
|
cl += " --color-range 0"
|
|
End If
|
|
|
|
If Not String.IsNullOrWhiteSpace(p.Hdr10PlusMetadataFile) AndAlso p.Hdr10PlusMetadataFile.FileExists() Then
|
|
cl += $" {Params.Hdr10PlusJson.Switch} ""{p.Hdr10PlusMetadataFile}"""
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If Not String.IsNullOrWhiteSpace(p.HdrDolbyVisionMetadataFile?.Path) Then
|
|
'cl += " --output-depth 10"
|
|
cl += $" {Params.DolbyVisionRpu.Switch} ""{p.HdrDolbyVisionMetadataFile.Path}"""
|
|
End If
|
|
|
|
Dim MaxCLL = MediaInfo.GetVideo(sourceFile, "MaxCLL").ToInt()
|
|
Dim MaxFALL = MediaInfo.GetVideo(sourceFile, "MaxFALL").ToInt()
|
|
|
|
If MaxCLL <> 0 OrElse MaxFALL <> 0 Then
|
|
cl += $" --content-light ""{MaxCLL},{MaxFALL}"""
|
|
End If
|
|
|
|
ImportCommandLine(cl)
|
|
End Sub
|
|
|
|
Overrides Property Bitrate As Integer
|
|
Get
|
|
Return CInt(Params.TargetBitrate.Value)
|
|
End Get
|
|
Set(value As Integer)
|
|
Params.TargetBitrate.Value = value
|
|
End Set
|
|
End Property
|
|
|
|
Overrides Function CanChunkEncode() As Boolean
|
|
Return CInt(Params.Chunks.Value) > 1
|
|
End Function
|
|
|
|
Overrides Function GetChunks() As Integer
|
|
Return CInt(Params.Chunks.Value)
|
|
End Function
|
|
|
|
Overrides Function GetChunkEncodeActions() As List(Of Action)
|
|
Dim maxFrame = If(Params.Decoder.Value = 0, p.Script.GetFrameCount(), p.SourceFrames)
|
|
Dim chunkCount = CInt(Params.Chunks.Value)
|
|
Dim startFrame = CInt(Params.FramesToBeSkipped.Value)
|
|
Dim length = If(CInt(Params.FramesToBeEncoded.Value) > 0, CInt(Params.FramesToBeEncoded.Value), maxFrame - startFrame)
|
|
Dim endFrame = Math.Min(startFrame + length - 1, maxFrame)
|
|
Dim chunkLength = length \ chunkCount
|
|
Dim ret As New List(Of Action)
|
|
|
|
For chunk = 0 To chunkCount - 1
|
|
Dim chunkStart = startFrame + (chunk * chunkLength)
|
|
Dim chunkEnd = If(chunk <> chunkCount - 1, chunkStart + (chunkLength - 1), endFrame)
|
|
Dim chunkName = ""
|
|
Dim passName = ""
|
|
|
|
If chunkCount > 1 Then
|
|
chunkName = "_chunk" & (chunk + 1)
|
|
passName = " chunk " & (chunk + 1)
|
|
End If
|
|
|
|
If Params.Passes > 1 Then
|
|
ret.Add(Sub()
|
|
Encode("Video encoding pass 1" + passName, GetArgs(1, chunkStart, chunkEnd, chunkName, p.Script), s.EncoderProcessPriority)
|
|
If Params.Passes > 1 Then
|
|
Encode("Video encoding pass 2" + passName, GetArgs(2, chunkStart, chunkEnd, chunkName, p.Script), s.EncoderProcessPriority)
|
|
End If
|
|
If Params.Passes > 2 Then
|
|
Encode("Video encoding pass 3" + passName, GetArgs(3, chunkStart, chunkEnd, chunkName, p.Script), s.EncoderProcessPriority)
|
|
End If
|
|
End Sub)
|
|
Else
|
|
ret.Add(Sub() Encode("Video encoding" + passName, GetArgs(1, chunkStart, chunkEnd, chunkName, p.Script), s.EncoderProcessPriority))
|
|
End If
|
|
Next
|
|
|
|
Return ret
|
|
End Function
|
|
|
|
Overrides Sub RunCompCheck()
|
|
If Not g.VerifyRequirements OrElse Not g.IsValidSource Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim newParams As New SvtAv1HdrEncParams
|
|
Dim newStore = ObjectHelp.GetCopy(ParamsStore)
|
|
newParams.Init(newStore)
|
|
|
|
Dim enc As New SvtAv1HdrEnc
|
|
enc.Params = newParams
|
|
enc.Params.RateControlMode.Value = SvtAv1EncAppRateMode.Quality
|
|
enc.Params.ConstantRateFactor.Value = enc.Params.CompCheck.Value
|
|
enc.Params.QuantizationParameter.Value = enc.Params.CompCheck.Value
|
|
|
|
Dim script As New VideoScript
|
|
script.Engine = p.Script.Engine
|
|
script.Filters = p.Script.GetFiltersCopy
|
|
Dim code As String
|
|
Dim framerate = p.Script.GetFramerate()
|
|
Dim totalFrames = p.Script.GetFrameCount()
|
|
Dim range = framerate * p.CompCheckTestblockSeconds
|
|
Dim every = (100 / p.CompCheckPercentage) * range
|
|
|
|
If script.Engine = ScriptEngine.AviSynth Then
|
|
code = $"SelectRangeEvery({CInt(every)},{CInt(range)})"
|
|
Else
|
|
code = "fpsnum = clip.fps_num" + BR
|
|
code += "fpsden = clip.fps_den" + BR
|
|
code += $"clip = core.std.SelectEvery(clip = clip, cycle = {CInt(every)}, offsets = range({CInt(range)}))" + BR
|
|
code += "clip = core.std.AssumeFPS(clip = clip, fpsnum = fpsnum, fpsden = fpsden)"
|
|
End If
|
|
|
|
script.Filters.Add(New VideoFilter("aaa", "aaa", code))
|
|
script.Path = Path.Combine(p.TempDir, p.TargetFile.Base + "_CompCheck." + script.FileType)
|
|
script.Synchronize()
|
|
|
|
Log.WriteLine(BR + script.GetFullScript + BR)
|
|
|
|
Dim commandLine = enc.Params.GetArgs(0, 0, 0, Nothing, script, Path.Combine(p.TempDir, p.TargetFile.Base + "_CompCheck." + OutputExt), True, True)
|
|
|
|
Try
|
|
Encode("Compressibility Check", commandLine, s.EncoderProcessPriority)
|
|
Catch ex As AbortException
|
|
Exit Sub
|
|
Catch ex As Exception
|
|
g.ShowException(ex)
|
|
Exit Sub
|
|
End Try
|
|
|
|
Dim bits = (New FileInfo(Path.Combine(p.TempDir, p.TargetFile.Base + "_CompCheck." + OutputExt)).Length) * 8
|
|
p.Compressibility = (bits / script.GetFrameCount) / (p.TargetWidth * p.TargetHeight)
|
|
|
|
OnAfterCompCheck()
|
|
g.MainForm.Assistant()
|
|
|
|
Log.WriteLine("Quality: " & CInt(Calc.GetPercent).ToString() + " %")
|
|
Log.WriteLine("Compressibility: " + p.Compressibility.ToString("f3"))
|
|
Log.Save()
|
|
End Sub
|
|
|
|
Overloads Function GetArgs(
|
|
pass As Integer,
|
|
startFrame As Integer,
|
|
endFrame As Integer,
|
|
chunkName As String,
|
|
script As VideoScript,
|
|
Optional includePaths As Boolean = True) As String
|
|
|
|
Return Params.GetArgs(pass, startFrame, endFrame, chunkName, script, OutputPath.DirAndBase + OutputExtFull, includePaths, True)
|
|
End Function
|
|
|
|
Overrides Function CreateEditControl() As Control
|
|
Return New SvtAv1EncAppHdrControl(Me) With {.Dock = DockStyle.Fill}
|
|
End Function
|
|
|
|
Overrides Sub ShowConfigDialog(Optional param As CommandLineParam = Nothing)
|
|
Dim newParams As New SvtAv1HdrEncParams
|
|
Dim store = ObjectHelp.GetCopy(ParamsStore)
|
|
newParams.Init(store)
|
|
newParams.ApplyPresetDefaultValues()
|
|
|
|
Using form As New CommandLineForm(newParams)
|
|
form.HTMLHelpFunc = Function() $"<p><a href=""{Package.HelpURL}"">SvtAv1EncApp Online Help</a></p>" +
|
|
$"<h2>SvtAv1EncApp Console Help</h2><pre>{HelpDocument.ConvertChars(Package.CreateHelpfile())}</pre>"
|
|
|
|
Dim a = Sub()
|
|
Dim enc = ObjectHelp.GetCopy(Me)
|
|
Dim params2 As New SvtAv1HdrEncParams
|
|
Dim store2 = ObjectHelp.GetCopy(store)
|
|
params2.Init(store2)
|
|
enc.Params = params2
|
|
enc.ParamsStore = store2
|
|
SaveProfile(enc)
|
|
End Sub
|
|
|
|
form.cms.Add("Save Profile...", a, Keys.Control Or Keys.S, Symbol.Save)
|
|
|
|
If Not String.IsNullOrWhiteSpace(param?.Path) Then
|
|
form.SimpleUI.ShowPage(param?.Path)
|
|
form.cbGoTo.Text = param.GetSwitches().FirstOrDefault()
|
|
End If
|
|
|
|
If form.ShowDialog() = DialogResult.OK Then
|
|
AutoCompCheckValue = CInt(newParams.CompCheckAimedQuality.Value)
|
|
Params = newParams
|
|
ParamsStore = store
|
|
OnStateChange()
|
|
UpdateTargetFile()
|
|
End If
|
|
End Using
|
|
End Sub
|
|
|
|
Overrides Property QualityMode() As Boolean
|
|
Get
|
|
Return Params.RateControlMode.Value = SvtAv1EncAppRateMode.Quality
|
|
End Get
|
|
Set(Value As Boolean)
|
|
End Set
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property CommandLineParams As CommandLineParams
|
|
Get
|
|
Return Params
|
|
End Get
|
|
End Property
|
|
|
|
Shared Function Test() As String
|
|
Dim tester As New ConsolAppTester
|
|
|
|
tester.IgnoredSwitches = ""
|
|
|
|
tester.UndocumentedSwitches = ""
|
|
|
|
tester.Package = Package
|
|
tester.CodeFile = Path.Combine(Folder.Startup.Parent, "Encoding", "SvtAv1HdrEnc.vb")
|
|
|
|
Return tester.Test
|
|
End Function
|
|
End Class
|
|
|
|
Public Class SvtAv1HdrEncParams
|
|
Inherits CommandLineParams
|
|
|
|
Sub New()
|
|
Title = "SvtAv1EncApp (SVT-AV1-HDR) Options"
|
|
End Sub
|
|
|
|
Public Overrides ReadOnly Property Package As Package
|
|
Get
|
|
Return SvtAv1HdrEnc.Package
|
|
End Get
|
|
End Property
|
|
|
|
|
|
Property OverrideTargetFileName As New BoolParam() With {
|
|
.Text = "Override Target File Name",
|
|
.Init = False}
|
|
|
|
Property TargetFileName As New StringParam With {
|
|
.Text = "Target File Name",
|
|
.Quotes = QuotesMode.Never,
|
|
.TextChangedAction = Sub(text) TargetFileNamePreview.Value = Macro.ExpandParamValues(text, Items),
|
|
.Init = "%source_name%_new",
|
|
.InitAction = Sub(tb)
|
|
tb.Edit.MultilineHeightFactor = 6
|
|
tb.Edit.TextBox.Font = FontManager.GetCodeFont()
|
|
End Sub}
|
|
|
|
Property TargetFileNamePreview As New StringParam With {
|
|
.Text = "Preview",
|
|
.Quotes = QuotesMode.Never,
|
|
.InitAction = Sub(tb)
|
|
tb.Edit.MultilineHeightFactor = 3
|
|
tb.Edit.TextBox.Font = FontManager.GetCodeFont()
|
|
tb.Edit.TextBox.ReadOnly = True
|
|
BlockValueChanged = True
|
|
.Value = Macro.ExpandParamValues(TargetFileName.Value, Items)
|
|
BlockValueChanged = False
|
|
End Sub}
|
|
|
|
Property Decoder As New OptionParam With {
|
|
.Text = "Decoder",
|
|
.Expanded = True,
|
|
.Options = {"AviSynth/VapourSynth", "QSVEnc (Intel)", "ffmpeg (Intel)", "ffmpeg (DXVA2)"},
|
|
.Values = {"script", "qs", "ffqsv", "ffdxva"}}
|
|
|
|
Property PipingToolAVS As New OptionParam With {
|
|
.Name = "PipingToolAVS",
|
|
.Text = "Pipe",
|
|
.Expanded = True,
|
|
.VisibleFunc = Function() p.Script.IsAviSynth AndAlso Decoder.Value = 0,
|
|
.Options = {"Automatic", "avs2pipemod", "ffmpeg"}}
|
|
|
|
Property PipingToolVS As New OptionParam With {
|
|
.Name = "PipingToolVS",
|
|
.Text = "Pipe",
|
|
.Expanded = True,
|
|
.VisibleFunc = Function() p.Script.IsVapourSynth AndAlso Decoder.Value = 0,
|
|
.Options = {"Automatic", "vspipe", "ffmpeg"}}
|
|
|
|
Property CompCheck As New NumParam With {
|
|
.Name = "CompCheckQuant",
|
|
.Text = "Comp. Check",
|
|
.Value = 18,
|
|
.Help = "QP value used as 100% for the compressibility check.",
|
|
.Config = {1, 50}}
|
|
|
|
Property CompCheckAimedQuality As New NumParam With {
|
|
.Name = "CompCheckAimedQuality",
|
|
.Text = "Aimed Quality",
|
|
.Value = 50,
|
|
.Help = "Percent value to adjusts the target file size or image size after the compressibility check accordingly.",
|
|
.Config = {1, 100}}
|
|
|
|
Property Chunks As New NumParam With {
|
|
.Text = "Chunks",
|
|
.Config = {1, 128},
|
|
.Init = 1}
|
|
|
|
' --------------------------------------------------------
|
|
' --------------------------------------------------------
|
|
|
|
Property Progress As New OptionParam With {
|
|
.Switch = "--progress",
|
|
.Text = "Progress",
|
|
.Expanded = True,
|
|
.Options = {"0: No Output", "1: Normal (default)", "2: AOMEnc Style Output"},
|
|
.Values = {"0", "1", "2"},
|
|
.DefaultValue = 1,
|
|
.Value = 2}
|
|
|
|
Property Preset As New OptionParam With {
|
|
.Switch = "--preset",
|
|
.Text = "Preset",
|
|
.Expanded = True,
|
|
.Options = {"-3: Debug Option", "-2: Debug Option", "-1: Debug Option", "0: Slowest", "1: Extreme Slow", "2: Ultra Slow", "3: Very Slow", "4: Slower (default)", "5: Slow", "6: Medium", "7: Fast", "8: Faster", "9: Very Fast", "10: Mega Fast", "11: Ultra Fast", "12: Extreme Fast", "13: Fastest"},
|
|
.Values = {"-3", "-2", "-1", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13"},
|
|
.ValueChangedAction = Sub(v)
|
|
Dim hlv = If(v <= 13, 3, 2)
|
|
If HierarchicalLevels.IsDefaultValue Then
|
|
HierarchicalLevels.DefaultValue = hlv
|
|
HierarchicalLevels.ValueChangedUser(hlv)
|
|
Else
|
|
HierarchicalLevels.DefaultValue = hlv
|
|
HierarchicalLevels.ValueChangedUser(HierarchicalLevels.Value)
|
|
End If
|
|
End Sub,
|
|
.Init = 7}
|
|
|
|
' --------------------------------------------------------
|
|
' --------------------------------------------------------
|
|
|
|
Property FramesToBeEncoded As New NumParam With {
|
|
.HelpSwitch = "--frames",
|
|
.Text = "Frames To Be Encoded",
|
|
.Config = {Integer.MinValue, Integer.MaxValue, 100},
|
|
.Init = 0}
|
|
|
|
Property FramesToBeSkipped As New NumParam With {
|
|
.HelpSwitch = "--skip",
|
|
.Text = "Frames To Be Skipped",
|
|
.Config = {0, Integer.MaxValue, 100},
|
|
.Init = 0}
|
|
|
|
Property EncoderColorFormat As New OptionParam With {
|
|
.Switch = "--color-format",
|
|
.Text = "Encoder Color Format",
|
|
.Expanded = True,
|
|
.Options = {"0: YUV400", "1: YUV420 (default)", "2: YUV422", "3: YUV444"},
|
|
.IntegerValue = True,
|
|
.Init = 1}
|
|
|
|
Property Profile As New OptionParam With {
|
|
.Switch = "--profile",
|
|
.Text = "Profile",
|
|
.Expanded = True,
|
|
.Options = {"0: Main (default)", "1: High", "2: Professional"},
|
|
.IntegerValue = True,
|
|
.Init = 0}
|
|
|
|
Property Level As New OptionParam With {
|
|
.Switch = "--level",
|
|
.Text = "Level",
|
|
.Expanded = True,
|
|
.Options = {"Autodetect from input", "2.0", "2.1", "2.2", "2.3", "3.0", "3.1", "3.2", "3.3", "4.0", "4.1", "4.2", "4.3", "5.0", "5.1", "5.2", "5.3", "6.0", "6.1", "6.2", "6.3", "7.0", "7.1", "7.2", "7.3"},
|
|
.Values = {"0", "2.0", "2.1", "2.2", "2.3", "3.0", "3.1", "3.2", "3.3", "4.0", "4.1", "4.2", "4.3", "5.0", "5.1", "5.2", "5.3", "6.0", "6.1", "6.2", "6.3", "7.0", "7.1", "7.2", "7.3"},
|
|
.Init = 0}
|
|
|
|
'Property EncoderBitDepth As New OptionParam With {
|
|
' .Switch = "--input-depth",
|
|
' .Text = "Encoder Bit Depth",
|
|
' .Options = {"8-Bit", "10-Bit"},
|
|
' .Values = {"8", "10"},
|
|
' .VisibleFunc = Function() PackageType = SvtAv1EncAppType.Vanilla,
|
|
' .DefaultValue = 0,
|
|
' .Value = 1}
|
|
|
|
'Property EncoderBitDepthSpecific As New OptionParam With {
|
|
' .Switch = "--input-depth",
|
|
' .Text = "Encoder Bit Depth",
|
|
' .Options = {"8-Bit", "10-Bit"},
|
|
' .Values = {"8", "10"},
|
|
' .VisibleFunc = Function() {SvtAv1EncAppType.Psy, SvtAv1EncAppType.Hdr}.Contains(PackageType),
|
|
' .DefaultValue = 1,
|
|
' .Value = 1}
|
|
|
|
Property StatReport As New OptionParam With {
|
|
.Switch = "--enable-stat-report",
|
|
.Text = "Stat Report",
|
|
.Expanded = True,
|
|
.Options = {"0: Off (default)", "1: Calculates and outputs PSNR SSIM metrics at the end of encoding"},
|
|
.IntegerValue = True,
|
|
.Init = 0}
|
|
|
|
Property Asm As New OptionParam With {
|
|
.Switch = "--asm",
|
|
.Text = "Limit Assembly Instruction Set",
|
|
.Expanded = True,
|
|
.Options = {"C", "MMX", "SSE", "SSE2", "SSE3", "SSSE3", "SSE4.1", "SSE4.2", "AVX", "AVX2", "AVX512", "MAX"},
|
|
.Values = {"c", "mmx", "sse", "sse2", "sse3", "ssse3", "sse4_1", "sse4_2", "avx", "avx2", "avx512", "max"},
|
|
.Init = 11}
|
|
|
|
Property LevelOfParallelism As New NumParam With {
|
|
.Switch = "--lp",
|
|
.Text = "Level Of Parallelism",
|
|
.Config = {0, 6, 1, 0},
|
|
.Init = 0}
|
|
|
|
Property PinnedExecution As New NumParam With {
|
|
.Switch = "--pin",
|
|
.Text = "Pinned Execution",
|
|
.Config = {0, OS.Hardware.Threads, 1, 0},
|
|
.Init = 0}
|
|
|
|
Property TargetSocket As New NumParam With {
|
|
.Switch = "--ss",
|
|
.Text = "Target Socket",
|
|
.Config = {-1, 1, 1, 0},
|
|
.Init = -1}
|
|
|
|
Property FastDecode As New OptionParam With {
|
|
.Switch = "--fast-decode",
|
|
.Text = "Fast Decode",
|
|
.Expanded = True,
|
|
.Options = {"0: Off (default)", "1: On", "2: On (Fastest)"},
|
|
.IntegerValue = True,
|
|
.Init = 0}
|
|
|
|
Property Tune As New OptionParam With {
|
|
.Switch = "--tune",
|
|
.Text = "Tune",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: VQ", "1: PSNR (default)", "2: SSIM", "3: Image Quality", "4: MS-SSIM/SSIMULACRA2", "5: Film Grain"},
|
|
.Init = 1}
|
|
|
|
Property AdaptiveFilmGrain As New OptionParam With {
|
|
.Switch = "--adaptive-film-grain",
|
|
.Text = "Adaptive Film Grain",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Default Blocksize Behavior", "1: Adaptive Blocksize Behavior (default)"},
|
|
.Init = 1}
|
|
|
|
Property MaxTxSize As New OptionParam With {
|
|
.Switch = "--max-tx-size",
|
|
.Text = "Max TX Size",
|
|
.Expanded = True,
|
|
.Options = {"32", "64 (default)"},
|
|
.Values = {"32", "64"},
|
|
.Init = 1}
|
|
|
|
Property AltSsimTuning As New OptionParam With {
|
|
.Switch = "--alt-ssim-tuning",
|
|
.Text = "Alternative SSIM Calculation Pathway",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0 (default)", "1"},
|
|
.VisibleFunc = Function() {2}.Contains(Tune.Value),
|
|
.Init = 0}
|
|
|
|
Property NoiseNormStrength As New OptionParam With {
|
|
.Switch = "--noise-norm-strength",
|
|
.Text = "Noise Norm Strength",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0", "1 (default)", "2", "3", "4"},
|
|
.Init = 1}
|
|
|
|
' --------------------------------------------------------
|
|
' --------------------------------------------------------
|
|
|
|
Property RateControlMode As New OptionParam With {
|
|
.HelpSwitch = "--rc",
|
|
.Text = "Rate Control Mode",
|
|
.Options = {"Quality (default)", "Variable Bitrate", "Constant Bitrate"},
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.AlwaysOn = True,
|
|
.Value = 0}
|
|
|
|
Property QuantizationParameter As New NumParam With {
|
|
.HelpSwitch = "--qp",
|
|
.Text = "Quantization Parameter",
|
|
.VisibleFunc = Function() RateControlMode.Value = SvtAv1EncAppRateMode.Quality AndAlso AqMode.Value = 0,
|
|
.ValueChangedAction = Sub(x) ConstantRateFactor.Value = x,
|
|
.Config = {1, 70, 0.25, 2},
|
|
.Init = 35}
|
|
|
|
Property ConstantRateFactor As New NumParam With {
|
|
.HelpSwitch = "--crf",
|
|
.Text = "Constant Rate Factor",
|
|
.VisibleFunc = Function() RateControlMode.Value = SvtAv1EncAppRateMode.Quality AndAlso AqMode.Value <> 0,
|
|
.ValueChangedAction = Sub(x) QuantizationParameter.Value = x,
|
|
.Config = {1, 70, 0.25, 2},
|
|
.Init = 35}
|
|
|
|
Property TargetBitrate As New NumParam With {
|
|
.HelpSwitch = "--tbr",
|
|
.Text = "Target Bitrate",
|
|
.VisibleFunc = Function() RateControlMode.Value <> SvtAv1EncAppRateMode.Quality,
|
|
.Config = {100, 100000, 100},
|
|
.Init = 2000}
|
|
|
|
Property MaximumBitrate As New NumParam With {
|
|
.Switch = "--mbr",
|
|
.Text = "Maximum Bitrate",
|
|
.VisibleFunc = Function() ConstantRateFactor.Visible,
|
|
.Config = {0, 100000, 100},
|
|
.Init = 0}
|
|
|
|
Property MaxQp As New NumParam With {
|
|
.Switch = "--max-qp",
|
|
.Text = "Maximum Quantizer",
|
|
.VisibleFunc = Function() RateControlMode.Value <> SvtAv1EncAppRateMode.Quality,
|
|
.Config = {1, 63, 1},
|
|
.Init = 63}
|
|
|
|
Property MinQp As New NumParam With {
|
|
.Switch = "--min-qp",
|
|
.Text = "Minimum Quantizer",
|
|
.VisibleFunc = Function() RateControlMode.Value <> SvtAv1EncAppRateMode.Quality,
|
|
.Config = {1, 62, 1},
|
|
.Init = 1}
|
|
|
|
Property EnableVarianceBoost As New OptionParam With {
|
|
.Switch = "--enable-variance-boost",
|
|
.Text = "Enable Variance Boost",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Off", "1: On (default)"},
|
|
.Init = 1}
|
|
|
|
Property VarianceBoostStrength As New OptionParam With {
|
|
.Switch = "--variance-boost-strength",
|
|
.Text = "Variance Boost Strength",
|
|
.Expanded = True,
|
|
.Options = {"1: Mild", "2: Gentle (default)", "3: Medium", "4: Aggressive"},
|
|
.Values = {"1", "2", "3", "4"},
|
|
.VisibleFunc = Function() EnableVarianceBoost.Value = 1,
|
|
.Init = 1}
|
|
|
|
Property VarianceOctile As New OptionParam With {
|
|
.Switch = "--variance-octile",
|
|
.Text = "Variance Octile",
|
|
.Expanded = True,
|
|
.Options = {"1: 1/8th", "2: 2/8th", "3: 3/8th", "4: 4/8th", "5: 5/8th (default)", "6: 6/8th", "7: 7/8th", "8: 8/8th"},
|
|
.Values = {"1", "2", "3", "4", "5", "6", "7", "8"},
|
|
.VisibleFunc = Function() EnableVarianceBoost.Value = 1,
|
|
.Init = 4}
|
|
|
|
Property VarianceBoostCurve As New OptionParam With {
|
|
.Switch = "--variance-boost-curve",
|
|
.Text = "Variance Boost Curve",
|
|
.Expanded = True,
|
|
.Options = {"0: Gentle (default)", "1: Low-Medium Contrast Boost Curve", "2: Still Picture Curve, tuned for SSIMULACRA2", "3: Tuned for PQ Transfer"},
|
|
.Values = {"0", "1", "2", "3"},
|
|
.VisibleFunc = Function() EnableVarianceBoost.Value = 1,
|
|
.Init = 0}
|
|
|
|
Property AqMode As New OptionParam With {
|
|
.Switch = "--aq-mode",
|
|
.Text = "Adaptive Quantization",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Off", "1: Variance base using AV1 segments", "2: Deltaq pred efficiency (default)"},
|
|
.Init = 2}
|
|
|
|
Property RecodeLoop As New OptionParam With {
|
|
.Switch = "--recode-loop",
|
|
.Text = "Recode Loop",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Off", "1: Allow recode for KF and exceeding maximum frame bandwidth", "2: Allow recode only for key frames, alternate reference frames, and Golden frames", "3: Allow recode for all frame types based on bitrate constraints", "4: Preset based decision (default)"},
|
|
.Init = 4}
|
|
|
|
Property EnableQm As New BoolParam With {
|
|
.Switch = "--enable-qm",
|
|
.Text = "Enable quantisation matrices",
|
|
.IntegerValue = True,
|
|
.Init = True}
|
|
|
|
Property QmMin As New NumParam With {
|
|
.Switch = "--qm-min",
|
|
.Text = "Min quant matrix flatness",
|
|
.Config = {0, 15, 1},
|
|
.VisibleFunc = Function() EnableQm.Value,
|
|
.Init = 6}
|
|
|
|
Property QmMax As New NumParam With {
|
|
.Switch = "--qm-max",
|
|
.Text = "Max quant matrix flatness",
|
|
.VisibleFunc = Function() EnableQm.Value,
|
|
.Config = {0, 15, 1},
|
|
.Init = 10}
|
|
|
|
Property TemporalFilteringStrength As New OptionParam With {
|
|
.Switch = "--tf-strength",
|
|
.Text = "Temporal Filtering Strength",
|
|
.Expanded = True,
|
|
.Options = {"0", "1 (default)", "2", "3", "4"},
|
|
.IntegerValue = True,
|
|
.Init = 1}
|
|
|
|
Property LuminanceQpBias As New NumParam With {
|
|
.Switch = "--luminance-qp-bias",
|
|
.Text = "Luminance QP Bias",
|
|
.Config = {0, 100, 1},
|
|
.Init = 0}
|
|
|
|
Property Sharpness As New OptionParam With {
|
|
.Switch = "--sharpness",
|
|
.Text = "Sharpness Bias",
|
|
.Expanded = True,
|
|
.Options = {"-7", "-6", "-5", "-4", "-3", "-2", "-1", "0", "1 (default)", "2", "3", "4", "5", "6", "7"},
|
|
.Values = {"-7", "-6", "-5", "-4", "-3", "-2", "-1", "0", "1", "2", "3", "4", "5", "6", "7"},
|
|
.Init = 8}
|
|
|
|
Property KeyframeTemporalFilteringStrength As New OptionParam With {
|
|
.Switch = "--kf-tf-strength",
|
|
.Text = "Keyframe Temporal Filtering Strength",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0", "1 (default)", "2", "3", "4"},
|
|
.Init = 1}
|
|
|
|
Property AltLambdaFactors As New OptionParam With {
|
|
.Switch = "--alt-lambda-factors",
|
|
.Text = "Alternative RDO Lambda Factors",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0", "1 (default)"},
|
|
.Init = 1}
|
|
|
|
' --------------------------------------------------------
|
|
' --------------------------------------------------------
|
|
|
|
ReadOnly Property Passes As Integer
|
|
Get
|
|
If PassesCBR.Visible Then Return PassesCBR.Value + 1
|
|
If PassesVBR.Visible Then Return PassesVBR.Value + 1
|
|
End Get
|
|
End Property
|
|
|
|
Property PassesCBR As New OptionParam With {
|
|
.Switches = {"--pass", "--passes", "--stats"},
|
|
.Text = "Passes",
|
|
.Expanded = True,
|
|
.Options = {"1-pass encode", "2-pass encode", "3-pass encode"},
|
|
.Values = {"1", "2", "3"},
|
|
.VisibleFunc = Function() RateControlMode.Value = SvtAv1EncAppRateMode.CBR,
|
|
.Init = 0}
|
|
|
|
Property PassesVBR As New OptionParam With {
|
|
.Switches = {"--pass", "--passes", "--stats"},
|
|
.Text = "Passes",
|
|
.Expanded = True,
|
|
.Options = {"1-pass encode", "2-pass encode"},
|
|
.Values = {"1", "2"},
|
|
.VisibleFunc = Function() RateControlMode.Value = SvtAv1EncAppRateMode.VBR,
|
|
.Init = 0}
|
|
|
|
' --------------------------------------------------------
|
|
' --------------------------------------------------------
|
|
|
|
Property KeyInt As New OptionParam With {
|
|
.Switch = "--keyint",
|
|
.Text = "Keyint / GOP Size",
|
|
.Expanded = True,
|
|
.Options = {"-2: ~10 seconds (default)", "0: ""infinite""", "1 second", "2 seconds", "3 seconds", "4 seconds", "5 seconds", "6 seconds", "7 seconds", "8 seconds", "9 seconds", "10 seconds"},
|
|
.Values = {"-2", "0", "1s", "2s", "3s", "4s", "5s", "6s", "7s", "8s", "9s", "10s"},
|
|
.VisibleFunc = Function() Not ConstantRateFactor.Visible,
|
|
.ValueChangedAction = Sub(x) KeyIntCrf.Value = x,
|
|
.Init = 0}
|
|
|
|
Property KeyIntCrf As New OptionParam With {
|
|
.Switch = "--keyint",
|
|
.Text = "Keyint / GOP Size",
|
|
.Expanded = True,
|
|
.Options = {"-2: ~10 seconds", "-1: ""infinite""", "1 second", "2 seconds", "3 seconds", "4 seconds", "5 seconds", "6 seconds", "7 seconds", "8 seconds", "9 seconds", "10 seconds"},
|
|
.Values = {"-2", "-1", "1s", "2s", "3s", "4s", "5s", "6s", "7s", "8s", "9s", "10s"},
|
|
.VisibleFunc = Function() ConstantRateFactor.Visible,
|
|
.ValueChangedAction = Sub(x) KeyInt.Value = x,
|
|
.Init = 0}
|
|
|
|
Property IntraRefreshRate As New OptionParam With {
|
|
.Switch = "--irefresh-type",
|
|
.Text = "Intra Refresh Type",
|
|
.Expanded = True,
|
|
.Options = {"1: FWD Frame (Open GOP)", "2: Key Frame (Closed GOP) (default)"},
|
|
.Values = {"1", "2"},
|
|
.Init = 1}
|
|
|
|
Property SceneChangeDetection As New OptionParam With {
|
|
.Switch = "--scd",
|
|
.Text = "Scene Change Detection Control",
|
|
.Expanded = True,
|
|
.Options = {"0: Off (default)", "1: On"},
|
|
.IntegerValue = True,
|
|
.Init = 0}
|
|
|
|
Property Lookahead As New NumParam With {
|
|
.Switch = "--lookahead",
|
|
.Text = "Lookahead",
|
|
.Config = {-1, 120, 1},
|
|
.Init = -1}
|
|
|
|
Property HierarchicalLevels As New OptionParam With {
|
|
.Switch = "--hierarchical-levels",
|
|
.Text = "Hierarchical Levels",
|
|
.Expanded = True,
|
|
.Options = {"2: 3 temporal layers", "3: 4 temporal layers", "4: 5 temporal layers", "5: 6 temporal layers (default)"},
|
|
.Values = {"2", "3", "4", "5"},
|
|
.Init = 3}
|
|
|
|
Property PredStructure As New OptionParam With {
|
|
.Switch = "--pred-struct",
|
|
.Text = "Prediction Structure",
|
|
.Expanded = True,
|
|
.Options = {"1: Low Delay", "2: Random Access (default)"},
|
|
.Values = {"1", "2"},
|
|
.Init = 1}
|
|
|
|
Property EnableDg As New OptionParam With {
|
|
.Switch = "--enable-dg",
|
|
.Text = "Dynamic GOP",
|
|
.Expanded = True,
|
|
.Options = {"0: Off", "1: On (default)"},
|
|
.IntegerValue = True,
|
|
.Init = 1}
|
|
|
|
Property StartupMgSize As New OptionParam With {
|
|
.Switch = "--startup-mg-size",
|
|
.Text = "Startup Mini-GOP Size",
|
|
.Expanded = True,
|
|
.Options = {"0: Off (default)", "2: 3 temporal layers", "3: 4 temporal layers", "4: 5 temporal layers"},
|
|
.Values = {"0", "2", "3", "4"},
|
|
.Init = 0}
|
|
|
|
' --------------------------------------------------------
|
|
' --------------------------------------------------------
|
|
|
|
Property TileRow As New NumParam With {
|
|
.Switch = "--tile-rows",
|
|
.Text = "Tile Rows",
|
|
.Config = {0, 6, 1},
|
|
.Init = 0}
|
|
|
|
Property TileCol As New NumParam With {
|
|
.Switch = "--tile-columns",
|
|
.Text = "Tile Columns",
|
|
.Config = {0, 4, 1},
|
|
.Init = 0}
|
|
|
|
Property LoopFilterEnable As New OptionParam With {
|
|
.Switch = "--enable-dlf",
|
|
.Text = "Deblocking Loop Filter",
|
|
.Expanded = True,
|
|
.Options = {"0: Off", "1: On (default)", "2: Slower, more accurate filtering"},
|
|
.Values = {"0", "1", "2"},
|
|
.Init = 1}
|
|
|
|
Property CDEFLevel As New BoolParam With {
|
|
.Switch = "--enable-cdef",
|
|
.Text = "Constrained Directional Enhancement Filter",
|
|
.IntegerValue = True,
|
|
.Init = True}
|
|
|
|
Property CDEFScaling As New NumParam With {
|
|
.Switch = "--cdef-scaling",
|
|
.Text = "Scaling of the CDEF Strength Computation",
|
|
.Config = {1, 30, 1},
|
|
.Init = 15}
|
|
|
|
Property EnableRestoration As New BoolParam With {
|
|
.Switch = "--enable-restoration",
|
|
.Text = "Loop Restoration Filter",
|
|
.IntegerValue = True,
|
|
.Init = True}
|
|
|
|
Property EnableTPLModel As New BoolParam With {
|
|
.Switch = "--enable-tpl-la",
|
|
.Text = "Temporal Dependency Model",
|
|
.VisibleFunc = Function() RateControlMode.Value = SvtAv1EncAppRateMode.Quality,
|
|
.IntegerValue = True,
|
|
.Init = True}
|
|
|
|
Property Mfmv As New NumParam With {
|
|
.Switch = "--enable-mfmv",
|
|
.Text = "Motion Field Motion Vector",
|
|
.Config = {-1, 1, 1},
|
|
.Init = -1}
|
|
|
|
Property EnableTF As New OptionParam With {
|
|
.Switch = "--enable-tf",
|
|
.Text = "ALT-REF Frames",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Off", "1: On (default)", "2: Aadaptive"},
|
|
.Init = 1}
|
|
|
|
Property EnableOverlays As New BoolParam With {
|
|
.Switch = "--enable-overlays",
|
|
.Text = "Insertion of Overlayer Pictures",
|
|
.IntegerValue = True,
|
|
.Init = False}
|
|
|
|
Property ScreenContentMode As New OptionParam With {
|
|
.Switch = "--scm",
|
|
.Text = "Screen Content Detection Level",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Off", "1: On", "2: Content Adaptive (default)"},
|
|
.Init = 2}
|
|
|
|
Property FilmGrain As New NumParam With {
|
|
.Switch = "--film-grain",
|
|
.Text = "Film Grain Level",
|
|
.Config = {0, 50, 1},
|
|
.Init = 0}
|
|
|
|
Property FilmGrainDenoise As New OptionParam With {
|
|
.Switch = "--film-grain-denoise",
|
|
.Text = "Film Grain Denoise",
|
|
.IntegerValue = True,
|
|
.Options = {"0: No denoising, film grain data is still in frame header (default)", "1: Level of denoising is set by the film-grain parameter"},
|
|
.VisibleFunc = Function() FilmGrain.Value > 0,
|
|
.Init = 0}
|
|
|
|
Property FGSTable As New StringParam With {
|
|
.Switch = "--fgs-table",
|
|
.Text = "FGS Table",
|
|
.BrowseFile = True}
|
|
|
|
Property Noise As New NumParam With {
|
|
.Switch = "--noise",
|
|
.Text = "Noise",
|
|
.Config = {0, 200, 1},
|
|
.Init = 0}
|
|
|
|
Property NoiseChroma As New NumParam With {
|
|
.Switch = "--noise-chroma",
|
|
.Text = "Noise Chroma",
|
|
.Config = {-1, 200, 1},
|
|
.Init = -1}
|
|
|
|
Property NoiseChromaFromLuma As New OptionParam With {
|
|
.Switch = "--noise-chroma-from-luma",
|
|
.Text = "Noise Chroma from Luma",
|
|
.Expanded = True,
|
|
.Options = {"0: Off (default)", "1: On"},
|
|
.Values = {"0", "1"},
|
|
.Init = 0}
|
|
|
|
Property NoiseSize As New OptionParam With {
|
|
.Switch = "--noise-size",
|
|
.Text = "Noise Size",
|
|
.Expanded = True,
|
|
.Options = {"-1: Auto (default)", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13"},
|
|
.Values = {"-1", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13"},
|
|
.Init = 0}
|
|
|
|
Property SuperresMode As New OptionParam With {
|
|
.Switch = "--superres-mode",
|
|
.Text = "Super-Resolution Mode",
|
|
.Options = {"0: None, no frame super-resolution allowed (default)", "1: All frames are encoded at the specified scale", "2: All frames are coded at a random scale", "3: Super-resolution scale for a frame is determined based on the q_index", "4: Automatically select the mode for appropriate frames"},
|
|
.Values = {"0", "1", "2", "3", "4"},
|
|
.Init = 0}
|
|
|
|
Property SuperresDenom As New OptionParam With {
|
|
.Switch = "--superres-denom",
|
|
.Text = "SuperRes Denominator",
|
|
.Options = {"8: No scaling (default)", "9: 8/9-scaling", "10: 8/10-scaling", "11: 8/11-scaling", "12: 8/12-scaling", "13: 8/13-scaling", "14: 8/14-scaling", "15: 8/15-scaling", "16: Half-scaling"},
|
|
.Values = {"8", "9", "10", "11", "12", "13", "14", "15", "16"},
|
|
.VisibleFunc = Function() SuperresMode.Value = 1,
|
|
.Init = 0}
|
|
|
|
Property SuperresKfDenom As New OptionParam With {
|
|
.Switch = "--superres-kf-denom",
|
|
.Text = "SuperRes Denominator for KeyFrames",
|
|
.Options = {"8: No scaling (default)", "9: 8/9-scaling", "10: 8/10-scaling", "11: 8/11-scaling", "12: 8/12-scaling", "13: 8/13-scaling", "14: 8/14-scaling", "15: 8/15-scaling", "16: Half-scaling"},
|
|
.Values = {"8", "9", "10", "11", "12", "13", "14", "15", "16"},
|
|
.VisibleFunc = Function() SuperresMode.Value = 1,
|
|
.Init = 0}
|
|
|
|
Property SuperresQthres As New NumParam With {
|
|
.Switch = "--superres-qthres",
|
|
.Text = "SuperRes q-threshold",
|
|
.Config = {0, 63, 1},
|
|
.VisibleFunc = Function() SuperresMode.Value = 3,
|
|
.Init = 43}
|
|
|
|
Property SuperresKfQthres As New NumParam With {
|
|
.Switch = "--superres-kf-qthres",
|
|
.Text = "SuperRes q-threshold for KeyFrames",
|
|
.Config = {0, 63, 1},
|
|
.VisibleFunc = Function() SuperresMode.Value = 3,
|
|
.Init = 43}
|
|
|
|
|
|
Property SframeInterval As New NumParam With {
|
|
.Switch = "--sframe-dist",
|
|
.Text = "S-Frame Interval",
|
|
.Config = {0, Integer.MaxValue, 1},
|
|
.Init = 0}
|
|
|
|
Property SframeMode As New OptionParam With {
|
|
.Switch = "--sframe-mode",
|
|
.Text = "S-Frame Insertion Mode",
|
|
.Options = {"1: Considered frame will be made into an S-Frame only if it is an altref frame", "2: Next altref frame will be made into an S-Frame (default)"},
|
|
.Values = {"1", "2"},
|
|
.Init = 1}
|
|
|
|
|
|
Property ResizeMode As New OptionParam With {
|
|
.Switch = "--resize-mode",
|
|
.Text = "Resize Mode",
|
|
.Options = {"0: None, no frame resize allowed (default)", "1: Fixed mode, all frames are encoded at the specified scale of 8/denom", "2: Random mode, all frames are coded at a random scale", "3: Dynamic mode, scale for a frame is determined based on buffer level and average qp in rate control", "4: Random access mode, scaling is controlled by scale events"},
|
|
.Values = {"0", "1", "2", "3", "4"},
|
|
.Init = 0}
|
|
|
|
Property ResizeDenom As New OptionParam With {
|
|
.Switch = "--resize-denom",
|
|
.Text = "Resize Denominator",
|
|
.Expanded = True,
|
|
.Options = {"8: No scaling (default)", "9: 8/9-scaling", "10: 8/10-scaling", "11: 8/11-scaling", "12: 8/12-scaling", "13: 8/13-scaling", "14: 8/14-scaling", "15: 8/15-scaling", "16: Half-scaling"},
|
|
.Values = {"8", "9", "10", "11", "12", "13", "14", "15", "16"},
|
|
.VisibleFunc = Function() ResizeMode.Value = 1,
|
|
.Init = 0}
|
|
|
|
Property ResizeKfDenom As New OptionParam With {
|
|
.Switch = "--resize-kf-denom",
|
|
.Text = "Resize Denominator for KeyFrames",
|
|
.Expanded = True,
|
|
.Options = {"8: No scaling (default)", "9: 8/9-scaling", "10: 8/10-scaling", "11: 8/11-scaling", "12: 8/12-scaling", "13: 8/13-scaling", "14: 8/14-scaling", "15: 8/15-scaling", "16: Half-scaling"},
|
|
.Values = {"8", "9", "10", "11", "12", "13", "14", "15", "16"},
|
|
.VisibleFunc = Function() ResizeMode.Value = 1,
|
|
.Init = 0}
|
|
|
|
Property ResizeFrameEvents As New StringParam With {
|
|
.Switch = "--frame-resz-events",
|
|
.Text = "Resize Events",
|
|
.VisibleFunc = Function() ResizeMode.Value = 4,
|
|
.Init = ""}
|
|
|
|
Property ResizeFrameDenoms As New StringParam With {
|
|
.Switch = "--frame-resz-denoms",
|
|
.Text = "Resize Denominator In Event",
|
|
.VisibleFunc = Function() ResizeMode.Value = 4,
|
|
.Init = ""}
|
|
|
|
Property ResizeFrameKfDenoms As New StringParam With {
|
|
.Switch = "--frame-resz-kf-denoms",
|
|
.Text = "Resize Denominator for KeyFrames In Event",
|
|
.VisibleFunc = Function() ResizeMode.Value = 4,
|
|
.Init = ""}
|
|
|
|
Property Lossless As New BoolParam With {
|
|
.Switch = "--lossless",
|
|
.Text = "Lossless",
|
|
.IntegerValue = True,
|
|
.Init = False}
|
|
|
|
Property Avif As New BoolParam With {
|
|
.Switch = "--avif",
|
|
.Text = "Avif (Still-Picture Coding)",
|
|
.IntegerValue = True,
|
|
.Init = False}
|
|
|
|
' --------------------------------------------------------
|
|
' --------------------------------------------------------
|
|
|
|
Property ColorPrimaries As New OptionParam With {
|
|
.Switch = "--color-primaries",
|
|
.Text = "Color Primaries",
|
|
.Expanded = True,
|
|
.Options = {"Unspecified", "BT.709", "BT.470 System M (historical)", "BT.470 System B, G (historical)", "BT.601", "SMPTE 240", "Generic film (color filters using illuminant C)", "BT.2020, BT.2100", "SMPTE 428 (CIE 1921 XYZ)", "SMPTE RP 431-2", "SMPTE EG 432-1", "EBU Tech. 3213-E"},
|
|
.Values = {"2", "1", "4", "5", "6", "7", "8", "9", "10", "11", "12", "22"},
|
|
.Init = 0}
|
|
|
|
Property TransferCharacteristics As New OptionParam With {
|
|
.Switch = "--transfer-characteristics",
|
|
.Text = "Transfer Characteristics",
|
|
.Expanded = True,
|
|
.Options = {"Unspecified", "BT.709", "BT.470 System M (historical)", "BT.470 System B, G (historical)", "BT.601", "SMPTE 240 M", "Linear", "Logarithmic (100 : 1 range)", "Logarithmic (100 * Sqrt(10) : 1 range)", "IEC 61966-2-4", "BT.1361", "sRGB or sYCC", "BT.2020 10-bit systems", "BT.2020 12-bit systems", "SMPTE ST 2084, ITU BT.2100 PQ", "SMPTE ST 428", "BT.2100 HLG, ARIB STD-B67"},
|
|
.Values = {"2", "1", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18"},
|
|
.Init = 0}
|
|
|
|
Property MatrixCoefficients As New OptionParam With {
|
|
.Switch = "--matrix-coefficients",
|
|
.Text = "Matrix Coefficients",
|
|
.Expanded = True,
|
|
.Options = {"Unspecified", "Identity matrix", "BT.709", "US FCC 73.628", "BT.470 System B, G (historical)", "BT.601", "SMPTE 240 M", "YCgCo", "BT.2020 non-constant luminance, BT.2100 YCbCr", "BT.2020 constant luminance", "SMPTE ST 2085 YDzDx", "Chromaticity-derived non-constant luminance", "Chromaticity-derived constant luminance", "BT.2100 ICtCp"},
|
|
.Values = {"2", "0", "1", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14"},
|
|
.Init = 0}
|
|
|
|
Property ColorRange As New OptionParam With {
|
|
.Switch = "--color-range",
|
|
.Text = "Color Range",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Studio (default)", "1: Full"},
|
|
.Init = 0}
|
|
|
|
Property ChromaSamplePosition As New OptionParam With {
|
|
.Switch = "--chroma-sample-position",
|
|
.Text = "Chroma Sample Position",
|
|
.IntegerValue = True,
|
|
.Options = {"0: Unknown (default)", "1: Vertical/Left - horizontally co-located with luma samples, vertical position in the middle between two luma samples", "2: Colocated/Topleft - co-located with luma samples"},
|
|
.Init = 0}
|
|
|
|
Property MasteringDisplay As New StringParam With {
|
|
.Switch = "--mastering-display",
|
|
.Text = "Master Display",
|
|
.InitAction = Sub(tb)
|
|
tb.Edit.TextBox.Multiline = True
|
|
tb.Edit.MultilineHeightFactor = 2.3
|
|
End Sub}
|
|
|
|
Property ContentLightLevel As New StringParam With {
|
|
.Switch = "--content-light",
|
|
.Text = "Content Light Level",
|
|
.ArgsFunc = Function() If(MaxCLL.Value <> 0 OrElse MaxFALL.Value <> 0, """" & MaxCLL.Value & "," & MaxFALL.Value & """", ""),
|
|
.ImportAction = Sub(param, arg)
|
|
If arg = "" Then Exit Sub
|
|
|
|
Dim a = arg.Trim(""""c).Split(","c)
|
|
MaxCLL.Value = a(0).ToInt
|
|
MaxFALL.Value = a(1).ToInt
|
|
End Sub,
|
|
.Init = ""}
|
|
|
|
Property MaxCLL As New NumParam With {
|
|
.Text = "Maximum CLL",
|
|
.Switch = "--content-light",
|
|
.Config = {0, 65535, 50},
|
|
.ArgsFunc = Function() If(MaxCLL.Value <> 0 OrElse MaxFALL.Value <> 0, "--content-light """ & MaxCLL.Value & "," & MaxFALL.Value & """", ""),
|
|
.ImportAction = Sub(param, arg)
|
|
If arg = "" Then Exit Sub
|
|
|
|
Dim a = arg.Trim(""""c).Split(","c)
|
|
MaxCLL.Value = a(0).ToInt
|
|
MaxFALL.Value = a(1).ToInt
|
|
End Sub,
|
|
.Init = 0}
|
|
|
|
Property MaxFALL As New NumParam With {
|
|
.Switches = {"--content-light"},
|
|
.Text = "Maximum FALL",
|
|
.Config = {0, 65535, 50},
|
|
.Init = 0}
|
|
|
|
' --------------------------------------------------------
|
|
' --------------------------------------------------------
|
|
|
|
Property Custom As New StringParam With {
|
|
.Text = "Custom",
|
|
.Quotes = QuotesMode.Never,
|
|
.AlwaysOn = True,
|
|
.InitAction = Sub(tb)
|
|
tb.Edit.MultilineHeightFactor = 6
|
|
tb.Edit.TextBox.Font = FontManager.GetCodeFont()
|
|
End Sub}
|
|
|
|
Property CustomFirstPass As New StringParam With {
|
|
.Text = "Custom" + BR + "First Pass",
|
|
.Quotes = QuotesMode.Never,
|
|
.VisibleFunc = Function() Passes > 1,
|
|
.InitAction = Sub(tb)
|
|
tb.Edit.MultilineHeightFactor = 6
|
|
tb.Edit.TextBox.Font = FontManager.GetCodeFont()
|
|
End Sub}
|
|
|
|
Property CustomSecondPass As New StringParam With {
|
|
.Text = "Custom" + BR + "Second Pass",
|
|
.Quotes = QuotesMode.Never,
|
|
.VisibleFunc = Function() Passes > 1,
|
|
.InitAction = Sub(tb)
|
|
tb.Edit.MultilineHeightFactor = 6
|
|
tb.Edit.TextBox.Font = FontManager.GetCodeFont()
|
|
End Sub}
|
|
|
|
Property CustomThirdPass As New StringParam With {
|
|
.Text = "Custom" + BR + "Third Pass",
|
|
.Quotes = QuotesMode.Never,
|
|
.VisibleFunc = Function() Passes > 2,
|
|
.InitAction = Sub(tb)
|
|
tb.Edit.MultilineHeightFactor = 6
|
|
tb.Edit.TextBox.Font = FontManager.GetCodeFont()
|
|
End Sub}
|
|
|
|
' --------------------------------------------------------
|
|
' --------------------------------------------------------
|
|
|
|
Property DolbyVisionRpuMode As New OptionParam With {
|
|
.HelpSwitch = "",
|
|
.Text = "Dolby Vision RPU Mode",
|
|
.Expanded = True,
|
|
.Options = {DispNameAttribute.GetValueForEnum(DoviMode.Mode0) + " (default)",
|
|
DispNameAttribute.GetValueForEnum(DoviMode.Mode1),
|
|
DispNameAttribute.GetValueForEnum(DoviMode.Mode2),
|
|
DispNameAttribute.GetValueForEnum(DoviMode.Mode3),
|
|
DispNameAttribute.GetValueForEnum(DoviMode.Mode4),
|
|
DispNameAttribute.GetValueForEnum(DoviMode.Mode5)},
|
|
.IntegerValue = True,
|
|
.Init = 0}
|
|
|
|
|
|
Property Hdr10PlusJson As New StringParam With {
|
|
.Switch = "--hdr10plus-json",
|
|
.Text = "HDR10+ JSON",
|
|
.BrowseFile = True}
|
|
|
|
Property DolbyVisionRpu As New StringParam With {
|
|
.Switch = "--dolby-vision-rpu",
|
|
.Text = "Dolby Vision RPU",
|
|
.BrowseFile = True}
|
|
|
|
Property QpScaleCompressStrength As New NumParam With {
|
|
.Switch = "--qp-scale-compress-strength",
|
|
.Text = "QP Scale Compress Strength",
|
|
.Config = {0, 8, 0.01, 2},
|
|
.Init = 1}
|
|
|
|
Property Max32TxSize As New OptionParam With {
|
|
.Switch = "--max-32-tx-size",
|
|
.Text = "Max 32x32px Tx Size",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Off (default)", "1: On"},
|
|
.Init = 0}
|
|
|
|
Property MaxChromaQmLevel As New NumParam With {
|
|
.Switch = "--chroma-qm-max",
|
|
.Text = "Max chroma quant matrix flatness",
|
|
.VisibleFunc = Function() EnableQm.Value,
|
|
.Config = {0, 15, 1},
|
|
.Init = 15}
|
|
|
|
Property MinChromaQmLevel As New NumParam With {
|
|
.Switch = "--chroma-qm-min",
|
|
.Text = "Min chroma quant matrix flatness",
|
|
.Config = {0, 15, 1},
|
|
.VisibleFunc = Function() EnableQm.Value,
|
|
.Init = 8}
|
|
|
|
Property AcBias As New NumParam With {
|
|
.Switch = "--ac-bias",
|
|
.Text = "AC Bias in Rate Distortion",
|
|
.Config = {0, 8, 0.01, 2},
|
|
.Init = 1.0}
|
|
|
|
Property TxBias As New OptionParam With {
|
|
.Switch = "--tx-bias",
|
|
.Text = "Transform size/type bias mode",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Off (default)", "1: Full", "2: Partial (Transform Size Only)", "3: Partial (Interpolation Filter Only)"},
|
|
.Init = 0}
|
|
|
|
Property SharpTx As New OptionParam With {
|
|
.Switch = "--sharp-tx",
|
|
.Text = "Sharp Transform Optimizations",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Off", "1: On (default)"},
|
|
.Init = 1}
|
|
|
|
Property HbdMds As New OptionParam With {
|
|
.Switch = "--hbd-mds",
|
|
.Text = "High Bit Depth Mode Decisions",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Off (default)", "1: Forces 10-bit+ (HBD)", "2: 8/10-bit Hybrid"},
|
|
.Init = 0}
|
|
|
|
Property NoiseAdaptiveFiltering As New OptionParam With {
|
|
.Switch = "--noise-adaptive-filtering",
|
|
.Text = "Noise Adaptive Filtering",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Off", "1: CDEF and Restoration Noise-Adaptive Filtering", "2: Default Tune Behavior (default)", "3: Noise-Adaptive CDEF Only", "4: Noise-Adaptive Restoration Only"},
|
|
.Init = 2}
|
|
|
|
Property ComplexHvs As New OptionParam With {
|
|
.Switch = "--complex-hvs",
|
|
.Text = "Complexity HVS Model",
|
|
.Expanded = True,
|
|
.IntegerValue = True,
|
|
.Options = {"0: Default Behavior (default)", "1: Highest Complexity HVS Model"},
|
|
.Init = 0}
|
|
|
|
' --------------------------------------------------------
|
|
' --------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Overrides ReadOnly Property Items As List(Of CommandLineParam)
|
|
Get
|
|
If ItemsValue Is Nothing Then
|
|
ItemsValue = New List(Of CommandLineParam)
|
|
|
|
Add("Input/Output",
|
|
Decoder, PipingToolAVS, PipingToolVS,
|
|
Progress,
|
|
FramesToBeEncoded, FramesToBeSkipped,
|
|
EncoderColorFormat,
|
|
StatReport,
|
|
Asm, LevelOfParallelism, PinnedExecution, TargetSocket
|
|
)
|
|
Add("Basic",
|
|
Preset, Profile, Level, Tune, FastDecode
|
|
)
|
|
Add("Rate Control",
|
|
RateControlMode, ConstantRateFactor, QuantizationParameter, TargetBitrate, MaximumBitrate, MaxQp, MinQp,
|
|
TemporalFilteringStrength, LuminanceQpBias, Sharpness,
|
|
PassesVBR, PassesCBR,
|
|
AqMode, RecodeLoop,
|
|
EnableQm, QmMax, QmMin
|
|
)
|
|
Add("GOP size/type",
|
|
KeyInt, KeyIntCrf, IntraRefreshRate, SceneChangeDetection, Lookahead, HierarchicalLevels, PredStructure, EnableDg, StartupMgSize
|
|
)
|
|
Add("AV1 Specific 1",
|
|
TileRow, TileCol, LoopFilterEnable,
|
|
CDEFLevel, CDEFScaling, EnableRestoration, EnableTPLModel, Mfmv, EnableTF, EnableOverlays, ScreenContentMode,
|
|
FilmGrain, FilmGrainDenoise, FGSTable
|
|
)
|
|
Add("AV1 Specific 2",
|
|
SuperresMode, SuperresDenom, SuperresKfDenom, SuperresQthres, SuperresKfQthres,
|
|
SframeInterval, SframeMode,
|
|
ResizeMode, ResizeDenom, ResizeKfDenom, ResizeFrameEvents, ResizeFrameDenoms, ResizeFrameKfDenoms,
|
|
Lossless, Avif
|
|
)
|
|
Add("HDR Specific 1",
|
|
Hdr10PlusJson, DolbyVisionRpu, DolbyVisionRpuMode,
|
|
QpScaleCompressStrength, Max32TxSize,
|
|
AltSsimTuning, NoiseNormStrength, AdaptiveFilmGrain, MaxTxSize, KeyframeTemporalFilteringStrength, AltLambdaFactors
|
|
)
|
|
Add("HDR Specific 2",
|
|
MinChromaQmLevel, MaxChromaQmLevel, AcBias, TxBias, SharpTx, HbdMds, NoiseAdaptiveFiltering, ComplexHvs,
|
|
Noise, NoiseChroma, NoiseChromaFromLuma, NoiseSize
|
|
)
|
|
Add("Color Description",
|
|
ColorPrimaries, TransferCharacteristics, MatrixCoefficients, ColorRange, ChromaSamplePosition, MasteringDisplay, MaxCLL, MaxFALL
|
|
)
|
|
Add("Variance Boost Options",
|
|
EnableVarianceBoost, VarianceBoostStrength, VarianceOctile, VarianceBoostCurve
|
|
)
|
|
Add("Custom", Custom, CustomFirstPass, CustomSecondPass, CustomThirdPass)
|
|
Add("Other",
|
|
OverrideTargetFileName, TargetFileName, TargetFileNamePreview,
|
|
New LineParam(),
|
|
Chunks,
|
|
CompCheck, CompCheckAimedQuality
|
|
)
|
|
|
|
'ItemsValue = ItemsValue.OrderBy(Function(i) i.Weight).ToList
|
|
End If
|
|
|
|
Return ItemsValue
|
|
End Get
|
|
End Property
|
|
|
|
Overrides Function GetCommandLinePreview() As String
|
|
Dim ret = GetCommandLine(True, True, 1)
|
|
|
|
If Passes > 1 Then
|
|
ret += BR2 + GetCommandLine(True, True, 2)
|
|
End If
|
|
If Passes > 2 Then
|
|
ret += BR2 + GetCommandLine(True, True, 3)
|
|
End If
|
|
|
|
Return ret
|
|
End Function
|
|
|
|
Public Overrides Sub ShowHelp(options As String())
|
|
ShowConsoleHelp(Package, options)
|
|
End Sub
|
|
|
|
Private BlockValueChanged As Boolean
|
|
|
|
Protected Overrides Sub OnValueChanged(item As CommandLineParam)
|
|
If BlockValueChanged Then Exit Sub
|
|
|
|
If item Is Preset Then
|
|
BlockValueChanged = True
|
|
ApplyPresetValues()
|
|
BlockValueChanged = False
|
|
End If
|
|
|
|
If item IsNot TargetFileName AndAlso item IsNot TargetFileNamePreview Then TargetFileName.TextChangedAction?.Invoke(TargetFileName.Value)
|
|
|
|
MyBase.OnValueChanged(item)
|
|
End Sub
|
|
|
|
Overloads Overrides Function GetCommandLine(
|
|
includePaths As Boolean,
|
|
includeExecutable As Boolean,
|
|
Optional pass As Integer = 1) As String
|
|
|
|
Return GetArgs(pass, 0, 0, Nothing, p.Script, p.VideoEncoder.OutputPath.DirAndBase + p.VideoEncoder.OutputExtFull, includePaths, includeExecutable)
|
|
End Function
|
|
|
|
Overloads Function GetArgs(
|
|
pass As Integer,
|
|
startFrame As Integer,
|
|
endFrame As Integer,
|
|
chunkName As String,
|
|
script As VideoScript,
|
|
targetPath As String,
|
|
includePaths As Boolean,
|
|
includeExecutable As Boolean) As String
|
|
|
|
ApplyPresetDefaultValues()
|
|
|
|
Dim sb As New StringBuilder
|
|
Dim pipeTool = If(p.Script.IsAviSynth, PipingToolAVS, PipingToolVS).ValueText.ToLowerInvariant()
|
|
Dim isSingleChunk = endFrame = 0
|
|
Dim statsPath = (p.VideoEncoder.OutputPath.DirAndBase + chunkName + "_2pass.log").Escape
|
|
|
|
If includePaths AndAlso includeExecutable Then
|
|
Dim isCropped = (p.CropLeft Or p.CropTop Or p.CropRight Or p.CropBottom) <> 0 AndAlso Decoder.ValueText <> "avs" AndAlso p.Script.IsFilterActive("Crop")
|
|
Dim pipeString = ""
|
|
|
|
Select Case Decoder.ValueText.ToLowerInvariant()
|
|
Case "script"
|
|
'Broken ANSI fallback taken from x265
|
|
If pipeTool = "automatic" OrElse (p.Script.IsAviSynth AndAlso Not TextEncoding.IsProcessUTF8 AndAlso Not TextEncoding.ArePathsSupportedByASCIIEncoding) Then
|
|
pipeTool = If(p.Script.IsAviSynth, "avs2pipemod", "vspipe")
|
|
End If
|
|
|
|
Select Case pipeTool
|
|
Case "avs2pipemod"
|
|
Dim chunk = If(isSingleChunk, "", $" -trim={startFrame},{endFrame}")
|
|
Dim dll = If(FrameServerHelp.IsPortable, $" -dll={Package.AviSynth.Path.Escape}", "")
|
|
pipeString = Package.avs2pipemod.Path.Escape + dll + chunk + " -y4mp " + script.Path.Escape
|
|
|
|
sb.Append(pipeString & " | " & Package.Path.Escape)
|
|
Case "vspipe"
|
|
Dim chunk = If(isSingleChunk, "", $" --start {startFrame} --end {endFrame}")
|
|
pipeString = Package.vspipe.Path.Escape + " " + script.Path.Escape + " - --container y4m" + chunk
|
|
|
|
sb.Append(pipeString & " | " & Package.Path.Escape)
|
|
Case "ffmpeg"
|
|
pipeString = Package.ffmpeg.Path.Escape + If(p.Script.IsVapourSynth, " -f vapoursynth", "") + " -i " + script.Path.Escape + " -f yuv4mpegpipe -strict -1 -loglevel fatal -hide_banner -"
|
|
|
|
sb.Append(pipeString & " | " & Package.Path.Escape)
|
|
End Select
|
|
Case "qs"
|
|
Dim crop = If(isCropped, " --crop " & p.CropLeft & "," & p.CropTop & "," & p.CropRight & "," & p.CropBottom, "")
|
|
pipeString = Package.QSVEncC.Path.Escape + " -o - -c raw" + crop + " -i " + p.SourceFile.Escape
|
|
|
|
sb.Append(pipeString & " | " & Package.Path.Escape)
|
|
Case "ffqsv"
|
|
Dim crop = If(isCropped, $" -vf ""crop={p.SourceWidth - p.CropLeft - p.CropRight}:{p.SourceHeight - p.CropTop - p.CropBottom}:{p.CropLeft}:{p.CropTop}""", "")
|
|
Dim pix_fmt = If(p.SourceVideoBitDepth = 10 OrElse script.Info.BitDepth >= 10, "yuv420p10le", "yuv420p")
|
|
pipeString = Package.ffmpeg.Path.Escape + " -threads 1 -hwaccel qsv -i " + p.SourceFile.Escape + " -f yuv4mpegpipe -pix_fmt " + pix_fmt + " -strict -1" + crop + " -loglevel fatal -hide_banner -"
|
|
|
|
sb.Append(pipeString & " | " & Package.Path.Escape)
|
|
Case "ffdxva"
|
|
Dim crop = If(isCropped, $" -vf ""crop={p.SourceWidth - p.CropLeft - p.CropRight}:{p.SourceHeight - p.CropTop - p.CropBottom}:{p.CropLeft}:{p.CropTop}""", "")
|
|
Dim pix_fmt = If(p.SourceVideoBitDepth = 10 OrElse script.Info.BitDepth >= 10, "yuv420p10le", "yuv420p")
|
|
pipeString = Package.ffmpeg.Path.Escape + " -threads 1 -hwaccel dxva2 -i " + p.SourceFile.Escape + " -f yuv4mpegpipe -pix_fmt " + pix_fmt + " -strict -1" + crop + " -loglevel fatal -hide_banner -"
|
|
|
|
sb.Append(pipeString & " | " & Package.Path.Escape)
|
|
End Select
|
|
End If
|
|
|
|
If includePaths Then
|
|
Dim input = If(Decoder.Value = 0 AndAlso pipeTool = "automatic", script.Path.LongPathPrefix.Escape, "-")
|
|
|
|
sb.Append($" --input {input}")
|
|
sb.Append($" --output {(targetPath.DirAndBase + chunkName + targetPath.ExtFull).LongPathPrefix.Escape}")
|
|
If Decoder.Value = 0 Then sb.Append($" --width {p.Script.Info.Width} --height {p.Script.Info.Height}")
|
|
End If
|
|
|
|
If isSingleChunk Then
|
|
If FramesToBeSkipped.Value > 0 AndAlso Not IsCustom(pass, "--skip") Then
|
|
sb.Append($" --skip {FramesToBeSkipped.Value}")
|
|
End If
|
|
|
|
If Not IsCustom(pass, "--frames") Then
|
|
Dim n = If(FramesToBeEncoded.Value > 0,
|
|
Math.Min(p.TargetFrames - FramesToBeSkipped.Value, FramesToBeEncoded.Value),
|
|
Math.Max(p.TargetFrames - FramesToBeSkipped.Value + FramesToBeEncoded.Value, 0))
|
|
|
|
sb.Append($" --frames {n}")
|
|
End If
|
|
Else
|
|
sb.Append($" --frames {endFrame - startFrame + 1}")
|
|
End If
|
|
|
|
If Passes > 1 Then
|
|
sb.Append(" --pass " & pass)
|
|
If includePaths Then
|
|
sb.Append(" --stats " + statsPath)
|
|
End If
|
|
|
|
If pass = 1 Then
|
|
If CustomFirstPass.Value <> "" Then
|
|
sb.Append(" " + CustomFirstPass.Value)
|
|
End If
|
|
ElseIf pass = 2 Then
|
|
|
|
If CustomSecondPass.Value <> "" Then
|
|
sb.Append(" " + CustomSecondPass.Value)
|
|
End If
|
|
Else
|
|
If CustomThirdPass.Value <> "" Then
|
|
sb.Append(" " + CustomThirdPass.Value)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'If includePaths AndAlso (MultiPassOptDistortion.Value OrElse MultiPassOptAnalysis.Value) Then
|
|
' sb.Append(" --analysis-reuse-file " + (targetPath.DirAndBase + chunkName + ".analysis").Escape)
|
|
'End If
|
|
|
|
If Not IsCustom(pass, "--rc") Then
|
|
sb.Append($" --rc {RateControlMode.Value}")
|
|
End If
|
|
|
|
If RateControlMode.Value = SvtAv1EncAppRateMode.Quality Then
|
|
If ConstantRateFactor.Visible Then
|
|
If Not IsCustom(pass, "--crf") AndAlso Not ConstantRateFactor.IsDefaultValue Then
|
|
sb.Append(" --crf " + ConstantRateFactor.Value.ToString("0.##", CultureInfo.InvariantCulture))
|
|
End If
|
|
ElseIf QuantizationParameter.Visible Then
|
|
If Not IsCustom(pass, "--qp") AndAlso Not QuantizationParameter.IsDefaultValue Then
|
|
sb.Append(" --qp " + QuantizationParameter.Value.ToString("0.##", CultureInfo.InvariantCulture))
|
|
End If
|
|
End If
|
|
Else
|
|
If Not IsCustom(pass, "--tbr") Then
|
|
sb.Append(" --tbr " & If(pass = 1, TargetBitrate.Value, p.VideoBitrate))
|
|
End If
|
|
End If
|
|
|
|
Dim q = From i In Items Where i.GetArgs <> "" AndAlso Not IsCustom(pass, i.GetSwitches())
|
|
|
|
If q.Count > 0 Then
|
|
sb.Append(" " + q.Select(Function(item) item.GetArgs).Join(" "))
|
|
End If
|
|
|
|
Return Macro.Expand(sb.ToString.Trim.FixBreak.Replace(BR, " "))
|
|
End Function
|
|
|
|
Function IsCustom(pass As Integer, switches As String()) As Boolean
|
|
If switches Is Nothing Then Return False
|
|
|
|
Return switches.Any(Function(switch) IsCustom(pass, switch))
|
|
End Function
|
|
|
|
Function IsCustom(pass As Integer, switch As String) As Boolean
|
|
If switch = "" Then Return False
|
|
|
|
If Passes > 1 Then
|
|
If pass = 1 Then
|
|
If CustomFirstPass.Value?.Contains(switch + " ") OrElse CustomFirstPass.Value?.EndsWith(switch) Then
|
|
Return True
|
|
End If
|
|
ElseIf pass = 2 Then
|
|
If CustomSecondPass.Value?.Contains(switch + " ") OrElse CustomSecondPass.Value?.EndsWith(switch) Then
|
|
Return True
|
|
End If
|
|
Else
|
|
If CustomThirdPass.Value?.Contains(switch + " ") OrElse CustomThirdPass.Value?.EndsWith(switch) Then
|
|
Return True
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Return If(Custom.Value?.Contains(switch + " ") OrElse Custom.Value?.EndsWith(switch), False)
|
|
End Function
|
|
|
|
Sub ApplyPresetValues()
|
|
End Sub
|
|
|
|
Sub ApplyPresetDefaultValues()
|
|
End Sub
|
|
End Class
|
|
|