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

--+------------------------------------------------------------------+
--|                               Copyright © 2019, 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  |
--+------------------------------------------------------------------+

function Init()
	indicator:name("Period High Low")
	indicator:description("")
	indicator:requiredSource(core.Bar)
	indicator:type(core.Indicator)

	indicator.parameters:addGroup("Calculation")
	indicator.parameters:addInteger("Period", "Period", "Period", 10)

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

	indicator.parameters:addGroup("Style")
	indicator.parameters:addColor("Label", "Label Color", "", core.rgb(0, 0, 0))
	indicator.parameters:addInteger("Size", "Font Size", "", 8)
	indicator.parameters:addColor("color", "Line Color", "", core.rgb(255, 0, 0))

	local iTF = {"m1", "m5", "m15", "m30", "H1", "H2", "H3", "H4", "H6", "H8", "D1", "W1", "M1"}

	indicator.parameters:addGroup("Line Style")
	for i = 1, 13, 1 do
		indicator.parameters:addColor("Min" .. i, iTF[i] .. " Low Color", "", core.rgb(255, 0, 0))
		indicator.parameters:addColor("Max" .. i, iTF[i] .. " High Color", "", core.rgb(0, 255, 0))
		indicator.parameters:addInteger("style" .. i, iTF[i] .. " Line Style", "", core.LINE_SOLID)
		indicator.parameters:setFlag("style" .. i, core.FLAG_LEVEL_STYLE)
		indicator.parameters:addInteger("width" .. i, iTF[i] .. " Line Width", "", 3, 1, 5)
	end
end

function Add(id, Label, IsIt)
	indicator.parameters:addBoolean("On" .. id, "Use" .. tostring(Label) .. " Time Frame", "", IsIt)
end

local iTF = {"m1", "m5", "m15", "m30", "H1", "H2", "H3", "H4", "H6", "H8", "D1", "W1", "M1"}

local Source = {}
local TF = {}
local first
local source = nil
local loading = {}

local Number
local Period
local Label, Size

local style = {}
local width = {}
local Min = {}
local Max = {}
local tradingWeekOffset, tradingDayOffset;
-- Routine
function Prepare(nameOnly)
	local name = profile:id() .. "(" .. instance.source:name() .. ")"
	instance:name(name)

	Period = instance.parameters.Period

	Label = instance.parameters.Label
	Size = instance.parameters.Size

	if (nameOnly) then
		return
	end

	source = instance.source
	tradingWeekOffset = core.host:execute("getTradingWeekOffset");
	tradingDayOffset = core.host:execute("getTradingDayOffset");

	Number = 0

	local i
	for i = 1, 13, 1 do
		if instance.parameters:getBoolean("On" .. i) then
			Number = Number + 1

			TF[Number] = iTF[i]

			Min[Number] = instance.parameters:getColor("Min" .. i)
			Max[Number] = instance.parameters:getColor("Max" .. i)
			style[Number] = instance.parameters:getInteger("style" .. i)
			width[Number] = instance.parameters:getInteger("width" .. i)

			Source[Number] =
				core.host:execute(
				"getSyncHistory",
				source:instrument(),
				TF[Number],
				source:isBid(),
				math.min(300, Period),
				200 + Number,
				100 + Number
			)

			loading[Number] = true
		end
	end

	instance:ownerDrawn(true)
end

-- Indicator calculation routine
-- TODO: Add your code for calculation output values
function Update(period, mode)
end

local init = false

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

	for j = 1, Number, 1 do
		if loading[j] then
			return
		end
	end

	if not init then
		context:createFont(25, "Arial", 0, context:pointsToPixels(Size), 0)
		for j = 1, Number, 1 do
			context:createPen(j, context:convertPenStyle(style[j]), width[j], Min[j])
			context:createPen(j + 20, context:convertPenStyle(style[j]), width[j], Max[j])
		end

		init = true
	end

	local min, max
	for j = 1, Number, 1 do
		for i = 0, Source[j]:size() - 1 do
			min = Source[j].low[i]
			max = Source[j].high[i]
			visible, y_min = context:pointOfPrice(min)
			visible, y_max = context:pointOfPrice(max)
			local s, e = core.getcandle(Source[j]:barSize(), Source[j]:date(i), tradingDayOffset, tradingWeekOffset)
			local x1 = context:positionOfDate(s)
			local x2 = context:positionOfDate(e)
			if not (x2 <= context:left() or x1 >= context:right()) then
				context:drawLine(j, x1, y_min, x2, y_min)
				context:drawLine(j + 20, x1, y_max, x2, y_max)

				Shift = ((x2 - x1) / 13) * (j - 1)

				Text = TF[j] .. " Max"
				width, height = context:measureText(25, Text, 0)
				context:drawText(25, Text, Label, -1, x2 - Shift - width, y_max - height, x2 - Shift, y_max, 0)

				Text = win32.formatNumber(max, false, source:getPrecision())
				width, height = context:measureText(25, Text, 0)
				context:drawText(25, Text, Label, -1, x2 - Shift - width, y_max, x2 - Shift, y_max + height, 0)

				Text = TF[j] .. "Min"
				width, height = context:measureText(25, Text, 0)
				context:drawText(25, Text, Label, -1, x2 - Shift - width, y_min - height, x2 - Shift, y_min, 0)

				Text = win32.formatNumber(min, false, source:getPrecision())
				width, height = context:measureText(25, Text, 0)
				context:drawText(25, Text, Label, -1, x2 - Shift - width, y_min, x2 - Shift, y_min + height, 0)
			end
		end
	end
end

-- the function is called when the async operation is finished
function AsyncOperationFinished(cookie)
	local j
	local Flag = false
	local Count = 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 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