{ Indicator } 

Inputs: 
UpColor(Black) , DnColor(Red) , vAvg.length(9) , vadjust(1.8) , VolAlert(false) , vChar("o"), offset(0.5) ; 

Variables: 
vol(0) , avgv (0) , volvlen(0) , barlength(0) ;

If BarType >= 2 then vol = Volume else vol = Ticks;    

vol = volume ;
barlength = H - L ;
if vol > 0 and barlength > 0 then 
   volvlen = vol / barlength 
else 
   volvlen = 0 ;

avgv = averageFc(volvlen, vAvg.length) ;

if volvlen > avgv * vadjust and O[1] > C[1] then 
  begin
    Value1 = Text_New(D,T, Low - Range * offset, vChar );        // down bar 
    Value2 = Text_SetColor(Value1,UpColor);
    If VolAlert = True then 
      begin
      Alert("VolvLen down ");
      End;
   End;

if volvlen > avgv * vadjust and C[1] >= O[1] then 
  begin
    Value1 = Text_New(D,T, High + Range * offset, vChar ) ;     //up bar 
    Value2 = Text_SetColor(Value1,UpColor);
    If VolAlert = True then 
      begin
        Alert("VolvLen up ");
      End;
  End;

{ Candlestick PaintBar }

inputs: Length( 14) , 
    InUpColor(color.Chartreuse) , InDnColor(color.Red) , 
    OutUpColor(color.DarkGreen) , OutDnColor(color.FireBrick) ,
    NmlUpColor(color.LightSeaGreen), NmlDnColor(color.LightSalmon) ,
variables: oBullishEngulfing( 0 ) , oBearishEngulfing( 0 ) , oBullishHarami(0) , oBearishHarami(0), barColor(blue) ;

Value1 = C_BullEng_BearEng( Length, oBullishEngulfing, oBearishEngulfing ) ;
Value2 = C_BullHar_BearHar( Length, oBullishHarami, oBearishHarami ) ;

    if oBullishEngulfing = 1 then barColor = OutUpColor  
    else if oBullishHarami = 1 then barColor = InUpColor   
    else if oBearishEngulfing = 1 then barColor = OutDnColor  
    else if oBearishHarami = 1 then barColor = InDnColor   
    else if Close > Open then barColor = NmlUpColor  
    else if Close < Open then barColor = NmlDnColor  ;

    PlotPaintBar( High, Low, "InsOuts", barColor ) ;