Фиксированный логический кадр по лучу + режимы FASTEST/FAST/NORMAL

Период стал max(n, ceil(W)) вместо ceil(W)+2: три gfx_wait_vsync после
работы отсчитывались от её КОНЦА, поэтому бюджет кадра был один растр.
Теперь ждём от якоря начала кадра, и при n=3 бюджет 1 290 240 тактов.

Счёт кадров — программный, по биту 5 порта 0xFE (положение луча), а не по
кадровым прерываниям: те теряются в DI-окнах акселератора фазозависимо
(замер: 0..2,8 %, на полной перерисовке три подряд).  Условие точности
одно — зазор между выборками меньше 64 512 тактов; точки выборки
расставлены по замеру, а не на глаз.

Режимы (pop_pace.h), клавиша P по кругу, дефолт FASTEST.  Условие боя
взято у оригинала буквально (SDLPoP seg003.c:363): Kid.sword ==
SWORD_2_DRAWN, а не «идёт бой».

Проверено в MAME на 11/15: счётчик без недосчёта на 270 кадров, период
ровно 3 растра на 302 логических кадрах (ни длиннее 3,1, ни короче 2,9),
NORMAL даёт ровно 4, с вынутым мечом — ровно 5.

applications/PoP/roomtest/pop_cdraw.c

@@ -23,6 +23,7 @@
 #include "_pop_kdraw.h"
 #include "pop_vflip.h"   /* зеркальные страницы атласов (зелье инверсии) */   /* меч + блит по id — сосед по банку 4 */          /* атласы/кадр Кида, pop_sword_draw, окна Char */
 #include "pop_cdraw.h"
+#include "pop_pace.h"    /* pop_beam_sample — счёт кадров по лучу */
 #include "pop_state.h"   /* ВРЕМЕННО: зонды pop_dbg_b* */
 #include "pop_bg.h"           /* POP_YOFF, pop_fore_over_char, pop_fore_set_clip */
 #include "_pop_draw.h"   /* pop_onscreen_cols / pop_heal_fast */
@@ -507,6 +508,7 @@ static void cd_splash(pop_cdraw_t *s, uint8_t who, const atlas_t *pages,
         if (top + rows > 192) rows = 192 - top;
         if (rows <= 0) return;
         gfx_set_bank(GFX_BANK_SPRITE);
+        pop_beam_sample();   /* ТЕМП КАДРА: выборка луча (pop_pace.h) */
         if (pop_onscreen_cols(qx, top + POP_YOFF, w, (uint8_t)rows))
             gfx_blit_cols_part_noclip(qx, top + POP_YOFF, img, flip,
                                       (uint8_t)skip, (uint8_t)rows);
@@ -713,6 +715,7 @@ void pop_char_draw(uint8_t who) __banked
         if (top < 0) { skip += -top; rows += top; top = 0; }
         if (top + rows > 192) rows = 192 - top;
         gfx_set_bank(GFX_BANK_SPRITE);   /* видео-ОЗУ, без теневой копии */
+        pop_beam_sample();   /* ТЕМП КАДРА: выборка луча (pop_pace.h) */
         if (rows > 0 && vis_w) {         /* +YOFF: центрирование */
             /* noclip-ядро ширину не ограничивает, поэтому при обрезке справа
              * идём общим путём: это редкие кадры (подъём в двери уровня раз
@@ -865,6 +868,7 @@ void pop_mirror_draw(int clip_top) __banked
     }
 
     gfx_set_bank(GFX_BANK_SPRITE);
+    pop_beam_sample();   /* ТЕМП КАДРА: выборка луча (pop_pace.h) */
     if (lskip)
         gfx_blit_cols_part_wx(bx, top + POP_YOFF, img, flip, skip, rows,
                               lskip, (uint8_t)(vis_w - lskip));
@@ -965,9 +969,11 @@ void pop_hp_draw(void) __banked
         if (w && h) {
             /* Атлас стража тоже column-major — блит колоночный. */
             n = (uint8_t)(gd > HP_MAXDRAW ? HP_MAXDRAW : gd);
-            for (i = 0; i < n; i++)
+            for (i = 0; i < n; i++) {
+                pop_beam_sample();   /* ТЕМП КАДРА: выборка луча (pop_pace.h) */
                 gfx_blit_cols_part_noclip(314 - (int)i * HP_STEP,
                                           HP_Y + POP_YOFF, img, 0, 0, 0);
+            }
         }
         gfx_w0_unmap();
     }