myffinfo

function myFFInfo(clip c, string "bonusText", int "text_color", int "halo_color") {

varprefix = FFVAR_PREFIX
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)
frameevaluate("""fftempstring = fftempstring + bonusText """, after_frame=true)

#check whether text_color and halo_color are defined in parameter list
    text_color_string= (Defined(text_color)) ? "text_color="+string(text_color)+"," : ""
    halo_color_string= (Defined(halo_color)) ? "halo_color="+string(halo_color)+"," : ""

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

}