budinst
24th March 2009, 14:58
How to make AVS script to combining parts of a film mpg2 and and uncompresed RGB24 slides (RGB24)?.
movie one (mpg2):
#START AVS script
LoadPlugin("C:\Program Files\GordianKnot\DGMPGDec\DGDecode.dll")
LoadVirtualDubPlugin("E:\instalki_\VirtualDub-1.7.1\plugins\logo17b2\Logo.vdf", "Logo", 0)
LoadPlugin("C:\PROGRA~1\GORDIA~1\AviSynthPlugins\decomb.dll")
LoadPlugin("C:\PROGRA~1\GORDIA~1\AviSynthPlugins\UnDot.dll")
a=MPEG2Source("G:\jkm_23_03_2009.d2v").LanczosResize(1280,720).FieldDeinterlace(blend=false).Undot() # Lanczos (Sharp)
audio1 = WAVSource("G:\jkm_23_03_2009_1.wav")
audio2 =WAVSource("G:\jkm_23_03_2009_2.wav")
stereo1 = MergeChannels(audio1,audio2) # STEREO!
AudioDub(a, stereo1)
Trim(50,6521,false)
FadeIn(30)
#Dissove clips, add subtitle
clip1=Trim(0, 110)
clip2=Trim(61, 250).Subtitle("23 marca 2009", font="Verdana", size=32, text_color=$FFE87C, x=120, y=650)
clip3=Trim(201, 999999999)
Dissolve(clip1, clip2, clip3, 50)
FadeOut(60)
and movie Nr 2 (dissolved photo) :
b=imagesource("G:\PLANSZE\hdtv-apel01.jpg")
b=Trim(b,1,135)
c=imagesource("G:\PLANSZE\hdtv-apel02.jpg")
c=Trim(c,1,135)
d=imagesource("G:\PLANSZE\hdtv-apel03.jpg")
d=Trim(d,1,135)
e=imagesource("G:\PLANSZE\hdtv-apel04.jpg")
e=Trim(e,1,135)
f=imagesource("G:\PLANSZE\hdtv-apel05.jpg")
f=Trim(f,1,135)
clip= Dissolve( b, c, d, e ,f , 30)
clip = ChangeFPS(clip, 25)
audio3 = WAVSource("G:\jkm_24_03_2009_1.wav")
audio4 = WAVSource("G:\jkm_24_03_2009_1.wav")
stereo2 = MergeChannels(audio3,audio4) # STEREO!
clip=AudioDub(clip, stereo2)
return clip.FadeIn(10).FadeOut(30)
movie one (mpg2):
#START AVS script
LoadPlugin("C:\Program Files\GordianKnot\DGMPGDec\DGDecode.dll")
LoadVirtualDubPlugin("E:\instalki_\VirtualDub-1.7.1\plugins\logo17b2\Logo.vdf", "Logo", 0)
LoadPlugin("C:\PROGRA~1\GORDIA~1\AviSynthPlugins\decomb.dll")
LoadPlugin("C:\PROGRA~1\GORDIA~1\AviSynthPlugins\UnDot.dll")
a=MPEG2Source("G:\jkm_23_03_2009.d2v").LanczosResize(1280,720).FieldDeinterlace(blend=false).Undot() # Lanczos (Sharp)
audio1 = WAVSource("G:\jkm_23_03_2009_1.wav")
audio2 =WAVSource("G:\jkm_23_03_2009_2.wav")
stereo1 = MergeChannels(audio1,audio2) # STEREO!
AudioDub(a, stereo1)
Trim(50,6521,false)
FadeIn(30)
#Dissove clips, add subtitle
clip1=Trim(0, 110)
clip2=Trim(61, 250).Subtitle("23 marca 2009", font="Verdana", size=32, text_color=$FFE87C, x=120, y=650)
clip3=Trim(201, 999999999)
Dissolve(clip1, clip2, clip3, 50)
FadeOut(60)
and movie Nr 2 (dissolved photo) :
b=imagesource("G:\PLANSZE\hdtv-apel01.jpg")
b=Trim(b,1,135)
c=imagesource("G:\PLANSZE\hdtv-apel02.jpg")
c=Trim(c,1,135)
d=imagesource("G:\PLANSZE\hdtv-apel03.jpg")
d=Trim(d,1,135)
e=imagesource("G:\PLANSZE\hdtv-apel04.jpg")
e=Trim(e,1,135)
f=imagesource("G:\PLANSZE\hdtv-apel05.jpg")
f=Trim(f,1,135)
clip= Dissolve( b, c, d, e ,f , 30)
clip = ChangeFPS(clip, 25)
audio3 = WAVSource("G:\jkm_24_03_2009_1.wav")
audio4 = WAVSource("G:\jkm_24_03_2009_1.wav")
stereo2 = MergeChannels(audio3,audio4) # STEREO!
clip=AudioDub(clip, stereo2)
return clip.FadeIn(10).FadeOut(30)