moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-13 04:45:03 -05:00
Code Issues Releases Wiki Activity

Compilation fix... ;)

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@422 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-01-17 13:23:04 +00:00
parent 7f16b864f7
commit b14262ebaf
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Units/MMLCore/dtmutil.pas
View File

@ -37,8 +37,7 @@ Procedure PrintpDTM(aDTM : pDTM);
procedure initdtm(out d: pdtm; len: integer);
function ValidMainPointBox(var dtm: pDTM; const x1, y1, x2, y2: Integer): TBox;
function ValidMainPointBoxRotated(var dtm: pDTM; const x1, y1, x2, y2: Integer;
sAngle, eAngle, aStep: Extended): TBox;
function ValidMainPointBoxRotated(var dtm: pDTM; const x1, y1, x2, y2: Integer): TBox;
function DTMConsistent(var dtm: pdtm): boolean;
procedure NormalizeDTM(var dtm: pdtm);
@ -239,8 +238,7 @@ begin
Result.y2 := y2 - b.y2;
end;
Function ValidMainPointBoxRotated(var dtm: pDTM; const x1, y1, x2, y2: Integer;
sAngle, eAngle, aStep: Extended): TBox;
Function ValidMainPointBoxRotated(var dtm: pDTM; const x1, y1, x2, y2: Integer): TBox;
var
i, d: Integer;
@ -253,13 +251,12 @@ begin
dtm.p[0] := dtm.p[0] - dtm.p[0];
{ FIXME }
for i := 0 to high(dtm.c) do
begin
d := max(dtm.p[i].x - dtm.asz[i], d);
d := max(dtm.p[i].x + dtm.asz[i], d);
d := max(dtm.p[i].y - dtm.asz[i], d);
d := max(dtm.p[i].y + dtm.asz[i], d);
d := max(dtm.p[i].x - dtm.asz[i], d);
d := max(dtm.p[i].x + dtm.asz[i], d);
d := max(dtm.p[i].y - dtm.asz[i], d);
d := max(dtm.p[i].y + dtm.asz[i], d);
end;
Result.x1 := d;