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

* fixed typo in T3DVector.Scale and T2DIntRect.Move

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1702 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-06-18 12:37:26 +00:00
parent b2a592de7f
commit 2d6a682f90
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -893,8 +893,8 @@ end;
function T3DVector.Scale(dx, dy, dz: extended): T3DVector; function T3DVector.Scale(dx, dy, dz: extended): T3DVector;
begin begin
result.x:=self.x * dx; result.x:=self.x * dx;
result.y:=self.y * dx; result.y:=self.y * dy;
result.z:=self.z * dx; result.z:=self.z * dz;
end; end;
function T3DVector.UpNormalTo(vector: T3DVector): T3DVector; function T3DVector.UpNormalTo(vector: T3DVector): T3DVector;
@ -1185,8 +1185,8 @@ procedure T2DIntRect.Move(dx, dy: integer);
begin begin
inc(left, dx); inc(left, dx);
inc(right, dx); inc(right, dx);
inc(top, dx); inc(top, dy);
inc(bottom, dx); inc(bottom, dy);
end; end;
procedure T2DIntRect.Move(AVector: T2DIntVector); procedure T2DIntRect.Move(AVector: T2DIntVector);