三维演示系统[吕雪松]

《三维演示系统[吕雪松]》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、programSurface;usesForms,SysUtils,frmGLMDIin'frmGLMDI.pas'{frmGL},Meshin'Mesh.pas',TextureGLin'TextureGL.pas',frmMainin'frmMain.pas'{MainForm},frmDEMCollectionin'frmDEMCollection.pas'{DEMCollectionForm},Globalin'Global.pas';{$R*.RES}beginsSysPath:=ExtractFilePath

2、(Application.ExeName);Application.Initialize;Application.CreateForm(TMainForm,MainForm);Application.Run;end.unitfrmMain;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,frmGLMDI,mesh,opengl,frmDEMCollection,StdCtrls;ty

3、peTMainForm=class(TForm)MainMenu1:TMainMenu;N5:TMenuItem;Grayface1:TMenuItem;N8:TMenuItem;N9:TMenuItem;N13:TMenuItem;N14:TMenuItem;N15:TMenuItem;OpenDialog1:TOpenDialog;SaveDialog1:TSaveDialog;N20:TMenuItem;N21:TMenuItem;N23:TMenuItem;N24:TMenuItem;procedureN24Cl

4、ick(Sender:TObject);procedureN26Click(Sender:TObject);procedureN30Click(Sender:TObject);procedureN31Click(Sender:TObject);procedureN8Click(Sender:TObject);procedureN9Click(Sender:TObject);procedureN16Click(Sender:TObject);procedureN21Click(Sender:TObject);procedu

5、reN14Click(Sender:TObject);procedureN15Click(Sender:TObject);procedureN1Click(Sender:TObject);procedureFormCreate(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}GLChild:TfrmGL;end;varMainForm:TMainForm;implementation{$R*.dfm}procedureTMainF

6、orm.N24Click(Sender:TObject);beginClose;end;procedureTMainForm.N26Click(Sender:TObject);begin//GLChild:=TfrmGL.Create(Application,);end;procedureTMainForm.N30Click(Sender:TObject);beginTileMode:=tbVertical;Tile;end;procedureTMainForm.N31Click(Sender:TObject);begi

7、nCascade;end;procedureTMainForm.N8Click(Sender:TObject);beginifMDIChildCount>0thenbeginGLChild.MyMesh.MeshConfig.mode:=gl_triangles;InvalidateRect(GLChild.Handle,nil,False);end;end;procedureTMainForm.N9Click(Sender:TObject);beginifMDIChildCount>0thenbeginGLChild.

8、MyMesh.MeshConfig.mode:=22gl_Line_loop;InvalidateRect(GLChild.Handle,nil,False);end;end;procedureTMainForm.N16Click(Sender:TObject);beginend;procedureTMainForm