Class TSegment

Unit

SegmentUnit

Declaration

type TSegment = class(TObject)

Description

Hierarchy

• TObject
• TSegment

Overview

Fields

	FFirstVertex: TVertex;
	FSecondVertex: TVertex;

Methods

	function Intercept: double;
	procedure SimpleIntersection(ASegment: TSegment; ResultVertex: TVertex);
	function OverLap(ASegment: TSegment; ResultVertex: TVertex): boolean;
	constructor Create(FirstVertex, SecondVertex: TVertex);
	destructor Destroy; override;
	function Intersection(ASegment: TSegment; ResultVertex: TVertex): boolean;
	function IsHorizontal: boolean;
	function IsVertical: boolean;
	function VertexWithinExtents(AVertex: TVertex): boolean;
	function Slope: double;

Properties

	property FirstVertex: TVertex read FFirstVertex;
	property SecondVertex: TVertex read FSecondVertex;

Description

Fields

	FFirstVertex: TVertex;

	FSecondVertex: TVertex;

Methods

	function Intercept: double;

	procedure SimpleIntersection(ASegment: TSegment; ResultVertex: TVertex);

	function OverLap(ASegment: TSegment; ResultVertex: TVertex): boolean;

	constructor Create(FirstVertex, SecondVertex: TVertex);

	destructor Destroy; override;

	function Intersection(ASegment: TSegment; ResultVertex: TVertex): boolean;

	function IsHorizontal: boolean;

	function IsVertical: boolean;

	function VertexWithinExtents(AVertex: TVertex): boolean;

	function Slope: double;

Properties

	property FirstVertex: TVertex read FFirstVertex;

	property SecondVertex: TVertex read FSecondVertex;