Fix multiple video filters not applying

ReencodeFfmpeg.pb

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