study(shorttitle = "MACD", title = "MACD")
fastMA = input(title="Fast moving average", type = integer, defval = 12, minval = 7)
slowMA = input(title="Slow moving average", type = integer, defval = 26, minval = 7)
lastColor = yellow
[currMacd,_,_] = macd(close[0], fastMA, slowMA, 9)
[prevMacd,_,_] = macd(close[1], fastMA, slowMA, 9)

signalLength=input(9,minval=1)
signal = sma(currMacd, signalLength)


plotColor = currMacd > 0
? currMacd > prevMacd ? lime : green
: currMacd < prevMacd ? maroon : red
plot(currMacd, style = columns, transp=20, color = plotColor, linewidth = 3)
plot(0, title = "Zero line", linewidth = 1, color = green)
plot(signal, color=white, transp=0, title="Signal")