/*
 * gfx_blit_cols_part_w — блит спрайта column-major с обрезкой СВЕРХУ
 * (skip/rows) И ОГРАНИЧЕНИЕМ ШИРИНЫ (maxw): рисуются только первые maxw
 * колонок футпринта, считая от x.  maxw = 0 — «вся ширина кадра».
 *
 * Здесь живёт ПОЛНОЕ тело блита колонками; gfx_blit_cols_part (maxw=0) и
 * gfx_blit_cols (ещё и skip=rows=0) — тонкие обёртки, чтобы клип-логика не
 * дублировалась.  Подробности зеркала/клипа — см. шапку gfx_blit_cols.c.
 *
 * Зачем ограничение ширины.  Обрезка СПРАВА для column-major — это ровно
 * уменьшение числа колонок, то есть внутри уже есть (так же клипается край
 * экрана: `w = _bgi_maxx + 1 - x`), наружу просто не было выведено.
 * Понадобилось для порта clip_char в PoP: персонаж, поднимающийся по
 * лестнице за дверью уровня, обязан уходить за правый косяк проёма
 * (obj_clip_right), а дверь рисуется ПОД ним и перекрыть его не может.
 *
 * Важно: ограничение работает и при flip.  При зеркале источник читается с
 * последней колонки к первой (sstride < 0), но первые w нарисованных
 * колонок в любом случае ложатся в ЛЕВУЮ часть футпринта [x, x+w) — то
 * есть уменьшение w всегда срезает справа, как и требуется.
 */
#include <stdint.h>
#include "../_bgi.h"

void gfx_blit_cols_part_w(int x, int y, const void *img, uint8_t flip,
                          int skip, int rows, 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 (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();
}
