-- Id: 16916
-- More information about this indicator can be found at:
-- http://fxcodebase.com/code/viewtopic.php?f=17&t=64032

--+------------------------------------------------------------------+
--|                               Copyright © 2018, Gehtsoft USA LLC | 
--|                                            http://fxcodebase.com |
--+------------------------------------------------------------------+
--|                                      Developed by : Mario Jemic  |                    
--|                                          mario.jemic@gmail.com   |
--+------------------------------------------------------------------+
--|                                 Support our efforts by donating  | 
--|                                    Paypal: https://goo.gl/9Rj74e |
--+------------------------------------------------------------------+
--|                                Patreon :  https://goo.gl/GdXWeN  |  
--|                    BitCoin : 15VCJTLaz12Amr7adHSBtL9v8XomURo9RF  |  
--|                BitCoin Cash: 1BEtS465S3Su438Kc58h2sqvVvHK9Mijtg  | 
--|           Ethereum : 0x8C110cD61538fb6d7A2B47858F0c0AaBd663068D  |  
--|                   LiteCoin : LLU8PSY2vsq7B9kRELLZQcKf5nJQrdeqwD  |  
--+------------------------------------------------------------------+
-- Indicator profile initialization routine
-- Defines indicator profile properties and indicator parameters
function Init()
    indicator:name("ABCD Automatic Fibonacci Expansion ");
    indicator:description("");
    indicator:requiredSource(core.Bar);
    indicator:type(core.Indicator); 

    indicator.parameters:addGroup("Calculation"); 
    indicator.parameters:addInteger("Period", "Period", "Period", 100);
  
	
    indicator.parameters:addGroup("Style");
    indicator.parameters:addColor("color", "Line Color","", core.rgb(0, 255, 0)); 
	indicator.parameters:addInteger("width", "Line width", "", 1, 1, 5);
    indicator.parameters:addInteger("style", "Line style", "", core.LINE_SOLID);
    indicator.parameters:setFlag("style", core.FLAG_LINE_STYLE);

   indicator.parameters:addInteger("transparency", "Line Transparency","", 50);  
    indicator.parameters:addInteger("Size", "Text Size","", 13);  
	
	indicator.parameters:addColor("Label", "Text Color","", core.COLOR_LABEL ); 
end

-- Indicator instance initialization routine
-- Processes indicator parameters and creates output streams
-- Parameters block
local Period;
local source = nil;
local first;
-- Streams block
local transparency;
local Raw={};
local Up,Down;
local min, max, minpos, maxpos;
local Direction;
local cPeriod=nil;
local cValue=nil;
local Size;
local Label;
-- Routine
function Prepare(nameOnly) 

    Period= instance.parameters.Period;
	Size= instance.parameters.Size; 
	Label= instance.parameters.Label;
    source = instance.source;
	 
    first= source.close:first();
    local name = profile:id() .. "(" .. source:name().. "," .. Period .. ")";
    instance:name(name);
	
	if   (nameOnly) then
        return;
    end
	
	Up = instance:addInternalStream(0, 0);
	Down = instance:addInternalStream(0, 0);
	
	instance:ownerDrawn(true);
end

-- Indicator calculation routine
 
function Update(period)

    Up[period]=0;
	Down[period]=0;

   	if (period < 6) then
	return;
	end
	    local curr;
		 
        curr = source.high[period - 2];
        if (curr > source.high[period - 4] and curr > source.high[period - 3] and
            curr > source.high[period - 1] and curr > source.high[period]) then         
        Up[period-2]=1;            
        end
		
		
        curr = source.low[period - 2];
        if (curr < source.low[period - 4] and curr < source.low[period - 3] and
            curr < source.low[period - 1] and curr < source.low[period]) then
			Down[period-2]=1;
        end 
		


   if period < source:size()-1 
   or period < Period
   then
   return;
   end
	
    min, max, minpos, maxpos =mathex.minmax(source, period-Period+1, period); 
	 
    if minpos > maxpos then
	Direction=-1;
	else
	Direction=1;
	end
	
	FindC(period);
	

end

function FindC(period)

cPeriod=nil;
cValue=nil;

	for index=period, math.max(minpos, maxpos), -1 do
	
		if Direction==1 and Down[index]== 1 then
			if cPeriod== nil then
			cPeriod=index;
			cValue=source.low[index];
			elseif cValue> source.low[index] then
			cPeriod=index;
			cValue=source.low[index];
			end
		elseif Direction==-1 and Up[index]== 1  then	
			if cPeriod== nil then
			cPeriod=index;
			cValue=source.high[index];
			elseif cValue <source.high[index] then
			cPeriod=index;
			cValue=source.high[index];
			end
		end
		
	end
	
end



local init = false;
 
function Draw(stage, context)
    if stage ~= 2 then
	return;
	end
	
	
        if not init then
		   context:createPen (1, context:convertPenStyle (instance.parameters.style),  context:pointsToPixels (instance.parameters.width), instance.parameters.color);
		   transparency = context:convertTransparency (instance.parameters.transparency); 
		   context:createFont (2, "Arial", Size, Size, 0);
            init = true;
        end
  
	      local LastIndex=source:size()-1; 
	    
           x2, x = context:positionOfBar (minpos); 
           visible, y2= context:pointOfPrice (min);
			
		   x1, x = context:positionOfBar (maxpos);		   
		   visible, y1= context:pointOfPrice (max);
		  
			context:drawLine (1, x1, y1, x2, y2, transparency);
			 
	  
		   
		   
		   if cValue== nil then
		   return;
		   end
		   
		   
		   x4, x = context:positionOfBar (cPeriod);		   
		   visible, y4= context:pointOfPrice (cValue);
		   
		  
		   if Direction == 1 then
		   context:drawLine (1, math.max(x1,x2),math.min(y1,y2), x4, y4, transparency);
		   else
		   context:drawLine (1, math.max(x1,x2), math.max(y1,y2), x4, y4, transparency);
		   end
		   
		   xDelta=math.abs(x1-x2);
		   
		   yDelta= math.abs(y1-y2);
		   
		   if Direction== 1 then
		   y5=y4-yDelta;
		   else
		   y5=y4+yDelta;
		   end
		   
		    visible,yp = context:pointOfPrice (source.close[LastIndex]);
		    pDelta= math.abs(y5-yp) / (yDelta/100);
			pDelta= win32.formatNumber(pDelta, false, 2);
		   
           context:drawLine (1, x4, y4, x4+xDelta, y5, transparency);
		   
		   Price= context:priceOfPoint (y5);
		   local text= "Target :" .. win32.formatNumber(Price, false, source:getPrecision()) .. " @ " ..  pDelta  .. " % ";	
            width, height= context:measureText (2, text, 0)  		   
		   context:drawText (2, text, Label, -1, x4+xDelta   , y5-height, x4+xDelta +width , y5, 0);
end