pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

spktoolbar: Google-translate the original author's Polish comments in spkMath to English.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4097 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-04-26 22:09:23 +00:00
parent 54673b5c69
commit 7e90457238
1 changed files with 41 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
components/spktoolbar/SpkMath/SpkMath.pas
View File

@ -19,6 +19,7 @@ type
TRectCorner = (rcLeftTop, rcRightTop, rcLeftBottom, rcRightBottom); TRectCorner = (rcLeftTop, rcRightTop, rcLeftBottom, rcRightBottom);
// Dwuwymiarowy wektor o ca³kowitych wspó³rzêdnych // Dwuwymiarowy wektor o ca³kowitych wspó³rzêdnych
// Two-dimensional vector routines
{$ifdef EnhancedRecordSupport} {$ifdef EnhancedRecordSupport}
T2DIntVector = record T2DIntVector = record
x, y : integer; x, y : integer;
@ -59,9 +60,11 @@ type
{$endif} {$endif}
// Punkt w przestrzeni dwuwymiarowej o ca³kowitych wspó³rzêdnych // Punkt w przestrzeni dwuwymiarowej o ca³kowitych wspó³rzêdnych
// A point in two-dimensional space (integer numbers)
T2DIntPoint = T2DIntVector; T2DIntPoint = T2DIntVector;
// Prostok¹t w przestrzeni dwuwymiarowej o ca³kowitych wspó³rzêdnych // Prostok¹t w przestrzeni dwuwymiarowej o ca³kowitych wspó³rzêdnych
// Rectangle in two-dimensional space (integer numbers)
{$ifdef EnhancedRecordSupport} {$ifdef EnhancedRecordSupport}
T2DIntRect = record T2DIntRect = record
public public
@ -124,6 +127,7 @@ type
{$endif} {$endif}
// Wektor w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzêdnych // Wektor w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzêdnych
// Vector in two-dimensional space (floating point numbers)
//todo change from extended to double //todo change from extended to double
{$ifdef EnhancedRecordSupport} {$ifdef EnhancedRecordSupport}
T2DVector = record T2DVector = record
@ -185,9 +189,11 @@ type
{$endif} {$endif}
// Punkt w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzêdnych // Punkt w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzêdnych
// A point in two-dimensional space (floating point numbers)
T2DPoint = T2DVector; T2DPoint = T2DVector;
// Prostok¹t w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzêdnych // Prostok¹t w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzêdnych
// Rectangle in two-dimensional space (floating point numbers)
{$ifdef EnhancedRecordSupport} {$ifdef EnhancedRecordSupport}
T2DRect = record T2DRect = record
public public
@ -245,6 +251,7 @@ type
{$endif} {$endif}
// Wektor w przestrzeni trójwymiarowej o rzeczywistych wspó³rzêdnych // Wektor w przestrzeni trójwymiarowej o rzeczywistych wspó³rzêdnych
// Vector in three-dimensional space (floating point numbers)
{$ifdef EnhancedRecordSupport} {$ifdef EnhancedRecordSupport}
T3DVector = record T3DVector = record
x, y, z : extended; x, y, z : extended;
@ -556,7 +563,8 @@ var len : extended;
begin begin
len:=self.Length; len:=self.Length;
if len<NUM_ZERO then if len<NUM_ZERO then
raise exception.create('T2DVector.DownNormal: Nie mogê obliczyæ normalnej do wektora zerowego!'); raise exception.create('T2DVector.DownNormal: Cannot normalize a vector of zero length!');
//raise exception.create('T2DVector.DownNormal: Nie mogê obliczyæ normalnej do wektora zerowego!');
if self.x>0 then if self.x>0 then
begin begin
@ -598,7 +606,8 @@ var len : extended;
begin begin
len:=self.Length; len:=self.Length;
if len<NUM_ZERO then if len<NUM_ZERO then
raise exception.create('T2DVector.Normalize: Nie mo¿na znormalizowaæ wektora zerowego!'); raise exception.create('T2DVector.Normalize: Cannot normalize a vector of zero length!');
//raise exception.create('T2DVector.Normalize: Nie mo¿na znormalizowaæ wektora zerowego!');
self.x:=self.x/len; self.x:=self.x/len;
self.y:=self.y/len; self.y:=self.y/len;
end; end;
@ -610,7 +619,8 @@ var len : extended;
begin begin
len:=self.Length; len:=self.Length;
if len<NUM_ZERO then if len<NUM_ZERO then
raise exception.create('T2DVector.Normalized: Nie mo¿na obliczyæ normy wektora zerowego!'); raise exception.create('T2DVector.Normalize: Cannot normalize a vector of zero length!');
//raise exception.create('T2DVector.Normalized: Nie mo¿na obliczyæ normy wektora zerowego!');
result.x:=self.x/len; result.x:=self.x/len;
result.y:=self.y/len; result.y:=self.y/len;
end; end;
@ -639,7 +649,8 @@ var product : extended;
begin begin
len:=vector.Length; len:=vector.Length;
if abs(len)<NUM_ZERO then if abs(len)<NUM_ZERO then
raise exception.create('T2DVector.ProjectedTo: Nie mo¿na rzutowaæ na wektor zerowy!'); raise exception.create('T2DVector.ProjectedTo: Cannot project onto a vector of zero length!');
//raise exception.create('T2DVector.ProjectedTo: Nie mo¿na rzutowaæ na wektor zerowy!');
product:=self.x*vector.x + self.y*vector.y; product:=self.x*vector.x + self.y*vector.y;
result.x:=(vector.x * product) / sqr(len); result.x:=(vector.x * product) / sqr(len);
@ -654,7 +665,8 @@ var product : extended;
begin begin
len:=vector.Length; len:=vector.Length;
if abs(len)<NUM_ZERO then if abs(len)<NUM_ZERO then
raise exception.create('T2DVector.ProjectTo: Nie mo¿na rzutowaæ na wektor zerowy!'); raise exception.create('T2DVector.ProjectTo: Cannot project onto a vector of zero length!');
// raise exception.create('T2DVector.ProjectTo: Nie mo¿na rzutowaæ na wektor zerowy!');
product:=self.x*vector.x + self.y*vector.y; product:=self.x*vector.x + self.y*vector.y;
@ -676,7 +688,8 @@ var len : extended;
begin begin
len:=self.Length; len:=self.Length;
if len<NUM_ZERO then if len<NUM_ZERO then
raise exception.create('T2DVector.UpNormal: Nie mogê obliczyæ normalnej do wektora zerowego!'); raise exception.create('T2DVector.UpNormal: Cannot normalize a vector of zero length!');
//raise exception.create('T2DVector.UpNormal: Nie mogê obliczyæ normalnej do wektora zerowego!');
if self.x>0 then if self.x>0 then
begin begin
@ -702,7 +715,8 @@ class operator T2DVector.Divide(left: T2DIntVector;
scalar: extended): T2DVector; scalar: extended): T2DVector;
begin begin
if abs(scalar)<NUM_ZERO then if abs(scalar)<NUM_ZERO then
raise exception.create('T2DVector.Divide: Dzielenie przez zero!'); raise exception.create('T2DVector.Divide: Division by zero!');
//raise exception.create('T2DVector.Divide: Dzielenie przez zero!');
result.x:=left.x/scalar; result.x:=left.x/scalar;
result.y:=left.y/scalar; result.y:=left.y/scalar;
end; end;
@ -710,7 +724,8 @@ end;
class operator T2DVector.Divide(left: T2DVector; scalar: extended): T2DVector; class operator T2DVector.Divide(left: T2DVector; scalar: extended): T2DVector;
begin begin
if abs(scalar)<NUM_ZERO then if abs(scalar)<NUM_ZERO then
raise exception.create('T2DVector.Divide: Dzielenie przez zero!'); raise exception.create('T2DVector.Divide: Division by zero!');
//raise exception.create('T2DVector.Divide: Dzielenie przez zero!');
result.x:=left.x/scalar; result.x:=left.x/scalar;
result.y:=left.y/scalar; result.y:=left.y/scalar;
end; end;
@ -852,7 +867,8 @@ begin
result.z:=self.x * vector.y - self.y * vector.x; result.z:=self.x * vector.y - self.y * vector.x;
len:=result.Length; len:=result.Length;
if len<NUM_ZERO then if len<NUM_ZERO then
raise exception.create('T3DVector.DownNormalTo: Nie mogê obliczyæ normalnej: wektory le¿¹ na wspólnej prostej!'); raise exception.create('T3DVector.DownNormalTo: Vector length is zero!');
//raise exception.create('T3DVector.DownNormalTo: Nie mogê obliczyæ normalnej: wektory le¿¹ na wspólnej prostej!');
result.x:=result.x/len; result.x:=result.x/len;
result.y:=result.y/len; result.y:=result.y/len;
result.z:=result.z/len; result.z:=result.z/len;
@ -888,7 +904,8 @@ var len : extended;
begin begin
len:=self.Length; len:=self.Length;
if len<NUM_ZERO then if len<NUM_ZERO then
raise exception.create('T3DVector.Normalize: Nie mo¿na znormalizowaæ wektora zerowego!'); raise exception.create('T3DVector.Normalize: Vector length is zero!');
//raise exception.create('T3DVector.Normalize: Nie mo¿na znormalizowaæ wektora zerowego!');
self.x:=self.x/len; self.x:=self.x/len;
self.y:=self.y/len; self.y:=self.y/len;
self.z:=self.z/len; self.z:=self.z/len;
@ -901,7 +918,8 @@ var len : extended;
begin begin
len:=self.Length; len:=self.Length;
if len<NUM_ZERO then if len<NUM_ZERO then
raise exception.create('T3DVector.Normalized: Nie mo¿na obliczyæ normy wektora zerowego!'); raise exception.create('T3DVector.Normalized: Vector length is zero!');
//raise exception.create('T3DVector.Normalized: Nie mo¿na obliczyæ normy wektora zerowego!');
result.x:=self.x/len; result.x:=self.x/len;
result.y:=self.y/len; result.y:=self.y/len;
result.z:=self.z/len; result.z:=self.z/len;
@ -916,7 +934,8 @@ var product : extended;
begin begin
len:=vector.Length; len:=vector.Length;
if abs(len)<NUM_ZERO then if abs(len)<NUM_ZERO then
raise exception.create('T3DVector.ProjectedTo: Nie mo¿na rzutowaæ na wektor zerowy!'); raise exception.create('T3DVector.ProjectedTo: Vector length is zero!');
//raise exception.create('T3DVector.ProjectedTo: Nie mo¿na rzutowaæ na wektor zerowy!');
product:=self.x*vector.x + self.y*vector.y + self.z*vector.z; product:=self.x*vector.x + self.y*vector.y + self.z*vector.z;
result.x:=(vector.x * product) / sqr(len); result.x:=(vector.x * product) / sqr(len);
@ -932,7 +951,8 @@ var product : extended;
begin begin
len:=vector.Length; len:=vector.Length;
if abs(len)<NUM_ZERO then if abs(len)<NUM_ZERO then
raise exception.create('T3DVector.ProjectTo: Nie mo¿na rzutowaæ na wektor zerowy!'); raise exception.create('T3DVector.ProjectTo: Vector length is zero!');
//raise exception.create('T3DVector.ProjectTo: Nie mo¿na rzutowaæ na wektor zerowy!');
product:=self.x*vector.x + self.y*vector.y + self.z*vector.z; product:=self.x*vector.x + self.y*vector.y + self.z*vector.z;
self.x:=(vector.x * product) / sqr(len); self.x:=(vector.x * product) / sqr(len);
@ -958,7 +978,8 @@ begin
len:=result.Length; len:=result.Length;
if len<NUM_ZERO then if len<NUM_ZERO then
raise exception.create('T3DVector.UpNormalTo: Nie mogê obliczyæ normalnej: wektory le¿¹ na wspólnej prostej!'); raise exception.create('T3DVector.UpNormalTo: Vector length is zero!');
//raise exception.create('T3DVector.UpNormalTo: Nie mogê obliczyæ normalnej: wektory le¿¹ na wspólnej prostej!');
result.x:=result.x/len; result.x:=result.x/len;
result.y:=result.y/len; result.y:=result.y/len;
result.z:=result.z/len; result.z:=result.z/len;
@ -984,7 +1005,8 @@ end;
class operator T3DVector.Divide(left: T3DVector; scalar: extended): T3DVector; class operator T3DVector.Divide(left: T3DVector; scalar: extended): T3DVector;
begin begin
if abs(scalar)<NUM_ZERO then if abs(scalar)<NUM_ZERO then
raise exception.create('T3DVector.Divide: Dzielenie przez zero!'); raise exception.create('T3DVector.Divide: Division by zero!');
//raise exception.create('T3DVector.Divide: Dzielenie przez zero!');
result.x:=left.x/scalar; result.x:=left.x/scalar;
result.y:=left.y/scalar; result.y:=left.y/scalar;
result.z:=left.z/scalar; result.z:=left.z/scalar;
@ -1540,7 +1562,8 @@ var center : extended;
begin begin
if (ANewHeight<0) then if (ANewHeight<0) then
raise exception.create('T2DRect.SetCenteredHeight: Nowa wysokoϾ mniejsza od zera!'); raise exception.create('T2DRect.SetCenteredHeight: New height is less than zero!');
//raise exception.create('T2DRect.SetCenteredHeight: Nowa wysokoϾ mniejsza od zera!');
center:=self.top+(self.bottom-self.top)/2; center:=self.top+(self.bottom-self.top)/2;
self.top:=center-(ANewHeight/2); self.top:=center-(ANewHeight/2);
@ -1553,7 +1576,8 @@ var center : extended;
begin begin
if (ANewWidth<0) then if (ANewWidth<0) then
raise exception.create('T2DRect.SetCenteredWidth: Nowa szerokoϾ mniejsza od zera!'); raise exception.create('T2DRect.SetCenteredWidth: New width is less than zero!');
//raise exception.create('T2DRect.SetCenteredWidth: Nowa szerokoϾ mniejsza od zera!');
center:=self.left+(self.right-self.left)/2; center:=self.left+(self.right-self.left)/2;
self.left:=center-(ANewWidth/2); self.left:=center-(ANewWidth/2);