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>

applications/PoP/roomtest/pop_kid.c

@@ -679,7 +679,8 @@ void kid_draw(void)
         uint8_t flip = (Kid.direction >= 0);   /* dir_0_right -> зеркало */
         int bx = obj_x + KID_XOFF;
         int skip = 0;                           /* строк спрайта срезано сверху */
-        int ct;
+        int ct, cr;
+        uint16_t vis_w = w;                     /* видимая ширина (клип справа) */
         if (flip)
             bx -= (int)w;                       /* seg008: xpos -= image->w */
         top = obj_y - (int)h + 1 + KID_YOFF;
@@ -692,14 +693,27 @@ void kid_draw(void)
             skip = ct - top;
             if (skip >= (int)h) skip = (int)h;  /* обрезан целиком */
         }
+        /* clip_char, вторая половина: правый косяк двери уровня.  Дверь
+         * рисуется ПОД персонажем (вся в backtable), поэтому спрятать его
+         * можно только срезав спрайт — см. pop_clip_char_right. */
+        cr = pop_clip_char_right();
+        if (cr) {
+            int avail = cr - bx;
+            if (avail <= 0) vis_w = 0;                 /* весь спрайт за косяком */
+            else if (avail < (int)w) vis_w = (uint16_t)avail;
+        }
         gfx_set_bank(GFX_BANK_SPRITE);   /* видео-ОЗУ, без теневой копии */
-        if (skip < (int)h) {             /* +YOFF: центрирование */
-            if (pop_onscreen_cols(bx, top + skip + POP_YOFF, w,
-                                  (uint16_t)((int)h - skip)))
+        if (skip < (int)h && vis_w) {    /* +YOFF: центрирование */
+            /* noclip-ядро ширину не ограничивает, поэтому при обрезке справа
+             * идём общим путём: это редкие кадры (подъём в двери уровня раз
+             * за уровень), цена подготовки тут не видна. */
+            if (vis_w == w && pop_onscreen_cols(bx, top + skip + POP_YOFF, w,
+                                                (uint16_t)((int)h - skip)))
                 gfx_blit_cols_part_noclip(bx, top + skip + POP_YOFF, img, flip,
                                           (uint8_t)skip, 0);
             else
-                gfx_blit_cols_part(bx, top + skip + POP_YOFF, img, flip, skip, 0);
+                gfx_blit_cols_part_w(bx, top + skip + POP_YOFF, img, flip,
+                                     skip, 0, (uint8_t)(vis_w == w ? 0 : vis_w));
         }
         gfx_set_bank(GFX_BANK_NORMAL);
         /* клип СВОЕГО выхода за поле (падение ниже поля / верхний борт) —
@@ -708,8 +722,8 @@ void kid_draw(void)
         /* heal чистит ТОЛЬКО нарисованное: иначе стирается кромка пола над
          * срезом (мусор/дыра в кладке на второй странице дабл-буфера). */
         kid_lx[dp] = bx; kid_ly[dp] = top + skip;
-        kid_lw[dp] = w; kid_lh[dp] = (uint16_t)((int)h - skip);
-        kid_lvalid[dp] = (skip < (int)h);
+        kid_lw[dp] = vis_w; kid_lh[dp] = (uint16_t)((int)h - skip);
+        kid_lvalid[dp] = (skip < (int)h && vis_w != 0);
         kid_fp_w = w; kid_fp_h = h;      /* размер кадра для футпринта fore */
     }
     /* add_sword_to_objtable (seg006:1798): клинок отдельным спрайтом поверх