Gorilla.Import
Unit Gorilla.Import.pasClasses
- TModelImportServices = class ( TPersistent )
- TModelImporter = class ( TInterfacedObject , IModelImporter )
- TCustomModel = class ( TObject )
- TGEImage = class ( TObject )
- TGEBitmap = class ( TBitmap )
- TGEMaterial = class ( TObject )
- TGEMaterials = class ( TObject )
- TGEVertexSource = class ( TObject )
- TGEMesh = class ( TObject )
Interfaces
- interface IModelImporter
Records
- record TGEVertexTextures
- record TGEVertexColors
- record TGEVertex
- record TGEVertexIDTextures
- record TGEVertexIDColors
- record TGEVertexID
Constants
- const GORILLA_ARRAY_TEXTURE_MAX : Integer = $20;
- const GORILLA_ARRAY_COLOR_MAX : Integer = $4;
- const NullVertexID : TGEVertexID = ;
Mics. types
- type TGEMaterialDynArray = array of TGEMaterial;
- type PGEVertex = pointer to TGEVertex;
- type TGEPoligonID = array of TGEVertexID;
- type TGETriangleID = array [0..2] of TGEVertexID;
- type TGETriangleMeshID = array of ;
- type TGEVertexArray = array of TGEVertex;
- type TAlphaColorFDynArray = array of TAlphaColorF;
- type TGEMeshDynArray = array of TGEMesh;
Functions / Procedures
- public function PointEqual ( const v1 : TPoint3D; const v2 : TPoint3D ) : Boolean ; overload;
- public function PointEqual ( const v1 : TPointF; const v2 : TPointF ) : Boolean ; overload;
- public function SetLocalPath ( const APath : string; var AFileName : string ) : Boolean ;
- public function FloatStringsToSingleDynArray ( const AStr : string ) : TSingleDynArray ;
- public function IntStringsToIntegerDynArray ( const AStr : string ) : TIntegerDynArray ; overload;
- public function StringsToStringDynArray ( const AStr : string ) : TStringDynArray ; overload;
IModelImporter
Methods
TModelImportServices
Ancestors
Members
Methods
- published function GetSupportedFileTypesCount ( ) : Integer ; class;
- published function GetFileExt ( const index : Integer ) : string ; class;
- published function GetFileDescription ( const index : Integer ) : string ; class;
- published function RegisterImporter ( AMeshImporter : IModelImporter ) : Integer ; class virtual;
- published procedure UnregisterImporter ( AMeshImporterIndex : Integer ) ; class virtual;
- published function LoadFromFile ( const AFileName : string; out AMesh : TMeshDynArray; const AOwner : TComponent ) : Boolean ; class;
TCustomModel
Ancestors
Members
TGEBitmap
Ancestors
Members
TGEMaterials
Ancestors
Members
Fields
- private FMaterialsOwner :
Boolean
- private FMaterials :
TGEMaterialDynArray
- private FBitmaps :
:TGEMaterials.:1
Methods
- public constructor Create ( AMaterialsOwner : Boolean ) ;
- public destructor Destroy ( ) ;
- private function CreateBitmap ( const AFileName : string ) : TGEBitmap ;
- private procedure SetLocalTexturePath ( const APath : string ) ;
- private function GetCount ( ) : Integer ;
- private procedure SetCount ( const ACount : Integer ) ;
- private function GetItems ( AIndex : Integer ) : TGEMaterial ;
- private procedure SetItems ( AIndex : Integer; AItem : TGEMaterial ) ;
- public procedure LoadImages ( const APath : string ) ;
- public function Add ( const AMaterial : TGEMaterial ) : TGEMaterial ;
Properties
TGEVertexSource
Ancestors
Members
Fields
- private FDestroyed :
Boolean
- private FPositionSource :
TPoint3DDynArray
- private FNormalSource :
TPoint3DDynArray
- private FBiNormalSource :
TPoint3DDynArray
- private FTangentSource :
TPoint3DDynArray
- private FTextureSource :
:TGEVertexSource.:1
- private FColorSource :
:TGEVertexSource.:2
Methods
- public constructor Create ( ) ;
- public destructor Destroy ( ) ;
- private function GetTextureSourceArray ( AIndex : Integer ) : TPointFDynArray ;
- private procedure SetTextureSourceArray ( AIndex : Integer; const ASource : TPointFDynArray ) ;
- private function GetColorSourceArray ( AIndex : Integer ) : TAlphaColorFDynArray ;
- private procedure SetColorSourceArray ( AIndex : Integer; const ASource : TAlphaColorFDynArray ) ;
- public procedure SetPositionSource ( const ASource : TSingleDynArray ) ;
- public procedure SetNormalSource ( const ASource : TSingleDynArray ) ;
- public procedure SetTextureSource ( AIndex : Integer; const ASource : TSingleDynArray; AStride : Integer = $2 ) ;
- public procedure SetBiNormalSource ( const ASource : TSingleDynArray ) ;
- public procedure SetTangentSource ( const ASource : TSingleDynArray ) ;
- public procedure SetColorSource ( AIndex : Integer; const ASource : TSingleDynArray ) ;
- public function AddPositionSource ( const ASource : TSingleDynArray ) : Integer ;
- public function AddNormalSource ( const ASource : TSingleDynArray ) : Integer ;
- public function AddBinormalSource ( const ASource : TSingleDynArray ) : Integer ;
- public function AddTangentSource ( const ASource : TSingleDynArray ) : Integer ;
- public function AddTextureSource ( AIndex : Integer; const ASource : TSingleDynArray ) : Integer ;
- public function AddColorSource ( AIndex : Integer; const ASource : TSingleDynArray ) : Integer ;
Properties
TGEMesh
Ancestors
Members
Fields
- private FTriangleCount :
Integer
- private FTriangles :
TGEVertexArray
- private FSource :
TGEVertexSource
- private FMaterialName :
string
- public Indices :
TX3DFaceIndexArray
- public Faces :
TX3DPolygonVerticesArray
Methods
- public constructor Create ( const ASource : TGEVertexSource ) ;
- public destructor Destroy ( ) ;
- private procedure CalculateTriNormal ( var Av1 : TGEVertex; var Av2 : TGEVertex; var Av3 : TGEVertex ) ;
- public procedure AddVertex ( const AVertex : TGEVertexID ) ;
- public procedure AddTriangle ( const ATriangle : TGETriangleID ) ;
- public procedure AddPoligon ( const APoligon : TGEPoligonID ) ;
- public procedure AddTriangleMesh ( const ATriangleMesh : TGETriangleMeshID ) ;
- public function CreateMesh ( AOwner : TComponent; const ATransform : TMatrix3D; const AMaterials : TGEMaterialDynArray ) : TMesh ;
- public procedure ConvertTrianglesToFaces ( AInverted : Boolean ) ;