TV_Levels

study (title="TV_Levels", shorttitle="TV_Levels", overlay=true)
LRG_Channel_TF_mins_D_W_M = input("90", title="Local level")
HI = security(tickerid, LRG_Channel_TF_mins_D_W_M, high)
LO = security(tickerid, LRG_Channel_TF_mins_D_W_M, low)
plot(HI, color=HI!=HI[1]?na:red,style=line, title="Resistance", linewidth=2, transp=0)
plot(LO, color=LO!=LO[1]?na:green,style=line, title="Support ", linewidth=2, transp=0)

sd = input(true, title="Daily levels High Low?")
sw = input(true, title="Clock levels High Low?")
pf = (hlc3) *2
pl = pf - high
ph = pf - low
 
dtime_pf = security(tickerid, 'D', pf[1]) 
dtime_pl = security(tickerid, 'D', pl[1]) 
dtime_ph = security(tickerid, 'D', ph[1]) 
 
pcolor_pl = close < dtime_pl ? red : olive
pcolor_ph = close > dtime_ph ? lime : olive

//Daily Projected High Low
offs_daily = 0 

plot(sd and dtime_ph ? dtime_ph : na, title="Daily High",style=line, color=pcolor_ph ,linewidth=2, transp=0) 
plot(sd and dtime_pl ? dtime_pl : na, title="Daily Low",style=line, color=pcolor_pl ,linewidth=2, transp=0) 


//Weekly Projected High Low 
wtime_pf = security(tickerid, '240', pf[1]) 
wtime_pl = security(tickerid, '240', pl[1]) 
wtime_ph = security(tickerid, '240', ph[1]) 

wcolor_pl = close < wtime_pl ? red : orange
wcolor_ph = close > wtime_ph ? lime : orange

plot(sw and wtime_ph ? wtime_ph : na, title="Clock High",style=line, color=wcolor_ph,linewidth=2, transp=0) 
plot(sw and wtime_pl ? wtime_pl : na, title="Clock Low",style=line, color=wcolor_pl,linewidth=2, transp=0)