#
# AviSynth script that converts the test pic into a short video
#
# 
# (C) Udo Richter udo_richter(a)gmx.de. Released under GPL.
#

source="testpic.png"
frames=500



Function NumberFrame(clip v) {
  top=128
  height=32
  left=398

  v1=v.Crop(0,0,0,top)
  v21=v.Crop(0,top,left,height)
  v22=v.Crop(left,top,0,height)
  v3=v.Crop(0,top+height,0,0)

  return StackVertical(v1,StackHorizontal(v21.ShowFrameNumber(),v22),v3)
}

video=ImageSource(source,1,1,25).Loop(frames)
audio=BlankClip(video,stereo=true,audio_rate=48000)
AudioDub(video,audio)
NumberFrame()
ConvertToYV12()