/*
 * putimage — вывести образ bitmap левым-верхним углом в (left,top)
 * операцией op.  Заголовок буфера: uint16 width, uint16 height.
 *
 * COPY_PUT — через accel-ядро gfx_blit_part (block-copy строками, до
 * 256 байт за burst; Фаза A спрайтового дизайна) — С КЛИППИНГОМ по
 * экрану (superset поведения Turbo C, где выход за экран — UB) и
 * с учётом текущего банка (gfx_set_bank: 0x58 даёт аппаратную
 * прозрачность 0xFF, 0x54/0x5C — временный вывод).
 *
 * XOR/OR/AND — комбинируем с экраном по-пиксельно (raw-чтение +
 * raw-плот в одной W3-скобке); NOT — пишем ~src.  Ускорение этих op
 * блочными режимами акселератора — «следующая версия» (см.
 * docs/sprite-api-design.md §9).  Клиппинга на этом пути НЕТ
 * (per-pixel bounds-check остаётся только в safe-версии).
 *
 * Буфер bitmap обязан лежать вне W3 (< 0xC000) — на время операции W3
 * замаплен на видеобанк.
 */
#include "../_bgi.h"

void putimage(int left, int top, const void *bitmap, int op)
{
    const uint8_t *p = (const uint8_t *)bitmap;
    int w, h, x, y;
    uint8_t src, dst;

    w = p[0] | (p[1] << 8);
    h = p[2] | (p[3] << 8);
    if (w <= 0 || h <= 0) return;

    if (op == COPY_PUT) {
        gfx_blit_part(left, top, bitmap, 0, 0, w, h);
        return;
    }

    p += 4;
    _bgi_begin();
    for (y = 0; y < h; y++) {
        for (x = 0; x < w; x++) {
            src = *p++;
            switch (op) {
            case XOR_PUT: dst = (uint8_t)_bgi_read_raw(left + x, top + y) ^ src; break;
            case OR_PUT:  dst = (uint8_t)_bgi_read_raw(left + x, top + y) | src; break;
            case AND_PUT: dst = (uint8_t)_bgi_read_raw(left + x, top + y) & src; break;
            case NOT_PUT:
            default:      dst = (uint8_t)~src; break;
            }
            _bgi_plot_raw(left + x, top + y, dst);
        }
    }
    _bgi_end();
}