moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 10:42:20 -05:00
Code Issues Releases Wiki Activity

FindDTMRotated

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@553 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-02-25 23:53:31 +00:00
parent e5854f3eab
commit a8eea538c7
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
trunk/Units/MMLCore/finder.pas
View File

@ -2012,8 +2012,17 @@ end;
function TMFinder.FindDTMRotated(DTM: pDTM; out x, y: Integer; x1, y1, x2, y2: Integer; sAngle, eAngle, aStep: Extended; out aFound: Extended): Boolean;
var
P: TPointArray;
F: T2DExtendedArray;
begin
raise Exception.CreateFmt('Not done yet!', []);
FindDTMsRotated(dtm, P, x1, y1, x2, y2, sAngle, eAngle, aStep, F, 1);
if Length(P) = 0 then
exit(false);
aFound := F[0][0];
x := P[0].x;
y := P[0].y;
Exit(True);
end;
function TMFinder.FindDTMsRotated(_DTM: pDTM; out Points: TPointArray; x1, y1, x2, y2: Integer; sAngle, eAngle, aStep: Extended; out aFound: T2DExtendedArray; maxToFind: Integer): Boolean;