// // The graphics engine GLScene // unit GLS.Polyhedra; (* Polyhedra support. The polyhedra are subclasses of polygon structures. The registered classes are: [TGLPolyTet, TGLPolyOct, TGLPolyHec, TGLPolyIso, TGLPolyDod, TGLPolyhedron, TGLPolyhedra] *) interface {$I Stage.Defines.inc} uses Winapi.OpenGL, Winapi.OpenGLext, System.Classes, System.SysUtils, System.Types, System.Math, VCL.Consts, Stage.OpenGLTokens, Stage.VectorTypes, Stage.VectorTypesExt, Stage.TextureFormat, Stage.VectorGeometry, GLS.Scene, GLS.BaseClasses, GLS.Objects, GLS.GeomObjects, GLS.Portal, GLS.VectorLists, GLS.PersistentClasses, GLS.Silhouette, Stage.Strings, GLS.Texture, GLS.Material, GLS.Mesh, Stage.Logger, GLS.Octree, GLS.GeometryBB, GLS.ApplicationFileIO, GLS.Context, GLS.Color; type (* A PolyTet object that handles polygyns for tetrahedron *) TGLPolyTet = class(TGLPolygon) public constructor CreateOwned(AOwner: TGLPolygon); destructor Destroy; override; end; implementation { TGLPolyTet } constructor TGLPolyTet.CreateOwned(AOwner: TGLPolygon); begin // end; destructor TGLPolyTet.Destroy; begin // inherited; end; end.