Winnyで娘。を共有しよう！in 羊 Part4

4. 下記のavisynthスクリプトをコピペし、拡張子.avsで保存。
　 必要なプラグインを予め用意しておく。パスは任意で

########################################################
PluginDir = "D:\Tool\AviSynth2\plugins\"
LoadPlugin(PluginDir + "mpeg2dec2.dll")
LoadPlugin(PluginDir + "AddRange.dll")
LoadPlugin(PluginDir + "lanczos3.vdf")
LoadPlugin(PluginDir + "Warpsharp.dll")

MPEG2Source("G:\a.d2v")
#AddRange("G:\a.vcf")
SeparateFields()
top = SelectEven
bottom = SelectOdd
top = top.PointResize(1920,1088)#横1440の場合は(1440,1088)
top = top.Crop(0,0,1920,1079)
bottom = bottom.PointResize(1920,1088)#横1440の場合は(1440,1088)
bottom = bottom.Crop(0,1,1920,1079)
top = top.Lanczos3Resize(704,240)#スクイーズにする場合
bottom = bottom.Lanczos3Resize(704,240)#スクイーズにする場合
top = top.AddBorders(8,0,8,0)#スクイーズにする場合
bottom = bottom.AddBorders(8,0,8,0)#スクイーズにする場合
#top = top.Lanczos3Resize(704,180)#レターボックスにする場合
#bottom = bottom.Lanczos3Resize(704,180)#レターボックスにする場合
#top = top.AddBorders(8,30,8,30)#レターボックスにする場合
#bottom = bottom.AddBorders(8,30,8,30)#レターボックスにする場合
Interleave(top,bottom).Weave()

return last
########################################################