Class TSutraMesh3D

Description

Hierarchy

Fields

Methods

Properties

Unit

SutraMeshUnit

Declaration

type TSutraMesh3D = class(TCustomSutraMesh, IMesh)

Description

no description available, TCustomSutraMesh description follows

no description available, TCustomDiscretization description follows

no description available, TGoPhastPersistent description follows

Hierarchy

Overview

Fields

	`FElements: TSutraElement3D_Collection;`
	`FNodes: TSutraNode3D_Collection;`
	`FMesh2D: TSutraMesh2D;`
	`FElementDrawingChoice: TDrawingChoice;`
	`FMeshType: TMeshType;`
	`FNodeArray: array of array of TSutraNode3D;`
	`FElementArray: array of array of TSutraElement3D;`
	`FMeshUpdate: integer;`
	`FCanDraw: boolean;`
	`FCrossSection: TCrossSection;`
	`FThreeDGridObserver: TObserver;`
	`FElevationsNeedUpdating: boolean;`
	`FUpdatingElevations: boolean;`
	`FNodeDrawingChoice: TDrawingChoice;`
	`FOnSelectedLayerChange: TNotifyEvent;`
	`FActiveNodes: TSutraNode3D_List;`
	`FActiveElements: TSutraElement3DList;`
	`FNeedToRecalculateTopColors: Boolean;`
	`FNeedToRecalculateFrontColors: Boolean;`
	`FStoredBlockAngle: double;`
	`FStoredBlockPolygons: TCellElementPolygons2D;`
	`FStoredBlockLimits: TLimitsArray;`
	`FStoredNodeAngle: double;`
	`FStoredNodePolygons: TCellElementPolygons2D;`
	`FStoredNodeLimits: TLimitsArray;`
	`FMaxDist: double;`
	`FMinDist: double;`
	`FLoading: Boolean;`
	`FNodeIntervalTree: TRbwIntervalTree;`
	`FElementIntervalTree: TRbwIntervalTree;`
	`FNodeRangeTree: TRbwRangeTree;`
	`FElementRangeTree: TRbwRangeTree;`
	`FCanDraw3D: boolean;`
	`FNeedToRedraw3d: Boolean;`
	`FListsCreated: Boolean;`
	`FCrossSectionGLIndex: GLuint;`
	`FLayerGLIndex: GLuint;`
	`FNeedToRecordLayer: Boolean;`
	`FNeedToRecordCrossSection: Boolean;`
	`FElementNumbers: TIntegerCollection;`
	`FNodeNumbers: TIntegerCollection;`

