-- Available @ https://fxcodebase.com/code/viewtopic.php?f=17&t=76356
--
-- ── Author ─────────────────────────────────────────────────────────────────────
-- Developed by: Mario Jemic
-- Email:        mario.jemic@gmail.com
-- Website:      https://mario-jemic.com
--
-- ── Support & Donations ────────────────────────────────────────────────────────
-- PayPal:        https://goo.gl/9Rj74e
-- Patreon:       https://tiny.cc/1ybwxz
-- BuyMeACoffee:  https://tiny.cc/bj7vxz
--
-- Crypto:
--  BTC : 16F5k43RXibTmna4np8bPVgmXM1CzjXFJJ
--  SOL : 3nh5rpUKopcYLNU4zGCdUFAkM3iRQq8VVUmuzVG6VDf2
--  ETH/BNB/USDT/XRP (ERC20 & BEP20): 0xe53aab6bc468a963a02d1319660ee60cf80fc8e7
--
-- ── Copyright ──────────────────────────────────────────────────────────────────
-- © 2025 Gehtsoft USA LLC — https://fxcodebase.com

-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
--
-- <https://www.gnu.org/licenses/>.
-- Synthetic vs Real (Line/Candle, HTF fetch + safe time-align)
-- - HTF-style dohvat i poravnanje po vremenu (bez core.getPrevDate)
-- - Auto LONG/SHORT/NEUTRAL po Z-score (spread = synth - actual)
-- - 3 uvećana imena instrumenata obojana po signalu
-- © 2025 — MIT

function Init()
    indicator:name("Synthetic vs Real (Line/Candle, HTF-safe)");
    indicator:description("Synthetic line or candles with HTF-style fetch & safe time-align (no core.getPrevDate).");
    indicator:requiredSource(core.Bar);
    indicator:type(core.Indicator);

    indicator.parameters:addGroup("Symbols");
    indicator.parameters:addString("Target", "Target (U/V)", "", "NZD/CAD");                indicator.parameters:setFlag("Target", core.FLAG_INSTRUMENTS);
    indicator.parameters:addString("Leg1",   "Leg 1 (denominator for DIV)", "", "AUD/NZD"); indicator.parameters:setFlag("Leg1",   core.FLAG_INSTRUMENTS);
    indicator.parameters:addString("Leg2",   "Leg 2 (numerator for DIV)",   "", "AUD/CAD"); indicator.parameters:setFlag("Leg2",   core.FLAG_INSTRUMENTS);
    indicator.parameters:addBoolean("UseBid","Use Bid prices", "", true);

    indicator.parameters:addGroup("Display");
    indicator.parameters:addString("DisplayMode", "Synthetic Display", "", "LINE");
    indicator.parameters:addStringAlternative("DisplayMode", "Line",   "", "LINE");
    indicator.parameters:addStringAlternative("DisplayMode", "Candle", "", "CANDLE");
    indicator.parameters:addInteger("LineWidth",  "Line width", "", 2, 1, 6);
    indicator.parameters:addInteger("BarSizePct", "Candle width (% of cell)", "", 60, 10, 100);

    indicator.parameters:addGroup("Z-Score Signals");
    indicator.parameters:addInteger("Z_Len",   "Z lookback (bars)", "", 100, 10, 10000);
    indicator.parameters:addDouble("EntryZ",   "Entry |Z|",         "", 2.0, 0.1, 10.0);
    indicator.parameters:addDouble("ExitZ",    "Exit |Z|",          "", 0.5, 0.0, 10.0);
    indicator.parameters:addDouble("PipsBuffer","Min deviation (pips)", "", 2.0, 0.0, 1000.0);

    indicator.parameters:addGroup("Colors");
    indicator.parameters:addColor("ClrLong",    "Long color",    "", core.rgb(0,200,0));
    indicator.parameters:addColor("ClrShort",   "Short color",   "", core.rgb(200,0,0));
    indicator.parameters:addColor("ClrNeutral", "Neutral color", "", core.rgb(150,150,150));

    indicator.parameters:addGroup("Label Position");
    indicator.parameters:addString("Corner", "Corner", "", "TopRight");
    indicator.parameters:addStringAlternative("Corner", "Top-left",     "", "TopLeft");
    indicator.parameters:addStringAlternative("Corner", "Top-right",    "", "TopRight");
    indicator.parameters:addStringAlternative("Corner", "Bottom-left",  "", "BottomLeft");
    indicator.parameters:addStringAlternative("Corner", "Bottom-right", "", "BottomRight");
    indicator.parameters:addInteger("MarginX", "Margin X (px)", "", 10, 0, 300);
    indicator.parameters:addInteger("MarginY", "Margin Y (px)", "", 10, 0, 300);
    indicator.parameters:addInteger("RowGap",  "Row gap (px)",  "", 6,  0, 60);
    indicator.parameters:addInteger("NameFontPx","Name font (px)", "", 24, 10, 96);
