TGLRevolutionSolid

type TGLRevolutionSolid = class(TGLPolygonBase)

protected

  procedure SetStartAngle();

  procedure SetStopAngle();

  function StoreStopAngle;

  procedure SetSlices();

  procedure SetNormals();

  procedure SetYOffsetPerTurn();

  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: TRevolutionSolidParts; [rw]

  property StartAngle: Single; [rw]

  property StopAngle: Single; [rws]

  property YOffsetPerTurn: Single; [rw]

  property Slices: Integer; [rw]

  property Normals: TNormalSmoothing; [rw]

  property NormalDirection: TNormalDirection; [rw]

end;

TGLRevolutionSolid

TObject