Unit GraphMath

BeschreibungusesKlassen, Schnittstellen und ObjekteFunktionen und ProzedurenTypenKonstantenVariablen

Beschreibung

 

uses

Übersicht

Klassen, Schnittstellen und Objekte

Name Beschreibung
record TFloatPoint  

Funktionen und Prozeduren

Procedure Angles2Coords(X,Y, Width, Height : Integer; Angle1, Angle2 : Extended; var SX, SY, EX, EY : Integer);
Procedure Arc2Bezier(X, Y, Width, Height : Longint; Angle1, Angle2, Rotation : Extended; var Points : TBezier);
Function Bezier(const C1,C2,C3,C4 : TFloatPoint): TBezier; Overload;
Function Bezier(const C1,C2,C3,C4 : TPoint): TBezier; Overload;
Procedure Bezier2Polyline(const Bezier : TBezier; var Points : PPoint; var Count : Longint);
Procedure BezierArcPoints(X, Y, Width, Height : Longint; Angle1, Angle2, Rotation : Extended; var Points : PPoint; var Count : Longint);
Function BezierMidPoint(Bezier : TBezier) : TFloatPoint;
Function CenterPoint(Rect : TRect) : TPoint;
Procedure Coords2Angles(X, Y, Width, Height : Integer; SX, SY, EX, EY : Integer; var Angle1, Angle2 : Extended);
Function Distance(PT1,Pt2 : TPoint) : Extended; overload;
Function Distance(Pt, SP, EP : TFloatPoint) : Extended; overload;
Function EccentricAngle(PT : TPoint; Rect : TRect) : Extended;
Function EllipseRadialLength(Rect : TRect; EccentricAngle : Extended) : Longint;
Function FloatPoint(AX,AY : Extended): TFloatPoint;
Function LineEndPoint(StartPoint : TPoint; Angle, Length : Extended) : TPoint;
Procedure PolyBezier2Polyline(Beziers: Array of TBezier; var Points : PPoint; var Count : Longint); Overload;
Procedure PolyBezier2Polyline(Beziers : Array of TPoint; var Points : PPoint; var Count : Longint; Continuous : Boolean); Overload;
Procedure PolyBezier2Polyline(Beziers : PPoint; BCount : Longint; var Points : PPoint; var Count : Longint; Continuous : Boolean); Overload;
Procedure PolyBezierArcPoints(X, Y, Width, Height : Longint; Angle1, Angle2, Rotation : Extended; var Points : PPoint; var Count : Longint);
Function Quadrant(PT, Center : TPoint) : Integer;
Function RadialPoint(EccentricAngle : Extended; Rect : TRect) : TPoint;
Procedure SplitBezier(Bezier : TBezier; var Left, Right : TBezier);
Operator + (Addend1, Addend2 : TFloatPoint) : TFloatPoint;
Operator + (Addend1 : TFloatPoint; Addend2 : Extended) : TFloatPoint;
Operator + (Addend1 : Extended; Addend2 : TFloatPoint) : TFloatPoint;
Operator + (Addend1 : TFloatPoint; Addend2 : TPoint) : TFloatPoint;
Operator + (Addend1 : TPoint; Addend2 : TFloatPoint) : TFloatPoint;
Operator - (Minuend : TFloatPoint; Subtrahend : Extended) : TFloatPoint;
Operator - (Minuend, Subtrahend : TFloatPoint) : TFloatPoint;
Operator - (Minuend : TFloatPoint; Subtrahend : TPoint) : TFloatPoint;
Operator - (Minuend : TPoint; Subtrahend : TFloatPoint) : TFloatPoint;
Operator * (Multiplicand, Multiplier : TFloatPoint) : TFloatPoint;
Operator * (Multiplicand : TFloatPoint; Multiplier : Extended) : TFloatPoint;
Operator * (Multiplicand : Extended; Multiplier : TFloatPoint) : TFloatPoint;
Operator * (Multiplicand : TFloatPoint; Multiplier : TPoint) : TFloatPoint;
Operator * (Multiplicand : TPoint; Multiplier : TFloatPoint) : TFloatPoint;
Operator / (Dividend, Divisor : TFloatPoint) : TFloatPoint;
Operator / (Dividend : TFloatPoint; Divisor : Extended) : TFloatPoint;
Operator / (Dividend : TFloatPoint; Divisor : TPoint) : TFloatPoint;
Operator / (Dividend : TPoint; Divisor : TFloatPoint) : TFloatPoint;
Operator = (Compare1, Compare2 : TPoint) : Boolean;
Operator = (Compare1, Compare2 : TFloatPoint) : Boolean;
Operator := (Value : TFloatPoint) : TPoint;
Operator := (Value : TPoint) : TFloatPoint;
Operator = (Compare1, Compare2 : TRect) : Boolean;

Typen

TBezier = Array[0..3] of TFloatPoint;
PPoint = ˆTPoint;

Beschreibung