end

-- ===== Utils =====
local function splitPair(sym)
    local a,b = string.match(sym, "^([%u]+)%/(%u+)$");
    assert(a and b, "Bad symbol: "..tostring(sym));
    return a,b
end
local function min4(a,b,c,d) return math.min(math.min(a,b), math.min(c,d)) end
local function max4(a,b,c,d) return math.max(math.max(a,b), math.max(c,d)) end
local function prod_bounds(l1,h1,l2,h2)
    local p1,p2,p3,p4 = l1*l2, l1*h2, h1*l2, h1*h2; return min4(p1,p2,p3,p4), max4(p1,p2,p3,p4)
end
local function div_bounds(l1,h1,l2,h2)
    local q1,q2,q3,q4 = l1/l2, l1/h2, h1/l2, h1/h2; return min4(q1,q2,q3,q4), max4(q1,q2,q3,q4)
end

-- ===== Globals =====
local source
local Target, Leg1, Leg2, UseBid
local DisplayMode, LineWidth, BarSizePct
local A_stream, B_stream, loadingA, loadingB, firstCalc, op
local g_close, g_open, g_high, g_low
local Corner, MarginX, MarginY, RowGap, NameFontPx
local ClrLong, ClrShort, ClrNeutral
local Z_Len, EntryZ, ExitZ, PipsBuffer
local fontMade=false
local dayoffset, weekoffset

-- Z internals + buffers
local spread, spread2
local z_stream, side_stream, dev_stream
local Z_cur = nil
local sideTarget, sideLeg1, sideLeg2 = "NEUTRAL","NEUTRAL","NEUTRAL"

-- ===== Side helpers =====
local function colorBySide(side)
    if side == "LONG"      then return ClrLong
    elseif side == "SHORT" then return ClrShort
    else return ClrNeutral end
end
local function decideTargetSideFromZ(z, devPips)
    if z == nil then return "NEUTRAL" end
    if math.abs(z) <= ExitZ then return "NEUTRAL" end
    if devPips < PipsBuffer then return "NEUTRAL" end
    if z <= -EntryZ then return "LONG" end
    if z >=  EntryZ then return "SHORT" end
    return "NEUTRAL"
end
local function mapLegSides(opKind, targetSide)
    if targetSide == "NEUTRAL" then return "NEUTRAL","NEUTRAL" end
    if opKind == "MUL" then
        if targetSide == "LONG"  then return "LONG","LONG" end
        if targetSide == "SHORT" then return "SHORT","SHORT" end
    else -- DIV : Target = Leg2 / Leg1
        if targetSide == "LONG"  then return "SHORT","LONG" end
        if targetSide == "SHORT" then return "LONG","SHORT" end
    end
    return "NEUTRAL","NEUTRAL"
end

