moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -05:00
Code Issues Releases Wiki Activity

Minor fixes

Browse Source
This commit is contained in:
Raymond 2010-05-23 11:55:27 +02:00
parent c29d3b66e4
commit 89e30c1af5
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Units/MMLAddon/mmlpsthread.pas
View File

@ -361,7 +361,7 @@ begin
Includes.Add(path);
try
f:= TFileStream.Create(UTF8ToSys(Path), fmOpenRead or fmShareDenyWrite);
f:= TFileStream.Create(UTF8ToSys(Path), fmOpenRead);
SetLength(contents, f.Size);
f.Read(contents[1], Length(contents));
result:= true;

8
Units/MMLCore/mmath.pas
View File

@ -75,8 +75,8 @@ var
angle : extended;
begin
angle := ArcTan2(pt.y-my,pt.x-mx);
result.y := round(sin(angle) * newdist) + mx;
result.x := round(cos(angle) * newdist) + my;
result.x := round(cos(angle) * newdist) + mx;
result.y := round(sin(angle) * newdist) + my;
end;
function ChangeDistTPA(var TPA : TPointArray; mx,my : integer; newdist : extended) : boolean;
@ -92,8 +92,8 @@ begin
for i := high(TPA) downto 0 do
begin
angle := ArcTan2(TPA[i].y-my,TPA[i].x-mx);
TPA[i].y := round(sin(angle) * newdist) + mx;
TPA[i].x := round(cos(angle) * newdist) + my;
TPA[i].x := round(cos(angle) * newdist) + mx;
TPA[i].y := round(sin(angle) * newdist) + my;
end;
except
result := false;