Funktionen und Prozeduren

Procedure Angles2Coords(X,Y, Width, Height : Integer; Angle1, Angle2 : Extended; var SX, SY, EX, EY : Integer);
 
Procedure Arc2Bezier(X, Y, Width, Height : Longint; Angle1, Angle2, Rotation : Extended; var Points : TBezier);
 
Function Bezier(const C1,C2,C3,C4 : TFloatPoint): TBezier; Overload;
 
Function Bezier(const C1,C2,C3,C4 : TPoint): TBezier; Overload;
 
Procedure Bezier2Polyline(const Bezier : TBezier; var Points : PPoint; var Count : Longint);
 
Procedure BezierArcPoints(X, Y, Width, Height : Longint; Angle1, Angle2, Rotation : Extended; var Points : PPoint; var Count : Longint);
 
Function BezierMidPoint(Bezier : TBezier) : TFloatPoint;
 
Function CenterPoint(Rect : TRect) : TPoint;
 
Procedure Coords2Angles(X, Y, Width, Height : Integer; SX, SY, EX, EY : Integer; var Angle1, Angle2 : Extended);
 
Function Distance(PT1,Pt2 : TPoint) : Extended; overload;
 
Function Distance(Pt, SP, EP : TFloatPoint) : Extended; overload;
 
Function EccentricAngle(PT : TPoint; Rect : TRect) : Extended;
 
Function EllipseRadialLength(Rect : TRect; EccentricAngle : Extended) : Longint;
 
Function FloatPoint(AX,AY : Extended): TFloatPoint;
 
Function LineEndPoint(StartPoint : TPoint; Angle, Length : Extended) : TPoint;
 
Procedure PolyBezier2Polyline(Beziers: Array of TBezier; var Points : PPoint; var Count : Longint); Overload;
 
Procedure PolyBezier2Polyline(Beziers : Array of TPoint; var Points : PPoint; var Count : Longint; Continuous : Boolean); Overload;
 
Procedure PolyBezier2Polyline(Beziers : PPoint; BCount : Longint; var Points : PPoint; var Count : Longint; Continuous : Boolean); Overload;
 
Procedure PolyBezierArcPoints(X, Y, Width, Height : Longint; Angle1, Angle2, Rotation : Extended; var Points : PPoint; var Count : Longint);
 
Function Quadrant(PT, Center : TPoint) : Integer;
 
Function RadialPoint(EccentricAngle : Extended; Rect : TRect) : TPoint;
 
Procedure SplitBezier(Bezier : TBezier; var Left, Right : TBezier);
 
Operator + (Addend1, Addend2 : TFloatPoint) : TFloatPoint;
 
Operator + (Addend1 : TFloatPoint; Addend2 : Extended) : TFloatPoint;
 
Operator + (Addend1 : Extended; Addend2 : TFloatPoint) : TFloatPoint;
 
Operator + (Addend1 : TFloatPoint; Addend2 : TPoint) : TFloatPoint;
 
Operator + (Addend1 : TPoint; Addend2 : TFloatPoint) : TFloatPoint;
 
Operator - (Minuend : TFloatPoint; Subtrahend : Extended) : TFloatPoint;
 
Operator - (Minuend, Subtrahend : TFloatPoint) : TFloatPoint;
 
Operator - (Minuend : TFloatPoint; Subtrahend : TPoint) : TFloatPoint;
 
Operator - (Minuend : TPoint; Subtrahend : TFloatPoint) : TFloatPoint;
 
Operator * (Multiplicand, Multiplier : TFloatPoint) : TFloatPoint;
 
Operator * (Multiplicand : TFloatPoint; Multiplier : Extended) : TFloatPoint;
 
Operator * (Multiplicand : Extended; Multiplier : TFloatPoint) : TFloatPoint;
 
Operator * (Multiplicand : TFloatPoint; Multiplier : TPoint) : TFloatPoint;
 
Operator * (Multiplicand : TPoint; Multiplier : TFloatPoint) : TFloatPoint;
 
Operator / (Dividend, Divisor : TFloatPoint) : TFloatPoint;
 
Operator / (Dividend : TFloatPoint; Divisor : Extended) : TFloatPoint;
 
Operator / (Dividend : TFloatPoint; Divisor : TPoint) : TFloatPoint;
 
Operator / (Dividend : TPoint; Divisor : TFloatPoint) : TFloatPoint;
 
Operator = (Compare1, Compare2 : TPoint) : Boolean;
 
Operator = (Compare1, Compare2 : TFloatPoint) : Boolean;
 
Operator := (Value : TFloatPoint) : TPoint;
 
Operator := (Value : TPoint) : TFloatPoint;
 
Operator = (Compare1, Compare2 : TRect) : Boolean;
 

Typen

TBezier = Array[0..3] of TFloatPoint;
 
PPoint = ˆTPoint;
 

Erstellt mit PasDoc 0.10.0 am 2007-03-27 23:02:58