[RS]MTF Candle Progression V0

//@version=2
study(title='[RS]MTF Candle Progression V0', shorttitle='CP', overlay=true)
tf = input('60')
isnewbar = change(time(tf)) != 0
tf_high = na(tf_high[1]) ? high : isnewbar ? high : high >= tf_high[1] ? high : tf_high[1]
tf_low = na(tf_low[1]) ? low : isnewbar ? low : low <= tf_low[1] ? low : tf_low[1]
tf_open = na(tf_open[1]) ? open : isnewbar ? open : tf_open[1]

plotcandle(tf_open, tf_high, tf_low, close, color=close > tf_open ? lime : close < tf_open ? red : silver)
bgcolor(isnewbar ? silver : na, transp=0)