BUG-DOOR-CLIP: обрезка силуэта правым косяком двери уровня

Симптом (нашёл пользователь сразу после L1-EXIT): при подъёме по лестнице за
дверью уровня силуэт Кида вылезал ПРАВЕЕ правого косяка проёма; по высоте
обрезка была корректна.

Причина — недопортированная половина clip_char (seg006:1231).  Для кадров
двери оригинал ставит ДВА клипа, у нас был только первый:
    obj_clip_top   = leveldoor_ybottom + 1;   // было
    obj_clip_right = leveldoor_right;          // не было
Отдельная ловушка: комментарий в SDLPoP говорит «frames 217..228», а КОД
проверяет >= frame_224_exit_stairs_8, то есть 224..228 — портировано по коду.

Fore-слоем это не лечится: створка и косяк уходят в оригинале целиком в
backtable (draw_leveldoor, все add_backtable), рисуются ПОД персонажем и
перекрыть его не могут.  Единственный способ — срезать сам спрайт.

libbgi: gfx_blit_cols_part_w(..., uint8_t maxw) — обрезка СПРАВА у
колоночного блита.  Для column-major это ровно уменьшение числа колонок, то
есть внутри ядра механизм уже был (так же клипается край экрана,
w = _bgi_maxx + 1 - x), наружу не выводился.  Тело блита переехало туда,
gfx_blit_cols_part стал тонкой обёрткой (maxw=0) — тем же приёмом, каким
gfx_blit_cols уже обёрнут вокруг gfx_blit_cols_part.  Работает и при flip:
первые maxw нарисованных колонок всегда ложатся в левую часть футпринта.
make size-check: роста нет.

PoP: pop_leveldoor_right / pop_leveldoor_ybottom (порт одноимённых глобалов)
пишет draw_leveldoor в pop_state — их читает clip_char из другого банка;
pop_clip_char_right() отдаёт границу, kid_draw превращает её в maxw и уводит
эти кадры с noclip-пути на общий.  Прямоугольник heal (kid_lw) сужается тоже
— стираем ровно нарисованное.

Проверено в MAME: pop_leveldoor_right = 176, что есть ровно (draw_xh<<3)+48
для двери комнаты 9; pop_leveldoor_ybottom = 112 у закрытой створки и 69 у
поднятой — сходится с формулой оригинала.  Отрисовку подтвердил пользователь
на живом подъёме.

Заодно: ROOMNAV остаётся включённым осознанно — это наш чит, которого в
оригинале не было, как и S/K/I; позже сведём в общий блок читов.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>

libbgi/common/gfx_blit_cols_part.c

@@ -9,9 +9,9 @@
  * сверху для column-major бесплатна: колонка = непрерывный кусок ОЗУ, старт
  * просто сдвигается на skip байт, длина accel-блока уменьшается.
  *
- * Здесь же живёт полное тело блита колонками — gfx_blit_cols() тонкая
- * обёртка (skip=0, rows=0), чтобы не дублировать клип-логику.
- * Подробности зеркала/клипа — см. шапку gfx_blit_cols.c.
+ * Тело (вместе с клип-логикой) — в gfx_blit_cols_part_w.c: этот вызов =
+ * «без ограничения ширины».  Подробности зеркала/клипа — см. шапку
+ * gfx_blit_cols.c.
  */
 #include <stdint.h>
 #include "../_bgi.h"
@@ -19,44 +19,5 @@
 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();
+    gfx_blit_cols_part_w(x, y, img, flip, skip, rows, 0);
 }