--+------------------------------------------------------------------+
--|                               Copyright © 2017, Gehtsoft USA LLC | 
--|                                            http://fxcodebase.com |
--+------------------------------------------------------------------+
--|                                 Support our efforts by donating  | 
--|                                    Paypal: https://goo.gl/9Rj74e |
--|                    BitCoin : 15VCJTLaz12Amr7adHSBtL9v8XomURo9RF  |  
--+------------------------------------------------------------------+
 

function Init()
    indicator:name("Advanced fractal with labels");
    indicator:description("Advanced fractal with labels");
    indicator:requiredSource(core.Bar);
    indicator:type(core.Indicator);
  

    indicator.parameters:addColor("UP", "Up fractal color", "Up fractal color", core.rgb(0,255,0));
    indicator.parameters:addColor("DOWN", "Down fractal color", "Down fractal color", core.rgb(255,0,0));
    indicator.parameters:addInteger("Frame", "Number of fractals (Odd)", "Number of fractals (Odd)", 5, 3,99);
    indicator.parameters:addInteger("FontSize", "Size of font", "Size of font", 10);
end

local source;
local frame=0;
local Rez=0;
local UpText;
local DnText;
local first;
local UpBuff;
local DnBuff;

function Prepare()
    source = instance.source;
    first=source:first();
    UpBuff=instance:addInternalStream(first, 0);
    DnBuff=instance:addInternalStream(first, 0);
    
    UpText=instance:createTextOutput ("UpText", "UpText", "Arial", instance.parameters.FontSize, core.H_Center, core.V_Top, instance.parameters.UP, first);
    DnText=instance:createTextOutput ("DnText", "DnText", "Arial", instance.parameters.FontSize, core.H_Center, core.V_Bottom, instance.parameters.DOWN, first);
	
	frame=instance.parameters.Frame
  	
  		 if math.mod(frame, 2) ~= 0 then
		 frame=frame+1;
		 end
 
  
  local name = profile:id() .. " ( " .. frame-1 .. " )";
    instance:name(name);
end

function Update(period, mode)

      local test=0;
   
	     local hof=frame;
	     local i;
	     local count=0;
	 
		 for  i= 1 , frame , 1 do
		 
			 if hof >1 then
			 hof= hof-2;
			 count = count +1;
			 else
			 count=count-1;
			 break;
			 end
		 
		 end 
 
    if (period > frame) then
	
	     local x = period - count*2;
	
        local curr = source.high[period - count];
	
	UpBuff[period-count]=UpBuff[period-count-1];
	DnBuff[period-count]=DnBuff[period-count-1];
		
		
         for i= x, period, 1 do
		
		     if  curr > source.high[i] and i ~=(period - count) then
			 test=test+1;
			 end
			
		 end	
		 
		 if test == period-x then
		   UpBuff[period-count]=source.high[period - count];
		   if DnBuff[period-count]~=nil then
		    UpText:set(period - count, source.high[period - count], "" .. math.floor((UpBuff[period-count]-DnBuff[period-count])/source:pipSize()));
		   end
		 end

        test=0;		 
       
	     curr = source.low[period - count];
		
		  
          for i= x , period, 1 do
		
		     if  curr < source.low[i] and i ~=(period -count) then
			 test=test+1;
			 end
			
		 end	
	   
	      if test ==period-x then
	      DnBuff[period-count]=source.low[period - count];
	      if UpBuff[period-count]~=nil then
	       DnText:set(period - count, source.low[period - count], "" .. math.floor((UpBuff[period-count]-DnBuff[period-count])/source:pipSize()));
	      end
	  end
		  
    elseif period>first and period<=frame then
    	UpBuff[period]=nil;
    	DnBuff[period]=nil;
        
    end
end