//@version=6
// Time Cycles — cyclus-derden als blokken, met het eerste-cyclus model.
//
// Standaard: cyclus 13m20s, ouder 40m (= 3 x 13m20s).
// De EERSTE cyclus van elke ouder krijgt een dikke rand: die zet de richting.
// Sluit een bevestigingscandle buiten die eerste range, dan wordt de
// TEGENOVERLIGGENDE kant beschermd tot het einde van de ouder-cyclus.
//
//   cyclus 13m20s -> bevestiging 3m close
//   cyclus 40m    -> bevestiging 5m close
//   cyclus 2h     -> bevestiging 15m close
//
// Anker 18:00 New York. Body close, geen wick.
indicator("Time Cycles", "Cycles", overlay = true,
     max_lines_count = 500, max_labels_count = 500, max_boxes_count = 500)

gC = "Cyclus"
cycTxt = input.string("13m20s", "Cyclus (de blokken)", group = gC,
     tooltip = "13m20s · 40m · 27m · 90m · 2h · 13:20\nKaal getal = minuten.\nDe ouder is automatisch 3 x deze lengte.")
d1 = input.bool(true, "1e derde", group = gC, inline = "d")
d2 = input.bool(true, "2e derde", group = gC, inline = "d")
d3 = input.bool(true, "3e derde", group = gC, inline = "d")

gM = "Eerste-cyclus model"
modelAan = input.bool(true, "Bevestiging en beschermd niveau tonen", group = gM)
confTxt  = input.string("auto", "Bevestigingscandle", group = gM,
     options = ["auto", "1", "3", "5", "15", "30"],
     tooltip = "auto: 13m20s -> 3m · 40m -> 5m · 2h -> 15m")
toonRef  = input.bool(true, "Range van de eerste cyclus doortrekken", group = gM)

gA = "Anker"
anchorTxt = input.string("18:00", "Reset elke dag om", group = gA)
tzTxt = input.string("America/New_York", "Tijdzone", group = gA,
     options = ["America/New_York", "Europe/Amsterdam", "Asia/Dubai", "UTC"])

