OPENGL模拟行星运转的代码

opengl模拟的太阳系行星运转代码，以前给一本科生做的毕业设计，给大家参考

// ControlPanel.cpp : implementation file
//

#include “stdafx.h“
#include “StarRunApplication.h“
#include “ControlPanel.h“

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CControlPanel

IMPLEMENT_DYNCREATE（CControlPanel CFormView）

CControlPanel::CControlPanel（）
	: CFormView（CControlPanel::IDD）
{
	//{{AFX_DATA_INIT（CControlPanel）
	m_ep = 0.5f;
	m_es = 0.5f;
	m_mp = 0.5f;
	m_ms = 0.5f;
	m_z = 0.1f;
	//}}AFX_DATA_INIT
}

CControlPanel::~CControlPanel（）
{
}

void CControlPanel::DoDataExchange（CDataExchange* pDX）
{
	CFormView::DoDataExchange（pDX）;
	//{{AFX_DATA_MAP（CControlPanel）
	DDX_Control（pDX IDC_RUN m_run）;
	DDX_Text（pDX IDC_EP m_ep）;
	DDV_MinMaxFloat（pDX m_ep 0.f 1.e+007f）;
	DDX_Text（pDX IDC_ES m_es）;
	DDV_MinMaxFloat（pDX m_es 0.f 1.e+007f）;
	DDX_Text（pDX IDC_MP m_mp）;
	DDV_MinMaxFloat（pDX m_mp 0.f 1.e+010f）;
	DDX_Text（pDX IDC_MS m_ms）;
	DDV_MinMaxFloat（pDX m_ms 0.f 1.e+008f）;
	DDX_Text（pDX IDC_Z m_z）;
	DDV_MinMaxFloat（pDX m_z 0.f 1.e+009f）;
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP（CControlPanel CFormView）
	//{{AFX_MSG_MAP（CControlPanel）
	ON_BN_CLICKED（IDC_RUN OnRun）
	//}}AFX_MSG_MAP
END_MESSAGE_MAP（）

/////////////////////////////////////////////////////////////////////////////
// CControlPanel diagnostics

#ifdef _DEBUG
void CControlPanel::AssertValid（） const
{
	CFormView::AssertValid（）;
}

void CControlPanel::Dump（CDumpContext& dc） const
{
	CFormView::Dump（dc）;
}
#endif //_DEBUG

/////////////////////////////////////////////////////////////////////////////
// CControlPanel message handlers
#include “StarRunApplicationView.h“
#include “MainFrm.h“
void CControlPanel::OnRun（） 
{
	// TODO: Add your control notification handler code here
	CMainframe *pframe= （CMainframe *）AfxGetMainWnd（）;
	CStarRunApplicationView* pView = （CStarRunApplicationView*）pframe->m_wndSplitter.GetPane（01）;

//	CButton *pRunButton = （CButton *）this->GetDlgItem（IDC_RUN）;
	
	if（pView->m_bRun == true）
	{
		pView->KillTimer（1）;
	//	pRunButton->SetWindowText（“运  行“）;
		this->m_run.SetWindowText（“运  行“）;
		pView->m_bRun = false;
	}
	else
	{
		pView->SetTimer（1 1 NULL）;
		this->m_run.SetWindowText（“停  止“）;
		pView->m_bRun = true;
	}
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       5105  2000-04-12 16:19  StarRunApplication\aglib.h

     文件       2410  2007-05-13 18:57  StarRunApplication\ControlPanel.cpp

     文件       1639  2007-05-13 18:51  StarRunApplication\ControlPanel.h

     文件     393270  2007-04-20 22:36  StarRunApplication\Data\1.bmp

     文件      66614  2007-04-20 22:36  StarRunApplication\Data\2.bmp

     文件      66616  2007-04-20 22:36  StarRunApplication\Data\3.bmp

     文件      37238  2007-04-20 22:36  StarRunApplication\Data\4.bmp

    ..A.SH.     15360  2007-04-23 07:51  StarRunApplication\Data\Thumbs.db

     文件       3473  2007-05-13 17:07  StarRunApplication\MainFrm.cpp

     文件       1770  2007-05-13 17:23  StarRunApplication\MainFrm.h

     文件       4599  2007-05-13 10:26  StarRunApplication\ReadMe.txt

     文件       1078  2007-05-13 10:26  StarRunApplication\res\StarRunApplication.ico

     文件        410  2007-05-13 10:26  StarRunApplication\res\StarRunApplication.rc2

     文件       1078  2007-05-13 10:26  StarRunApplication\res\StarRunApplicationDoc.ico

     文件       1078  2007-05-13 10:26  StarRunApplication\res\Toolbar.bmp

     文件        972  2007-05-13 19:12  StarRunApplication\resource.h

     文件      45584  2007-05-13 19:12  StarRunApplication\StarRunApplication.aps

     文件       3196  2007-05-13 23:04  StarRunApplication\StarRunApplication.clw

     文件       4425  2007-05-13 13:32  StarRunApplication\StarRunApplication.cpp

     文件       5087  2007-05-13 17:29  StarRunApplication\StarRunApplication.dsp

     文件        561  2007-05-13 10:26  StarRunApplication\StarRunApplication.dsw

     文件       1488  2007-05-13 10:26  StarRunApplication\StarRunApplication.h

     文件      82944  2007-05-13 23:13  StarRunApplication\StarRunApplication.ncb

     文件      49664  2007-05-13 23:13  StarRunApplication\StarRunApplication.opt

     文件       2835  2007-05-13 22:14  StarRunApplication\StarRunApplication.plg

     文件      12678  2007-05-13 19:12  StarRunApplication\StarRunApplication.rc

     文件       1982  2007-05-13 10:26  StarRunApplication\StarRunApplicationDoc.cpp

     文件       1607  2007-05-13 10:26  StarRunApplication\StarRunApplicationDoc.h

     文件      18664  2007-05-13 22:14  StarRunApplication\StarRunApplicationView.cpp

     文件       3895  2007-05-13 18:47  StarRunApplication\StarRunApplicationView.h

............此处省略11个文件信息