myFFInfo

function myFFInfo(clip c, string "bonusText", bool "cfrtime", bool "vfrtime") {

varprefix = FFVAR_PREFIX
cfrtime     = default(cfrtime,true)
vfrtime     = default(vfrtime,false)
bonusText = default(bonusText, "")

c.frameevaluate("""
       fftempstring = ""
       varprefix = """" + varprefix + """"
       bonusText = """" + bonusText + """"""")

frameevaluate("""fftempstring = fftempstring + "Frame Number: " + string(current_frame) + " of " + string(framecount()) + "\n" """, after_frame=true)
frameevaluate("""fftempstring = fftempstring + "Picture Type: " + chr(eval(varprefix + "FFPICT_TYPE")) + "\n" """, after_frame=true)
cfrtime    ? frameevaluate("""fftempstring = fftempstring + "CFR Time: " + FFFormatTime(round((current_frame * 1000) / framerate())) + "\n" """, after_frame=true) : nop()
vfrtime    ? frameevaluate("""fftempstring = fftempstring + "VFR Time: " + FFFormatTime(eval(varprefix + "FFVFR_TIME")) + "\n" """, after_frame=true) : nop()
frameevaluate("""fftempstring = fftempstring + bonusText """, after_frame=true)

return scriptclip("subtitle(fftempstring, lsp = 1)", after_frame=true)

}