3D Scientific Graph Control是工控圖表控件ProEssentials的圖表組件之一，它可以生成各種類型的圖表，比如3D曲面圖、3D柱狀圖、3D散點圖等，所有的圖表均支持旋轉和查看高度調整。下面是用ProEssentials創建的一個簡單的3D曲面圖：

功能：

• 雙擊生成的圖表，它會開始自動旋轉，再次雙擊即停止旋轉
• 按住鼠標左鍵可拖動查看曲面圖的各個部分

PS：要體驗這個3D曲面圖的旋轉功能，可以下載ProEssential's v7 Demo

ProEssentials創建3D曲面圖的源代碼：

void CPEView::Create3DSimpleWireFrame()
{

   RECT rect;
   GetClientRect( &rect );

   // Construct Object //
   m_hPE = PEcreate(PECONTROL_3D, WS_VISIBLE, &rect, m_hWnd, 1001);

   // Enable mouse dragging //
   PEnset(m_hPE, PEP_bMOUSEDRAGGINGX, TRUE);
   PEnset(m_hPE, PEP_bMOUSEDRAGGINGY, TRUE);

   long Row, Col, o, s, e, nQ;
   long nStartRow, nEndRow, nStartCol, nEndCol, nTargetRows, nTargetCols;

   nStartRow = 160;
   nEndRow = 185;
   nTargetRows = nEndRow - nStartRow + 1;

   nStartCol = 85;
   nEndCol = 110;
   nTargetCols = nEndCol - nStartCol + 1;

   nQ = nTargetRows * nTargetCols;

   long* pElevData = NULL;
   float* pMyXData = NULL;    
   float* pMyYData = NULL;
   float* pMyZData = NULL;

   TCHAR szFile[] = TEXT("terrain.bin");
   FILE * pFile = NULL;
   pFile = _tfopen(szFile, TEXT("rb"));

   if (pFile)
   {
       pElevData = new long[202500];
       // Transfer entire data file into memory //
       size_t cnt;
       e = 0;
       for (s = 0; s < 45; s++)
       {
           cnt = fread(&pElevData[e], sizeof(long), 4500, pFile);
           e += 4500;
       }
       fclose(pFile);
   }
   else
   {
       MessageBox(TEXT("Data File [terrain.bin] not found in program directory."));
       return;
   }

   pMyXData = new float[nQ];
   pMyYData = new float[nQ];
   pMyZData = new float[nQ];

   long rowcounter, colcounter;
   BOOL foundtargetindex = FALSE;
   rowcounter = 0;
   colcounter = 0;

   for (Row=0; Row<450; Row++)
   {
       for (Col=0; Col<450; Col++)
       {
           foundtargetindex = FALSE;

           if (Row >= nStartRow && Row <= nEndRow) 
           {
               if (Col >= nStartCol && Col <= nEndCol)
               {
                   foundtargetindex = TRUE;
                   o = (rowcounter * nTargetRows) + colcounter;
                   pMyXData[o] = (float) Col + 1;
                   pMyZData[o] = (float) Row + 1;
                   pMyYData[o] = pElevData[(Row * 450) + Col] * 0.1F;
               }
           }
           if (foundtargetindex) 
               colcounter++;
       }
       if (foundtargetindex)
	        rowcounter++;
   }

   PEnset(m_hPE, PEP_nSUBSETS, nTargetRows);
   PEnset(m_hPE, PEP_nPOINTS, nTargetCols);

   // Perform the actual transfer of data //
   PEvset(m_hPE, PEP_faXDATA, pMyXData, nQ);
   PEvset(m_hPE, PEP_faYDATA, pMyYData, nQ);
   PEvset(m_hPE, PEP_faZDATA, pMyZData, nQ);

   if (pElevData)
       delete pElevData;
   if (pMyXData)
       delete pMyXData;
   if (pMyYData)
       delete pMyYData;
   if (pMyZData)
       delete pMyZData;

   PEnset(m_hPE, PEP_dwXZBACKCOLOR, 1);
   PEnset(m_hPE, PEP_dwYBACKCOLOR, 1);

   // Mechanism to control polygon border color //
   PEnset(m_hPE, PEP_dwBARBORDERCOLOR, PERGB( 255,0,0,0));

   DWORD dw = PERGB( 96,198,0,0);
   PEvsetcell(m_hPE, PEP_dwaSUBSETCOLORS, WIRE_FRAME_COLOR, &dw); 

   dw = PERGB( 96,0,148,0);
   PEvsetcell(m_hPE, PEP_dwaSUBSETCOLORS, SOLID_SURFACE_COLOR, &dw);  

   // Set the plotting method //
   //! There are different plotting method values for each //
   //! case of PolyMode  //
   PEnset( m_hPE, PEP_nPLOTTINGMETHOD, 1 );

   // Set various other properties //
   PEnset(m_hPE, PEP_bBITMAPGRADIENTMODE, TRUE);
   PEnset(m_hPE, PEP_nQUICKSTYLE, PEQS_DARK_LINE);

   PEnset(m_hPE, PEP_bSIMPLEPOINTLEGEND, TRUE);
   PEnset(m_hPE, PEP_bSIMPLELINELEGEND, TRUE);
   PEnset(m_hPE, PEP_nLEGENDSTYLE, PELS_1_LINE);

   PEszset(m_hPE, PEP_szMAINTITLE, TEXT("Wire Frame"));
   PEszset(m_hPE, PEP_szSUBTITLE, TEXT("")); // no subtitle
   PEnset(m_hPE, PEP_nVIEWINGHEIGHT, 20);				   
   PEnset(m_hPE, PEP_nDEGREEOFROTATION, 275);
   PEnset(m_hPE, PEP_bFIXEDFONTS, TRUE);
   PEnset(m_hPE, PEP_nFONTSIZE, PEFS_MEDIUM);
   PEnset(m_hPE, PEP_bPREPAREIMAGES, TRUE); 
   PEnset(m_hPE, PEP_bCACHEBMP, TRUE);
   PEnset(m_hPE, PEP_bFOCALRECT, FALSE);
   PEnset(m_hPE, PEP_nSHADINGSTYLE, PESS_WHITESHADING);

   PEnset(m_hPE, PEP_nTEXTSHADOWS, PETS_BOLD_TEXT);
   PEnset(m_hPE, PEP_bMAINTITLEBOLD, TRUE);
   PEnset(m_hPE, PEP_bSUBTITLEBOLD, TRUE);
   PEnset(m_hPE, PEP_bLABELBOLD, TRUE);

   // Improves metafile export //
   PEnset(m_hPE, PEP_nDPIX, 600);
   PEnset(m_hPE, PEP_nDPIY, 600);

   PEnset(m_hPE, PEP_nSHOWBOUNDINGBOX, PESBB_NEVER);
   PEnset(m_hPE, PEP_bANTIALIASTEXT, TRUE);
   PEnset(m_hPE, PEP_bANTIALIASGRAPHICS, FALSE);
   PEnset(m_hPE, PEP_nRENDERENGINE, PERE_GDIPLUS);

   // Set Demo's RenderEngine to Gdi Plus // 
   CMDIFrameWnd* pWnd = (CMDIFrameWnd*) AfxGetApp()->GetMainWnd();
   pWnd->SendMessage(WM_CHANGE_METAFILE, PEPLAYMETAFILEGDIPLUS );


}

//***************************************************************************