//@version=3
study(title="GOD MACD", shorttitle="GOD MACD", overlay=true)

fast = input(12, minval=1, title="Fast MA")
slow = input(26, minval=2, title="Slow MA")

signalLength = input(9, minval=1, title="Signal MA")

src = input(close, title="Source")

maType = input(title="MACD Type", defval="EMA", options=["EMA", "SMA", "VWMA"])
signalType = input(title="Signal Type", defval="EMA", options=["EMA", "SMA", "VWMA"])


ma(maType, src, length) =>
    if maType =="SMA"
        sma(src, length)
    else
        if maType == "EMA"
            ema(src, length)
        else
            if maType == "VWMA"
                vwma(src, length)
            else
                src

bigmac = ma(maType, src, fast) - ma(maType, src, slow)
signal = ma(signalType, bigmac, signalLength)

plot1Color = bigmac > signal ? #80DEEA : #F06292

macdPlot = plot (bigmac, color=plot1Color, transp=0, title="MACD")
signalPlot = plot (signal, color=plot1Color, transp=0, title="Signal")

fill(macdPlot, signalPlot, color=plot1Color, transp=50)

hist = bigmac - signal

color_grow_above = #4DB6AC
color_grow_below = #00796B
color_fall_above = #EF9A9A
color_fall_below = #D32F2F

plot(hist, title="Histogram", style=columns, color=(hist >= 0 ? (hist[1] < hist ? color_grow_above : color_fall_above) : (hist[1] < hist ? color_grow_below : color_fall_below) ), transp = 25)