declare lower;

input Lookback = 57;

script LookBackFunc
{
    input src = 0;
    input lb = 10;
    input nb = 10;


    def _value = fold i1 = 0 to nb with h=0 while h<=lb do if h<lb and isnan(GetValue(src, i1)) == no then h+1 else if h==lb then i1+1 else h;

    plot value = _value;
}

DefineGlobalColor("UpColor", Color.GREEN);
DefineGlobalColor("DownColor", Color.RED);

def Var1 = if isnaN(close("$TICK")) then double.NaN else close("$TICK") ;
def Var2 = CompoundValue(1, if isNaN(Var1)==no then Var2[1] + Var1 else Var2[1], Var1);

def barNum = Barnumber();
def validbar = LookBackFunc(var1, LookBack, barNum) - 1;

plot Heatmap = if isNaN(Var1) then double.NaN else 1;

Heatmap.AssignValueColor(if Var2 > getvalue(Var2,validbar) then GlobalColor("UpColor") else GlobalColor("DownColor"));
Heatmap.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);
Heatmap.SetLineWeight(5);