## Written by djcj
## Last change: June 11th 2012 19:00 CET

function timer(clip last, string "mode", int "color", float "size", int "x", int "y") {
mode = Default(mode, "hmmss")
global color = Default(color, $ffffff)
global size = size
global x = x
global y = y

/*
mode =

hmmss: 0:04:17
mmss: 04:17
mss: 4:17

mssms1: 4:17.3
mssms2: 4:17.37
mssms3: 4:17.375
mssms: 4:17.375

mmssms1: 04:17.3
mmssms2: 04:17.37
mmssms3: 04:17.375
mmssms: 04:17.375

hmmssms1: 0:04:17.3
hmmssms2: 0:04:17.37
hmmssms3: 0:04:17.375
hmmssms: 0:04:17.375
*/

# h:mm:ss
hmmss = ScriptClip("""
fs = current_frame/framerate
h = string(floor((fs/60)*60)/3600, "%1.0f")
mm = string(floor(fs/60)-floor(fs/3600)*60, "%02.0f")
ss = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 2)
subtitle(h+":"+mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# mm:ss
mmss = ScriptClip("""
fs = current_frame/framerate
mm = string(floor(fs/60)-floor(fs/3600)*60, "%02.0f")
ss = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 2)
subtitle(mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# m:ss
mss = ScriptClip("""
fs = current_frame/framerate
mm = string(floor(fs/60)-floor(fs/3600)*60, "%01.0f")
ss = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 2)
subtitle(mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# m:ss:ms1
mssms1 = ScriptClip("""
fs = current_frame/framerate
mm = string(floor(fs/60)-floor(fs/3600)*60, "%01.0f")
ss = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 4)
subtitle(mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# m:ss:ms2
mssms2 = ScriptClip("""
fs = current_frame/framerate
mm = string(floor(fs/60)-floor(fs/3600)*60, "%01.0f")
ss = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 5)
subtitle(mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# m:ss:ms3
mssms3 = ScriptClip("""
fs = current_frame/framerate
mm = string(floor(fs/60)-floor(fs/3600)*60, "%01.0f")
ss = string(fs-floor(fs/60)*60, "%06.3f")
subtitle(mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# mm:ss:ms1
mmssms1 = ScriptClip("""
fs = current_frame/framerate
mm = string(floor(fs/60)-floor(fs/3600)*60, "%02.0f")
ss = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 4)
subtitle(mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# mm:ss:ms2
mmssms2 = ScriptClip("""
fs = current_frame/framerate
mm = string(floor(fs/60)-floor(fs/3600)*60, "%02.0f")
ss = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 5)
subtitle(mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# mm:ss:ms3
mmssms3 = ScriptClip("""
fs = current_frame/framerate
mm = string(floor(fs/60)-floor(fs/3600)*60, "%02.0f")
ss = string(fs-floor(fs/60)*60, "%06.3f")
subtitle(mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# h:mm:ss:ms1
hmmssms1 = ScriptClip("""
fs = current_frame/framerate
h = string(floor((fs/60)*60)/3600, "%1.0f")
mm = string(floor(fs/60)-floor(fs/3600)*60, "%02.0f")
ss = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 4)
subtitle(h+":"+mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# h:mm:ss:ms2
hmmssms2 = ScriptClip("""
fs = current_frame/framerate
h = string(floor((fs/60)*60)/3600, "%1.0f")
mm = string(floor(fs/60)-floor(fs/3600)*60, "%02.0f")
ss = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 5)
subtitle(h+":"+mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")

# h:mm:ss:ms3
hmmssms3 = ScriptClip("""
fs = current_frame/framerate
h = string(floor((fs/60)*60)/3600, "%1.0f")
mm = string(floor(fs/60)-floor(fs/3600)*60, "%02.0f")
ss = string(fs-floor(fs/60)*60, "%06.3f")
subtitle(h+":"+mm+":"+ss, text_color=color, size=size, x=x, y=y)
""")


(mode=="hmmss") ? Eval("""
    return hmmss
""") : \
(mode=="mmss") ? Eval("""
    return mmss
""") : \
(mode=="mss") ? Eval("""
    return mss
""") : \
(mode=="mssms1") ? Eval("""
    return mssms1
""") : \
(mode=="mssms2") ? Eval("""
    return mssms2
""") : \
(mode=="mssms3") ? Eval("""
    return mssms3
""") : \
(mode=="mssms") ? Eval("""
    return mssms3
""") : \
(mode=="mmssms1") ? Eval("""
    return mmssms1
""") : \
(mode=="mmssms2") ? Eval("""
    return mmssms2
""") : \
(mode=="mmssms3") ? Eval("""
    return mmssms3
""") : \
(mode=="mmssms") ? Eval("""
    return mmssms3
""") : \
(mode=="hmmssms1") ? Eval("""
    return hmmssms1
""") : \
(mode=="hmmssms2") ? Eval("""
    return hmmssms2
""") : \
(mode=="hmmssms3") ? Eval("""
    return hmmssms3
""") : \
(mode=="hmmssms") ? Eval("""
    return hmmssms3
""") \
    : Eval("""
    return hmmss
""")
}


function timer_cut(clip last, string "mode", int "start", int "end", bool "keep_showing", int "color",\
                    float "size", int "x", int "y") {
mode = Default(mode, "hmmss")
color = Default(color, $ffffff)
keep_showing = Default(keep_showing, false)
a = last


(IsInt(start)==false || IsInt(end)==false) ? Eval("""
    start = round(a.framecount/3)
    end = 2*round(a.framecount/3)
    FontSize = round(a.width * 0.05)
    a = a.subtitle("No value set for parameter START and/or END!", align=2, size=FontSize)
""") : Eval("""
    start = start
    end = end
""")


# Shows the timer between frame START and frame END.
keep0 = a.trim(0,start-1)++\
a.trim(start,end).timer(mode=mode, color=color, size=size, x=x, y=y)++\
a.trim(end+1,0)


# Shows the timer during the whole video.
# It starts at frame START and freezes at frame END.
fs = (end-start)/(a.framerate)
t_h = string(floor((fs/60)*60)/3600, "%1.0f")
t_m = string(floor(fs/60)-floor(fs/3600)*60, "%01.0f")
t_mm = string(floor(fs/60)-floor(fs/3600)*60, "%02.0f")
t_ss = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 2)
t_ssms1 = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 4)
t_ssms2 = LeftStr(string(fs-floor(fs/60)*60, "%06.3f"), 5)
t_ssms3 = string(fs-floor(fs/60)*60, "%06.3f")


(mode=="hmmss") ? Eval("""
    zero = "0:00:00"
    time = t_h+":"+t_mm+":"+t_ss
""") : \
(mode=="mmss") ? Eval("""
    zero = "00:00"
    time = t_mm+":"+t_ss
""") : \
(mode=="mss") ? Eval("""
    zero = "0:00"
    time = t_m+":"+t_ss
""") : \
(mode=="mssms1") ? Eval("""
    zero = "0:00.0"
    time = t_m+":"+t_ssms1
""") : \
(mode=="mssms2") ? Eval("""
    zero = "0:00.00"
    time = t_m+":"+t_ssms2
""") : \
(mode=="mssms3") ? Eval("""
    zero = "0:00.000"
    time = t_m+":"+t_ssms3
""") : \
(mode=="mssms") ? Eval("""
    zero = "0:00.000"
    time = t_m+":"+t_ssms3
""") : \
(mode=="mmssms1") ? Eval("""
    zero = "00:00.0"
    time = t_mm+":"+t_ssms1
""") : \
(mode=="mmssms2") ? Eval("""
    zero = "00:00.00"
    time = t_mm+":"+t_ssms2
""") : \
(mode=="mmssms3") ? Eval("""
    zero = "00:00.000"
    time = t_mm+":"+t_ssms3
""") : \
(mode=="mmssms") ? Eval("""
    zero = "00:00.000"
    time = t_mm+":"+t_ssms3
""") : \
(mode=="hmmssms1") ? Eval("""
    zero = "0:00:00.0"
    time = t_h+":"+t_mm+":"+t_ssms1
""") : \
(mode=="hmmssms2") ? Eval("""
    zero = "0:00:00.00"
    time = t_h+":"+t_mm+":"+t_ssms2
""") : \
(mode=="hmmssms3") ? Eval("""
    zero = "0:00:00.000"
    time = t_h+":"+t_mm+":"+t_ssms3
""") : \
(mode=="hmmssms") ? Eval("""
    zero = "0:00:00.000"
    time = t_h+":"+t_mm+":"+t_ssms3
""") \
    : Eval("""
    zero = "0:00:00"
    time = t_h+":"+t_mm+":"+t_ss
""")


keep1 = a.trim(0,start-1).subtitle(zero, text_color=color, size=size, x=x, y=y)++\
a.trim(start,end).timer(mode=mode, color=color, size=size, x=x, y=y)++\
a.trim(end+1,0).subtitle(time, text_color=color, size=size, x=x, y=y)


clip = (keep_showing==true) ? keep1 : keep0
return clip
}