EMA CrossOver Bars

//@version=2
//Created by Milind

study(title = "EMA CrossOver Bars", shorttitle="EMA CrossOver Bars",overlay=true)
ema1 = input(200, minval=1, maxval=300, title="EMA UpTrend")
ema2 = input(5, minval=1, maxval=100, title="EMA DnTrend")
shema = input(true, title="Show EMA Trend is Based On?")
usedEma = ema(close, ema1)
emaslow = ema(close, ema2)
trendup= ema(close, ema2) >= ema(close, ema1)
trendDn= ema(close, ema2) < ema(close, ema1)
emaUpColor() => trendup
emaDownColor() => trendDn
col = trendup ? blue : trendDn ? red : white
//plotarrow(trendup, colorup=teal, colordown=orange, transp=20)
barcolor(emaUpColor() ? blue: emaDownColor() ? red : na)