A set of mathematical helper routines to simply cross-platform canvas drawing.

graphmath.pp contains math helper routines for use for graphics drawing. It is used to simply cross-platform canvas drawing operations. This file is part of the LazUtils package.

TFloatPoint is an extended precision record specifying the X and Y coordinates of a point in a graphic environment. Horizontal position for the coordinate. Vertical position for the coordinate. Array type used to store the coordinates for Bezier control points as floating point values.

TBezier allows up to 4 coordinates to be specified which represent the control points for the parametric curve. Each coordinate is implemented using the TFloatPoint type, and stored as elements in the array.

TBezier is the type returned by the Bezier function. The type is passed as an argument to routines like: Arc2Bezier, Bezier2Polyline, BezierMidPoint, and SplitBezier.

Pointer to the TPoint type. TPoint Converts an Eccentric Angle and an Angle-Length, into the coordinates for the Start and End radial Points.

Use Angles2Coords to convert an Eccentric (Radial) angle and an angle-length, such as are used in X-Windows and GTK, into the coordinates for the Start and End radial Points. Like those used in the Arc, Pie, and Chord routines from the Windows API.

The angles are specified in 1/16th of a degree. For example, a full circle equals 5760 (16*360).

Positive values in Angle and AngleLength mean counter-clockwise, while negative values mean clockwise direction. Zero degrees is at the 3 o'clock position.

Converts an Arc and ArcLength into a Bezier Approximation of the Arc.

Use Arc2Bezier to convert an Arc and ArcLength into a Bezier approximation of the Arc. The Rotation parameter accepts a Rotation-Angle for a rotated Ellipse. For a non-rotated ellipse this value would be 0, or 360. If the AngleLength is greater than 90 degrees, or is equal to 0, it automatically exits, as Bezier cannot accurately approximate any angle greater then 90 degrees, and in fact for best result no angle greater than 45 should be converted, instead an array of Bezier's should be created, each Bezier describing a portion of the total arc no greater than 45 degrees.

The angles are specified in 1/16th of a degree. For example, a full circle equals 5760 (16*360).

Positive values in Angle and AngleLength mean counter-clockwise while negative values mean clockwise direction. Zero degrees is at the 3 o'clock position.

Gets a TBezier instance representing the specified Bezier control points. TBezier instance with the values in C1, C2, C3, and C4. Control point on the parametric curve. C1 is an endpoint. Control point on the parametric curve. C2 is a directional control point for a Quadratic or Cubic Bezier. Control point on the parametric curve. C3 is a directional control point for a Cubic Bezier. Control point on the parametric curve. C4 is an endpoint. Bezier2Polyline - convert a 4-Point Bezier into a Pointer Array of TPoint and a Count variable.

Use BezierToPolyline to convert a 4-Point Bezier into a Pointer Array of TPoint and a Count variable which can then be used within either a Polyline, or Polygon routine. It is primarily for use within PolyBezier2Polyline.

If Points is not initialized or Count is less then 0, it is set to nil and the array starts at 0, otherwise it tries to append points to the array starting at Count. Points should ALWAYS be Freed when done by calling to ReallocMem(Points, 0) or FreeMem.

BezierArcPoints - convert an Arc and ArcLength into a Pointer Array of TPoints for use with Polyline or Polygon.

Use BezierArcPoints to convert an Arc and ArcLength into a Pointer Array of TPoints for use with Polyline or Polygon. The Rotation parameter accepts a Rotation-Angle for a rotated Ellipse. For a non-rotated ellipse this value would be 0, or 360. The result is an Approximation based on 1 or more Beziers.

If the AngleLength is greater than 90 degrees, it calls PolyBezierArcPoints, otherwise it Converts the angles into a Bezier by calling to Arc2Bezier, and then converts the Bezier into an array of Points by calling to Bezier2Polyline.

The angles are specified in 1/16th of a degree. For example, a full circle equals 5760 (16*360).

Positive values in Angle and AngleLength mean counter-clockwise while negative values mean clockwise direction. Zero degrees is at the 3 o'clock position.

If Points is not initialized or Count is less then 0, it is set to nil and the array starts at 0, otherwise it tries to append points to the array starting at Count. Points should ALWAYS be Freed when done by calling ReallocMem(Points, 0) or FreeMem.

BezierMidPoint - get the Mid-Point of any 4-Point Bezier. It is primarily for use in SplitBezier. CenterPoint - get the Center-Point of any rectangle. It is primarily for use with, and in, other routines such as Quadrant, and RadialPoint. Coords2Angles - convert the coords for Start and End Radial- Points into an Eccentric counter clockwise Angle and an Angle-Length.

Use Coords2Angles to convert the coords for Start and End Radial-Points, such as are used in the Windows API Arc Pie and Chord routines, into an Eccentric (aka Radial) counter clockwise Angle and an Angle-Length, such as are used in X-Windows and GTK.

The angles angle1 and angle2 are returned in 1/16th of a degree. For example, a full circle equals 5760 (16*360).

Zero degrees is at the 3 o'clock position.

