TGLPipe

type TGLPipe = class(TGLPolygonBase)

protected

  procedure CreateNodes; override;

  procedure SetSlices();

  procedure SetParts();

  procedure SetRadius();

  function StoreRadius;

  procedure SetNodesColorMode();

  procedure SetTextCoordMode();

  procedure SetTextCoordTileS();

  procedure SetTextCoordTileT();

  function StoreTextCoordTileS;

  function StoreTextCoordTileT;

  procedure SetNormalMode();

  procedure SetNormalSmoothAngle();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure BuildList(); override;

  property TriangleCount: Integer; [r]

published

  property Parts: TPipeParts; [rw]

  property Slices: Integer; [rw]

  property Radius: Single; [rw]

  property NodesColorMode: TPipeNodesColorMode; [rw]

  property TexCoordMode: TPipeTexCoordMode; [rw]

  property TexCoordTileS: Single; [rws]

  property TexCoordTileT: Single; [rws]

  property NormalMode: TPipeNormalMode; [rw]

  property NormalSmoothAngle: Single; [rw]

end;

TGLPipe

TObject