Movie Screenshot, thumbnails creator with avisynth from selected frame type

[siella]

Needed:

• Avsmeter
• ffmpegsource2 Plugin

###-----Selection Start----###
video ="c:\test.avi"  #source path
path = "c:\screen" #save image path
thumb = "no" # yes or no
wr = "yes" # yes or no
frame = "BP" # I , P ,B or BP
img = "png" # png, jpg, bmp, etc.
indx = true # creat index file (true or false)
###----Selection end-------###
FFVideoSource(video,cache = indx)
ConvertToRGB32()
AssumeFrameBased()
FrameEvaluate("""asd= string(current_frame)""",after_frame=true)
type = (frame == "BP") ?  "B" : frame
type2 =  (frame == "BP") ?  "P" : nop()
wr == "yes" ? ScriptClip("""Subtitle("Frame Number:"+asd, align=7, size=20)""",after_frame=true) :nop()
ar = Float(width())/Float(height())
y = Round(300/ar)
type == "I" ? SelectRangeEvery(1000,20): SelectEvery(700, 1)
thumb == "yes" ? BicubicResize(300,y) : nop()
vid  = Last
vid2 =  ScriptClip( """(wr == "yes") ? Last.Subtitle("Frame Type:"+type, align=9, size=20)
\.ImageWriter(path+asd+"-",type=img,info = true) : ImageWriter(path+ asd +"-",type=img,info = true)""",after_frame=true)
vid3 =  ScriptClip( """(wr == "yes") ? Last.Subtitle("Frame Type:"+type2, align=9, size=20)
\.ImageWriter(path+asd+"-",type=img,info = true) : ImageWriter(path+ asd +"-",type=img,info = true)""",after_frame=true)
return frame == "BP" ? ScriptClip("""chr(FFPICT_TYPE) == type ? vid2 : chr(FFPICT_TYPE) == type2 ? vid3 : vid""", after_frame=true):
\ScriptClip("""chr(FFPICT_TYPE) == type ? vid2 : vid""", after_frame=true)