GLScene/include/Win32/Formats.m3DS.hpp

// CodeGear C++Builder
// Copyright (c) 1995, 2025 by Embarcadero Technologies, Inc.
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Formats.m3DS.pas' rev: 36.00 (Windows)

#ifndef Formats_m3DSHPP
#define Formats_m3DSHPP

#pragma delphiheader begin
#pragma option push
#if defined(__BORLANDC__) && !defined(__clang__)
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member 
#endif
#pragma pack(push,8)
#include <System.hpp>
#include <SysInit.hpp>
#include <System.Classes.hpp>
#include <System.SysUtils.hpp>
#include <Formats.m3DSTypes.hpp>

//-- user supplied -----------------------------------------------------------

namespace Formats
{
namespace M3ds
{
//-- forward type declarations -----------------------------------------------
class DELPHICLASS TMaterialList;
class DELPHICLASS TObjectList;
class DELPHICLASS TKeyFramer;
class DELPHICLASS TFile3DS;
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TLoadProgress)(System::LongInt StreamPos, System::LongInt StreamMax);

#pragma pack(push,4)
class PASCALIMPLEMENTATION TMaterialList : public System::TObject
{
	typedef System::TObject inherited;
	
public:
	Formats::M3dstypes::PMaterial3DS operator[](int Index) { return this->Material[Index]; }
	
private:
	TFile3DS* FOwner;
	System::Classes::TList* FLocalList;
	int __fastcall GetCount();
	Formats::M3dstypes::PMaterial3DS __fastcall GetMaterial(int Index);
	Formats::M3dstypes::PMaterial3DS __fastcall GetMaterialByName(const System::UnicodeString Name);
	
public:
	__fastcall virtual TMaterialList(TFile3DS* AOwner);
	__fastcall virtual ~TMaterialList();
	void __fastcall ClearList();
	__property int Count = {read=GetCount, nodefault};
	__property Formats::M3dstypes::PMaterial3DS Material[int Index] = {read=GetMaterial/*, default*/};
	__property Formats::M3dstypes::PMaterial3DS MaterialByName[const System::UnicodeString Name] = {read=GetMaterialByName};
};

#pragma pack(pop)

#pragma pack(push,4)
class PASCALIMPLEMENTATION TObjectList : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	TFile3DS* FOwner;
	System::Classes::TList* FMeshList;
	System::Classes::TList* FOmniList;
	System::Classes::TList* FSpotList;
	System::Classes::TList* FCameraList;
	Formats::M3dstypes::PCamera3DS __fastcall GetCamera(int Index);
	int __fastcall GetCamCount();
	int __fastcall GetMeshObjectCount();
	Formats::M3dstypes::PMesh3DS __fastcall GetMesh(int Index);
	int __fastcall GetOmniCount();
	Formats::M3dstypes::PLight3DS __fastcall GetOmniLight(int Index);
	int __fastcall GetSpotCount();
	Formats::M3dstypes::PLight3DS __fastcall GetSpotLight(int Index);
	
public:
	__fastcall virtual TObjectList(TFile3DS* AOwner);
	__fastcall virtual ~TObjectList();
	void __fastcall ClearLists();
	__property int CameraCount = {read=GetCamCount, nodefault};
	__property int MeshCount = {read=GetMeshObjectCount, nodefault};
	__property int OmniLightCount = {read=GetOmniCount, nodefault};
	__property int SpotLightCount = {read=GetSpotCount, nodefault};
	__property Formats::M3dstypes::PMesh3DS Mesh[int Index] = {read=GetMesh};
	__property Formats::M3dstypes::PCamera3DS Camera[int Index] = {read=GetCamera};
	__property Formats::M3dstypes::PLight3DS OmniLight[int Index] = {read=GetOmniLight};
	__property Formats::M3dstypes::PLight3DS SpotLight[int Index] = {read=GetSpotLight};
};

#pragma pack(pop)

