-- Id: 19231

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

--+------------------------------------------------------------------+
--|                               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
-- TODO: Add minimal and maximal value of numeric parameters and default color of the streams
function Init()
    indicator:name("Lower Time Frame ATR");
    indicator:description("");
    indicator:requiredSource(core.Bar);
    indicator:type(core.Oscillator);

	
	T={"m1", "m5", "m15", "m30", "H1", "H2", "H3", "H4", "H6", "H8", "D1", "W1", "M1"};
	
	indicator.parameters:addGroup("Calculation");
    indicator.parameters:addInteger("Period", "MA Period", "", 14);
	
	indicator.parameters:addGroup("Selector");
	
	indicator.parameters:addString("Type", "Method", "Method" , "Lower");
    indicator.parameters:addStringAlternative("Type", "Lower", "Lower" , "Lower");
    indicator.parameters:addStringAlternative("Type", "Higher", "Higher" , "Higher");
	indicator.parameters:addStringAlternative("Type", "All", "All" , "All");
	indicator.parameters:addStringAlternative("Type", "Selection", "" , "Selection")
	
	local i;
	for i = 1, 13 ,  1 do 
	indicator.parameters:addBoolean("ON".. i, "Use " .. T[i] .. " Time Frame", "", false);
	end

	

	indicator.parameters:addGroup("Style");
	
	indicator.parameters:addBoolean("Bar", "Use Bars" ,   "", false);
	indicator.parameters:addColor("Up", "Up color", "", core.rgb(0, 255, 0));
	indicator.parameters:addColor("Dn", "Down color", "", core.rgb(255, 0, 0));

 
   
end

-- Indicator instance initialization routine
-- Processes indicator parameters and creates output streams
-- TODO: Refine the first period calculation for each of the output streams.
-- TODO: Calculate all constants, create instances all subsequent indicators and load all required libraries
-- Parameters block

local first;
local source = nil;
local  open=nil;
local  close=nil;
local  high=nil;
local  low=nil;
local Period;
 local Type;

local SourceData = {} ;
local Indicator={};
local loading={};

local day_offset, week_offset;
 
local host;
local TF={};
local iTF={"m1", "m5", "m15", "m30", "H1", "H2", "H3", "H4", "H6", "H8", "D1", "W1", "M1"};
local Up, Down;
local Bar;
local Number=0;
function Prepare(nameOnly) 
    Period= instance.parameters.Period;
	Type= instance.parameters.Type;
	Bar= instance.parameters.Bar;
	Up= instance.parameters.Up;
	Down= instance.parameters.Dn;
	source = instance.source;
	first = source:first();
	
	host = core.host;
    day_offset = host:execute("getTradingDayOffset");
    week_offset = host:execute("getTradingWeekOffset");
	
	Number=0;
	 
	local i;
	if Type == "Selection" then
		for i = 1, 13 , 1 do
		   if instance.parameters:getBoolean("ON" .. i) then
		   Number=Number+1;
		   TF[Number]=iTF[i]
		   end
		end
	elseif Type == "All" then	
	Number=13;
	TF=iTF;
	else
	
	    for i = 1, 13 ,  1 do
	     CheckBarSize(i);
	    end
	 
	end
	
	
	 
 
	
    local name = profile:id() .. "(" .. source:name() ..", "..Period .. ")";
    instance:name(name);	
	if   (nameOnly) then
        return;
    end
   
	
	
	if Bar then
	high = instance:addStream("high", core.Line, name, "", core.rgb(0, 0, 0), first);
    low = instance:addStream("low", core.Line, name, "", core.rgb(0, 0, 0), first);	
	open = instance:addStream("open", core.Line, name, "", core.rgb(0, 0, 0), first);    
    open:setPrecision(math.max(2, instance.source:getPrecision()));
    close = instance:addStream("close", core.Line, name, "", core.rgb(0, 0, 0), first);
    close:setPrecision(math.max(2, instance.source:getPrecision()));
    instance:createCandleGroup("STF", "STF", open, high, low, close);
   
   
    else
	high = instance:addStream("high", core.Line, name, "", Up, first);
    low = instance:addStream("low", core.Line, name, "", Down, first);	
	end
    high:setPrecision(math.max(2, instance.source:getPrecision()));
    low:setPrecision(math.max(2, instance.source:getPrecision()));
	
	
	 Temp1= core.indicators:create("ATR", source ,  Period);  				
	 ifirst= Temp1.DATA:first()*2;
	
	 for i = 1, Number ,  1 do
	 SourceData[i]  = core.host:execute("getSyncHistory",  source:instrument(),  TF[i], source:isBid(),math.min(300,ifirst), 2000 + i , 1000 +i);	 	 
	 loading[i]  = true;  	 
	 Indicator[i] = core.indicators:create("ATR", SourceData[i] ,  Period);   
	 end	
