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

--+------------------------------------------------------------------+
--|                               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 |
--|                    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 AddParam(id, frame, Flag)
	indicator.parameters:addGroup(id .. ". Time Frame")

	indicator.parameters:addBoolean("USE" .. id, "Use this Slot", "", Flag)

	indicator.parameters:addString("TF" .. id, "Time frame", "", frame)
	indicator.parameters:setFlag("TF" .. id, core.FLAG_PERIODS)

	--indicator.parameters:addString("Pair" .. id, "Pair", "", "EUR/USD");
	--  indicator.parameters:setFlag("Pair" .. id, core.FLAG_INSTRUMENTS);

	indicator.parameters:addString("Price" .. id, "Price Type", "", "close")
	indicator.parameters:addStringAlternative("Price" .. id, "OPEN", "", "open")
	indicator.parameters:addStringAlternative("Price" .. id, "HIGH", "", "high")
	indicator.parameters:addStringAlternative("Price" .. id, "LOW", "", "low")
	indicator.parameters:addStringAlternative("Price" .. id, "CLOSE", "", "close")
	indicator.parameters:addStringAlternative("Price" .. id, "MEDIAN", "", "median")
	indicator.parameters:addStringAlternative("Price" .. id, "TYPICAL", "", "typical")
	indicator.parameters:addStringAlternative("Price" .. id, "WEIGHTED", "", "weighted")

	indicator.parameters:addInteger("Length" .. id, "Length", "Length", 10)
	indicator.parameters:addInteger("Filter" .. id, "Filter", "Filter", 0)
	indicator.parameters:addInteger("ColorBarBack" .. id, "ColorBarBack", "ColorBarBack", 2)
	indicator.parameters:addDouble("Deviation" .. id, "Deviation", "Deviation", 0)
end

function Init()
	indicator:name("MTF_NonLagDot")
	indicator:description("")
	indicator:requiredSource(core.Bar)
	indicator:type(core.Indicator)

	indicator.parameters:addGroup("Calculation")
	--indicator.parameters:addBoolean("Chart" , "Use Chart Price Source", "", true);

	AddParam(1, "m1", false)
	AddParam(2, "m5", false)
	AddParam(3, "m15", false)
	AddParam(4, "m30", false)
	AddParam(5, "H1", true)
	AddParam(6, "H2", false)
	AddParam(7, "H3", false)
	AddParam(8, "H4", false)
	AddParam(9, "H6", false)
	AddParam(10, "H8", true)
	AddParam(11, "D1", true)
	AddParam(12, "W1", true)
	AddParam(13, "M1", true)

	Style(1)
	Style(2)
	Style(3)
	Style(4)
	Style(5)
	Style(6)
	Style(7)
	Style(8)
	Style(9)
	Style(10)
	Style(11)
	Style(12)
	Style(13)

	indicator.parameters:addGroup("Style")
	indicator.parameters:addColor("UP", "Color for Up Trend", "", core.rgb(0, 255, 0))
	indicator.parameters:addColor("DN", "Color for Down Trend", "", core.rgb(255, 0, 0))
	indicator.parameters:addColor("NO", "Color for Unclear Trend", "", core.rgb(255, 128, 0))
	indicator.parameters:addColor("Label", "Label Color", "", core.rgb(0, 0, 0))
	indicator.parameters:addDouble("Size", "As % of Cell", "", 90)
	indicator.parameters:addDouble("HSize", "Horizontal indicator size as % of screen", "", 50, 50, 100)

	indicator.parameters:addInteger("VShift", "Vertical Shift", "", 0)
end

function Style(id)
	indicator.parameters:addGroup(id .. ".  Time Frame Style Options")
	indicator.parameters:addBoolean("ShowLine" .. id, "Show Line", "", true)
	indicator.parameters:addInteger("width" .. id, "Line width", "", 1, 1, 5)
	indicator.parameters:addInteger("style" .. id, "Line style", "", core.LINE_SOLID)
	indicator.parameters:setFlag("style" .. id, core.FLAG_LINE_STYLE)
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 UP, DN, NO
local source = nil
local TF = {}
local Pair = {}
local L = {}
local host
local offset
local weekoffset
local SourceData = {}
local loading = {}
local Size
local HSize
local VShift
local USE = {}