#pragma pack(push,4)
class PASCALIMPLEMENTATION TKeyFramer : public System::TObject
{
	typedef System::TObject inherited;
	
public:
	Formats::M3dstypes::PKFMesh3DS operator[](int Index) { return this->MeshMotion[Index]; }
	
private:
	TFile3DS* FOwner;
	System::Classes::TList* FMeshMotionList;
	System::Classes::TList* FOmniMotionList;
	System::Classes::TList* FSpotMotionList;
	System::Classes::TList* FCameraMotionList;
	Formats::M3dstypes::PKFAmbient3DS FAmbientMotion;
	Formats::M3dstypes::PKFAmbient3DS __fastcall GetAmbientMotion();
	Formats::M3dstypes::PKFCamera3DS __fastcall GetCameraMotion(int Index);
	int __fastcall GetCamMotionCount();
	Formats::M3dstypes::TKFSets3DS __fastcall GetKFSets();
	int __fastcall GetMeshMotionCount();
	Formats::M3dstypes::PKFMesh3DS __fastcall GetMeshMotion(int Index);
	int __fastcall GetOmniMotionCount();
	Formats::M3dstypes::PKFOmni3DS __fastcall GetOmniLightMotion(int Index);
	int __fastcall GetSpotMotionCount();
	Formats::M3dstypes::PKFSpot3DS __fastcall GetSpotLightMotion(int Index);
	
public:
	__fastcall virtual TKeyFramer(TFile3DS* AOwner);
	__fastcall virtual ~TKeyFramer();
	void __fastcall ClearLists();
	__property Formats::M3dstypes::PKFAmbient3DS AmbientLightMotion = {read=GetAmbientMotion};
	__property int CameraMotionCount = {read=GetCamMotionCount, nodefault};
	__property int MeshMotionCount = {read=GetMeshMotionCount, nodefault};
	__property int OmniLightMotionCount = {read=GetOmniMotionCount, nodefault};
	__property int SpotLightMotionCount = {read=GetSpotMotionCount, nodefault};
	__property Formats::M3dstypes::PKFMesh3DS MeshMotion[int Index] = {read=GetMeshMotion/*, default*/};
	__property Formats::M3dstypes::PKFCamera3DS CameraMotion[int Index] = {read=GetCameraMotion};
	__property Formats::M3dstypes::PKFOmni3DS OmniLightMotion[int Index] = {read=GetOmniLightMotion};
	__property Formats::M3dstypes::TKFSets3DS Settings = {read=GetKFSets};
	__property Formats::M3dstypes::PKFSpot3DS SpotLightMotion[int Index] = {read=GetSpotLightMotion};
};

#pragma pack(pop)

class PASCALIMPLEMENTATION TFile3DS : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	Formats::M3dstypes::PNodeList FNodeList;
	Formats::M3dstypes::TDatabase3DS FDatabase;
	System::Classes::TStream* FStream;
	bool FOwnStream;
	TMaterialList* FMaterialList;
	TObjectList* FObjectList;
	TKeyFramer* FKeyFramer;
	System::UnicodeString FFileName;
	TLoadProgress FOnLoadProgress;
	Formats::M3dstypes::TAtmosphere3DS __fastcall GetAtmosphereData();
	Formats::M3dstypes::TBackground3DS __fastcall GetBackgroundData();
	Formats::M3dstypes::TDBType3DS __fastcall GetDatabaseType();
	Formats::M3dstypes::TMeshSet3DS __fastcall GetMeshSettings();
	Formats::M3dstypes::TViewport3DS __fastcall GetViewportData();
	Formats::M3dstypes::TReleaseLevel __fastcall GetDatabaseRelease();
	Formats::M3dstypes::TReleaseLevel __fastcall GetMeshRelease();
	
protected:
	void __fastcall AddToNodeList(Formats::M3dstypes::PChunk3DS Chunk);
	void __fastcall AssignParentNames();
	void __fastcall CheckListNodeIDs();
	void __fastcall CreateDatabase();
	Formats::M3dstypes::PNodeList __fastcall FindNodeByID(short ID);
	short __fastcall GetChunkNodeID(Formats::M3dstypes::PChunk3DS Chunk);
	void __fastcall InitDatabase();
	bool __fastcall IsNode(System::Word Tag);
	void __fastcall KFAddParentName(Formats::M3dstypes::PChunk3DS Chunk, const Formats::M3dstypes::String3DS Name);
	void __fastcall MakeNode(Formats::M3dstypes::PNodeList &Node);
	void __fastcall ParseDatabase();
	void __fastcall ReadChildren(Formats::M3dstypes::PChunk3DS Parent);
	void __fastcall ReadXDataEntryChildren(Formats::M3dstypes::PChunk3DS Parent);
	void __fastcall ReleaseDatabase();
	void __fastcall ReleaseNodeList();
	void __fastcall ReleaseStream();
	
