<?php
/**
 * 折线图（v24 用户 2026-10-03 第 8 条）—— **服务端画 SVG**，零依赖。
 *
 * 用户原话：「把这种变化，每个账目的金额变化，还有总金额的变化，在账本列表上面，
 *            画出一个图，折线图这样的，这样就能清晰的看到账户的金额变化。」
 *
 * 为什么不用 Chart.js / ECharts：
 *   · 这个项目是**零依赖**的（没有 Composer，也没有前端构建）——
 *     为两张小图引一个几百 KB 的图表库、再配一个 CDN（线上未必连得上），
 *     代价和风险都不成比例；
 *   · 折线图本来就是一个 polyline，SVG 手写十几行就够；
 *   · 服务端画 = 没有 JS 也能看见（打印、禁用 JS 的场景都在）。
 *
 * 用法：
 *   $ckSeries = [['date'=>'2025-01-01','cents'=>123456], …];
 *   $ckLabel  = '招商银行';
 *   $ckKind   = 'asset';   // 'asset' 红 / 'debt' 绿（**A 股口径：涨红跌绿**）
 *   $ckWidth  = 260;
 *   echo chart_line($ckSeries, $ckLabel, $ckKind, $ckWidth);
 *
 * ⚠️ 颜色按**中式财务习惯**：金额变多 = 红，变少 = 绿（与 A 股一致）。
 *    这是项目里已经定下的口径（见 Ledger 的 led-asset/led-debt 配色），
 *    改成欧美口径（涨绿跌红）会让这个页面和账目表对不上。
 */

/**
 * 把一串「日期 → 分值」画成一条折线。
 *
 * @param array  $series ['date'=>'Y-m-d','cents'=>int] 列表，按时间正序；空数组返回 ''
 * @param string $label  图例上的名字
 * @param string $kind   'asset' | 'debt'（只影响配色）
 * @param int    $width  画布宽（高度按 3:1 推）
 * @param bool   $showVal 是否在两端标出金额
 * @return string SVG（可直接 echo）
 */
function chart_line(array $series, string $label, string $kind = 'asset', int $width = 260, bool $showVal = true): string
{
    $pts = [];
    foreach ($series as $p) {
        $pts[] = ['d' => (string)($p['date'] ?? ''), 'v' => (int)($p['cents'] ?? 0)];
    }
    if (!$pts) {
        return '';
    }

    $w = max(120, $width);
    $h = (int)round($w / 3.2);
    // 内边距：左边留给"最高/最低"标签，下边留给日期，上边留给数值标
    $padL = 6; $padR = 6; $padT = 14; $padB = 16;
    $iw = $w - $padL - $padR;
    $ih = $h - $padT - $padB;

    $vals = array_column($pts, 'v');
    $min  = min($vals);
    $max  = max($vals);
    // ⚠️ 只有一个点、或所有值相同 → max==min，除零。
    //    此时把线画在**中间**（比贴底好：贴底看起来像"跌到 0 了"）。
    $span = $max - $min;
    $flat = $span <= 0;
    if ($flat) {
        $span = 1;
    }

    $n = count($pts);
    $xy = [];
    foreach ($pts as $i => $p) {
        $x = $n === 1 ? ($padL + $iw / 2) : ($padL + $iw * $i / ($n - 1));
        $ratio = $flat ? 0.5 : (($p['v'] - $min) / $span);
        $y = $padT + $ih * (1 - $ratio);
        $xy[] = [round($x, 2), round($y, 2)];
    }

    $isDebt = $kind === 'debt';
    // 中式财务口径：资产涨=红、负债涨=绿（负债变多是"好"的方向相反，同样用绿表示"更多")
    $stroke = $isDebt ? '#1F7A4D' : '#B0342C';
    $fill   = $isDebt ? 'rgba(31,122,77,.10)' : 'rgba(176,52,44,.10)';

    $poly = [];
    foreach ($xy as $p) {
        $poly[] = $p[0] . ',' . $p[1];
    }
    $polyStr = implode(' ', $poly);

    // 面积：从线走一遍再回到基线 —— 让"变化"比一条细线更醒目
    $areaStr = '';
    if ($n > 1) {
        $base = $padT + $ih;
        $areaStr = $padL . ',' . $base . ' ' . $polyStr . ' '
                 . ($padL + $iw) . ',' . $base;
    }

    $out = '<svg class="ck-svg" viewBox="0 0 ' . $w . ' ' . $h . '" width="100%" height="' . $h . '"'
         . ' role="img" aria-label="' . e($label) . ' 金额变化"'
         . ' xmlns="http://www.w3.org/2000/svg">';
    // 基线（0 或最低值那一条）—— 让图有个水平参照
    $out .= '<line x1="' . $padL . '" y1="' . ($padT + $ih) . '" x2="' . ($padL + $iw) . '" y2="' . ($padT + $ih)
          . '" stroke="currentColor" stroke-opacity=".18" stroke-width="1"/>';
    if ($areaStr !== '') {
        $out .= '<polygon points="' . $areaStr . '" fill="' . $fill . '" stroke="none"/>';
    }
    if ($n === 1) {
        $out .= '<circle cx="' . $xy[0][0] . '" cy="' . $xy[0][1] . '" r="3" fill="' . $stroke . '"/>';
    } else {
        $out .= '<polyline points="' . $polyStr . '" fill="none" stroke="' . $stroke . '"'
              . ' stroke-width="2" stroke-linejoin="round" stroke-linecap="round"/>';
        // 每个盘点点一个小圆点：有几处转折要看得出来
        foreach ($xy as $p) {
            $out .= '<circle cx="' . $p[0] . '" cy="' . $p[1] . '" r="2.4" fill="#fff" stroke="' . $stroke . '" stroke-width="1.6"/>';
        }
    }
    if ($showVal && $n > 0) {
        // 首尾各标一个数值：光看形状不知道"多少"
        $first = $pts[0];
        $last  = $pts[$n - 1];
        $fy = max(9, $xy[0][1] - 6);
        $ly = max(9, $xy[$n - 1][1] - 6);
        $out .= '<text x="' . $padL . '" y="' . $fy . '" font-size="9" fill="currentColor" fill-opacity=".65">'
              . e(\App\Ledger::money($first['v'])) . '</text>';
        if ($n > 1) {
            $out .= '<text x="' . ($padL + $iw) . '" y="' . $ly . '" font-size="9" text-anchor="end"'
                  . ' fill="' . $stroke . '">' . e(\App\Ledger::money($last['v'])) . '</text>';
        }
    }
    // 日期：首尾各一个（中间的点太密，标了反而糊）
    $out .= '<text x="' . $padL . '" y="' . ($h - 4) . '" font-size="9" fill="currentColor" fill-opacity=".55">'
          . e((string)$pts[0]['d']) . '</text>';
    if ($n > 1) {
        $out .= '<text x="' . ($padL + $iw) . '" y="' . ($h - 4) . '" font-size="9" text-anchor="end"'
              . ' fill="currentColor" fill-opacity=".55">' . e((string)$pts[$n - 1]['d']) . '</text>';
    }
    $out .= '</svg>';
    return $out;
}