-- ===== Prepare =====
function Prepare(nameOnly)
    source  = instance.source
    Target  = instance.parameters.Target
    Leg1    = instance.parameters.Leg1
    Leg2    = instance.parameters.Leg2
    UseBid  = instance.parameters.UseBid
    DisplayMode = instance.parameters.DisplayMode
    LineWidth   = instance.parameters.LineWidth
    BarSizePct  = instance.parameters.BarSizePct
    Corner      = instance.parameters.Corner
    MarginX     = instance.parameters.MarginX
    MarginY     = instance.parameters.MarginY
    RowGap      = instance.parameters.RowGap
    NameFontPx  = instance.parameters.NameFontPx
    ClrLong     = instance.parameters.ClrLong
    ClrShort    = instance.parameters.ClrShort
    ClrNeutral  = instance.parameters.ClrNeutral
    Z_Len       = instance.parameters.Z_Len
    EntryZ      = instance.parameters.EntryZ
    ExitZ       = instance.parameters.ExitZ
    PipsBuffer  = instance.parameters.PipsBuffer

    local U,V = splitPair(Target)
    local X,Y = splitPair(Leg1)
    local M,N = splitPair(Leg2)
    if (Y == N and X == U and M == V) then
        op = "DIV"
    elseif (X == U and N == V and Y == M) then
        op = "MUL"
    elseif (X == M and Y == U and N == V) then
        op = "DIV"
    else
        op = "DIV"
    end

    local name = profile:id() .. "(" .. source:name() .. "; " .. Target .. ")"
    instance:name(name)
    if nameOnly then return end

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

    local TF = source:barSize()
    local first = source:first()
    A_stream = core.host:execute("getSyncHistory", Leg1, TF, UseBid, first, 100, 101); loadingA = true
    B_stream = core.host:execute("getSyncHistory", Leg2, TF, UseBid, first, 200, 201); loadingB = true

    if DisplayMode == "CANDLE" then
        g_open  = instance:addStream("g_open",  core.Line, name..".g_open",  "g_open",  ClrNeutral, 0)
        g_high  = instance:addStream("g_high",  core.Line, name..".g_high",  "g_high",  ClrNeutral, 0)
        g_low   = instance:addStream("g_low",   core.Line, name..".g_low",   "g_low",   ClrNeutral, 0)
        g_close = instance:addStream("g_close", core.Line, name..".g_close", "g_close", ClrNeutral, 0)
		g_open:setPrecision(math.max(2, instance.source:getPrecision()));	
		g_high:setPrecision(math.max(2, instance.source:getPrecision()));		
		g_low:setPrecision(math.max(2, instance.source:getPrecision()));
		g_close:setPrecision(math.max(2, instance.source:getPrecision()));		
        instance:createCandleGroup("Synthetic", "Synthetic", g_open, g_high, g_low, g_close)
    else
        g_close = instance:addStream("g_close", core.Line, name..".g_close", "Synthetic", ClrNeutral, 0)
        g_close:setWidth(LineWidth)	
		g_close:setPrecision(math.max(2, instance.source:getPrecision()));
    end

    spread      = instance:addInternalStream(0, 0)
    spread2     = instance:addInternalStream(0, 0)
    z_stream    = instance:addInternalStream(0, 0)
    side_stream = instance:addInternalStream(0, 0)
    dev_stream  = instance:addInternalStream(0, 0)

    instance:ownerDrawn(true)
    fontMade=false
    firstCalc = 0
end

-- ===== Async =====
function AsyncOperationFinished(cookie)
    if cookie == 100 then loadingA = false; 
    elseif cookie == 101 then loadingA = true
    elseif cookie == 200 then loadingB = false;  
    elseif cookie == 201 then loadingB = true end
    if (not loadingA) and (not loadingB) then
        firstCalc =  source:first()
        instance:updateFrom(firstCalc)
    end
    return core.ASYNC_REDRAW
end

-- ===== Time-align helper (HTF style) =====
local function timeAlignedIndex(stream, period)
    -- uzmi vremenski raspon svijeće na TF-u charta
    local candle = core.getcandle(source:barSize(), source:date(period), dayoffset, weekoffset)
    -- poravnaj po početku svijeće (HTF template koristi findDate(candle, false))
    local p = core.findDate(stream, candle, false)
    if p < 0 or not stream:hasData(p) then return -1 end
    return p
end

