VirtualDub/AVIsynth to repeat 5 videos until the end of 6th in 6 window PIP

[tat2jr1]

I've got a six window PIP using a AVS script. It's six 4x3 windows in a single 1080p video. I want 5 of the videos to repeat from their beginnings until the end of the longest video (the 6th video). What do I add to my script?:

A=AviSource("P:\1.avi",Audio=False).Lanczos4Resize (640,480)
B=AviSource("P:\2.avi",Audio=False).Lanczos4Resize (640,480)
C=AviSource("P:\3.avi",Audio=False).Lanczos4Resize (640,480)
D=AviSource("P:\4.avi",Audio=False).Lanczos4Resize (640,480)
E=AviSource("P:\5.avi",Audio=False).Lanczos4Resize (640,480)
F=AviSource("P:\6.avi",Audio=False).Lanczos4Resize (640,480)
G=StackHorizontal(A,B,C)
H=StackHorizontal(D,E,F)
StackVertical(G,H)
AddBorders(0, 30, 0, 30)


Thanks in advance!

[ricardouk]

Edit your sources to match the length of the longest video.

You can use virtualdub to edit the videos without losing any quality.

ex: clip6 is 3m30s, clip 1 is 60s

open virtualdub, open clip 1 and then press FILE>>>APPEND AVI to load clip1 3 more times, at the end you should have a 4minute clip opened in virtualdub, delete video from 3m30s to 4m00s, export your video and audio in "direct stream mode" to avoid reencoding the video.

do the same tfor the other videos

Hope it helps

[jagabo]

What do I add to my script?

One way:

A=AviSource("P:\1.avi",Audio=False).Lanczos4Resize(640,480)
B=AviSource("P:\2.avi",Audio=False).Lanczos4Resize(640,480)
C=AviSource("P:\3.avi",Audio=False).Lanczos4Resize(640,480)
D=AviSource("P:\4.avi",Audio=False).Lanczos4Resize(640,480)
E=AviSource("P:\5.avi",Audio=False).Lanczos4Resize(640,480)
F=AviSource("P:\6.avi",Audio=False).Lanczos4Resize(640,480)

A=A++A++A... as many times as needed
B=B++B++B... as many times as needed
C=C++C++C... as many times as needed
D=D++D++D... as many times as needed
E=E++E++E... as many times as needed

G=StackHorizontal(A,B,C)
H=StackHorizontal(D,E,F)
StackVertical(G,H)
AddBorders(0, 30, 0, 30)

Trim(0, F.FrameCount-1)