/*
 * gfx_blit_cols — блит спрайта column-major (getimage-заголовок uint16 w,h;
 * далее пиксели ПО КОЛОНКАМ: колонка 0 сверху вниз, потом колонка 1, ...)
 * в (x,y) текущим банком (gfx_set_bank; 0x5C/0x58 прозрачный).  Каждая
 * колонка — вертикальный accel-burst (_bgi_blit_cols_raw).
 *
 * flip != 0 — ГОРИЗОНТАЛЬНОЕ зеркало (для направления персонажа): источник
 * читается с последней колонки к первой (sstride отрицательный), правая
 * колонка ложится в левый x экрана.  Без CPU-реверса и без второй копии
 * атласа.  Зеркало происходит ВНУТРИ футпринта [x, x+w); чтобы держать
 * "hot-point" персонажа на месте (как оригинал: xpos -= w), вызывающий
 * при флипе подаёт x = anchor - w (см. pop_kid.c kid_draw).
 *
 * Клип по экрану ЕСТЬ (аналог _gfx_blit_full, но роли осей зеркальны:
 * x = номер КОЛОНКИ, y = смещение ВНУТРИ колонки).  sstride считается по
 * ПОЛНОЙ высоте (колонки в ОЗУ лежат full_h друг от друга), длина accel-
 * блока — по обрезанной.  Спрайты Kid < 256 по обеим осям → нарезка на
 * полосы >256 не нужна (raw принимает uint8_t w,h; 0 => 256).  img вне W3.
 */
#include <stdint.h>
#include "../_bgi.h"

void gfx_blit_cols(int x, int y, const void *img, uint8_t flip)
{
    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 = full_h;
    int sstride = flip ? -full_h : full_h;   /* шаг между колонками в ОЗУ */
    int sy = 0;                              /* пропуск строк сверху колонки */
    int cx = 0;                              /* пропуск колонок слева экрана */
    const uint8_t *src;
    uint8_t *dst;

    if (full_w <= 0 || full_h <= 0)
        return;

    /* Клип по экрану — только если хоть один край вылезает. */
    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;
    }

    /* Первая ВИДИМАЯ колонка (с учётом флипа) + первая видимая строка.
     * cx экранных колонок слева пропускаем шагом sstride (в флипе он
     * отрицателен — уходим к более ранним колонкам источника); sy строк
     * сверху — простым +sy внутри колонки (порядок строк флип не меняет). */
    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();
}