local Number
--local Chart ;
local Label

local width = {}
local style = {}
local ShowLine = {}

local Indicator = {}
local Price = {}
local Length = {}
local Filter = {}
local ColorBarBack = {}
local Deviation = {}

-- Routine
function Prepare(nameOnly)
	--Chart=instance.parameters.Chart;
	source = instance.source
	UP = instance.parameters.UP
	DN = instance.parameters.DN
	NO = instance.parameters.NO

	Label = instance.parameters.Label
	Shift = instance.parameters.Shift
	Size = instance.parameters.Size
	HSize = instance.parameters.HSize
	VShift = instance.parameters.VShift

	host = core.host
	offset = host:execute("getTradingDayOffset")
	weekoffset = host:execute("getTradingWeekOffset")

	assert(core.indicators:findIndicator("NLD") ~= nil, "Please, download and install NLD.LUA indicator")

	local i
	local name = profile:id() .. "(" .. source:name()

	Number = 0

	for i = 1, 13, 1 do
		USE[i] = instance.parameters:getBoolean("USE" .. i)

		if USE[i] then
			Number = Number + 1

			ShowLine[Number] = instance.parameters:getBoolean("ShowLine" .. i)
			style[Number] = instance.parameters:getInteger("style" .. i)
			width[Number] = instance.parameters:getInteger("width" .. i)

			Price[Number] = instance.parameters:getString("Price" .. i)
			Filter[Number] = instance.parameters:getDouble("Filter" .. i)
			Length[Number] = instance.parameters:getDouble("Length" .. i)
			ColorBarBack[Number] = instance.parameters:getString("ColorBarBack" .. i)
			Deviation[Number] = instance.parameters:getString("Deviation" .. i)

			--   if  Chart   then
			Pair[Number] = source:name()
			--   else
			--   Pair[Number]= instance.parameters:getString("Pair" .. i);
			-- end

			TF[Number] = instance.parameters:getString("TF" .. i)

		--   L[Number] = TF[Number] .. ", ".. Pair[Number];
		--	   name = name ..", " .."(" .. TF[Number] .. ", ".. Pair[Number] ..")";
		end
	end
	name = name .. ")"
	instance:name(name)

	if (nameOnly) then
		return
	end

	for i = 1, Number, 1 do
		-- 	local Test  = core.indicators:create("NLD", source[Price[i]] ,Length[i],Filter[i],ColorBarBack[i], Deviation[i], core.rgb(0, 255, 0), core.rgb(255, 0, 0));
		--   first= Test.DATA:first()*2 ;

		SourceData[i] = core.host:execute("getSyncHistory", Pair[i], TF[i], source:isBid(), 300, 200 + i, 100 + i)
		Indicator[i] =
			core.indicators:create(
			"NLD",
			SourceData[i][Price[i]],
			Length[i],
			Filter[i],
			ColorBarBack[i],
			Deviation[i],
			core.rgb(0, 255, 0),
			core.rgb(255, 0, 0)
		)
		loading[i] = true
	end

	instance:ownerDrawn(true)
	core.host:execute("setTimer", 1, 1)
end

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

function Initialization(id, period)
	local Candle
	Candle = core.getcandle(TF[id], source:date(period), offset, weekoffset)

	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
-- TODO: Add your code for calculation output values
function Update(period)
end

local initialization = false

