大數據量三維視圖繪製與多邊形消隱技術實現

引言

在資料庫管理系統、辦公自動化及統計軟體中，三維視圖繪製是常見需求。傳統方式要求使用者在表格中輸入數據與視角參數，僅適合小批量統計圖表。然而在大地測量、地貌分析、氣象水文、交通林業等領域，空間分布數據量龐大，手工輸入不僅效率低下，更易出錯。本文介紹一種基於 C++ 與 FoxPro 資料庫的大數據量三維視圖繪製方案，核心在於：(1) 利用 FoxPro 整理數據並匯出為 C++ 可引用的 .h 標頭檔；(2) 採用創新的「多邊形法」進行高效消隱處理。

繪圖數據準備：從 FoxPro 到 C++ 標頭檔

原始數據儲存在 FoxPro (.dbf) 資料庫中。將某圖表的所有數據置於一維陣列，封裝於單一 .h 檔案，C++ 程式僅需 #include "data.h" 即可隨處調用。具體操作步驟：

1. 在 .dbf 中新增字段 DH，內容全部替換為逗號「,」。
2. 執行命令：copy to data.h fields DT1,DH delim with blank 導出檔案。
3. 以文字編輯器開啟 data.h，在數據首尾分別加上 A={ 與 };，形成合法 C++ 陣列初始化碼。

此法將海量數據編譯期嵌入程式，避免執行期讀取開銷，且修改參數僅需重新產生 .h 檔，極具彈性。

三維視圖繪製核心演算法：多邊形消隱法

傳統消隱多採「計算法」，即逐點計算遮擋關係並刪除線段，邏輯複雜。本文提出的「多邊形法」原理簡潔、代碼極少，流程如下：

1. 繪製第一排數據的 X 向網格線（line 連接點）。
2. 繪製 Y 向網格線：將第二排與第一排對應點連接。
3. 消隱關鍵步驟：根據第二排數據點，以背景色填充一個多邊形，覆蓋掉被第二排線條遮擋的部分（即完成消隱）。
4. 繪製第二排的 X 向網格線。
5. 重複步驟 2–4 直到繪製完所有排數據。

此法利用繪圖次序與多邊形填充特性，以空間換時間，無需幾何相交運算，極適合即時渲染大規模網格數據。

Windows 版完整原始碼範例 (draw3d.cpp)

#include <windows.h>
#include "data.h"

int mv[15625]; // 繪圖數據陣列，定義於 data.h
HANDLE hInst;

int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
                   LPSTR lpszCmdLine, int nCmdShow) {
    // 省略建立視窗程式碼
}

long FAR PASCAL WindowProc(HWND hWnd, WORD message,
                           WORD wParam, LONG lParam) {
    HDC hDC; PAINTSTRUCT ps; HBRUSH hOldBrush;
    int i=0, j=0;
    int yy[MAXPTS]; static POINT PointTable[MAXPTS+2];
    // 定義畫筆/畫刷
    static LOGPEN lpBlack={PS_SOLID,1,1,RGB(0,0,0)};
    static LOGPEN lpGreen={PS_SOLID,1,1,RGB(0,255,0)};
    static LOGPEN lpWhite={PS_SOLID,1,1,RGB(255,255,255)};
    HBRUSH hBlackBrush, hWhiteBrush;
    HPEN hGreenPen, hWhitePen, hBlackPen;

    switch (message) {
    case WM_PAINT:
        hDC = BeginPaint(hWnd, &ps);
        SetMapMode(hDC, MM_TEXT);
        hBlackPen = CreatePenIndirect(&lpBlack);
        hGreenPen = CreatePenIndirect(&lpGreen);
        hWhitePen = CreatePenIndirect(&lpWhite);
        hBlackBrush = GetStockObject(BLACK_BRUSH);
        hWhiteBrush = GetStockObject(WHITE_BRUSH);
        hOldBrush = SelectObject(hDC, GetStockObject(NULL_BRUSH));

        for (j=0; j0) {
                    SelectObject(hDC, hGreenPen);
                    MoveTo(hDC, mx[i], my[i]);
                    LineTo(hDC, PointTable[i].x, PointTable[i].y); // Y 向網格
                }
            }
            // 封閉多邊形底部兩點
            PointTable[MAXPTS].x   = PointTable[MAXPTS-1].x;
            PointTable[MAXPTS].y   = PointTable[MAXPTS-1].y + 20;
            PointTable[MAXPTS+1].x = PointTable[0].x;
            PointTable[MAXPTS+1].y = PointTable[0].y + 20;

            if (j == MAXPTS-1) { // 最後一排用白色覆蓋
                SelectObject(hDC, hWhitePen);
                SelectObject(hDC, hWhiteBrush);
                Polygon(hDC, PointTable, MAXPTS);
            } else {             // 中間排用黑色消隱
                SelectObject(hDC, hBlackPen);
                SelectObject(hDC, hBlackBrush);
                Polygon(hDC, PointTable, MAXPTS);
            }
            // 保存本排點供下一排畫 Y 向線
            for (i=0; i