Unit 'GLExtrusion' Package
[Overview][Types][Classes][Index] [#pl_glscene]

TGLExtrusionSolid

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: GLExtrusion.pas line 132

type TGLExtrusionSolid = class(TMultiPolygonBase)

protected

  procedure SetStacks();

  

  procedure SetNormals();

  

  procedure SetNormalDirection();

  

  procedure SetParts();

  

public

  constructor Create(); override;

  

  destructor Destroy; override;

  

  procedure Assign(); override;

  

  procedure BuildList(); override;

  

  property TriangleCount: Integer; [r]

  

  function AxisAlignedDimensionsUnscaled; override;

  

  procedure StructureChanged; override;

  

published

  property Parts: TExtrusionSolidParts; [rw]

  

  property Height: TGLFloat; [rw]

  

  property Stacks: Integer; [rw]

  

  property Normals: TNormalSmoothing; [rw]

  

  property NormalDirection: TNormalDirection; [rw]

  

  property MinSmoothAngle: Single; [rw]

  

end;

Inheritance

TGLExtrusionSolid

  

|

TMultiPolygonBase

  

|

TObject



CT Web help

CodeTyphon Studio