Class TSutraMesh2D

DescriptionHierarchyFieldsMethodsProperties

Unit

SutraMeshUnit

Declaration

type TSutraMesh2D = 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

Private FElements: TSutraElement2D_Collection;
Private FNodes: TSutraNode2D_Collection;
Private FElementDrawingChoice: TDrawingChoice;
Private FTopDataSet: TDataArray;
Private FThreeDDataSet: TDataArray;
Private FSelectedLayer: integer;
Private FTopGridObserver: TObserver;
Private FDrawNodeNumbers: boolean;
Private FDrawElementNumbers: boolean;
Private FNodeDrawingChoice: TDrawingChoice;
Private FMesh3D: TSutraMesh3D;
Private FElementFont: TFont;
Private FNodeFont: TFont;
Private FMeshGenControls: TMeshGenerationControls;
Private FTopContourDataSet: TDataArray;
Private FThreeDContourDataSet: TDataArray;

Methods

Private procedure SetElements(const Value: TSutraElement2D_Collection);
Private procedure SetNodes(const Value: TSutraNode2D_Collection);
Private procedure DrawTop(const BitMap: TBitmap32; const ZoomBox: TQRbwZoomBox2);
Private procedure SetElementDrawingChoice(const Value: TDrawingChoice);
Private function MeshLimits: TGridLimit;
Private function MeshBox: TPolygon2D;
Private procedure SetThreeDDataSet(const Value: TDataArray);
Private procedure SetTopDataSet(const Value: TDataArray);
Private procedure SetSelectedLayer(const Value: integer);
Private procedure GetNodesOnSegment(Segement: TSegment2D; NodesOnSegment: TSutraNode2D_List);
Private procedure GetElementsOnSegment(Segment: TSegment2D; ElementsOnSegment: TSutraElement2D_List);
Private procedure SetTopGridObserver(const Value: TObserver);
Private procedure SetDrawNodeNumbers(const Value: boolean);
Private procedure SetDrawElementNumbers(const Value: boolean);
Private procedure SetNodeDrawingChoice(const Value: TDrawingChoice);
Private procedure SetElementFont(const Value: TFont);
Private procedure SetNodeFont(const Value: TFont);
Private procedure DrawElements(StringValues: TStringList; ColorDataArray: TDataArray; const ZoomBox: TQRbwZoomBox2; const BitMap: TBitmap32);
Private procedure DrawNodes(ColorDataArray: TDataArray; const BitMap: TBitmap32; const ZoomBox: TQRbwZoomBox2; StringValues: TStringList);
Private function GetSelectedLayer: integer;
Private procedure SetMeshGenControls(const Value: TMeshGenerationControls);
Private procedure SetThreeDContourDataSet(const Value: TDataArray);
Private procedure SetTopContourDataSet(const Value: TDataArray);
Private procedure DrawTopContours(const ZoomBox: TQRbwZoomBox2; const BitMap: TBitmap32);
Private function Bandwidth: Integer;
Protected procedure CalculateMinMax(DataSet: TDataArray; var MinMaxInitialized: boolean; var MinMax: TMinMax; StringValues: TStringList); override;
Protected function GetActiveNode(Index: Integer): INode;
Protected function GetActiveNodeCount: integer;
Protected function GetActiveElementCount: integer;
Protected function GetActiveElement(Index: integer): IElement;
Public procedure Assign(Source: TPersistent); override;
Public procedure GetMinMax(var MinMax: TMinMax; DataSet: TDataArray; StringValues: TStringList); override;
Public Constructor Create(Model: TBaseModel; ParentMesh: TSutraMesh3D);
Public destructor Destroy; override;
Public procedure Draw(const BitMap: TBitmap32);
Public procedure Clear;
Public function TopContainingCellOrElement(APoint: TPoint2D; const EvaluatedAt: TEvaluatedAt): T2DTopCell;
Public procedure EndUpdate; override;
Public function MeshOutline: TPolygon2D;
Public procedure Renumber;

Properties

Public property ElementDrawingChoice: TDrawingChoice read FElementDrawingChoice write SetElementDrawingChoice;
Public property NodeDrawingChoice: TDrawingChoice read FNodeDrawingChoice write SetNodeDrawingChoice;
Public property DrawNodeNumbers: boolean read FDrawNodeNumbers write SetDrawNodeNumbers;
Public property DrawElementNumbers: boolean read FDrawElementNumbers write SetDrawElementNumbers;
Public property NodeFont: TFont read FNodeFont write SetNodeFont;
Public property ElementFont: TFont read FElementFont write SetElementFont;
Public property ThreeDDataSet: TDataArray read FThreeDDataSet write SetThreeDDataSet;
Public property TopDataSet: TDataArray read FTopDataSet write SetTopDataSet;
Public property TopContourDataSet: TDataArray read FTopContourDataSet write SetTopContourDataSet;
Public property ThreeDContourDataSet: TDataArray read FThreeDContourDataSet write SetThreeDContourDataSet;
Public property SelectedLayer: integer read GetSelectedLayer write SetSelectedLayer;
Public property TopGridObserver: TObserver read FTopGridObserver write SetTopGridObserver;
Public property Mesh3D: TSutraMesh3D read FMesh3D;
Published property Nodes: TSutraNode2D_Collection read FNodes write SetNodes;
Published property Elements: TSutraElement2D_Collection read FElements write SetElements;
Published property MeshGenControls: TMeshGenerationControls read FMeshGenControls write SetMeshGenControls;

Description

Fields

Private FElements: TSutraElement2D_Collection;
 
Private FNodes: TSutraNode2D_Collection;
 