Methods

	`procedure SetElements(const Value: TSutraElement3D_Collection);`
	`procedure SetNodes(const Value: TSutraNode3D_Collection);`
	`procedure SetMesh2D(const Value: TSutraMesh2D);`
	`procedure SetElementDrawingChoice(const Value: TDrawingChoice);`
	`procedure SetMeshType(const Value: TMeshType);`
	`function GetNodeArrayMember(Layer, Col: Integer): TSutraNode3D;`
	`procedure SetThreeDDataSet(const Value: TDataArray);`
	`procedure SetTopDataSet(const Value: TDataArray);`
	`function GetCanDraw: boolean;`
	`procedure SetCanDraw(const Value: boolean);`
	`function GetThreeDDataSet: TDataArray;`
	`function GetTopDataSet: TDataArray;`
	`procedure SetSelectedLayer(Value: integer);`
	`function GetLayerCount: Integer;`
	`function GetSelectedLayer: integer;`
	`function GetElementArrayMember(Layer, Col: Integer): TSutraElement3D;`
	`procedure SetCrossSection(const Value: TCrossSection);`
	`procedure DrawFront(const BitMap: TBitmap32);`
	`procedure DrawPointsOnCrossSection(BitMap: TBitmap32);`
	`function GetTopGridObserver: TObserver;`
	`procedure SetThreeDGridObserver(const Value: TObserver);`
	`procedure SetTopGridObserver(const Value: TObserver);`
	`procedure UpdateElevations;`
	`procedure SetNodeDrawingChoice(const Value: TDrawingChoice);`
	`function GetElementFont: TFont;`
	`function GetNodeFont: TFont;`
	`procedure SetElementFont(const Value: TFont);`
	`procedure SetNodeFont(const Value: TFont);`
	`function GetDrawNodeNumbers: Boolean;`
	`procedure SetDrawNodeNumbers(const Value: Boolean);`
	`function GetDrawElementNumbers: Boolean;`
	`procedure SetDrawElementNumbers(const Value: Boolean);`
	`procedure SetNeedToRecalculateFrontColors(const Value: Boolean);`
	`procedure SetNeedToRecalculateTopColors(const Value: Boolean);`
	`function GetIntervalTree(EvalAt: TEvaluatedAt; Angle: Double): TRbwIntervalTree;`
	`function GetRangeTree(EvalAt: TEvaluatedAt; Angle: Double): TRbwRangeTree;`
	`procedure GetXIntervalLimits(Subject: TObject; out LowerBoundary, UpperBoundary: double);`
	`procedure GetYIntervalLimits(Subject: TObject; out LowerBoundary, UpperBoundary: double);`
	`procedure SetThreeDContourDataSet(const Value: TDataArray);`
	`procedure SetTopContourDataSet(const Value: TDataArray);`
	`function GetThreeDContourDataSet: TDataArray;`
	`function GetTopContourDataSet: TDataArray;`
	`procedure DrawFrontContours(const ZoomBox: TQRbwZoomBox2; const BitMap: TBitmap32);`
	`function GetCanDraw3D: Boolean;`
	`procedure RecordLayer;`
	`procedure RecordCrossSection;`
	`procedure CrossSectionMoved(Sender: TObject);`
	`procedure SetElementNumbers(const Value: TIntegerCollection);`
	`procedure SetNodeNumbers(const Value: TIntegerCollection);`
	`procedure SetElevationsNeedUpdating(const Value: boolean);`
	`procedure CalculateMinMax(DataSet: TDataArray; var MinMaxInitialized: Boolean; var MinMax: TMinMax; StringValues: TStringList); override;`
	`function GetActiveNodeCount: integer;`
	`function GetActiveNode(Index: Integer): INode;`
	`function GetActiveElementCount: integer;`
	`function GetActiveElement(Index: Integer): IElement;`
	`Constructor Create(Model: TBaseModel);`
	`destructor Destroy; override;`
	`procedure UpdateNodeNumbers;`
	`procedure UpdateElementNumbers;`
	`procedure RestoreNodeNumbers;`
	`procedure RestoreElementNumbers;`
	`procedure Assign(Source: TPersistent); override;`
	`procedure SimpleRenumber;`
	`function Bandwidth: Integer;`
	`function OkLocation(const DataSet: TDataArray; const Layer, Row, Col: integer): boolean; override;`
	`procedure Clear;`
	`procedure Draw(const BitMap: TBitmap32; const ViewDirection: TViewDirection);`
	`function TopContainingCellOrElement(APoint: TPoint2D; const EvaluatedAt: TEvaluatedAt): T2DTopCell;`
	`function MeshLimits(ViewDirection: TViewDirection): TGridLimit;`
	`function MeshBox(ViewDirection: TViewDirection): TPolygon2D;`
	`procedure MeshChanged;`
	`procedure UpdateElementsInNodes;`
	`function FrontPolygons(Angle: Double; EvaluatedAt: TEvaluatedAt; out Limits: TLimitsArray): TCellElementPolygons2D;`
	`procedure GetMinMax(var MinMax: TMinMax; DataSet: TDataArray; StringValues: TStringList); override;`
	`procedure EndUpdate; override;`
	`procedure GetNodesOnCrossSection(NodeList: TSutraNode2D_List);`
	`function GetCrossSectionStart: TPoint2D;`
	`procedure GetElementsOnCrossSection(ElementList: TSutraElement2D_List);`
	`function RotateFromRealWorldCoordinatesToMeshCoordinates (const APoint: TPoint2D): TPoint2D;`
	`function RotateFromMeshCoordinatesToRealWorldCoordinates (const APoint: TPoint2D): TPoint2D; overload;`
	`procedure CheckUpdateElevations;`
	`procedure InvalidatePolygons;`
	`procedure Draw3D;`

