CM_Modified_Heikin-Ashi_TrendBars

//Created by Chrismoody on 7/22/2014 By Request for user lucalucious
//Modified Heikinashi with EMA Filter...
//Choice To Plot EMA Trend Is Based Off Of
study(title = "CM_Modified_Heik_Trend_Bars", shorttitle="CM_TrendBars",overlay=true)
note = input(false, title="Lower Numbers = More Sensitive to Price Change...Higher Numbers = Less Sensitive")
uema = input(34, minval=1, maxval=50, title="EMA UpTrend")
dema = input(34, minval=1, maxval=50, title="EMA DownTrend")
shema = input(false, title="Show EMA Trend is Based On?")

haclose = (open + high + low + close)/4
haopen = na(haopen[1]) ? (open + close)/2 : (haopen[1] + haclose[1]) / 2

upEma = ema(haclose, uema)
downEma = ema(haopen, dema)

emaAvg = (upEma + downEma)/2

heikUpColor() => hlc3 >= emaAvg
heikDownColor() => hlc3 < emaAvg

col = hlc3 >= emaAvg[1] ? lime : hlc3 < emaAvg[1] ? red : white

barcolor(heikUpColor() ? lime: heikDownColor() ? red : na)
plot(shema and emaAvg ? emaAvg : na, title="EMA UpTrend", style=line, linewidth=3, color=col)