Class TBoundary

Unit

QuadMeshGenerator

Declaration

type TBoundary = class(TNodeInBoundaryList, IElement)

Description

TBoundary represents a series of TNodes used to generate the mesh. The nodes are listed in order in FNodes. The boundary may be either open or closed. Closed boundaries have the same node at the beginning and end of FNodes.

Hierarchy

• TList
• TNodeInBoundaryList
• TBoundary

Overview

Fields

	FQuadMeshCreator: TQuadMeshCreator;
	FNodes: TNodeList;
	FSegments: TSegmentObjectList;
	FSegmentType: TSegmentType;
	FParent: TBoundary;
	FSubParts: TBoundaryObjectList;
	FDesiredSpacing: double;
	FConverted: boolean;
	FElementNumber: Integer;
	FRefCount: Integer;

Methods

	function GetSubPart(Index: Integer): TBoundary;
	procedure InsertNodesAlongBoundary;
	procedure ConvertToClosedBoundary;
	procedure RenumberNodes;
	procedure SetNodeTypes(NodeType: TNodeType);
	procedure CreateBoundaryNodes;
	procedure SplitSegmentAtNode(ANode: TNodeInBoundary);
	function SpecialCase: boolean;
	procedure Split222(FirstIndex: Integer);
	procedure Split312(FirstIndex: Integer);
	procedure Split411(FirstIndex: Integer);
	procedure Split2121(FirstIndex: Integer);
	procedure RemoveSelfFromAllNodes;
	procedure ReverseSubBoundaries;
	function Orientation: Integer;
	function IndexOfNode(ANode: TNode): Integer;
	procedure RemoveSelfFromOwnNodes;
	function GetSubPartCount: Integer;
	procedure SetCounterClockwiseOrientation;
	procedure AssignOriginalEdgeAngles;
	procedure GenerateSegments(DesiredOrientation: Integer);
	Procedure Split(List: TBoundaryList);
	constructor Create(QuadMeshCreator: TQuadMeshCreator; SegmentType: TSegmentType; Parent: TBoundary; DesiredSpacing: double);
	function GetActiveNodeCount: Integer;
	procedure CheckInvalidElement;
	function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
	function _AddRef: Integer; stdcall;
	function _Release: Integer; stdcall;
	function GetActiveNode(Index: Integer): INode;
	function GetElementNumber: Integer;
	procedure SetElementNumber(Value: Integer);
	destructor Destroy; override;
	procedure AddNode(Node: TNode);

Properties

	property SegmentType: TSegmentType read FSegmentType;
	property DesiredSpacing: double read FDesiredSpacing;
	property SubPartCount: Integer read GetSubPartCount;
	property SubParts[Index:Integer]: TBoundary read GetSubPart;
	property Nodes[Index:Integer]: INode read GetActiveNode;
	property ElementNumber: Integer read GetElementNumber write SetElementNumber;
	property NodeCount: Integer read GetActiveNodeCount;

Description

Fields

	FQuadMeshCreator: TQuadMeshCreator;

	FNodes: TNodeList;

	FSegments: TSegmentObjectList;

	FSegmentType: TSegmentType;

	FParent: TBoundary;

	FSubParts: TBoundaryObjectList;

	FDesiredSpacing: double;

	FConverted: boolean;

	FElementNumber: Integer;

	FRefCount: Integer;

Methods

	function GetSubPart(Index: Integer): TBoundary;

	procedure InsertNodesAlongBoundary;
InsertNodesAlongBoundary inserts an even number of TNodes around the TBoundary

	procedure ConvertToClosedBoundary;

	procedure RenumberNodes;

	procedure SetNodeTypes(NodeType: TNodeType);

	procedure CreateBoundaryNodes;
CreateBoundaryNodes creates TNodeInBoundaries along it's edge.

	procedure SplitSegmentAtNode(ANode: TNodeInBoundary);

	function SpecialCase: boolean;

	procedure Split222(FirstIndex: Integer);

	procedure Split312(FirstIndex: Integer);

	procedure Split411(FirstIndex: Integer);

	procedure Split2121(FirstIndex: Integer);

	procedure RemoveSelfFromAllNodes;

	procedure ReverseSubBoundaries;

	function Orientation: Integer;

	function IndexOfNode(ANode: TNode): Integer;

	procedure RemoveSelfFromOwnNodes;

	function GetSubPartCount: Integer;

	procedure SetCounterClockwiseOrientation;

	procedure AssignOriginalEdgeAngles;

	procedure GenerateSegments(DesiredOrientation: Integer);

	Procedure Split(List: TBoundaryList);

	constructor Create(QuadMeshCreator: TQuadMeshCreator; SegmentType: TSegmentType; Parent: TBoundary; DesiredSpacing: double);

	function GetActiveNodeCount: Integer;

	procedure CheckInvalidElement;

	function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;

	function _AddRef: Integer; stdcall;

	function _Release: Integer; stdcall;

	function GetActiveNode(Index: Integer): INode;

	function GetElementNumber: Integer;

	procedure SetElementNumber(Value: Integer);

	destructor Destroy; override;

	procedure AddNode(Node: TNode);

Properties

	property SegmentType: TSegmentType read FSegmentType;

	property DesiredSpacing: double read FDesiredSpacing;
The spacing between neighboring nodes in the final mesh should be no greater than DesiredSpacing.

	property SubPartCount: Integer read GetSubPartCount;

	property SubParts[Index:Integer]: TBoundary read GetSubPart;

	property Nodes[Index:Integer]: INode read GetActiveNode;

	property ElementNumber: Integer read GetElementNumber write SetElementNumber;

	property NodeCount: Integer read GetActiveNodeCount;