function Draw(stage, context)
	if stage ~= 2 then
		return
	end

	if not initialization then
		initialization = true
		for i = 1, Number, 1 do
			context:createPen(20 + i, context:convertPenStyle(style[i]), width[i], UP)
			context:createPen(30 + i, context:convertPenStyle(style[i]), width[i], DN)
			context:createPen(40 + i, context:convertPenStyle(style[i]), width[i], NO)
		end
	end

	local Flag = false

	for i = 1, Number, 1 do
		if loading[i] then
			Flag = true
		end
	end

	if Flag then
		return
	end

	local Symbol = "\149"

	local xCell = ((context:right() - context:left()) / 100) * (HSize / Number)
	local yCell = (context:bottom() - context:top()) / 15

	context:createFont(2, "Arial", (xCell / 10) * (Size / 100), yCell * (Size / 100), 0)
	context:createFont(1, "Wingdings", (xCell / 10) * (Size / 100) * 2, yCell * (Size / 100), 0)

	for i = 1, Number, 1 do
		local Color

		if Indicator[i].DATA:hasData(Indicator[i].DATA:size() - 1) then
			if Indicator[i].DATA:colorI(Indicator[i].DATA:size() - 1) == core.rgb(0, 255, 0) then
				Color = UP
				Symbol = "\217"
				Index = 20
			elseif Indicator[i].DATA:colorI(Indicator[i].DATA:size() - 1) == core.rgb(255, 0, 0) then
				Color = DN
				Symbol = "\218"
				Index = 30
			else
				Symbol = "\160"
				Color = NO
				Index = 40
			end

			if ShowLine[i] then
				fromDate, toDate =
					core.getcandle(
					TF[i],
					source:date(source:size() - 1),
					core.host:execute("getTradingDayOffset"),
					core.host:execute("getTradingWeekOffset")
				)

				x, x1, x = context:positionOfDate(fromDate)
				x, _, x2 = context:positionOfDate(toDate)
				visible, y = context:pointOfPrice(Indicator[i].DATA[Indicator[i].DATA:size() - 1])
				context:drawLine(Index + i, x1, y, x2, y)

				text =
					TF[i] .. " : " .. win32.formatNumber(Indicator[i].DATA[Indicator[i].DATA:size() - 1], false, source:getPrecision())
				width, height = context:measureText(2, text, 0)
				context:drawText(2, text, Label, -1, x2, y - height, x2 + width, y, 0)
			end

			width, height = context:measureText(1, tostring(Symbol), 0)
			context:drawText(
				1,
				tostring(Symbol),
				Color,
				-1,
				context:right() - (i) * xCell,
				context:top() + VShift + yCell * 2,
				context:right() - (i - 1) * xCell + width,
				context:top() + VShift + yCell * 2 + height,
				0
			)

			width, height = context:measureText(2, tostring(TF[i]), 0)
			context:drawText(
				2,
				tostring(TF[i]),
				Label,
				-1,
				context:right() - (i) * xCell,
				context:top() + VShift + yCell,
				context:right() - (i - 1) * xCell + width,
				context:top() + VShift + yCell + height,
				0
			)

			local Value = win32.formatNumber(Indicator[i].DATA[Indicator[i].DATA:size() - 1], false, source:getPrecision())

			width, height = context:measureText(2, Value, 0)
			context:drawText(
				2,
				Value,
				Label,
				-1,
				context:right() - (i) * xCell,
				context:top() + VShift + yCell * 3,
				context:right() - (i - 1) * xCell + width,
				context:top() + VShift + yCell * 3 + height,
				0
			)
		end
	end
end

-- the function is called when the async operation is finished

function AsyncOperationFinished(cookie)
	local j
	local Flag = false
	local Count = 0
	local ID = 0

	for j = 1, Number, 1 do
		if cookie == (100 + j) then
			loading[j] = true
		elseif cookie == (200 + j) then
			loading[j] = false
		end

		if loading[j] then
			Count = Count + 1
			Flag = true
		end
	end

	if not Flag and cookie == 1 then
		for j = 1, Number, 1 do
			Indicator[j]:update(core.UpdateLast)
		end
	end

	if Flag then
		core.host:execute("setStatus", " Loading " .. (Number - Count) .. "/" .. Number)
	else
		core.host:execute("setStatus", " Loaded " .. (Number - Count) .. "/" .. Number)
		instance:updateFrom(0)
	end

	return core.ASYNC_REDRAW
end