gS = "Stijl"
k1 = input.color(#1c4e80, "1e derde", group = gS, inline = "k")
k2 = input.color(#7a8b3f, "2e derde", group = gS, inline = "k")
k3 = input.color(#9c5a2d, "3e derde", group = gS, inline = "k")
kBull = input.color(#1f7a4d, "Beschermd — bullish", group = gS)
kBear = input.color(#a33a3a, "Beschermd — bearish", group = gS)
vul = input.int(90, "Blok doorzichtigheid", minval = 70, maxval = 99, group = gS)
toonTijd = input.bool(true, "Begin- en eindtijd bij elk blok", group = gS)
kOuder = input.color(#95a3ae, "Ouder-lijn", group = gS)
keepN = input.int(40, "Blokken bewaren", minval = 5, maxval = 200, group = gS)

// ───────────────────────────────────────────────────────────── parser
parseDur(string raw) =>
    string t = str.replace_all(str.lower(raw), " ", "")
    float total = 0.0
    bool unit = str.contains(t, "h") or str.contains(t, "m") or str.contains(t, "s")
    if str.contains(t, ":") and not unit
        a = str.split(t, ":")
        float mm = array.size(a) > 0 ? nz(str.tonumber(array.get(a, 0))) : 0.0
        float ss = array.size(a) > 1 ? nz(str.tonumber(array.get(a, 1))) : 0.0
        total := mm * 60.0 + ss
    else
        string buf = ""
        string last = ""
        if str.length(t) > 0
            for i = 0 to str.length(t) - 1
                string ch = str.substring(t, i, i + 1)
                if ch == "h" or ch == "m" or ch == "s"
                    total += nz(str.tonumber(buf)) * (ch == "h" ? 3600.0 : ch == "m" ? 60.0 : 1.0)
                    buf := ""
                    last := ch
                else
                    buf := buf + ch
            if str.length(buf) > 0
                total += nz(str.tonumber(buf)) * (last == "h" ? 60.0 : last == "" ? 60.0 : 1.0)
    total

fmt(float s) =>
    int t = int(math.round(s))
    int h = int(math.floor(t / 3600.0))
    int m = int(math.floor((t % 3600) / 60.0))
    int x = t % 60
    string o = ""
    if h > 0
        o := o + str.tostring(h) + "h"
    if m > 0
        o := o + str.tostring(m) + "m"
    if x > 0
        o := o + str.tostring(x) + "s"
    o == "" ? "0" : o

// ─────────────────────────────────────────────── seconden sinds anker
ap = str.split(anchorTxt, ":")
int aH = array.size(ap) > 0 ? int(math.round(nz(str.tonumber(array.get(ap, 0))))) : 18
int aM = array.size(ap) > 1 ? int(math.round(nz(str.tonumber(array.get(ap, 1))))) : 0
int rel = hour(time, tzTxt) * 3600 + minute(time, tzTxt) * 60 + second(time, tzTxt) - (aH * 3600 + aM * 60)
rel := rel < 0 ? rel + 86400 : rel

float C = parseDur(cycTxt)
float P = C * 3.0
int tfSec = timeframe.in_seconds()
bool actief = C >= tfSec

// bevestigingscandle: auto uit de cycluslengte
string confAuto = C <= 1200 ? "3" : C <= 3600 ? "5" : "15"
string confTF = confTxt == "auto" ? confAuto : confTxt
int confSec = timeframe.in_seconds(confTF)
bool confKan = confSec >= tfSec

// een bevestigingscandle is zojuist AFGESLOTEN op de vorige bar
bool confDicht = ta.change(time(confTF)) != 0

// ──────────────────────────────────────────────────────────── blokken
var array<box>   bxs = array.new<box>()
var array<label> lbs = array.new<label>()
var array<line>  lns = array.new<line>()

var int   sIdx = -999999
var int   sT   = 0
var float sHi  = na
var float sLo  = na
var box   cur    = na
var label curLbl = na

// eerste-cyclus model
var int   pStart  = 0                 // start van de lopende ouder (ms)
var float refHi   = na                // range van de eerste cyclus
var float refLo   = na
var int   refEnd  = 0                 // einde van de ouder (ms)
var bool  refKlaar = false
var int   richting = 0                // 0 = nog niets, 1 = bull, -1 = bear
var box   eersteBox = na

aanTonen(int derde) => derde == 0 ? d1 : derde == 1 ? d2 : d3
kleurVan(int derde) => derde == 0 ? k1 : derde == 1 ? k2 : k3

if actief
    int idx = int(math.floor(rel / C))
    bool nieuwe = idx != sIdx
    int derdeNu = ((idx % 3) + 3) % 3

    if nieuwe and barstate.isconfirmed
        // de zojuist afgeronde cyclus was de EERSTE van de ouder -> range vastleggen
        if sIdx != -999999 and derdeNu == 1
            refHi := sHi
            refLo := sLo
            refEnd := pStart + int(P * 1000)
            refKlaar := true
            richting := 0
            if toonRef
                lh = line.new(sT, sHi, refEnd, sHi, xloc = xloc.bar_time,
                     color = color.new(k1, 40), width = 1, style = line.style_dotted)
                ll = line.new(sT, sLo, refEnd, sLo, xloc = xloc.bar_time,
                     color = color.new(k1, 40), width = 1, style = line.style_dotted)
                array.push(lns, lh)
                array.push(lns, ll)

        // nieuwe ouder begint
        if derdeNu == 0
            pStart := time
            refKlaar := false
            richting := 0
            refHi := na
            refLo := na
            if sIdx != -999999
                ol = line.new(time, low, time, high + syminfo.mintick, xloc = xloc.bar_time,
                     extend = extend.both, color = color.new(kOuder, 30), width = 1,
                     style = line.style_dashed)
                array.push(lns, ol)

        sIdx := idx
        sT   := time
        sHi  := high
        sLo  := low

        if aanTonen(derdeNu)
            color kl = kleurVan(derdeNu)
            int rand = derdeNu == 0 ? 2 : 1
            cur := box.new(sT, sHi, time_close, sLo, xloc = xloc.bar_time,
                 border_color = color.new(kl, 30), border_width = rand,
                 bgcolor = color.new(kl, vul))
            array.push(bxs, cur)
            if derdeNu == 0
                eersteBox := cur
            if toonTijd
                curLbl := label.new(sT, sLo, "", xloc = xloc.bar_time, yloc = yloc.price,
                     style = label.style_label_up, color = color.new(kl, 82),
                     textcolor = kl, size = size.tiny)
                array.push(lbs, curLbl)
        else
            cur := na
            curLbl := na
            if derdeNu == 0
                eersteBox := na

    if not nieuwe
        sHi := math.max(nz(sHi, high), high)
        sLo := math.min(nz(sLo, low),  low)
        if not na(cur)
            box.set_right(cur, time_close)
            box.set_top(cur, sHi)
            box.set_bottom(cur, sLo)
            if not na(curLbl)
                label.set_y(curLbl, sLo)
                string tTxt = str.format_time(sT, "HH:mm", tzTxt)
                string eTxt = str.format_time(sT + int(C * 1000), "HH:mm", tzTxt)
                string dTxt = derdeNu == 0 ? "  ①" : ""
                label.set_text(curLbl, tTxt + " – " + eTxt + dTxt)

    // ── bevestiging: body close buiten de range van de eerste cyclus
    if modelAan and confKan and refKlaar and richting == 0 and confDicht and barstate.isconfirmed
        float cc = close[1]
        if time <= refEnd and not na(refHi) and not na(refLo)
            if cc > refHi
                richting := 1
            else if cc < refLo
                richting := -1
            if richting != 0
                bool bull = richting == 1
                float niveau = bull ? refLo : refHi
                color kb = bull ? kBull : kBear
                bl = line.new(time, niveau, refEnd, niveau, xloc = xloc.bar_time,
                     color = kb, width = 3)
                array.push(lns, bl)
                string txt = (bull ? "bull" : "bear") + " bevestigd · " + confTF + "m close"
                lbx = label.new(time, niveau, txt, xloc = xloc.bar_time, yloc = yloc.price,
                     style = bull ? label.style_label_up : label.style_label_down,
                     color = color.new(kb, 78), textcolor = kb, size = size.tiny)
                array.push(lbs, lbx)
                if not na(eersteBox)
                    box.set_border_color(eersteBox, kb)
                    box.set_border_width(eersteBox, 3)

    if barstate.isconfirmed
        while array.size(bxs) > keepN
            box.delete(array.shift(bxs))
        while array.size(lbs) > keepN * 2
            label.delete(array.shift(lbs))
        while array.size(lns) > keepN * 3
            line.delete(array.shift(lns))

// ─────────────────────────────────────────────────────── overzichtje
var table tb = table.new(position.bottom_right, 1, 4, frame_width = 1,
     frame_color = color.new(#95a3ae, 40), border_width = 1, border_color = color.new(#95a3ae, 70))
if barstate.islast
    table.cell(tb, 0, 0, "cyclus " + fmt(C) + "  ·  ouder " + fmt(P),
         text_size = size.tiny, text_color = #14395b, bgcolor = color.new(#95a3ae, 88))
    table.cell(tb, 0, 1, "bevestiging: " + confTF + "m close",
         text_size = size.tiny, text_color = confKan ? #5f7080 : #9c5a2d,
         bgcolor = color.new(#ffffff, 100))
    string st = richting == 1 ? "bull — low beschermd" : richting == -1 ? "bear — high beschermd" : refKlaar ? "wacht op bevestiging" : "eerste cyclus loopt"
    table.cell(tb, 0, 2, st, text_size = size.tiny,
         text_color = richting == 1 ? kBull : richting == -1 ? kBear : #5f7080,
         bgcolor = color.new(#ffffff, 100))
    table.cell(tb, 0, 3, actief ? "anker " + anchorTxt : "cyclus fijner dan de chart",
         text_size = size.tiny, text_color = actief ? #5f7080 : #9c5a2d,
         bgcolor = color.new(#ffffff, 100))