Properties

	`property ActiveNodeCount: Integer read GetActiveNodeCount;`
	`property ActiveElementCount: Integer read GetActiveElementCount;`
	`property ElevationsNeedUpdating: boolean read FElevationsNeedUpdating write SetElevationsNeedUpdating;`
	`property NodeArray[Layer:Integer;Col:Integer]: TSutraNode3D read GetNodeArrayMember;`
	`property ElementArray[Layer:Integer;Col:Integer]: TSutraElement3D read GetElementArrayMember;`
	`property ThreeDDataSet: TDataArray read GetThreeDDataSet write SetThreeDDataSet;`
	`property TopDataSet: TDataArray read GetTopDataSet write SetTopDataSet;`
	`property TopContourDataSet: TDataArray read GetTopContourDataSet write SetTopContourDataSet;`
	`property ThreeDContourDataSet: TDataArray read GetThreeDContourDataSet write SetThreeDContourDataSet;`
	`property CanDraw: boolean read GetCanDraw write SetCanDraw;`
	`property LayerCount: Integer read GetLayerCount;`
	`property TopGridObserver: TObserver read GetTopGridObserver write SetTopGridObserver;`
	`property ThreeDGridObserver: TObserver read FThreeDGridObserver write SetThreeDGridObserver;`
	`property OnSelectedLayerChange: TNotifyEvent read FOnSelectedLayerChange write FOnSelectedLayerChange;`
	`property NodeFont: TFont read GetNodeFont write SetNodeFont;`
	`property ElementFont: TFont read GetElementFont write SetElementFont;`
	`property DrawNodeNumbers: Boolean read GetDrawNodeNumbers write SetDrawNodeNumbers;`
	`property DrawElementNumbers: Boolean read GetDrawElementNumbers write SetDrawElementNumbers;`
	`property NeedToRecalculateTopColors: Boolean read FNeedToRecalculateTopColors write SetNeedToRecalculateTopColors;`
	`property NeedToRecalculateFrontColors: Boolean read FNeedToRecalculateFrontColors write SetNeedToRecalculateFrontColors;`
	`property MaxDist: Double read FMaxDist;`
	`property MinDist: Double read FMinDist;`
	`property Loading: Boolean read FLoading write FLoading;`
	`property IntervalTree[EvalAt:TEvaluatedAt;Angle:Double]: TRbwIntervalTree read GetIntervalTree;`
	`property RangeTree[EvalAt:TEvaluatedAt;Angle:Double]: TRbwRangeTree read GetRangeTree;`
	`property CanDraw3D: Boolean read GetCanDraw3D write FCanDraw3D;`
	`property Nodes: TSutraNode3D_Collection read FNodes write SetNodes stored False;`
	`property Elements: TSutraElement3D_Collection read FElements write SetElements stored False;`
	`property Mesh2D: TSutraMesh2D read FMesh2D write SetMesh2D;`
	`property ElementDrawingChoice: TDrawingChoice read FElementDrawingChoice write SetElementDrawingChoice Stored True;`
	`property NodeDrawingChoice: TDrawingChoice read FNodeDrawingChoice write SetNodeDrawingChoice Stored True;`
	`property MeshType: TMeshType read FMeshType write SetMeshType stored True;`
	`property SelectedLayer: integer read GetSelectedLayer write SetSelectedLayer stored True;`
	`property CrossSection: TCrossSection read FCrossSection write SetCrossSection;`
	`property NodeNumbers: TIntegerCollection read FNodeNumbers write SetNodeNumbers;`
	`property ElementNumbers: TIntegerCollection read FElementNumbers write SetElementNumbers;`

