[RS]Session HL V0

study("[RS]Session HL V0", overlay=true)
session_time = input('0000-0800' )
newsession(res, sess)=>change(time(res,sess))!=0
timeinrange(res, sess)=>not na (time(res, sess))
p_hh = nz(hh[1])
p_ll = nz(ll[1])
hh = newsession('1', session_time)? open : timeinrange('1', session_time) ? p_hh : high >= p_hh ? high : p_hh
ll = newsession('1', session_time)? open : timeinrange('1', session_time) ? p_ll : low <= p_ll ? low : p_ll
h1 = plot(hh, title='hh', color=hh!=hh[1]?na:black)
h2 = plot(ll, title='ll', color=ll!=ll[1]?na:black)
fill(h1, h2, title='fill', color=gray, transp=75)