Fix multiple video filters not applying

This commit is contained in:
Ditin2 Mk 3
2025-12-23 02:36:57 +01:00
parent 125deac2cc
commit 4d1ae63689
3 changed files with 21 additions and 7 deletions

1
.gitignore vendored Normal file
View File

@@ -0,0 +1 @@
*.exe

View File

@@ -386,6 +386,7 @@ Procedure.s BuildFFmpegArgs()
Debug("Running") Debug("Running")
filters$ = "" filters$ = ""
preset$= "" preset$= ""
NewList VidFilters.s()
videofilter$ = "" videofilter$ = ""
start$ = "" start$ = ""
duration$ = "" duration$ = ""
@@ -423,13 +424,25 @@ Procedure.s BuildFFmpegArgs()
Debug(height) Debug(height)
Debug(width) Debug(width)
If height <> -1 Or width <> -1 If height <> -1 Or width <> -1
videofilter$ + "-vf scale=" + Str(width) + ":" + Str(height) + " " AddElement(VidFilters())
VidFilters() = "scale=" + Str(width) + ":" + Str(height)
EndIf EndIf
; ----------------- FPS Changing ----------------- ; ----------------- FPS Changing -----------------
fps = GetGadgetState(fps_spin) fps = GetGadgetState(fps_spin)
If fps <> -1 If fps <> -1
videofilter$ + "-vf fps=" + Str(fps) + " " AddElement(VidFilters())
VidFilters() = "fps=" + Str(fps)
EndIf
; ----------------- Actually construct the video filter arg -----------------
If ListSize(VidFilters()) > 0
videofilter$ = ~"-vf \""
ForEach VidFilters()
videofilter$ + VidFilters()
videofilter$ + ","
Next
videofilter$ = Left(videofilter$, Len(videofilter$) - 1) + ~"\" "
EndIf EndIf
; ----------------- Cutting ----------------- ; ----------------- Cutting -----------------
@@ -1004,8 +1017,8 @@ Repeat
Until Event = #PB_Event_CloseWindow ; Quit on any window close Until Event = #PB_Event_CloseWindow ; Quit on any window close
; IDE Options = PureBasic 6.20 (Windows - x64) ; IDE Options = PureBasic 6.20 (Windows - x64)
; CursorPosition = 583 ; CursorPosition = 427
; FirstLine = 459 ; FirstLine = 302
; Folding = Beug0 ; Folding = Beug0
; EnableXP ; EnableXP
; DPIAware ; DPIAware

View File

@@ -7,16 +7,16 @@
<section name="data"> <section name="data">
<explorer view="C:\ProgramData\PureBasic\Examples\" pattern="0"/> <explorer view="C:\ProgramData\PureBasic\Examples\" pattern="0"/>
<log show="1"/> <log show="1"/>
<lastopen date="2025-08-25 04:09" user="Ditin2" host="DESKTOP-SVLCQ1M"/> <lastopen date="2025-12-23 02:34" user="Ditin2" host="CYBERMOON"/>
</section> </section>
<section name="files"> <section name="files">
<file name="ReencodeFfmpeg.pb"> <file name="ReencodeFfmpeg.pb">
<config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="1" panelstate="+"/> <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="1" panelstate="+"/>
<fingerprint md5="1fa3f228c0e6c011340692c696988d4c"/> <fingerprint md5="42d491fd636dd6980f63cca2d21f003f"/>
</file> </file>
<file name="ReencodeFfmpeg.pbf"> <file name="ReencodeFfmpeg.pbf">
<config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="2" panelstate="+"/> <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="2" panelstate="+"/>
<fingerprint md5="ebad0270ebae5f891d9bd2175c6b8867"/> <fingerprint md5="7bf11a765ba7dd33e2261dcde65fe698"/>
</file> </file>
</section> </section>
<section name="targets"> <section name="targets">