-- ===== Update =====
function Update(period, mode)
    if loadingA or loadingB then return end
    if period < firstCalc then return end
    if not source:hasData(period) then return end

    local ia = timeAlignedIndex(A_stream, period)
    local ib = timeAlignedIndex(B_stream, period)
    if ia == -1 or ib == -1 then return end

    local realO,realH,realL,realC = source.open[period], source.high[period], source.low[period], source.close[period]
    local aO,aH,aL,aC = A_stream.open[ia], A_stream.high[ia], A_stream.low[ia], A_stream.close[ia]
    local bO,bH,bL,bC = B_stream.open[ib], B_stream.high[ib], B_stream.low[ib], B_stream.close[ib]
    if aO<=0 or aL<=0 or bO<=0 or bL<=0 then return end

    local gO,gH,gL,gC
    if op == "MUL" then
        gO = bO * aO; gC = bC * aC; gL,gH = prod_bounds(aL,aH,bL,bH)
    else
        gO = bO / aO; gC = bC / aC; gL,gH = div_bounds(bL,bH,aL,aH)
    end

    if DisplayMode == "CANDLE" then
        g_open[period]=gO; g_high[period]=gH; g_low[period]=gL; g_close[period]=gC
    else
        g_close[period]=gC
    end

    local s = gC - realC
    spread[period]=s; spread2[period]=s*s

    if period >= firstCalc + (Z_Len - 1) then
        local rng=core.rangeTo(period, Z_Len)
        local mean=core.avg(spread,rng); local mean2=core.avg(spread2,rng)
        local var=mean2 - mean*mean; if var<0 then var=0 end
        local std=math.sqrt(var)
        Z_cur=(std>0) and ((s-mean)/std) or 0
    else
        Z_cur=nil
    end

    local pip=source:pipSize() or 0
    local devPips=(pip>0) and math.abs(s)/pip or 0
    sideTarget=decideTargetSideFromZ(Z_cur,devPips)
    sideLeg1,sideLeg2=mapLegSides(op,sideTarget)

    local col=colorBySide(sideTarget)
    if DisplayMode=="CANDLE" then g_open:setColor(period,col) else g_close:setColor(period,col) end
end

-- ===== Draw: Big colored names =====
function Draw(stage, context)
    if stage~=2 then return end
    if not fontMade then context:createFont(1,"Arial",NameFontPx,NameFontPx,0); fontMade=true end
    local left,top,right,bottom=context:left(),context:top(),context:right(),context:bottom()
    local x,y; local rowh=NameFontPx+RowGap
    if Corner=="TopLeft" then x=left+MarginX; y=top+MarginY
    elseif Corner=="TopRight" then x=right-MarginX; y=top+MarginY
    elseif Corner=="BottomLeft" then x=left+MarginX; y=bottom-MarginY-3*rowh
    else x=right-MarginX; y=bottom-MarginY-3*rowh end
    local style=context.SINGLELINE+context.LEFT+context.TOP
    local function drawName(text,col,yrow)
        local w,h=context:measureText(1,text,0)
        local bx=x; if Corner=="TopRight" or Corner=="BottomRight" then bx=x-w end
        context:drawText(1,text,col,-1,bx,yrow,bx+w,yrow+h,style,0)
    end
    drawName(Target,colorBySide(sideTarget),y+0*rowh)
    drawName(Leg1,colorBySide(sideLeg1),y+1*rowh)
    drawName(Leg2,colorBySide(sideLeg2),y+2*rowh)
end


-- Available @ https://fxcodebase.com/code/viewtopic.php?f=17&t=76356
--
-- ── Author ─────────────────────────────────────────────────────────────────────
-- Developed by: Mario Jemic
-- Email:        mario.jemic@gmail.com
-- Website:      https://mario-jemic.com
--
-- ── Support & Donations ────────────────────────────────────────────────────────
-- PayPal:        https://goo.gl/9Rj74e
-- Patreon:       https://tiny.cc/1ybwxz
-- BuyMeACoffee:  https://tiny.cc/bj7vxz
--
-- Crypto:
--  BTC : 16F5k43RXibTmna4np8bPVgmXM1CzjXFJJ
--  SOL : 3nh5rpUKopcYLNU4zGCdUFAkM3iRQq8VVUmuzVG6VDf2
--  ETH/BNB/USDT/XRP (ERC20 & BEP20): 0xe53aab6bc468a963a02d1319660ee60cf80fc8e7
--
-- ── Copyright ──────────────────────────────────────────────────────────────────
-- © 2025 Gehtsoft USA LLC — https://fxcodebase.com

-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
--
-- <https://www.gnu.org/licenses/>.