Description

Fields

	`FElements: TSutraElement3D_Collection;`

	`FNodes: TSutraNode3D_Collection;`

	`FMesh2D: TSutraMesh2D;`

	`FElementDrawingChoice: TDrawingChoice;`

	`FMeshType: TMeshType;`

	`FNodeArray: array of array of TSutraNode3D;`

	`FElementArray: array of array of TSutraElement3D;`

	`FMeshUpdate: integer;`

	`FCanDraw: boolean;`

	`FCrossSection: TCrossSection;`

	`FThreeDGridObserver: TObserver;`

	`FElevationsNeedUpdating: boolean;`

	`FUpdatingElevations: boolean;`

	`FNodeDrawingChoice: TDrawingChoice;`

	`FOnSelectedLayerChange: TNotifyEvent;`

	`FActiveNodes: TSutraNode3D_List;`

	`FActiveElements: TSutraElement3DList;`

	`FNeedToRecalculateTopColors: Boolean;`

	`FNeedToRecalculateFrontColors: Boolean;`

	`FStoredBlockAngle: double;`

	`FStoredBlockPolygons: TCellElementPolygons2D;`

	`FStoredBlockLimits: TLimitsArray;`

	`FStoredNodeAngle: double;`

	`FStoredNodePolygons: TCellElementPolygons2D;`

	`FStoredNodeLimits: TLimitsArray;`

	`FMaxDist: double;`

	`FMinDist: double;`

	`FLoading: Boolean;`

	`FNodeIntervalTree: TRbwIntervalTree;`

	`FElementIntervalTree: TRbwIntervalTree;`

	`FNodeRangeTree: TRbwRangeTree;`

	`FElementRangeTree: TRbwRangeTree;`

	`FCanDraw3D: boolean;`

	`FNeedToRedraw3d: Boolean;`

	`FListsCreated: Boolean;`

	`FCrossSectionGLIndex: GLuint;`

	`FLayerGLIndex: GLuint;`

	`FNeedToRecordLayer: Boolean;`

	`FNeedToRecordCrossSection: Boolean;`

	`FElementNumbers: TIntegerCollection;`

	`FNodeNumbers: TIntegerCollection;`

