Class TSutraElement3D

Unit

SutraMeshUnit

Declaration

type TSutraElement3D = class(TCustomSutraElement, IElement)

Description

Hierarchy

• TCollectionItem
• TPhastCollectionItem
• TCustomSutraItem
• TCustomSutraElement
• TSutraElement3D

Overview

Fields

	FNodes: TSutraNodeNumber3D_Collection;
	FActiveNodes: TSutraNode3D_List;
	FActive: Boolean;
	FVolume: Extended;
	FElement2D: TSutraElement2D;

Methods

	procedure SetNodes(const Value: TSutraNodeNumber3D_Collection);
	procedure UpdateNodes;
	function GetCenterLocation: TPoint3d;
	procedure UpdateActiveNodeList;
	function GetVolume: extended;
	function CreatePolyhedron: TPolyhedron;
	procedure AddFacesToNodePolyhedron(CornerNode : TSutraNode3D; APolyHedron : TPolyhedron; var LastVertex, LastFace : integer);
	function GetActiveNode(Index: Integer): INode;
	function GetActiveNodeCount: integer;
	constructor Create(Collection: TCollection); override;
	destructor Destroy; override;
	procedure Assign(Source: TPersistent); override;
	procedure AssignIElement(Source: IElement);
	function UpperElevation: double;
	function LowerElevation: double;
	function CenterElevation: double;
	function CellSection(Node: TSutraNode3D): TQuadPair3D;
	function ElementShape: TQuadPair3D;

Properties

	property CenterLocation: TPoint3d read GetCenterLocation;
	property Volume: Extended read GetVolume;
	property Element2D: TSutraElement2D read FElement2D write FElement2D;
	property Nodes: TSutraNodeNumber3D_Collection read FNodes write SetNodes;
	property Active: Boolean read FActive write FActive;

Description

Fields

	FNodes: TSutraNodeNumber3D_Collection;

	FActiveNodes: TSutraNode3D_List;

	FActive: Boolean;

	FVolume: Extended;

	FElement2D: TSutraElement2D;

Methods

	procedure SetNodes(const Value: TSutraNodeNumber3D_Collection);

	procedure UpdateNodes;

	function GetCenterLocation: TPoint3d;

	procedure UpdateActiveNodeList;

	function GetVolume: extended;

	function CreatePolyhedron: TPolyhedron;

	procedure AddFacesToNodePolyhedron(CornerNode : TSutraNode3D; APolyHedron : TPolyhedron; var LastVertex, LastFace : integer);

	function GetActiveNode(Index: Integer): INode;

	function GetActiveNodeCount: integer;

	constructor Create(Collection: TCollection); override;

	destructor Destroy; override;

	procedure Assign(Source: TPersistent); override;

	procedure AssignIElement(Source: IElement);

	function UpperElevation: double;

	function LowerElevation: double;

	function CenterElevation: double;

	function CellSection(Node: TSutraNode3D): TQuadPair3D;

	function ElementShape: TQuadPair3D;

Properties

	property CenterLocation: TPoint3d read GetCenterLocation;

	property Volume: Extended read GetVolume;

	property Element2D: TSutraElement2D read FElement2D write FElement2D;

	property Nodes: TSutraNodeNumber3D_Collection read FNodes write SetNodes;

	property Active: Boolean read FActive write FActive;