Class TXYZPlane

Unit

SolidGeom

Declaration

type TXYZPlane = class(TObject)

Description

Hierarchy

• TObject
• TXYZPlane

Overview

Fields

	FCount: Integer;
	FOutline: array of TXYZLocation;
	FElevations: TElevationsLocations;
	bmin: TPointd;
	bmax: TPointd;

Methods

	procedure SetCount(const ACount: Integer);
	function GetOutlineLocation(Index: Integer): TXYZLocation;
	procedure SetOutlineLocation(Index: Integer; ALocation: TXYZLocation);
	function IsInside(ALocation: TXYZLocation): TIsInsideResult;
	procedure GetCoefficients(var A, B, C, D: extended);
	procedure Normalize(var vector: TXYZLocation);
	Procedure SetElevations(Locations: TElevationsLocations);
	procedure GetCoefficientsFromElevations(var A, B, C, D: extended);
	function GetInterceptPoints(IntersectionSegment: TXYZSegment; PointList: TList): boolean;
	function Intersection(ASegment: TXYZSegment; var IntersectionPoint: TXYZLocation): TPlaneLineIntersection; overload;
	function PlaneIntersection(APlane: TXYZPlane; SegmentList: TList) : TPlaneIntersection; overload;
	Constructor Create(Const ACount: Integer);
	function Area: extended;
	procedure SetBox;

Properties

	property Count: Integer read FCount write SetCount;
	property Outline[Index:Integer]: TXYZLocation read GetOutlineLocation write SetOutlineLocation;
	property Elevations: TElevationsLocations read FElevations write SetElevations;

Description

Fields

	FCount: Integer;

	FOutline: array of TXYZLocation;
FOutline does not include a repetition of the first location.

	FElevations: TElevationsLocations;

	bmin: TPointd;

	bmax: TPointd;

Methods

	procedure SetCount(const ACount: Integer);

	function GetOutlineLocation(Index: Integer): TXYZLocation;

	procedure SetOutlineLocation(Index: Integer; ALocation: TXYZLocation);

	function IsInside(ALocation: TXYZLocation): TIsInsideResult;

	procedure GetCoefficients(var A, B, C, D: extended);

	procedure Normalize(var vector: TXYZLocation);

	Procedure SetElevations(Locations: TElevationsLocations);

	procedure GetCoefficientsFromElevations(var A, B, C, D: extended);

	function GetInterceptPoints(IntersectionSegment: TXYZSegment; PointList: TList): boolean;

	function Intersection(ASegment: TXYZSegment; var IntersectionPoint: TXYZLocation): TPlaneLineIntersection; overload;

	function PlaneIntersection(APlane: TXYZPlane; SegmentList: TList) : TPlaneIntersection; overload;

	Constructor Create(Const ACount: Integer);

	function Area: extended;

	procedure SetBox;

Properties

	property Count: Integer read FCount write SetCount;

	property Outline[Index:Integer]: TXYZLocation read GetOutlineLocation write SetOutlineLocation;

	property Elevations: TElevationsLocations read FElevations write SetElevations;