Class TVoronoiDiagram

Description

Hierarchy

Fields

Methods

Properties

Unit

Delaunay

Declaration

type TVoronoiDiagram = class(TObject)

Description

Hierarchy

TObject
TVoronoiDiagram

Overview

Fields

	`FEpsilon: extended;`
	`FVerticies: TVertexList;`
	`FPoints: TPointList;`
	`xmin: extended;`
	`xmax: extended;`
	`ymin: extended;`
	`ymax: extended;`
	`Rxmin: extended;`
	`Rxmax: extended;`
	`Rymin: extended;`
	`Rymax: extended;`
	`FQuadTree: TRbwQuadTree;`

Methods

	`function StartingVertex : longint;`
	`procedure AssignVerticesToDelete(VerticesToDelete : TLongIntList);`
	`procedure AssignNewVertices(VerticesToDelete : TLongIntList; NewVertices : TVertexList);`
	`procedure AddNewVertices(NewVertices : TVertexList; VerticesToDelete : TLongIntList);`
	`procedure TestNewVertices(NewVertices: TVertexList; NewVertexPositions: TLongIntList);`
	`function GetPoint(Index: integer): TDelaunayPoint;`
	`function GetPointCount: integer;`
	`function GetVertexCount: integer;`
	`function GetVoronoiVertex(Index: integer): TVoronoiVertex;`
	`procedure ReplaceExistingVertices(NewVertices: TVertexList; VerticesToDelete: TLongIntList; vertex_mapping: TLongIntList);`
	`procedure AddAdditionaVerticesAtEnd(vertex_mapping: TLongIntList; NewVertices: TVertexList; VerticesToDelete: TLongIntList);`
	`procedure UpdateLinkagesForNewVertices( VertexIndicesToRestore: TLongIntList; VerticesToRestore: TVertexList; vertex_mapping: TLongIntList; NewVertices: TVertexList);`
	`procedure UpdateRemainingLinkages(vertex_mapping: TLongIntList; VertexIndicesToRestore: TLongIntList; VerticesToRestore: TVertexList);`
	`procedure SetPoint(Index: integer; const Value: TDelaunayPoint);`
	`procedure SetPointCount(const Value: integer);`
	`procedure SetVertexCount(const Value: integer);`
	`procedure SetVoronoiVertex(Index: integer; const Value: TVoronoiVertex);`
	`function StartingVertex2: longint;`
	`function StartingVertex3: longint;`
	`constructor Create(XLow,YLow,XHigh,YHigh : extended; Epsilon: extended = 1E-5);`
	`destructor Destroy; override;`
	`procedure AddPoint(DelaunayPoint : TDelaunayPoint);`
	`procedure CheckNewPoint(DelaunayPoint: TDelaunayPoint; NewVertexPositions: TLongIntList; New_Vertices: TVertexList);`

Properties

	`property PointCount: integer read GetPointCount write SetPointCount;`
	`property Points[Index:integer]: TDelaunayPoint read GetPoint write SetPoint;`
	`property VertexCount: integer read GetVertexCount write SetVertexCount;`
	`property VoronoiVertices[Index:integer]: TVoronoiVertex read GetVoronoiVertex write SetVoronoiVertex;`

Description

Fields

	`FEpsilon: extended;`

	`FVerticies: TVertexList;`

	`FPoints: TPointList;`

	`xmin: extended;`

	`xmax: extended;`

	`ymin: extended;`

	`ymax: extended;`

	`Rxmin: extended;`

	`Rxmax: extended;`

	`Rymin: extended;`

	`Rymax: extended;`

	`FQuadTree: TRbwQuadTree;`

Methods

	`function StartingVertex : longint;`
`StartingVertex` finds the vertex number of a Voronoi vertex that is closer to the last Delaunay point than to the closest of its forming points.

	`procedure AssignVerticesToDelete(VerticesToDelete : TLongIntList);`
`AssignVerticesToDelete` adds the positions of all the Voronoi vertices that are closer to the last Delaunay point than to the closest of their forming points to VerticesToDelete.

	`procedure AssignNewVertices(VerticesToDelete : TLongIntList; NewVertices : TVertexList);`
`AssignNewVertices` fills NewVertices with the Voronoi vertices for the last Delaunay point.

	`procedure AddNewVertices(NewVertices : TVertexList; VerticesToDelete : TLongIntList);`
`AddNewVertices` inserts the new Voronoi vertices in NewVertices into the Voronoi diagram. First, existing Voronoi vertices whose indices are listed in VerticesToDelete are replaced. Any additional Voronoi vertices are added to the end of FVerticies.

	`procedure TestNewVertices(NewVertices: TVertexList; NewVertexPositions: TLongIntList);`

	`function GetPoint(Index: integer): TDelaunayPoint;`

	`function GetPointCount: integer;`

	`function GetVertexCount: integer;`

	`function GetVoronoiVertex(Index: integer): TVoronoiVertex;`

	`procedure ReplaceExistingVertices(NewVertices: TVertexList; VerticesToDelete: TLongIntList; vertex_mapping: TLongIntList);`

	`procedure AddAdditionaVerticesAtEnd(vertex_mapping: TLongIntList; NewVertices: TVertexList; VerticesToDelete: TLongIntList);`

	`procedure UpdateLinkagesForNewVertices( VertexIndicesToRestore: TLongIntList; VerticesToRestore: TVertexList; vertex_mapping: TLongIntList; NewVertices: TVertexList);`

	`procedure UpdateRemainingLinkages(vertex_mapping: TLongIntList; VertexIndicesToRestore: TLongIntList; VerticesToRestore: TVertexList);`

	`procedure SetPoint(Index: integer; const Value: TDelaunayPoint);`

	`procedure SetPointCount(const Value: integer);`

	`procedure SetVertexCount(const Value: integer);`

	`procedure SetVoronoiVertex(Index: integer; const Value: TVoronoiVertex);`

	`function StartingVertex2: longint;`

	`function StartingVertex3: longint;`

	`constructor Create(XLow,YLow,XHigh,YHigh : extended; Epsilon: extended = 1E-5);`

	`destructor Destroy; override;`

	`procedure AddPoint(DelaunayPoint : TDelaunayPoint);`

	`procedure CheckNewPoint(DelaunayPoint: TDelaunayPoint; NewVertexPositions: TLongIntList; New_Vertices: TVertexList);`

Properties

	`property PointCount: integer read GetPointCount write SetPointCount;`

	`property Points[Index:integer]: TDelaunayPoint read GetPoint write SetPoint;`

	`property VertexCount: integer read GetVertexCount write SetVertexCount;`

	`property VoronoiVertices[Index:integer]: TVoronoiVertex read GetVoronoiVertex write SetVoronoiVertex;`

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:30