roomtest: L1 — данные уровня из сырого res2001.bin вместо хардкода
Отказ от room1_data.h: уровень читается из сырого blueprnt DAT 1.0 (applications/PoP/SDLPoP/data/LEVELS/res2001.bin, формат — Table 6 POP-DAT). - pop_level.c/.h: уровень грузится ОДИН раз в отдельную EMM-страницу (данные с offset 0x100, ISR-стаб в первых байтах — страница безопасна для W0-маппинга, как атласы). pop_room_load(room) извлекает комнату в массивы приложения (W2): fg[30] (тайл-код = байт & 0x1F, верхние биты-модификаторы пока отброшены, как делал render_room.py), bg[30] (raw) + срезы соседей для кромок — правый столбец left-комнаты (leftcol), верхний ряд down-комнаты (belowrow). pop_room_link() — связи для будущих переходов (L2/L3). - Рабочая копия ТЕКУЩЕЙ комнаты — в обычной памяти (W2, мутабельная: loose→ empty); страница уровня маппится в W0 только на время извлечения. - Проверено в MAME: комната 1 рисуется идентично. Данные сверены байт-в-байт (fg&0x1F, bg raw, leftcol из room5 совпали); belowrow теперь из реального room2 (links.down=2), а не из прежнего частично-выдуманного хардкода. - Память (small): DATA до 0xA260, стек от 0xBFFF — запас ~7.5КБ; EMM-страница уровня вне W1/W2. NB: res2001.bin берётся из клона SDLPoP (data/ в .gitignore) — как и генерация атласов через pop_pack_bg.py; в наш репозиторий сырой уровень не тащим. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
@@ -7,10 +7,12 @@ EXAMPLE := roomtest
|
||||
# CODE ~23КБ переполняет W1 и лезет в фиксированный DATA@0x8000 в huge).
|
||||
MEMORY ?= small
|
||||
EXTRA_FLAGS ?= --gfx 256
|
||||
EXTRA_SRCS := pop_bg.c pop_kid.c pop_ctrl.c pop_map.c
|
||||
EXTRA_SRCS := pop_bg.c pop_kid.c pop_ctrl.c pop_map.c pop_level.c
|
||||
|
||||
BG_DIR := $(CURDIR)/../poc/res/bg
|
||||
KID_DIR := $(CURDIR)/../poc/res/kid
|
||||
LVL_DIR := $(CURDIR)/../SDLPoP/data/LEVELS
|
||||
LVL_DATA := $(LVL_DIR)/res2001.bin
|
||||
BG_DATA := $(BG_DIR)/pop_env0.atl $(BG_DIR)/pop_env1.atl $(BG_DIR)/pop_env2.atl \
|
||||
$(BG_DIR)/pop_env3.atl $(BG_DIR)/pop_env4.atl \
|
||||
$(BG_DIR)/pop_wall.atl $(BG_DIR)/pop_fore.atl
|
||||
@@ -20,7 +22,7 @@ BG_DATA := $(BG_DIR)/pop_env0.atl $(BG_DIR)/pop_env1.atl $(BG_DIR)/pop_env2.
|
||||
KID_PAGES := $(foreach n,0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27,$(KID_DIR)/kid$(n).atl)
|
||||
KID_DATA := $(KID_PAGES) $(KID_DIR)/kid.pal
|
||||
|
||||
EXTRA_DATA := $(BG_DATA) $(KID_DATA)
|
||||
EXTRA_DATA := $(BG_DATA) $(KID_DATA) $(LVL_DATA)
|
||||
include $(PROJ_ROOT)/app.mk
|
||||
|
||||
TC := $(PROJ_ROOT)/applications/PoP/toolchain
|
||||
@@ -31,4 +33,4 @@ $(KID_DATA): $(TC)/pop_pack_kid.py $(TC)/pop_pack_bg.py
|
||||
kid_data.h: $(TC)/pop_extract_kid_data.py
|
||||
cd $(TC) && python3 pop_extract_kid_data.py
|
||||
|
||||
$(EXAMPLE).exe: pop_bg.c pop_bg.h pop_kid.c pop_kid.h pop_ctrl.c pop_ctrl.h pop_map.c pop_map.h kid_data.h room1_data.h $(BG_DATA) $(KID_DATA)
|
||||
$(EXAMPLE).exe: pop_bg.c pop_bg.h pop_kid.c pop_kid.h pop_ctrl.c pop_ctrl.h pop_map.c pop_map.h pop_level.c pop_level.h kid_data.h $(BG_DATA) $(KID_DATA) $(LVL_DATA)
|
||||
|
||||
@@ -0,0 +1,147 @@
|
||||
/*
|
||||
* pop_level.c — загрузка уровня PoP из сырого res200N.bin (Фаза L1).
|
||||
* См. pop_level.h. Порт формата blueprnt DAT 1.0 (Table 6 POP-DAT).
|
||||
*/
|
||||
#include <fcntl.h>
|
||||
#include <unistd.h>
|
||||
#include <sprinter.h>
|
||||
#include <sprinter_mem.h>
|
||||
#include <sprite.h> /* gfx_w0_map / gfx_w0_unmap */
|
||||
#include "pop_level.h"
|
||||
|
||||
/* ISR-стаб W0-страницы (тот же приём, что atlas_load): при прерывании с
|
||||
* замапленной в W0 страницей CPU прыгает на 0x0038 → там обязан быть JP на
|
||||
* _gfx_w0_isr (восстановит окно). Символ внутренний для libbgi, но
|
||||
* стабильный — линкер тянет его из bgi256.lib (графика уже подключена). */
|
||||
extern void _gfx_w0_isr(void);
|
||||
|
||||
#define LVL_DATA_OFF 0x100u /* данные с 0x100; 0x00..0xFF — ISR-стаб */
|
||||
|
||||
/* Смещения блоков blueprnt относительно начала данных (Table 6). */
|
||||
#define BP_FG 0u
|
||||
#define BP_BG 720u
|
||||
#define BP_LINKS 1952u
|
||||
#define BP_START 2112u
|
||||
#define ROOM_TILES 30u
|
||||
#define MIN_SIZE (BP_START + 3u) /* минимум, чтобы прочитать старт */
|
||||
|
||||
static uint8_t lvl_blk, lvl_page, lvl_ok;
|
||||
|
||||
int pop_level_load(const char *path)
|
||||
{
|
||||
uint8_t *pg = (uint8_t *)0xC000; /* страница мапится в W3 на время чтения */
|
||||
uint8_t saved_w3, blk;
|
||||
uint16_t stub;
|
||||
int fd, n;
|
||||
|
||||
fd = open(path, O_RDONLY);
|
||||
if (fd < 0) return -1;
|
||||
|
||||
blk = mem_alloc_pages(1);
|
||||
if (!blk) { close(fd); return -1; }
|
||||
lvl_blk = blk;
|
||||
lvl_page = mem_get_page(blk, 0);
|
||||
|
||||
saved_w3 = _io_page_w3;
|
||||
sprinter_page_w3(lvl_page);
|
||||
/* Файл целиком в offset 0x100 (ESTEX READ пишет в W3 — как atlas_load). */
|
||||
n = read(fd, pg + LVL_DATA_OFF, 16384 - LVL_DATA_OFF);
|
||||
if (n >= (int)MIN_SIZE) { /* пропатчить ISR-стаб */
|
||||
stub = (uint16_t)&_gfx_w0_isr;
|
||||
pg[0x38] = 0xC3; /* JP _gfx_w0_isr */
|
||||
pg[0x39] = (uint8_t)(stub & 0xFF);
|
||||
pg[0x3A] = (uint8_t)(stub >> 8);
|
||||
pg[0x66] = 0xED; pg[0x67] = 0x45; /* RETN (NMI-хвост) */
|
||||
}
|
||||
sprinter_page_w3(saved_w3);
|
||||
close(fd);
|
||||
|
||||
if (n < (int)MIN_SIZE) { mem_free_block(blk); return -1; }
|
||||
lvl_ok = 1;
|
||||
return 0;
|
||||
}
|
||||
|
||||
void pop_level_free(void)
|
||||
{
|
||||
if (lvl_ok) { mem_free_block(lvl_blk); lvl_ok = 0; }
|
||||
}
|
||||
|
||||
/* Указатель на fg-тайлы комнаты r (1..24) в W0-пространстве (страница уже
|
||||
* замаплена вызывающим). */
|
||||
static const uint8_t *room_fg_ptr(uint8_t r)
|
||||
{
|
||||
return (const uint8_t *)(LVL_DATA_OFF + BP_FG) + (uint16_t)(r - 1) * ROOM_TILES;
|
||||
}
|
||||
static const uint8_t *room_bg_ptr(uint8_t r)
|
||||
{
|
||||
return (const uint8_t *)(LVL_DATA_OFF + BP_BG) + (uint16_t)(r - 1) * ROOM_TILES;
|
||||
}
|
||||
|
||||
int pop_room_load(uint8_t room, uint8_t *fg, uint8_t *bg,
|
||||
uint8_t *lcol_fg, uint8_t *lcol_bg, uint8_t *below_fg)
|
||||
{
|
||||
const uint8_t *rfg, *rbg, *lnk;
|
||||
uint8_t left, down, i;
|
||||
|
||||
if (!lvl_ok || room < 1 || room > 24) return -1;
|
||||
|
||||
gfx_w0_map(lvl_page);
|
||||
rfg = room_fg_ptr(room);
|
||||
rbg = room_bg_ptr(room);
|
||||
lnk = (const uint8_t *)(LVL_DATA_OFF + BP_LINKS) + (uint16_t)(room - 1) * 4;
|
||||
|
||||
for (i = 0; i < ROOM_TILES; i++) {
|
||||
fg[i] = (uint8_t)(rfg[i] & 0x1F); /* тип тайла (верх. биты — модиф., пока не нужны) */
|
||||
bg[i] = rbg[i]; /* backtable как есть */
|
||||
}
|
||||
|
||||
left = lnk[0]; /* L */
|
||||
down = lnk[3]; /* D */
|
||||
|
||||
/* leftcol: правый столбец (col9) комнаты слева, строки 0..2 */
|
||||
if (left >= 1 && left <= 24) {
|
||||
const uint8_t *lf = room_fg_ptr(left);
|
||||
const uint8_t *lb = room_bg_ptr(left);
|
||||
for (i = 0; i < 3; i++) {
|
||||
lcol_fg[i] = (uint8_t)(lf[i * 10 + 9] & 0x1F);
|
||||
lcol_bg[i] = lb[i * 10 + 9];
|
||||
}
|
||||
} else {
|
||||
for (i = 0; i < 3; i++) { lcol_fg[i] = 20; lcol_bg[i] = 0; } /* нет комнаты = стена */
|
||||
}
|
||||
|
||||
/* belowrow: верхний ряд (row0) комнаты снизу */
|
||||
if (down >= 1 && down <= 24) {
|
||||
const uint8_t *df = room_fg_ptr(down);
|
||||
for (i = 0; i < 10; i++) below_fg[i] = (uint8_t)(df[i] & 0x1F);
|
||||
} else {
|
||||
for (i = 0; i < 10; i++) below_fg[i] = 20; /* нет комнаты снизу = стена */
|
||||
}
|
||||
|
||||
gfx_w0_unmap();
|
||||
return 0;
|
||||
}
|
||||
|
||||
uint8_t pop_room_link(uint8_t room, uint8_t side)
|
||||
{
|
||||
uint8_t v;
|
||||
if (!lvl_ok || room < 1 || room > 24 || side > 3) return 0;
|
||||
gfx_w0_map(lvl_page);
|
||||
v = ((const uint8_t *)(LVL_DATA_OFF + BP_LINKS))[(uint16_t)(room - 1) * 4 + side];
|
||||
gfx_w0_unmap();
|
||||
return v;
|
||||
}
|
||||
|
||||
static uint8_t start_byte(uint16_t off)
|
||||
{
|
||||
uint8_t v;
|
||||
if (!lvl_ok) return 0;
|
||||
gfx_w0_map(lvl_page);
|
||||
v = ((const uint8_t *)(LVL_DATA_OFF))[off];
|
||||
gfx_w0_unmap();
|
||||
return v;
|
||||
}
|
||||
|
||||
uint8_t pop_level_start_room(void) { return start_byte(BP_START + 0); }
|
||||
uint8_t pop_level_start_pos(void) { return start_byte(BP_START + 1); }
|
||||
int8_t pop_level_start_dir(void) { return (int8_t)start_byte(BP_START + 2); }
|
||||
@@ -0,0 +1,48 @@
|
||||
/*
|
||||
* pop_level.h — данные уровня PoP из сырого файла res200N.bin (Фаза L1).
|
||||
*
|
||||
* Уровень загружается ОДИН раз в отдельную EMM-страницу (как атласы:
|
||||
* данные с offset 0x100, ISR-стаб в первых байтах — страница безопасна
|
||||
* для маппинга в W0). Файл — сырой blueprnt DAT 1.0 (2305 байт, БЕЗ
|
||||
* checksum-байта; Table 6 спецификации POP-DAT):
|
||||
* foretable(fg) @0 backtable(bg) @720 door I/II @1440/1696
|
||||
* links @1952 (24×{L,R,U,D}) start @2112 ...
|
||||
* Тайл-код = байт fg & 0x1F (верхние биты — модификатор, пока не нужны);
|
||||
* bg передаётся как есть. См. applications/PoP/docs/POP-DAT-* .
|
||||
*
|
||||
* Рабочая копия ТЕКУЩЕЙ комнаты живёт в обычной памяти (W2) у приложения
|
||||
* (мутабельная — loose→empty); pop_room_load извлекает её из страницы +
|
||||
* тонкие срезы соседей для кромок (правый столбец left-комнаты, верхний
|
||||
* ряд down-комнаты). Страница маппится в W0 только на время извлечения.
|
||||
*/
|
||||
#ifndef POP_LEVEL_H
|
||||
#define POP_LEVEL_H
|
||||
|
||||
#include <stdint.h>
|
||||
|
||||
/* Загрузить уровень из файла в EMM-страницу. 0 — OK, -1 — ошибка
|
||||
* (open/alloc/размер). Звать ПОСЛЕ первого atlas_load (pop_bg_load) —
|
||||
* он снимает страницу ядра DSS для W0-unmap. */
|
||||
int pop_level_load(const char *path);
|
||||
void pop_level_free(void);
|
||||
|
||||
/* Извлечь комнату room (1..24) в массивы приложения (W2):
|
||||
* fg[30], bg[30] — тайлы комнаты (fg маскирован &0x1F, bg raw);
|
||||
* lcol_fg[3], lcol_bg[3] — правый столбец (col9) комнаты СЛЕВА (кромка
|
||||
* col0); нет комнаты → стена/0;
|
||||
* below_fg[10] — верхний ряд (row0) комнаты СНИЗУ («стена
|
||||
* вниз»); нет комнаты → стена.
|
||||
* 0 — OK, -1 — уровень не загружен / room вне диапазона. */
|
||||
int pop_room_load(uint8_t room, uint8_t *fg, uint8_t *bg,
|
||||
uint8_t *lcol_fg, uint8_t *lcol_bg, uint8_t *below_fg);
|
||||
|
||||
/* Связь комнаты по стороне (0=L,1=R,2=U,3=D) → номер соседней (1..24) или
|
||||
* 0, если стороны нет. Для переходов между комнатами (L2/L3). */
|
||||
uint8_t pop_room_link(uint8_t room, uint8_t side);
|
||||
|
||||
/* Стартовая позиция уровня (блок @2112): комната / поза / направление. */
|
||||
uint8_t pop_level_start_room(void);
|
||||
uint8_t pop_level_start_pos(void);
|
||||
int8_t pop_level_start_dir(void);
|
||||
|
||||
#endif
|
||||
@@ -1,13 +0,0 @@
|
||||
/* room1_data.h — данные комнаты 1 ур.1 (res2001) + левый столбец
|
||||
* соседа (room 5 col9) для границы-решётки. Сгенерировано
|
||||
* gen из render_room; fg=foretable code, bg=backtable modifier. */
|
||||
#ifndef ROOM1_DATA_H
|
||||
#define ROOM1_DATA_H
|
||||
static const unsigned char room1_fg[30] = {0x00,0x00,0x00,0x01,0x01,0x01,0x01,0x01,0x14,0x14,0x13,0x13,0x01,0x03,0x00,0x14,0x14,0x14,0x14,0x14,0x14,0x14,0x14,0x14,0x0E,0x03,0x0B,0x01,0x01,0x14};
|
||||
static const unsigned char room1_bg[30] = {0xFF,0xFF,0xFF,0x00,0x01,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x00,0x00};
|
||||
static const unsigned char leftcol_fg[3] = {0x04,0x14,0x14};
|
||||
static const unsigned char leftcol_bg[3] = {0x01,0x00,0x00};
|
||||
/* Ряд 0 комнаты СНИЗУ (room 2, link Dn) — для topright «стены вниз» под
|
||||
* упавшим loose (2,6): room2(0,5)=0x14 стена. Из res2002.bin row0. */
|
||||
static const unsigned char belowrow_fg[10] = {0x14,0x14,0x00,0x00,0x00,0x14,0x01,0x03,0x01,0x03};
|
||||
#endif
|
||||
@@ -13,10 +13,11 @@
|
||||
#include "pop_kid.h"
|
||||
#include "pop_ctrl.h"
|
||||
#include "pop_map.h"
|
||||
#include "room1_data.h"
|
||||
#include "pop_level.h"
|
||||
|
||||
/* seq_2_stand (types.h seqids) — Kid стоит, ждёт ввода. */
|
||||
#define SEQ_STAND 2
|
||||
#define ROOM_1 1
|
||||
|
||||
int main(void)
|
||||
{
|
||||
@@ -24,13 +25,14 @@ int main(void)
|
||||
* по умолчанию (без мерцания); SPACE переключает в однобуфер для
|
||||
* отладки багов рисования (edge по sp_prev, чтоб не дёргать). */
|
||||
uint8_t pg, front = 0, back, dbuf = 1, sp_prev = 0, frozen = 0;
|
||||
/* МУТАБЕЛЬНАЯ копия комнаты — одна на отрисовку (pop_room_draw) И
|
||||
* коллизию (pop_map): loose-пол при падении меняет тайл на empty, и
|
||||
* оба модуля должны это видеть. */
|
||||
uint8_t room_fg[30];
|
||||
for (pg = 0; pg < 30; pg++) room_fg[pg] = room1_fg[pg];
|
||||
/* МУТАБЕЛЬНАЯ рабочая копия ТЕКУЩЕЙ комнаты в обычной памяти (W2) —
|
||||
* на отрисовку (pop_room_draw) И коллизию (pop_map): loose-пол при
|
||||
* падении меняет тайл на empty, оба модуля должны это видеть. Плюс
|
||||
* срезы соседей для кромок. Заполняются pop_room_load из уровня. */
|
||||
uint8_t room_fg[30], room_bg[30];
|
||||
uint8_t lcol_fg[3], lcol_bg[3], below_fg[10];
|
||||
|
||||
if (pop_bg_load() != 0) { /* атласы — ДО initgraph */
|
||||
if (pop_bg_load() != 0) { /* атласы — ДО initgraph (снимает DSS-страницу W0) */
|
||||
puts("pop_bg_load failed");
|
||||
return 1;
|
||||
}
|
||||
@@ -38,6 +40,11 @@ int main(void)
|
||||
puts("kid atlas load failed");
|
||||
return 1;
|
||||
}
|
||||
if (pop_level_load("res2001.bin") != 0 && /* сырой уровень 1 в EMM-страницу */
|
||||
pop_level_load("a:\\res2001.bin") != 0) {
|
||||
puts("level load failed");
|
||||
return 1;
|
||||
}
|
||||
|
||||
initgraph();
|
||||
gfx_set_visible_page(0);
|
||||
@@ -49,12 +56,15 @@ int main(void)
|
||||
* ОЗУ-копия/видео-ОЗУ, а heal берёт чистый фон из ОЗУ-копии ТОЙ
|
||||
* страницы, в которую рисуем. Дальше каждый тик восстанавливаем
|
||||
* ТОЛЬКО прямоугольник Кида (kid_heal), а не весь экран. */
|
||||
pop_room_set_below(belowrow_fg); /* ряд снизу (room 2) для «стены вниз» */
|
||||
/* Извлечь комнату 1 из уровня в рабочие массивы (W2): тайлы + срезы
|
||||
* соседей (правый столбец left-комнаты, верхний ряд down-комнаты). */
|
||||
pop_room_load(ROOM_1, room_fg, room_bg, lcol_fg, lcol_bg, below_fg);
|
||||
pop_room_set_below(below_fg); /* ряд снизу для «стены вниз» */
|
||||
for (pg = 0; pg < 2; pg++) {
|
||||
gfx_set_draw_page(pg);
|
||||
setfillstyle(SOLID_FILL, BLACK);
|
||||
bar(0, 0, 319, 255);
|
||||
pop_room_draw(1, room_fg, room1_bg, leftcol_fg, leftcol_bg);
|
||||
pop_room_draw(ROOM_1, room_fg, room_bg, lcol_fg, lcol_bg);
|
||||
}
|
||||
gfx_set_draw_page(0);
|
||||
|
||||
@@ -132,5 +142,6 @@ int main(void)
|
||||
closegraph();
|
||||
pop_bg_free();
|
||||
pop_kid_free();
|
||||
pop_level_free();
|
||||
return 0;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user