moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-08-13 16:53:59 -04:00
Code Issues Releases Wiki Activity

Eventjes overwriten ofzo

Browse Source
This commit is contained in:
Raymond 2010-05-19 20:03:26 +02:00
commit 6ecc1ce2ad
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Units/MMLCore/dtmutil.pas
View File

@ -120,6 +120,7 @@ function SDTMToMDTM(Const DTM: TSDTM): TMDTM;
var var
I: Integer; I: Integer;
begin begin
Result := TMDTM.Create;
Result.Count := Length(DTM.SubPoints) + 1; //The mainpoint is in a different structure Result.Count := Length(DTM.SubPoints) + 1; //The mainpoint is in a different structure
Result.Points[0].x := DTM.MainPoint.x; Result.Points[0].x := DTM.MainPoint.x;
@ -145,7 +146,7 @@ procedure NormalizeDTM(var dtm: TMDTM);
var var
i:integer; i:integer;
begin begin
if (dtm.count < 1) or ((dtm.Points[0].x = 0) and (dtm.Points[0].y = 0)) then //Already normalized if (dtm = nil) or (dtm.count < 1) or ((dtm.Points[0].x = 0) and (dtm.Points[0].y = 0)) then //Already normalized
exit; exit;
for i := 1 to dtm.Count - 1 do for i := 1 to dtm.Count - 1 do
begin begin