Private FElementDrawingChoice: TDrawingChoice;
 
Private FTopDataSet: TDataArray;
 
Private FThreeDDataSet: TDataArray;
 
Private FSelectedLayer: integer;
 
Private FTopGridObserver: TObserver;
 
Private FDrawNodeNumbers: boolean;
 
Private FDrawElementNumbers: boolean;
 
Private FNodeDrawingChoice: TDrawingChoice;
 
Private FMesh3D: TSutraMesh3D;
 
Private FElementFont: TFont;
 
Private FNodeFont: TFont;
 
Private FMeshGenControls: TMeshGenerationControls;
 
Private FTopContourDataSet: TDataArray;
 
Private FThreeDContourDataSet: TDataArray;
 

Methods

Private procedure SetElements(const Value: TSutraElement2D_Collection);
 
Private procedure SetNodes(const Value: TSutraNode2D_Collection);
 
Private procedure DrawTop(const BitMap: TBitmap32; const ZoomBox: TQRbwZoomBox2);
 
Private procedure SetElementDrawingChoice(const Value: TDrawingChoice);
 
Private function MeshLimits: TGridLimit;
 
Private function MeshBox: TPolygon2D;
 
Private procedure SetThreeDDataSet(const Value: TDataArray);
 
Private procedure SetTopDataSet(const Value: TDataArray);
 
Private procedure SetSelectedLayer(const Value: integer);
 
Private procedure GetNodesOnSegment(Segement: TSegment2D; NodesOnSegment: TSutraNode2D_List);
 
Private procedure GetElementsOnSegment(Segment: TSegment2D; ElementsOnSegment: TSutraElement2D_List);
 
Private procedure SetTopGridObserver(const Value: TObserver);
 
Private procedure SetDrawNodeNumbers(const Value: boolean);
 
Private procedure SetDrawElementNumbers(const Value: boolean);
 
Private procedure SetNodeDrawingChoice(const Value: TDrawingChoice);
 
Private procedure SetElementFont(const Value: TFont);
 
Private procedure SetNodeFont(const Value: TFont);
 
Private procedure DrawElements(StringValues: TStringList; ColorDataArray: TDataArray; const ZoomBox: TQRbwZoomBox2; const BitMap: TBitmap32);
 
Private procedure DrawNodes(ColorDataArray: TDataArray; const BitMap: TBitmap32; const ZoomBox: TQRbwZoomBox2; StringValues: TStringList);
 
Private function GetSelectedLayer: integer;
 
Private procedure SetMeshGenControls(const Value: TMeshGenerationControls);
 
Private procedure SetThreeDContourDataSet(const Value: TDataArray);
 
Private procedure SetTopContourDataSet(const Value: TDataArray);
 
Private procedure DrawTopContours(const ZoomBox: TQRbwZoomBox2; const BitMap: TBitmap32);
 
Private function Bandwidth: Integer;
 
Protected procedure CalculateMinMax(DataSet: TDataArray; var MinMaxInitialized: boolean; var MinMax: TMinMax; StringValues: TStringList); override;
 
Protected function GetActiveNode(Index: Integer): INode;
 
Protected function GetActiveNodeCount: integer;
 
Protected function GetActiveElementCount: integer;
 
Protected function GetActiveElement(Index: integer): IElement;
 
Public procedure Assign(Source: TPersistent); override;
 
Public procedure GetMinMax(var MinMax: TMinMax; DataSet: TDataArray; StringValues: TStringList); override;
 
Public Constructor Create(Model: TBaseModel; ParentMesh: TSutraMesh3D);
 
Public destructor Destroy; override;
 
Public procedure Draw(const BitMap: TBitmap32);
 
Public procedure Clear;
 
Public function TopContainingCellOrElement(APoint: TPoint2D; const EvaluatedAt: TEvaluatedAt): T2DTopCell;
 
Public procedure EndUpdate; override;
 
Public function MeshOutline: TPolygon2D;
 
Public procedure Renumber;
 

Properties

Public property ElementDrawingChoice: TDrawingChoice read FElementDrawingChoice write SetElementDrawingChoice;
 
Public property NodeDrawingChoice: TDrawingChoice read FNodeDrawingChoice write SetNodeDrawingChoice;
 
Public property DrawNodeNumbers: boolean read FDrawNodeNumbers write SetDrawNodeNumbers;
 
Public property DrawElementNumbers: boolean read FDrawElementNumbers write SetDrawElementNumbers;
 
Public property NodeFont: TFont read FNodeFont write SetNodeFont;
 
Public property ElementFont: TFont read FElementFont write SetElementFont;
 
Public property ThreeDDataSet: TDataArray read FThreeDDataSet write SetThreeDDataSet;
 
Public property TopDataSet: TDataArray read FTopDataSet write SetTopDataSet;
 
Public property TopContourDataSet: TDataArray read FTopContourDataSet write SetTopContourDataSet;
 
Public property ThreeDContourDataSet: TDataArray read FThreeDContourDataSet write SetThreeDContourDataSet;
 
Public property SelectedLayer: integer read GetSelectedLayer write SetSelectedLayer;
 
Public property TopGridObserver: TObserver read FTopGridObserver write SetTopGridObserver;
 
Public property Mesh3D: TSutraMesh3D read FMesh3D;
 
Published property Nodes: TSutraNode2D_Collection read FNodes write SetNodes;
 
Published property Elements: TSutraElement2D_Collection read FElements write SetElements;
 
Published property MeshGenControls: TMeshGenerationControls read FMeshGenControls write SetMeshGenControls;
 
Generated by PasDoc 0.12.1 on 2013-05-13 15:42:04