core.host:execute ("setTimer", 1, 1);

		 
end


function ReleaseInstance()
core.host:execute ("killTimer", 1);
end 

-- the function is called when the async operation is finished
function AsyncOperationFinished(cookie)

 

local j;
local FLAG=false; 
local Num=0;
local Id=0;
    for j = 1, Number, 1 do
		      Id=Id+1;
			  if cookie == (1000 + Id) then
			  loading[j]  = true;
		      elseif  cookie == (2000 + Id ) then
			  loading[j]  = false;
			  end
		 
		       
                 if loading[j] then
				 FLAG= true;
				 Num=Num+1;
				 end
	end    
   
    
   if not FLAG and cookie== 1 then
		for i= 1, Number , 1 do
			  Indicator[i]:update(core.UpdateLast );
		end
		
	end
	
	
	if FLAG then
	 core.host:execute ("setStatus", "  Loading "..((Number) - Num) .. " / " .. (Number) );	 
	else
	core.host:execute ("setStatus", "Loaded");	 
    instance:updateFrom(0);    
	end
	
	
   
        
    return core.ASYNC_REDRAW ;
	
	
end


function CheckBarSize(id)
    local s, e, s1, e1;
    s, e = core.getcandle(source:barSize(), core.now(), 0, 0);
    s1, e1 = core.getcandle(iTF[id], core.now(), 0, 0);  
    
	if Type == "Lower" then
		 if (e-s) > (e1-s1) then
	       Number=Number+1;
		   TF[Number]=iTF[id]
		 end 
	elseif Type == "Higher" then
	
		 if (e-s) < (e1-s1) then
		   Number=Number+1;
		   TF[Number]=iTF[id]
		 end 
    end	
	 
end


function   Initialization(period,id)

    local Candle;
    Candle = core.getcandle(source:barSize(), source:date(period), day_offset, week_offset);
  
    if loading[id] or SourceData[id]:size() == 0  then
        return false;
    end

    
    if period < source:first() then
        return false;
    end

    local P = core.findDate(SourceData[id], Candle, false);
	 

    -- candle is not found
    if P < 0    then
        return false;
	else return P;	
    end
			
end	




-- Indicator calculation routine
function Update(period, mode)


 
local FLAG=false; 
 
    for j = 1, Number, 1 do 
		       
                 if loading[j] then
				 FLAG= true; 
				 end
	end    
   
   
   if FLAG then
   return;
   end
   
   
	                            if Bar then
	                            open[period] = 0;
								close[period] = 0;
								end
								
								high[period] = 0;
								low[period] = 0;
	
	
 
 

    for i = 1, Number, 1 do
	
	     
			
 
					
					
						p = Initialization(period, i);		
			
				
				if  p~= false and p>0  then
					
					
							if Indicator[i].DATA:hasData(p) then 
							
							 
										
											if high[period]== 0   or   low[period]== 0  then	
														
												high[period] = Indicator[i].DATA[p];
												low[period] = Indicator[i].DATA[p];
												
												
											else
											   
													if  Indicator[i].DATA[p] > high[period] then
													high[period] = Indicator[i].DATA[p];
													end
													if  Indicator[i].DATA[p] < low[period] then
													low[period] = Indicator[i].DATA[p];
													end													
												
												
											end							
								
								end
							
							 
							
				end
		end		
 
   
   if not Bar then
   return;
   end
   
   
   
       if source.close[period] > source.open[period] then
	     open[period] = low[period];
		 close[period] = high[period];
		 open:setColor(period, Up);
	   else	
         open[period] = high[period];
		 close[period] = low[period];
         open:setColor(period, Down);					 
	   end  

		
 end