Methods

	`procedure SetElements(const Value: TSutraElement3D_Collection);`

	`procedure SetNodes(const Value: TSutraNode3D_Collection);`

	`procedure SetMesh2D(const Value: TSutraMesh2D);`

	`procedure SetElementDrawingChoice(const Value: TDrawingChoice);`

	`procedure SetMeshType(const Value: TMeshType);`

	`function GetNodeArrayMember(Layer, Col: Integer): TSutraNode3D;`

	`procedure SetThreeDDataSet(const Value: TDataArray);`

	`procedure SetTopDataSet(const Value: TDataArray);`

	`function GetCanDraw: boolean;`

	`procedure SetCanDraw(const Value: boolean);`

	`function GetThreeDDataSet: TDataArray;`

	`function GetTopDataSet: TDataArray;`

	`procedure SetSelectedLayer(Value: integer);`

	`function GetLayerCount: Integer;`

	`function GetSelectedLayer: integer;`

	`function GetElementArrayMember(Layer, Col: Integer): TSutraElement3D;`

	`procedure SetCrossSection(const Value: TCrossSection);`

	`procedure DrawFront(const BitMap: TBitmap32);`

	`procedure DrawPointsOnCrossSection(BitMap: TBitmap32);`

	`function GetTopGridObserver: TObserver;`

	`procedure SetThreeDGridObserver(const Value: TObserver);`

	`procedure SetTopGridObserver(const Value: TObserver);`

	`procedure UpdateElevations;`

	`procedure SetNodeDrawingChoice(const Value: TDrawingChoice);`

	`function GetElementFont: TFont;`

	`function GetNodeFont: TFont;`

	`procedure SetElementFont(const Value: TFont);`

	`procedure SetNodeFont(const Value: TFont);`

	`function GetDrawNodeNumbers: Boolean;`

	`procedure SetDrawNodeNumbers(const Value: Boolean);`

	`function GetDrawElementNumbers: Boolean;`

	`procedure SetDrawElementNumbers(const Value: Boolean);`

	`procedure SetNeedToRecalculateFrontColors(const Value: Boolean);`

	`procedure SetNeedToRecalculateTopColors(const Value: Boolean);`

	`function GetIntervalTree(EvalAt: TEvaluatedAt; Angle: Double): TRbwIntervalTree;`

	`function GetRangeTree(EvalAt: TEvaluatedAt; Angle: Double): TRbwRangeTree;`

	`procedure GetXIntervalLimits(Subject: TObject; out LowerBoundary, UpperBoundary: double);`

	`procedure GetYIntervalLimits(Subject: TObject; out LowerBoundary, UpperBoundary: double);`

	`procedure SetThreeDContourDataSet(const Value: TDataArray);`

	`procedure SetTopContourDataSet(const Value: TDataArray);`

	`function GetThreeDContourDataSet: TDataArray;`

	`function GetTopContourDataSet: TDataArray;`

	`procedure DrawFrontContours(const ZoomBox: TQRbwZoomBox2; const BitMap: TBitmap32);`

	`function GetCanDraw3D: Boolean;`

	`procedure RecordLayer;`

	`procedure RecordCrossSection;`

	`procedure CrossSectionMoved(Sender: TObject);`

	`procedure SetElementNumbers(const Value: TIntegerCollection);`

	`procedure SetNodeNumbers(const Value: TIntegerCollection);`

	`procedure SetElevationsNeedUpdating(const Value: boolean);`

	`procedure CalculateMinMax(DataSet: TDataArray; var MinMaxInitialized: Boolean; var MinMax: TMinMax; StringValues: TStringList); override;`

	`function GetActiveNodeCount: integer;`

	`function GetActiveNode(Index: Integer): INode;`

	`function GetActiveElementCount: integer;`

	`function GetActiveElement(Index: Integer): IElement;`

	`Constructor Create(Model: TBaseModel);`

	`destructor Destroy; override;`

	`procedure UpdateNodeNumbers;`

	`procedure UpdateElementNumbers;`

	`procedure RestoreNodeNumbers;`

	`procedure RestoreElementNumbers;`

	`procedure Assign(Source: TPersistent); override;`

	`procedure SimpleRenumber;`

	`function Bandwidth: Integer;`

	`function OkLocation(const DataSet: TDataArray; const Layer, Row, Col: integer): boolean; override;`

	`procedure Clear;`

	`procedure Draw(const BitMap: TBitmap32; const ViewDirection: TViewDirection);`

	`function TopContainingCellOrElement(APoint: TPoint2D; const EvaluatedAt: TEvaluatedAt): T2DTopCell;`

	`function MeshLimits(ViewDirection: TViewDirection): TGridLimit;`

	`function MeshBox(ViewDirection: TViewDirection): TPolygon2D;`

	`procedure MeshChanged;`

	`procedure UpdateElementsInNodes;`

	`function FrontPolygons(Angle: Double; EvaluatedAt: TEvaluatedAt; out Limits: TLimitsArray): TCellElementPolygons2D;`

	`procedure GetMinMax(var MinMax: TMinMax; DataSet: TDataArray; StringValues: TStringList); override;`

	`procedure EndUpdate; override;`

	`procedure GetNodesOnCrossSection(NodeList: TSutraNode2D_List);`

	`function GetCrossSectionStart: TPoint2D;`

	`procedure GetElementsOnCrossSection(ElementList: TSutraElement2D_List);`

	`function RotateFromRealWorldCoordinatesToMeshCoordinates (const APoint: TPoint2D): TPoint2D;`

	`function RotateFromMeshCoordinatesToRealWorldCoordinates (const APoint: TPoint2D): TPoint2D; overload;`

	`procedure CheckUpdateElevations;`

	`procedure InvalidatePolygons;`

	`procedure Draw3D;`

