#***********************************************************************************************
#TopTradeTools.com TOP TICK DELTA DT

#Copyright (c) 2017-2020 TopTradeTools.com. All rights reserved.

#Programmer Contact: Support@TopTradeTools.com

#Versions:
#1.0 - 06/18/20: First version 

#***********************************************************************************************}

declare lower;

input LookbackST = 21;
input LookbackLT = 145;

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

    def _value = if nb < lb then -1 else 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 bar1 = LookBackFunc(var1, LookbackST, barNum) - 1;
def bar2 = LookBackFunc(var2, LookbackLT, barNum) - 1;

def VarST = Var2 - Getvalue(Var2,bar1);
def VarLT = Var2 - Getvalue(Var2,bar2);

def TickDelta = VarST + VarLT;

plot Delta =  if IsNaN(Var1) then Double.NaN else TickDelta;

Delta.AssignValueColor(if TickDelta >= 0 then GlobalColor("UpColor") else GlobalColor("DownColor"));
Delta.SetPaintingStrategy(PaintingStrategy.HISTOGRAM);
Delta.SetLineWeight(2);