Golden Larsson Line Free

//@version=4
study("CTO Line Free", overlay=true)
//user input
emaFastLen = input(defval = 30, title = "Length EMA Fast", type = input.integer)
emaSlowLen = input(defval = 60, title = "Length EMA Slow", type = input.integer)
emaMarginATRLen = input(defval = 60, title = "Margin EMA - ATR Length", type = input.integer)
emaMarginATRMult = input(defval = 0.30, title = "Margin EMA - ATR Multiplier", step = 0.01, type = input.float)

//moving averages
emaFast = ema(close,emaFastLen)
emaSlow = ema(close,emaSlowLen)
emaDiff = emaFast - emaSlow

//case differentiation
emaBull = emaDiff > emaMarginATRMult*atr(emaMarginATRLen)
emaBear = emaDiff < -emaMarginATRMult*atr(emaMarginATRLen)

clrBull = color.new(color(#b8ac61), 0)
clrBullFill = color.new(color(#faf17a), 90)
clrBear = color.new(color(#534fa1), 0)
clrBearFill = color.new(color(#cbc1e0), 90)
clrNeutral = color.new(color(#a39f97), 0)
clrNeutralFill = color.new(color(#e0dcd5), 90)

//plotting
emaFastPlot = plot(emaFast, linewidth = 2, color = iff(emaBull, clrBull, iff(emaBear, clrBear, clrNeutral)))
emaSlowPlot = plot(emaSlow, linewidth = 2, color = iff(emaBull, clrBull, iff(emaBear, clrBear, clrNeutral)))
fill(emaFastPlot, emaSlowPlot, color = iff(emaBull, clrBullFill, iff(emaBear, clrBearFill, clrNeutralFill)))