[RS]Flappy Swinger V0

study(title='[RS]Flappy Swinger V0', overlay=true)
src = input(hl2)
dc_interval = input(10)
l1 = na(l1[1]) ? src : (l1[1]+src)*0.5
//l2 = na(l2[1]) ? l1 : (l2[1]+l1)*0.5
//l3 = na(l3[1]) ? l2 : (l3[1]+l2)*0.5

h = highest(l1, dc_interval)
l = lowest(l1, dc_interval)

//plot(l3, color=gray, linewidth=1)
//plot(l2, color=black, linewidth=1)
plot(l1, color=black, linewidth=2)
plot(src,color=red)

//bgcolor(cross(close, l1)? na : l1 > l3 ? green : maroon,transp=50)
//bgcolor(cross(close, l1)? l1 > l3 ? green : maroon : na, transp=50)
//bgcolor(close > h ? green : close < l ? maroon : na,transp=50)
//bgcolor(l1 >= h ? lime : l1 <= l ? red : na,transp=50)
signal_sel = close > h ? low : l1 >= h ? low : signal_sel[1]
signal_buy = close < l ? high : l1 <= l ? high : signal_buy[1]

plot(signal_buy, style=linebr, color=change(signal_buy) != 0 ? na : green, linewidth=4)
plot(signal_sel, style=linebr, color=change(signal_sel) != 0 ? na : maroon, linewidth=4)

plot(signal_buy ? min(signal_buy, lowest(dc_interval)) : na, style=linebr, color=change(signal_buy) != 0 ? na : green, linewidth=4)
plot(signal_sel ? max(signal_sel, highest(dc_interval)) : na, style=linebr, color=change(signal_sel) != 0 ? na : maroon, linewidth=4)

plot(h, color=black)
plot(l, color=black)