KCO w/Candles

//@version=2
study(title="Keltner Channels Oscillator",shorttitle="KCO",overlay=false,precision=1)
//Inputs
kc_len=input(21,title="Keltner Channel Length")
kc_mult1=input(1,title="Keltner Channel First Multiple")
kc_mult2=input(2,title="Keltner Channel Second Multiple")
kc_src=input(close,title="Keltner Channel Source")
//Keltner Channel
kc_ma=ema(kc_src,kc_len)
kc_rng=ema(tr,kc_len)
kc_oneup=kc_ma+kc_rng*kc_mult1
kc_onedn=kc_ma-kc_rng*kc_mult1
kc_twoup=kc_ma+kc_rng*kc_mult2
kc_twodn=kc_ma-kc_rng*kc_mult2
//Oscillator
kc_lvlclose=(close-kc_ma)/kc_rng
kc_lvlopen=(open-kc_ma)/kc_rng
kc_lvlhigh=(high-kc_ma)/kc_rng
kc_lvllow=(low-kc_ma)/kc_rng
kc_lvloneup=(kc_oneup-kc_ma)/kc_rng
kc_lvlonedn=(kc_onedn-kc_ma)/kc_rng
kc_lvltwoup=(kc_twoup-kc_ma)/kc_rng
kc_lvltwodn=(kc_twodn-kc_ma)/kc_rng
//Color
kc_colbar=(close>open)?white:red
//Plots
plotcandle(kc_lvlopen,kc_lvlhigh,kc_lvllow,kc_lvlclose,title='Price Candles',color=kc_colbar,wickcolor=white)
plot(0,color=gray,style=line,linewidth=1,editable=false)
plot(2,color=white,style=line,linewidth=1,editable=false)
plot(1,color=white,style=line,linewidth=1,editable=false)
plot(-1,color=black,style=line,linewidth=1,editable=false)
plot(-2,color=black,style=line,linewidth=1,editable=false)