[RS]Stoch Highlighter V0

study(title="[RS]Stoch Highlighter V0", shorttitle="[RS]SH.V0", overlay=false)
length1 = input(12, minval=1)
smoothK1 = input(3, minval=1)
smoothD1 = input(3, minval=1)

overbought = input(80)
oversold = input(20)

k1 = sma(stoch(close, high, low, length1), smoothK1)
d1 = sma(k1, smoothD1)

plot(k1, color=blue, title="K")
plot(d1, color=red, title="D")

obhighlight = k1 >= overbought ? k1 : overbought
oshighlight = k1 <= oversold ? k1 : oversold

plot(obhighlight, title="overbought", color=red, style=histogram, histbase=overbought)
plot(oshighlight, title="oversold", color=lime, style=histogram, histbase=oversold)

p1 = hline(overbought, title="overbought level")
p2 = hline(oversold, title="oversold level")
fill(p1, p2, color=teal, transp=80, title="Level Area")