cpp/bgi/test_bgi.cpp · 20673 字节 · 下载原文
/* test_bgi.c —— **BGI 兼容层的全接口体检**（一屏"带标签的格子" + 一份文本小结）。
* test_bgi.c — **a full-interface checkup of the BGI compatibility layer** (one screen of "labeled cells" plus a short text summary).
*
* 做法照 `draw_prims.c` 的先例：每个接口一个小格子，格子里画出它的效果，
* The approach follows the precedent of `draw_prims.c`: one small cell per interface, with that interface's effect drawn inside it,
* 格子底下用 `outtextxy` 写上它的名字 —— 这样**文字接口本身也被覆盖**，
* and the interface's name written along the bottom of the cell with `outtextxy` — this way **the text interfaces themselves are covered too**,
* 人对着屏幕就能逐条打勾。
* so a human can tick them off one by one while looking at the screen.
*
* ⚠ 与 `test_bgi.cpp` **逐字相同**（只有扩展名不同）。两份一起编、一起看，
* ⚠ It is **byte-for-byte identical** to `test_bgi.cpp` (only the extension differs). Both are compiled and read together
* 是因为 C 与 C++ 是**两个独立的前端**，同一份源码在两边的行为**并不保证一致** ——
* because C and C++ are **two independent frontends**, and the same source is **not guaranteed** to behave the same on both —
* 实测就有过只在一侧错的东西（`char s[] = "…"` 那条路：C++ 侧曾把字符数组
* we have measured things that only one side got wrong (the `char s[] = "…"` path: the C++ side once laid a char array out
* 落成"带长度头的 4 字节格数组"，于是 `outtextxy` 读到的是长度头，
* as "a 4-byte cell array with a length header", so `outtextxy` read the length header
* 屏幕上只剩**一个乱字符**）。同一份源码两个前端各编一遍，是这类差异的唯一判据。
* and only **one garbled character** appeared on screen). Compiling the same source with both frontends is the only test for that class of difference.
*
* ## 怎么读结果
* ## How to read the result
*
* · **画面**：20 个格子，每个格子里是该接口的效果、格子底是它的名字。
* · **The picture**: 20 cells, each showing that interface's effect, with its name along the bottom of the cell.
* 哪一格画得不对，一眼就能定位到接口名。
* Whichever cell is drawn wrong can be traced to an interface name at a glance.
* · **stdout**：能自判的接口把结论打成 ` ok 名字` / ` FAIL 名字`，
* * The interfaces that can judge themselves print their verdict as ` ok name` / ` FAIL name`,
* 最后一行是 `OK=n FAIL=m`。
* and the last line is `OK=n FAIL=m`.
* · 输出**只用 `puts`/`putchar`**，不用 `printf` —— 本仓记过它在桌面脚手架里会崩
* · The output **uses only `puts`/`putchar`**, never `printf` — this repo has recorded that it crashes in the desktop scaffolding
* （`MOVEB @2, R0`，地址是垃圾值）。
* (`MOVEB @2, R0`, where the address is a garbage value).
*
* ## 分辨率（`setgraphmode`）为什么不在这屏上画
* ## Why resolution changes (`setgraphmode`) are not drawn on this screen
*
* `setgraphmode` 的语义是"清屏 + 换模式"，而本平台上电脑屏窗口的坐标系**开窗时定死**
* `setgraphmode` means "clear the screen + switch mode", and on this platform the coordinate system of the PC-screen window is **fixed when the window opens**
* ⇒ 它只能**关掉重开**。所以多分辨率只在**开场**验一次（切过去、读 `getmaxx/getmaxy`、
* ⇒ it can only **close and reopen**. So multiple resolutions are checked once **at the opening** (switch over, read `getmaxx/getmaxy`,
* 再切回来），画面本身仍然按 VGA 640×480 排 —— 挤在一屏里反而看不清。
* then switch back), while the picture itself is still laid out for VGA 640×480 — squeezing it into one screen would only make it harder to read.
*/
#include <vml_ui.h>
#include <graphics.h>
#include <stdlib.h>
/* ── 网格几何 ──────────────────────────────────────────────── */
/* ── Grid geometry ─────────────────────────────────────────── */
#define COLS 5
#define ROWS 4
#define CELL_W 124
#define CELL_H 108
#define GRID_X 8
#define GRID_Y 30
#define IN_W 112 /* 格子内可画区（留给标签一条） */
/* Drawable area inside a cell (one strip is left for the label) */
#define IN_H 78
/* ── 自判统计 ──────────────────────────────────────────────── */
/* ── Self-check counters ───────────────────────────────────── */
static int g_ok = 0;
static int g_bad = 0;
/* ── 文本输出小工具（绕开 printf）───────────────────────────── */
/* ── Small text output helpers (bypassing printf) ──────────── */
static void put_int(int v)
{
char buf[12];
int n = 0;
if (v < 0) { putchar('-'); v = -v; }
if (v == 0) { putchar('0'); return; }
while (v > 0) { buf[n] = (char)('0' + v % 10); v = v / 10; n = n + 1; }
while (n > 0) { n = n - 1; putchar(buf[n]); }
}
static void say(char *name, int v)
{
puts(name);
put_int(v);
putchar('\n');
}
static void check(char *name, int ok)
{
if (ok) { puts(" ok "); g_ok = g_ok + 1; }
else { puts(" FAIL "); g_bad = g_bad + 1; }
puts(name);
putchar('\n');
}
/* ── 格子定位（不用指针出参 —— 少一层"读不读得到"的疑点）───── */
/* ── Cell positioning (no pointer out-params — one less "can it be read" doubt) ── */
static int cell_x(int idx) { return GRID_X + (idx % COLS) * CELL_W; }
static int cell_y(int idx) { return GRID_Y + (idx / COLS) * CELL_H; }
static int in_x(int idx) { return cell_x(idx) + 6; }
static int in_y(int idx) { return cell_y(idx) + 6; }
/* 格子的名字写在格底。**这一步就是 `outtextxy` 的判据**：
* The cell's name is written along the bottom of the cell. **This step is the test for `outtextxy`**:
* 名字画不出来的格子，是文字接口的问题，不是那一格图形的问题。
* a cell whose name cannot be drawn points at the text interface, not at that cell's graphics. */
static void cell_label(int idx, char *name)
{
setcolor(WHITE);
settextstyle(DEFAULT_FONT, HORIZ_DIR, 1);
settextjustify(LEFT_TEXT, 0);
outtextxy(in_x(idx), in_y(idx) + IN_H + 6, name);
}
/* ── 多边形的顶点（必须是**具名数组**：`(int[]){…}` 复合字面量本前端不支持）── */
/* ── Polygon vertices (they must be **named arrays**: this frontend does not support the `(int[]){…}` compound literal) ── */
/* ✅ 2026-10-04 复验仍成立 —— `(int[]){…}` 复合字面量本前端仍然编译不过（实测报错 `表达式缺失或多余（遇到 'int'）`；去掉那一句即通过）。 */
/* ✅ Re-measured 2026-10-04, still true — the `(int[]){…}` compound literal still fails to compile in this frontend (measured error: "expression missing or extra, got 'int'"); removing that line compiles fine. */
static int tri[8];
static int quad[10];
int main(void)
{
int gd = DETECT;
int gm = 0;
int i;
int cx, cy, w, h;
void *img;
int area;
int t1, t2, t3;
int px, py;
/* 界面语言：开局查一次（`ui_scr_get_language` 是 syscall，别每帧调）—— 文案按它取 */
/* UI language: queried once at startup (`ui_scr_get_language` is a syscall, do not call it every frame) — the text is picked by it */
int Lang = ui_scr_get_language();
initgraph(&gd, &gm, "");
puts(Lang == 0 ? "=== BGI 自检开始 ===" : "=== BGI self-test start ===");
/* ── 1. 模式与坐标系（DETECT ⇒ 驱动/模式由库选，本平台是 VGA 640×480）── */
/* ── 1. Mode and coordinate system (DETECT ⇒ the driver/mode is chosen by the library; on this platform it is VGA 640×480) ── */
say("gd(driver)=", gd);
say("gm(mode)=", gm);
check(Lang == 0 ? "initgraph(DETECT) 选出 VGA 驱动" : "initgraph(DETECT) picked the VGA driver", gd == VGA);
check(Lang == 0 ? "initgraph(DETECT) 选出 VGAHI 模式" : "initgraph(DETECT) picked the VGAHI mode", gm == VGAHI);
say("getmaxx()=", getmaxx());
say("getmaxy()=", getmaxy());
check(Lang == 0 ? "VGAHI 是 640×480（maxx=639）" : "VGAHI is 640x480 (maxx=639)", getmaxx() == 639);
check(Lang == 0 ? "VGAHI 是 640×480（maxy=479）" : "VGAHI is 640x480 (maxy=479)", getmaxy() == 479);
/* ── 2. setgraphmode：换模式 = 换分辨率（只能关窗重开，见文件头）── */
/* ── 2. setgraphmode: switching mode = switching resolution (closing and reopening the window only, see the file header) ── */
setgraphmode(VGALO); /* 640×200 */
say("VGALO maxy=", getmaxy());
check(Lang == 0 ? "setgraphmode(VGALO) 后 maxy=199" : "after setgraphmode(VGALO) maxy=199", getmaxy() == 199);
setgraphmode(VGAHI); /* 回到 640×480 */
/* Back to 640×480 */
say("VGAHI maxy=", getmaxy());
check(Lang == 0 ? "setgraphmode(VGAHI) 切回来 maxy=479" : "after setgraphmode(VGAHI) back to maxy=479", getmaxy() == 479);
/* ── 3. cleardevice：整屏刷成背景色 ── */
/* ── 3. cleardevice: paint the whole screen with the background color ── */
setbkcolor(BLACK);
cleardevice();
check(Lang == 0 ? "cleardevice 后左上角是背景色 BLACK" : "after cleardevice the top-left corner is the background color BLACK", getpixel(0, 0) == BLACK);
/* ── 4. 文字量测（`textwidth`/`textheight`）：老程序靠它居中排版 ──
* ── 4. Text measurement (`textwidth`/`textheight`): what old programs rely on for centered layout ──
* ⚠ 这两个走的是宿主注册的 `text` JSON 函数（见 `Lib/c/graphics.h` 的
* ⚠ These two go through the host-registered `text` JSON function (see the
* "文字量测"一节）—— 与**渲染同源**才算得对，所以这里量出来的数
* "text measurement" section of `Lib/c/graphics.h`) — they are only correct when they are **the same source as rendering**, so the numbers measured here
* 与画面上的实际宽度是一回事。
* are the same thing as the actual width on screen. */
settextstyle(DEFAULT_FONT, HORIZ_DIR, 1);
t1 = textwidth("ABC");
t2 = textheight("ABC");
settextstyle(DEFAULT_FONT, HORIZ_DIR, 3);
t3 = textwidth("ABC");
say("textwidth(ABC,size1)=", t1);
say("textheight(ABC,size1)=", t2);
say("textwidth(ABC,size3)=", t3);
check("textwidth > 0", t1 > 0);
check("textheight > 0", t2 > 0);
check(Lang == 0 ? "字号变大 ⇒ textwidth 变大" : "bigger font size => bigger textwidth", t3 > t1);
settextstyle(DEFAULT_FONT, HORIZ_DIR, 1);
/* ── 5. 按格画图 ──────────────────────────────────────────── */
/* ── 5. Drawing one cell per slot ──────────────────────────── */
/* ① line */
cx = in_x(0); cy = in_y(0);
setcolor(LIGHTGREEN);
line(cx, cy, cx + IN_W - 2, cy + IN_H - 2);
line(cx + IN_W - 2, cy, cx, cy + IN_H - 2);
cell_label(0, "line");
/* ② moveto / lineto / linerel */
cx = in_x(1); cy = in_y(1);
setcolor(CYAN);
moveto(cx, cy);
linerel(IN_W - 2, IN_H - 2);
moveto(cx + IN_W - 2, cy);
linerel(-(IN_W - 2), IN_H - 2);
moveto(cx, cy + IN_H / 2);
lineto(cx + IN_W - 2, cy + IN_H / 2);
cell_label(1, "moveto/lineto");
/* ③ rectangle */
cx = in_x(2); cy = in_y(2);
setcolor(YELLOW);
rectangle(cx, cy, cx + IN_W - 2, cy + IN_H - 2);
rectangle(cx + 20, cy + 16, cx + IN_W - 22, cy + IN_H - 18);
cell_label(2, "rectangle");
/* ④ bar */
cx = in_x(3); cy = in_y(3);
setfillstyle(SOLID_FILL, LIGHTBLUE);
bar(cx, cy, cx + IN_W - 2, cy + IN_H - 2);
setfillstyle(SOLID_FILL, LIGHTRED);
bar(cx + 30, cy + 24, cx + IN_W - 32, cy + IN_H - 2);
cell_label(3, "bar");
/* ⑤ bar3d */
cx = in_x(4); cy = in_y(4);
setcolor(WHITE);
setfillstyle(SOLID_FILL, GREEN);
bar3d(cx, cy + 16, cx + IN_W - 30, cy + IN_H - 18, 16, 1);
cell_label(4, "bar3d");
/* ⑥ circle */
cx = in_x(5); cy = in_y(5);
setcolor(LIGHTMAGENTA);
circle(cx + IN_W / 2, cy + IN_H / 2, 30);
circle(cx + IN_W / 2, cy + IN_H / 2, 18);
cell_label(5, "circle");
/* ⑦ fillellipse */
cx = in_x(6); cy = in_y(6);
setfillstyle(SOLID_FILL, BROWN);
fillellipse(cx + IN_W / 2, cy + IN_H / 2, 44, 28);
cell_label(6, "fillellipse");
/* ⑧ ellipse */
cx = in_x(7); cy = in_y(7);
setcolor(LIGHTGRAY);
ellipse(cx + IN_W / 2, cy + IN_H / 2, 0, 360, 46, 24);
ellipse(cx + IN_W / 2, cy + IN_H / 2, 0, 360, 24, 34);
cell_label(7, "ellipse");
/* ⑨ arc（只描边、不填充）*/
/* ⑨ arc (outline only, no fill) */
cx = in_x(8); cy = in_y(8);
setcolor(LIGHTRED);
arc(cx + IN_W / 2, cy + IN_H / 2, 30, 150, 32);
cell_label(8, "arc");
/* ⑩ pieslice */
cx = in_x(9); cy = in_y(9);
setcolor(WHITE);
setfillstyle(SOLID_FILL, YELLOW);
pieslice(cx + IN_W / 2, cy + IN_H / 2, 0, 120, 32);
cell_label(9, "pieslice");
/* ⑪ sector（BGI 里可给两个半径；本平台按 `xr` 画**圆**扇形）*/
/* ⑪ sector (BGI allows two radii; this platform draws a **circular** sector from `xr`) */
cx = in_x(10); cy = in_y(10);
setcolor(WHITE);
setfillstyle(SOLID_FILL, LIGHTCYAN);
sector(cx + IN_W / 2, cy + IN_H / 2, 200, 320, 34, 20);
cell_label(10, "sector");
/* ⑫ drawpoly（BGI 的顶点表**首点要重复一次**才闭合）*/
/* ⑫ drawpoly (BGI's vertex list **repeats the first point once** to close the shape) */
cx = in_x(11); cy = in_y(11);
tri[0] = cx + 20; tri[1] = cy + IN_H - 4;
tri[2] = cx + IN_W / 2; tri[3] = cy + 4;
tri[4] = cx + IN_W - 20; tri[5] = cy + IN_H - 4;
tri[6] = tri[0]; tri[7] = tri[1];
setcolor(LIGHTGREEN);
drawpoly(4, tri);
cell_label(11, "drawpoly");
/* ⑬ fillpoly */
cx = in_x(12); cy = in_y(12);
quad[0] = cx + 16; quad[1] = cy + 10;
quad[2] = cx + IN_W - 16; quad[3] = cy + 24;
quad[4] = cx + IN_W - 30; quad[5] = cy + IN_H - 6;
quad[6] = cx + 6; quad[7] = cy + IN_H - 20;
quad[8] = quad[0]; quad[9] = quad[1];
setcolor(WHITE);
setfillstyle(SOLID_FILL, LIGHTMAGENTA);
fillpoly(5, quad);
cell_label(12, "fillpoly");
/* ⑭ putpixel / getpixel */
cx = in_x(13); cy = in_y(13);
for (py = 0; py < 6; py = py + 1)
for (px = 0; px < 16; px = px + 1)
putpixel(cx + 6 + px * 6, cy + 8 + py * 10,
(px + py) % 2 == 0 ? WHITE : BLUE);
check(Lang == 0 ? "putpixel 后 getpixel 读回同一索引" : "after putpixel, getpixel reads the same index back",
getpixel(cx + 6, cy + 8) == WHITE);
check(Lang == 0 ? "没画过的地方是背景色" : "an untouched spot holds the background color",
getpixel(cx + IN_W - 2, cy + 2) == BLACK);
cell_label(13, "putpixel");
/* ⑮ floodfill（第三参是**边界色**，填什么由 setfillstyle 决定）*/
/* ⑮ floodfill (the third argument is the **border color**; what gets filled is decided by setfillstyle) */
cx = in_x(14); cy = in_y(14);
setcolor(WHITE);
rectangle(cx + 10, cy + 6, cx + IN_W - 12, cy + IN_H - 6);
setfillstyle(SOLID_FILL, GREEN);
floodfill(cx + IN_W / 2, cy + IN_H / 2, WHITE);
check(Lang == 0 ? "floodfill 填进了 setfillstyle 的颜色" : "floodfill filled with the setfillstyle color",
getpixel(cx + IN_W / 2, cy + IN_H / 2) == GREEN);
cell_label(14, "floodfill");
/* ⑯ imagesize / getimage / putimage */
cx = in_x(15); cy = in_y(15);
setfillstyle(SOLID_FILL, MAGENTA);
bar(cx + 8, cy + 12, cx + 40, cy + 44);
setcolor(WHITE);
rectangle(cx + 8, cy + 12, cx + 40, cy + 44);
area = imagesize(cx + 8, cy + 12, cx + 40, cy + 44);
say("imagesize(33x33)=", area);
check(Lang == 0 ? "imagesize > 0（老程序拿它去 malloc）" : "imagesize > 0 (old programs malloc with it)", area > 0);
img = malloc(area);
getimage(cx + 8, cy + 12, cx + 40, cy + 44, img);
putimage(cx + 56, cy + 12, img, COPY_PUT);
putimage(cx + 30, cy + 52, img, XOR_PUT); /* 贴回自己 ⇒ XOR 抹掉 */
/* Pasted back onto itself ⇒ XOR erases it */
check(Lang == 0 ? "getimage+putimage(COPY) 贴出了颜色" : "getimage+putimage(COPY) put the colors out",
getpixel(cx + 70, cy + 28) == MAGENTA);
cell_label(15, "getimage/putimage");
/* ⑰ setcolor：16 色调色板各来一条 */
/* ⑰ setcolor: one stripe for each of the 16 palette colors */
cx = in_x(16); cy = in_y(16);
for (i = 0; i < 16; i = i + 1) {
setcolor(i);
line(cx + i * 7, cy + 4, cx + i * 7, cy + IN_H - 4);
}
check(Lang == 0 ? "setcolor(14) 后 getpixel 读到 14" : "after setcolor(14), getpixel reads 14", (setcolor(14), getpixel(cx + 14 * 7, cy + 20)) == 14);
cell_label(16, "setcolor(0..15)");
/* ⑱ setfillstyle */
cx = in_x(17); cy = in_y(17);
setfillstyle(SOLID_FILL, BLUE);
bar(cx, cy + 6, cx + 24, cy + IN_H - 6);
setfillstyle(SOLID_FILL, RED);
bar(cx + 28, cy + 6, cx + 52, cy + IN_H - 6);
setfillstyle(SOLID_FILL, GREEN);
bar(cx + 56, cy + 6, cx + 80, cy + IN_H - 6);
setfillstyle(SOLID_FILL, MAGENTA);
bar(cx + 84, cy + 6, cx + IN_W - 2, cy + IN_H - 6);
check(Lang == 0 ? "setfillstyle 换色 ⇒ bar 跟着换" : "changing setfillstyle => the bar follows",
getpixel(cx + 12, cy + 20) == BLUE && getpixel(cx + 96, cy + 20) == MAGENTA);
cell_label(17, "setfillstyle");
/* ⑲ setlinestyle */
cx = in_x(18); cy = in_y(18);
setcolor(WHITE);
setlinestyle(SOLID_LINE, 0, NORM_WIDTH);
line(cx, cy + 12, cx + IN_W - 2, cy + 12);
setlinestyle(SOLID_LINE, 0, THICK_WIDTH);
line(cx, cy + 34, cx + IN_W - 2, cy + 34);
setlinestyle(SOLID_LINE, 0, NORM_WIDTH);
line(cx, cy + 58, cx + IN_W - 2, cy + 58);
cell_label(18, "setlinestyle");
/* ⑳ 文字三件套：outtextxy / outtext（跟着画笔）/ settextjustify */
/* ⑳ The text trio: outtextxy / outtext (follows the pen) / settextjustify */
cx = in_x(19); cy = in_y(19);
setcolor(WHITE);
settextstyle(DEFAULT_FONT, HORIZ_DIR, 2);
settextjustify(LEFT_TEXT, 0);
outtextxy(cx, cy + 4, "outtextxy");
moveto(cx, cy + 34);
outtext("outtext");
settextjustify(CENTER_TEXT, 0);
outtextxy(cx + IN_W / 2, cy + 60, "CENTER");
settextjustify(LEFT_TEXT, 0);
settextstyle(DEFAULT_FONT, HORIZ_DIR, 1);
cell_label(19, "outtextxy");
/* ── 收尾 ────────────────────────────────────────────────── */
/* ── Wrap-up ───────────────────────────────────────────────── */
puts(Lang == 0 ? "--- 颜色索引抽查 ---" : "--- color index spot checks ---");
say("getpixel(0,0)=", getpixel(0, 0));
puts(Lang == 0 ? "--- 小结 ---" : "--- summary ---");
puts("OK=");
put_int(g_ok);
puts(" FAIL=");
put_int(g_bad);
putchar('\n');
puts(Lang == 0 ? "=== BGI 自检结束 ===" : "=== BGI self-test done ===");
ui_2d_present();
getch();
closegraph();
return 0;
}