Properties

	`property ActiveNodeCount: Integer read GetActiveNodeCount;`

	`property ActiveElementCount: Integer read GetActiveElementCount;`

	`property ElevationsNeedUpdating: boolean read FElevationsNeedUpdating write SetElevationsNeedUpdating;`

	`property NodeArray[Layer:Integer;Col:Integer]: TSutraNode3D read GetNodeArrayMember;`

	`property ElementArray[Layer:Integer;Col:Integer]: TSutraElement3D read GetElementArrayMember;`

	`property ThreeDDataSet: TDataArray read GetThreeDDataSet write SetThreeDDataSet;`

	`property TopDataSet: TDataArray read GetTopDataSet write SetTopDataSet;`

	`property TopContourDataSet: TDataArray read GetTopContourDataSet write SetTopContourDataSet;`

	`property ThreeDContourDataSet: TDataArray read GetThreeDContourDataSet write SetThreeDContourDataSet;`

	`property CanDraw: boolean read GetCanDraw write SetCanDraw;`

	`property LayerCount: Integer read GetLayerCount;`
`LayerCount` is the number of layers of elements.

	`property TopGridObserver: TObserver read GetTopGridObserver write SetTopGridObserver;`

	`property ThreeDGridObserver: TObserver read FThreeDGridObserver write SetThreeDGridObserver;`

	`property OnSelectedLayerChange: TNotifyEvent read FOnSelectedLayerChange write FOnSelectedLayerChange;`

	`property NodeFont: TFont read GetNodeFont write SetNodeFont;`

	`property ElementFont: TFont read GetElementFont write SetElementFont;`

	`property DrawNodeNumbers: Boolean read GetDrawNodeNumbers write SetDrawNodeNumbers;`

	`property DrawElementNumbers: Boolean read GetDrawElementNumbers write SetDrawElementNumbers;`

	`property NeedToRecalculateTopColors: Boolean read FNeedToRecalculateTopColors write SetNeedToRecalculateTopColors;`

	`property NeedToRecalculateFrontColors: Boolean read FNeedToRecalculateFrontColors write SetNeedToRecalculateFrontColors;`

	`property MaxDist: Double read FMaxDist;`
`MaxDist` is the relative position of the node on the cross section that is furthest from the cross section in the positive direction.

	`property MinDist: Double read FMinDist;`
`MinDist` is the relative position of the node on the cross section that is furthest from the cross section in the negative direction.

	`property Loading: Boolean read FLoading write FLoading;`

	`property IntervalTree[EvalAt:TEvaluatedAt;Angle:Double]: TRbwIntervalTree read GetIntervalTree;`

	`property RangeTree[EvalAt:TEvaluatedAt;Angle:Double]: TRbwRangeTree read GetRangeTree;`

	`property CanDraw3D: Boolean read GetCanDraw3D write FCanDraw3D;`

	`property Nodes: TSutraNode3D_Collection read FNodes write SetNodes stored False;`

	`property Elements: TSutraElement3D_Collection read FElements write SetElements stored False;`

	`property Mesh2D: TSutraMesh2D read FMesh2D write SetMesh2D;`

	`property ElementDrawingChoice: TDrawingChoice read FElementDrawingChoice write SetElementDrawingChoice Stored True;`

	`property NodeDrawingChoice: TDrawingChoice read FNodeDrawingChoice write SetNodeDrawingChoice Stored True;`

	`property MeshType: TMeshType read FMeshType write SetMeshType stored True;`

	`property SelectedLayer: integer read GetSelectedLayer write SetSelectedLayer stored True;`

	`property CrossSection: TCrossSection read FCrossSection write SetCrossSection;`

	`property NodeNumbers: TIntegerCollection read FNodeNumbers write SetNodeNumbers;`

	`property ElementNumbers: TIntegerCollection read FElementNumbers write SetElementNumbers;`

Generated by PasDoc 0.12.1 on 2013-05-13 15:42:05