diff --git a/components/spktoolbar/SpkMath/SpkMath.pas b/components/spktoolbar/SpkMath/SpkMath.pas index c588d6b9f..8f9a51f4a 100644 --- a/components/spktoolbar/SpkMath/SpkMath.pas +++ b/components/spktoolbar/SpkMath/SpkMath.pas @@ -19,6 +19,7 @@ type TRectCorner = (rcLeftTop, rcRightTop, rcLeftBottom, rcRightBottom); // Dwuwymiarowy wektor o ca³kowitych wspó³rzêdnych + // Two-dimensional vector routines {$ifdef EnhancedRecordSupport} T2DIntVector = record x, y : integer; @@ -59,9 +60,11 @@ type {$endif} // Punkt w przestrzeni dwuwymiarowej o ca³kowitych wspó³rzêdnych + // A point in two-dimensional space (integer numbers) T2DIntPoint = T2DIntVector; // Prostok¹t w przestrzeni dwuwymiarowej o ca³kowitych wspó³rzêdnych + // Rectangle in two-dimensional space (integer numbers) {$ifdef EnhancedRecordSupport} T2DIntRect = record public @@ -124,6 +127,7 @@ type {$endif} // Wektor w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzêdnych + // Vector in two-dimensional space (floating point numbers) //todo change from extended to double {$ifdef EnhancedRecordSupport} T2DVector = record @@ -185,9 +189,11 @@ type {$endif} // Punkt w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzêdnych + // A point in two-dimensional space (floating point numbers) T2DPoint = T2DVector; // Prostok¹t w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzêdnych + // Rectangle in two-dimensional space (floating point numbers) {$ifdef EnhancedRecordSupport} T2DRect = record public @@ -245,6 +251,7 @@ type {$endif} // Wektor w przestrzeni trójwymiarowej o rzeczywistych wspó³rzêdnych + // Vector in three-dimensional space (floating point numbers) {$ifdef EnhancedRecordSupport} T3DVector = record x, y, z : extended; @@ -556,7 +563,8 @@ var len : extended; begin len:=self.Length; if len0 then begin @@ -598,7 +606,8 @@ var len : extended; begin len:=self.Length; if len0 then begin @@ -702,7 +715,8 @@ class operator T2DVector.Divide(left: T2DIntVector; scalar: extended): T2DVector; begin if abs(scalar)