Класс имеет следующее описание, сам по себе работает с 3DS моделями но зависит от многих дельфёвских юнитов.
Все данные хранит внутри себя.
| Код |
Uses Windows, Messages, Classes, Graphics, Controls, Forms, Geometry, GraphicEx,
OpenGL, UtilsGL, StdCtrls, ShellApi, File3DS, Utils3DS, Dialogs,
Types3DS, Const3DS, SysUtils, Math;
Type
TModel3DS = Class(TObject)
//-------------------------------------
Private
FReader: TFile3DS;
// Опции сетки
FLists: TList;
FMainList: Cardinal;
FCenter: TAffineVector;
// Материалы
FMaterials: TStringList;
//-------------------------------------
procedure Use3DSData(const Reader: TFile3DS);
procedure ConvertMaterials(const Materials3DS: TMaterialList);
procedure SetupTextures(ImagePath: String);
procedure ClearLists;
procedure CheckOpenGLError;
function ConvertMeshData(const Version: TReleaseLevel; const Mesh3DS: PMesh3DS;
ShowWarnings: Boolean): PMeshObject;
function LoadPictureFromFile(Picture: TPicture; ImagePath,
FileName: String): Boolean;
function CreateTextureObject(DC: HDC; Bitmap: TBitmap;
MinFilter, MagFilter: Cardinal): Cardinal;
//-------------------------------------
Public
Constructor Create();
Destructor Destroy(); Override;
Procedure LoadModel(FilePath: String);
Procedure DrawModel();
end;
|
|
)