/*
 * gfx_blit_cols_part_wx — блит спрайта column-major с обрезкой СВЕРХУ
 * (skip/rows) и ОКНОМ ПО КОЛОНКАМ: рисуются только колонки
 * [skipw, skipw + maxw) футпринта, считая от x.  skipw = 0 — от левого края,
 * maxw = 0 — «до правого края кадра».
 *
 * Здесь живёт ПОЛНОЕ тело блита колонками; gfx_blit_cols_part_w (skipw=0),
 * gfx_blit_cols_part (ещё и maxw=0) и gfx_blit_cols (плюс skip=rows=0) —
 * тонкие обёртки, чтобы клип-логика не дублировалась.  Подробности
 * зеркала/клипа — см. шапку gfx_blit_cols.c.
 *
 * Зачем обрезка СЛЕВА (skipw).  Для column-major она стоит ровно столько же,
 * сколько обрезка справа: колонка — непрерывный кусок ОЗУ, меняется только
 * стартовая колонка источника и экранная X.  Внутри это уже было —
 * так клипается левый край экрана (`if (x < 0) { cx = -x; ... }`), наружу
 * просто не было выведено.
 *
 * Понадобилось для зеркала в PoP (obj_clip_left, seg003:0798 и seg008:1699):
 * отражение Кида видно только внутри проёма зеркала, а тень уровня 4 — только
 * СПРАВА от него.  Обходной путь «нарисовать и вернуть фон поверх лишнего»
 * работал, но стоил лишний heal в кадре и рисовал невидимые колонки.
 *
 * Важно: окно работает и при flip.  При зеркале источник читается с
 * последней колонки к первой (sstride < 0), но НАРИСОВАННЫЕ колонки всегда
 * идут слева направо по футпринту [x, x+w) — то есть skipw срезает слева, а
 * maxw справа, независимо от направления чтения источника.
 */
#include <stdint.h>
#include "../_bgi.h"

void gfx_blit_cols_part_wx(int x, int y, const void *img, uint8_t flip,
                           int skip, int rows, uint8_t skipw, uint8_t maxw)
{
    const uint8_t *p = (const uint8_t *)img;
    int full_w = p[0] | (p[1] << 8);
    int full_h = p[2] | (p[3] << 8);
    const uint8_t *px = p + 4;
    int w = full_w, h;
    int sstride = flip ? -full_h : full_h;   /* шаг между колонками в ОЗУ */
    int sy;                                  /* пропуск строк сверху колонки */
    int cx = 0;                              /* пропуск колонок слева        */
    const uint8_t *src;
    uint8_t *dst;

    if (full_w <= 0 || full_h <= 0)
        return;
    if (skipw) {                             /* обрезка СЛЕВА (см. шапку) */
        if ((int)skipw >= w) return;         /* срезано целиком           */
        cx = (int)skipw;
        x += (int)skipw;
        w -= (int)skipw;
    }
    if (maxw && (int)maxw < w)
        w = (int)maxw;                       /* обрезка справа (см. шапку) */
    if (skip < 0) skip = 0;
    if (skip >= full_h)
        return;                              /* обрезано целиком */
    sy = skip;
    h = full_h - skip;
    if (rows > 0 && rows < h)
        h = rows;

    /* Клип по экрану — только если хоть один край вылезает. */
    if (x < 0 || y < 0 || x + w > _bgi_maxx + 1 || y + h > _bgi_maxy + 1) {
        if (x < 0) { cx -= x; w += x; x = 0; }
        if (y < 0) { sy -= y; h += y; y = 0; }
        if (x + w > _bgi_maxx + 1) w = _bgi_maxx + 1 - x;
        if (y + h > _bgi_maxy + 1) h = _bgi_maxy + 1 - y;
        if (w <= 0 || h <= 0) return;
    }

    /* Первая ВИДИМАЯ колонка (с учётом флипа) + первая видимая строка. */
    src = flip ? (px + (uint16_t)(full_w - 1) * (uint16_t)full_h) : px;
    if (cx)
        src += cx * sstride;
    src += sy;

    _bgi_begin();
    dst = (uint8_t *)(_gfx_addr_base + (uint16_t)x);
    _bgi_blit_cols_raw(src, dst, (uint8_t)w, (uint8_t)h, sstride, (uint8_t)y);
    _bgi_end();
}