express ThreeLineBreak

vars
series trend,OP,CL,LL,HH,zero;
numeric xtrend,xu,xu1,xu2,xu3;
calculation

CalculateAtEveryTick(false);

if close[1] = void then 
begin
    if (close >= open) then 
    begin
        xtrend = 1;
        trend = xtrend;
        xu = close;
        xu1 = open;
        xu2 = open;
        xu3 = open;
        CL = xu;
        OP = xu1;
        LL = OP;
        HH = CL;
    end
    else
    begin
        xtrend = -1;
        trend = xtrend;
        xu = close;
        xu1 = open;
        xu2 = open;
        xu3 = open;
        CL = xu;
        OP = xu1; 
        LL = CL;
        HH = OP;
    end
end
else
begin
    if (xtrend = 1) then 
    begin
        if (close > xu) then 
        begin
            trend = xtrend;
            xu3 = xu2;
            xu2 = xu1;
            xu1 = xu;
            xu = close;
            CL = xu;
            OP = xu1;
            LL = OP;
            HH = CL;
        end
        else
        if (close < xu3) then 
        begin
            xtrend = -1;
            trend = xtrend;
            xu = close;
            xu2 = xu1;
            xu3 = xu1;
            CL = xu;
            OP = xu1;
            LL = CL;
            HH = OP;
        end
        else
        begin
            trend = xtrend;
            CL = CL[1];
            OP = OP[1];
            LL = LL[1];
            HH = HH[1];
        end
    end
    else
    begin
        if (close > xu3) then 
        begin
            xtrend = 1;
            trend = xtrend;
            xu = close;
            xu2 = xu1;
            xu3 = xu1;
            CL = xu;
            OP = xu1;
            LL = OP;
            HH = CL;
        end
        else
        if (close < xu) then 
        begin
            trend = xtrend;
            xu3 = xu2;
            xu2 = xu1;
            xu1 = xu;
            xu = close;
            CL = xu;
            OP = xu1;
            LL = CL;
            HH = OP;
        end
        else
        begin
            trend = xtrend;
            CL = CL[1];
            OP = OP[1];
            LL = LL[1];
            HH = HH[1];
        end
    end    
end

interpretation TriggerLine (trend,zero);

plotcandles(OP,CL,HH,LL);//@@@cs:908965-3737129-777572_cs@@@