public:
	__fastcall virtual TFile3DS();
	__fastcall virtual TFile3DS(const System::UnicodeString FileName);
	__fastcall virtual ~TFile3DS();
	void __fastcall ClearLists();
	void __fastcall DumpDataBase(System::Classes::TStrings* Strings, Formats::M3dstypes::TDumpLevel DumpLevel);
	void __fastcall LoadFromFile(const System::UnicodeString FileName);
	void __fastcall LoadFromStream(System::Classes::TStream* const aStream);
	System::Byte __fastcall ReadByte();
	unsigned __fastcall ReadCardinal();
	void __fastcall ReadChunkData(Formats::M3dstypes::PChunk3DS Chunk);
	void __fastcall ReadData(int Size, void * Data);
	double __fastcall ReadDouble();
	Formats::M3dstypes::TFace3DS __fastcall ReadFace();
	void __fastcall ReadHeader(System::Word &ChunkType, unsigned &ChunkSize);
	int __fastcall ReadInteger();
	Formats::M3dstypes::TKeyHeader3DS __fastcall ReadKeyHeader();
	Formats::M3dstypes::TPoint3DS __fastcall ReadPoint();
	short __fastcall ReadShort();
	float __fastcall ReadSingle();
	Formats::M3dstypes::PChar3DS __fastcall ReadString();
	Formats::M3dstypes::TTexVert3DS __fastcall ReadTexVert();
	Formats::M3dstypes::TTrackHeader3DS __fastcall ReadTrackHeader();
	System::Word __fastcall ReadWord();
	void __fastcall FinishHeader(unsigned StartPos, unsigned EndPos);
	void * __fastcall InitChunkData(Formats::M3dstypes::PChunk3DS Chunk);
	void __fastcall SeekChild(Formats::M3dstypes::PChunk3DS Chunk);
	void __fastcall Skip(int AValue);
	void __fastcall WriteByte(System::Byte AValue);
	void __fastcall WriteCardinal(unsigned AValue);
	void __fastcall WriteData(int Size, void * Data);
	void __fastcall WriteDouble(double AValue);
	void __fastcall WriteFace(const Formats::M3dstypes::TFace3DS &F);
	void __fastcall WriteFixedString(const Formats::M3dstypes::String3DS AValue, int Len);
	void __fastcall WriteHeader(System::Word ChunkType, unsigned ChunkSize);
	void __fastcall WriteInteger(int AValue);
	void __fastcall WriteKeyHeader(const Formats::M3dstypes::TKeyHeader3DS &K);
	void __fastcall WritePoint(const Formats::M3dstypes::TPoint3DS &P);
	void __fastcall WriteShort(short AValue);
	void __fastcall WriteSingle(float AValue);
	void __fastcall WriteString(const Formats::M3dstypes::String3DS AValue);
	void __fastcall WriteTexVertex(const Formats::M3dstypes::TTexVert3DS &T);
	void __fastcall WriteTrackHeader(const Formats::M3dstypes::TTrackHeader3DS &T);
	void __fastcall WriteWord(System::Word AValue);
	__property Formats::M3dstypes::TAtmosphere3DS Atmosphere = {read=GetAtmosphereData};
	__property Formats::M3dstypes::TBackground3DS Background = {read=GetBackgroundData};
	__property Formats::M3dstypes::TReleaseLevel DatabaseRelease = {read=GetDatabaseRelease, nodefault};
	__property Formats::M3dstypes::TDBType3DS DatabaseType = {read=GetDatabaseType, nodefault};
	__property System::UnicodeString FileName = {read=FFileName};
	__property TKeyFramer* KeyFramer = {read=FKeyFramer};
	__property TMaterialList* Materials = {read=FMaterialList};
	__property Formats::M3dstypes::TReleaseLevel MeshRelease = {read=GetMeshRelease, nodefault};
	__property Formats::M3dstypes::TMeshSet3DS MeshSettings = {read=GetMeshSettings};
	__property TObjectList* Objects = {read=FObjectList};
	__property Formats::M3dstypes::TViewport3DS Viewport = {read=GetViewportData};
	__property TLoadProgress OnLoadProgress = {read=FOnLoadProgress, write=FOnLoadProgress};
};


//-- var, const, procedure ---------------------------------------------------
}	/* namespace M3ds */
}	/* namespace Formats */
#if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_FORMATS_M3DS)
using namespace Formats::M3ds;
#endif
#if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_FORMATS)
using namespace Formats;
#endif
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Formats_m3DSHPP