/*
 * gfx_blit_cols_part — блит спрайта column-major с ОБРЕЗКОЙ СВЕРХУ: рисуются
 * только строки [skip, skip+rows) кадра, и (x,y) — экранная позиция ПЕРВОЙ
 * нарисованной строки (как у gfx_blit_part: координата назначения под-
 * прямоугольника).  rows <= 0 — «до низа кадра».
 *
 * Нужно для порта clip_char (PoP): персонаж, чья голова ушла под пол/стену,
 * рисуется обрезанным по линии пола (obj_clip_top), а не целиком.  Обрезка
 * сверху для column-major бесплатна: колонка = непрерывный кусок ОЗУ, старт
 * просто сдвигается на skip байт, длина accel-блока уменьшается.
 *
 * Здесь же живёт полное тело блита колонками — gfx_blit_cols() тонкая
 * обёртка (skip=0, rows=0), чтобы не дублировать клип-логику.
 * Подробности зеркала/клипа — см. шапку gfx_blit_cols.c.
 */
#include <stdint.h>
#include "../_bgi.h"

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