Get the Distance between any two Points. It is primarily for use in other routines such as EccentricAngle. EccentricAngle - get the Eccentric Angle of a given point on any non-rotated ellipse.

Use EccentricAngle to get the Eccentric( aka Radial ) Angle of a given point on any non-rotated ellipse. It is primarily for use in Coords2Angles. The result is in 1/16th of a degree. For example, a full circle equals 5760 (16*360). Zero degrees is at the 3 o'clock position.

EllipseRadialLength - Radial-Length of non-rotated ellipse at any given Eccentric Angle.

Use EllipseRadialLength to get the Radial-Length of non-rotated ellipse at any given Eccentric( aka Radial ) Angle. It is primarily for use in other routines such as RadialPoint. The Eccentric angle is in 1/16th of a degree. For example, a full circle equals 5760 (16*360). Zero degrees is at the 3 o'clock position.

FloatPoint - it is essentially like Classes.Point in use, except that it accepts Extended Parameters. It is Primarily for use with and in Bezier routines. LineEndPoint - get the End-Point of a line of any given Length at any given angle with any given Start-Point.

Use LineEndPoint to get the End-Point of a line of any given Length at any given angle with any given Start-Point. It is primarily for use in other routines such as RadialPoint. The angle is in 1/16th of a degree. For example, a full circle equals 5760 (16*360). Zero degrees is at the 3 o'clock position.

PolyBezier2Polyline - convert an array of 4-Point Bezier into a Pointer Array of TPoint and a Count variable.

Use BezierToPolyline to convert an array of 4-Point Bezier into a Pointer Array of TPoint and a Count variable which can then be used within either a Polyline, or Polygon routine. Points is automatically initialized, so any existing information is lost, and the array starts at 0. Points should ALWAYS be Freed when done by calling to ReallocMem(Points, 0).

PolyBezierArcPoints - convert an Arc and ArcLength into a Pointer Array of TPoints for use with Polyline or Polygon.

Use PolyBezierArcPoints to convert an Arc and ArcLength into a Pointer Array of TPoints for use with Polyline or Polygon. The Rotation parameter accepts a Rotation-Angle for a rotated Ellipse - for a non-rotated ellipse this value would be 0, or 360. The result is an Approximation based on 1 or more Beziers. If the AngleLength is greater than 45 degrees, it recursively breaks the Arc into Arcs of 45 degrees or less, and converts them into Beziers with BezierArcPoints.

The angles are specified in 1/16th of a degree. For example, a full circle equals 5760 (16*360).

Positive values in Angle and AngleLength mean counter-clockwise while negative values mean clockwise direction. Zero degrees is at the 3 o'clock position.

Points is automatically initialized, so any existing information is lost, and the array starts at 0. Points should ALWAYS be Freed when done by calling to ReallocMem(Points, 0).

Determine the Quadrant of any point, given the Center.

Use Quadrant to determine the Quadrant of any point, given the Center. It is primarily for use in other routines such as EccentricAngle. A result of 1-4 represents the primary 4 quadrants. A result of 5-8 means the point lies on one of the Axis, 5 = -Y Axis, 6 = +X Axis, 7 = +Y Axis, and 8 = -X Axis. A result of -1 means that it does not fall in any quadrant, that is, it is the Center.

Get the RadialPoint at any given Eccentric angle on any non- rotated ellipse.

Use RadialPoint to get the Radial-Point at any given Eccentric(aka Radial) angle on any non-rotated ellipse. It is primarily for use in Angles2Coords. The EccentricAngle is in 1/16th of a degree. For example, a full circle equals 5760 (16*360). Zero degrees is at the 3 o'clock position.

Rotates a point around the origin by the specified angle (in radians).

Rotates a point around the origin (0,0) by the angle in AAngle. The angle is in radians and positive for counter-clockwise rotation. Note that y points downwards.

TPoint with the coordinates after rotation. TPoint with coordinates rotated in the routine. Rotation angle in radians. Rotates a rectangle with the specified dimensions by the specified angle (in radians).

Rotates the rectangle (0, 0, AWidth, AHeight) around its top-left corner (0,0) by the angle in AAngle (in radians). Note that y points downwards.

The smallest TRect which contains the rotated rectangle. Width for the rectangle. Height for the rectangle. Rotation angle in radians. SplitBezier - split any 4-Point Bezier into two 4-Point Beziers: a 'Left' and a 'Right'

Use SplitBezier to split any 4-Point Bezier into two 4-Point Beziers: a 'Left' and a 'Right'. It is primarily for use in Bezier2Polyline.

GraphMath Operators.

This Unit contains a number of routines for calculating and converting series of graphic points from one coordinate system to another.

A fundamental type is introduced, called TFloatPoint. It is an extended precision record containing an X and a Y coordinate for a graphic point. Its structure is as follows:

type TFloatPoint = record X, Y: Extended; end;

The Unit contains definitions for mathematical operators which extend the normal definitions of addition, subtraction, multiplication, division and comparison to cover manipulations with TFloatPoints, allowing, for example, addition or multiplication of two TFloatPoints, a TFloatPoint and a TPoint, or a TFloatPoint and an Extended precision number.