Class TPathLineReader

Unit

PathlineReader

Declaration

type TPathLineReader = class(TPathLineSettings)

Description

Hierarchy

• TPersistent
• TCustomModpathSettings
• TPathLineSettings
• TPathLineReader

Overview

Fields

	classvar FPathlineGLIndex: TGLuint;
	FListInitialized: boolean;
	FLinesV5: TPathLines;
	FLinesV6: TPathLinesV6;
	FFileName: string;
	FFile: TFileStream;
	FFileDate: TDateTime;
	FMaxTime: double;
	FMinTime: double;
	FRecordedPathLines: Boolean;
	FDrawingPathLines: Boolean;
	FTopQuadTree: TRbwQuadTree;
	FFrontQuadTree: TRbwQuadTree;
	FSideQuadTree: TRbwQuadTree;
	FModel: TBaseModel;
	FModpathVersion: TPathlineVersion;
	FReferenceTimeV6: double;
	FTrackingDirectionV6: TTrackingDirection;
	FMaxParticleGroup: integer;
	FMinParticleGroup: integer;

Methods

	procedure SetLinesV5(const Value: TPathLines);
	procedure SetFileDate(const Value: TDateTime);
	procedure SetMaxTime(const Value: double);
	procedure SetMinTime(const Value: double);
	function GetPointColor(MaxValue, MinValue: double; Point: TPathLinePoint): TColor;
	procedure GetMinMaxValues(var MaxValue: Double; var MinValue: Double);
	function CheckShowLine(Line: TCustomPathLine): Boolean;
	class function GetPathlineGLIndex: TGLuint; static;
	procedure ReadFileV5;
	procedure DrawLines3D(LocalLines: TCustomPathLines);
	procedure DrawLines(Orientation: TDataSetOrientation; const BitMap: TBitmap32; LocalLines: TCustomPathLines);
	procedure Record3DPathLines(LocalLines: TCustomPathLines);
	procedure SetLinesV6(const Value: TPathLinesV6);
	procedure ReadFileV6;
	procedure SetMaxParticleGroup(const Value: integer);
	procedure SetMinParticleGroup(const Value: integer);
	class procedure Assign(Source: TPersistent); override;
	Constructor Create(Model: TBaseModel);
	Destructor Destroy; override;
	procedure ReadFile;
	procedure Draw(Orientation: TDataSetOrientation; const BitMap: TBitmap32);
	procedure Draw3D;
	procedure Invalidate;
	procedure ExportShapefile(FileName: string);

Properties

	property PathlineGLIndex: TGLuint read GetPathlineGLIndex;
	property TopQuadTree: TRbwQuadTree read FTopQuadTree;
	property FrontQuadTree: TRbwQuadTree read FFrontQuadTree;
	property SideQuadTree: TRbwQuadTree read FSideQuadTree;
	property Lines: TPathLines read FLinesV5 write SetLinesV5;
	property LinesV6: TPathLinesV6 read FLinesV6 write SetLinesV6;
	property FileName: string read FFileName write FFileName;
	property FileDate: TDateTime read FFileDate write SetFileDate;
	property MaxTime: double read FMaxTime write SetMaxTime;
	property MinTime: double read FMinTime write SetMinTime;
	property MinParticleGroup: integer read FMinParticleGroup write SetMinParticleGroup;
	property MaxParticleGroup: integer read FMaxParticleGroup write SetMaxParticleGroup;
	property ModpathVersion: TPathlineVersion read FModpathVersion write FModpathVersion;
	property TrackingDirectionV6: TTrackingDirection read FTrackingDirectionV6 write FTrackingDirectionV6;
	property ReferenceTimeV6: double read FReferenceTimeV6 write FReferenceTimeV6;

Description

Fields

	classvar FPathlineGLIndex: TGLuint;

	FListInitialized: boolean;

	FLinesV5: TPathLines;

	FLinesV6: TPathLinesV6;

	FFileName: string;

	FFile: TFileStream;

	FFileDate: TDateTime;

	FMaxTime: double;

	FMinTime: double;

	FRecordedPathLines: Boolean;

	FDrawingPathLines: Boolean;

	FTopQuadTree: TRbwQuadTree;

	FFrontQuadTree: TRbwQuadTree;

	FSideQuadTree: TRbwQuadTree;

	FModel: TBaseModel;

	FModpathVersion: TPathlineVersion;

	FReferenceTimeV6: double;

	FTrackingDirectionV6: TTrackingDirection;

	FMaxParticleGroup: integer;

	FMinParticleGroup: integer;

Methods

	procedure SetLinesV5(const Value: TPathLines);

	procedure SetFileDate(const Value: TDateTime);

	procedure SetMaxTime(const Value: double);

	procedure SetMinTime(const Value: double);

	function GetPointColor(MaxValue, MinValue: double; Point: TPathLinePoint): TColor;

	procedure GetMinMaxValues(var MaxValue: Double; var MinValue: Double);

	function CheckShowLine(Line: TCustomPathLine): Boolean;

	class function GetPathlineGLIndex: TGLuint; static;

	procedure ReadFileV5;

	procedure DrawLines3D(LocalLines: TCustomPathLines);

	procedure DrawLines(Orientation: TDataSetOrientation; const BitMap: TBitmap32; LocalLines: TCustomPathLines);

	procedure Record3DPathLines(LocalLines: TCustomPathLines);

	procedure SetLinesV6(const Value: TPathLinesV6);

	procedure ReadFileV6;

	procedure SetMaxParticleGroup(const Value: integer);

	procedure SetMinParticleGroup(const Value: integer);

	class procedure Assign(Source: TPersistent); override;

	Constructor Create(Model: TBaseModel);

	Destructor Destroy; override;

	procedure ReadFile;

	procedure Draw(Orientation: TDataSetOrientation; const BitMap: TBitmap32);

	procedure Draw3D;

	procedure Invalidate;

	procedure ExportShapefile(FileName: string);

Properties

	property PathlineGLIndex: TGLuint read GetPathlineGLIndex;

	property TopQuadTree: TRbwQuadTree read FTopQuadTree;

	property FrontQuadTree: TRbwQuadTree read FFrontQuadTree;

	property SideQuadTree: TRbwQuadTree read FSideQuadTree;

	property Lines: TPathLines read FLinesV5 write SetLinesV5;

	property LinesV6: TPathLinesV6 read FLinesV6 write SetLinesV6;

	property FileName: string read FFileName write FFileName;

	property FileDate: TDateTime read FFileDate write SetFileDate;

	property MaxTime: double read FMaxTime write SetMaxTime;

	property MinTime: double read FMinTime write SetMinTime;

	property MinParticleGroup: integer read FMinParticleGroup write SetMinParticleGroup;

	property MaxParticleGroup: integer read FMaxParticleGroup write SetMaxParticleGroup;

	property ModpathVersion: TPathlineVersion read FModpathVersion write FModpathVersion;

	property TrackingDirectionV6: TTrackingDirection read FTrackingDirectionV6 write FTrackingDirectionV6;

	property ReferenceTimeV6: double read FReferenceTimeV6 write FReferenceTimeV6;