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

Improves the invalid EXTMIN/MAX detection

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1516 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-02-28 15:17:51 +00:00
parent f5c68181b0
commit 28132c4f39
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
applications/fpvviewer/fpvectorialsrc/dxfvectorialreader.pas
View File

@ -386,7 +386,8 @@ begin
// Sometimes EXTMIN comes as 10^20 and EXTMAX as -10^20, which makes no sence
// In these cases we need to ignore them.
if (EXTMIN.X > 100000) or (EXTMIN.X < -100000) or (EXTMAX.X > 100000) or (EXTMAX.X < -100000) then
if (EXTMIN.X > 10000000000) or (EXTMIN.X < -10000000000)
or (EXTMAX.X > 10000000000) or (EXTMAX.X < -10000000000) then
begin
DOC_OFFSET.X := 0;
DOC_OFFSET.Y := 0;
@ -480,7 +481,7 @@ begin
// And now write it
{$ifdef FPVECTORIALDEBUG}
// WriteLn(Format('Adding Line from %f,%f to %f,%f', [LineStartX, LineStartY, LineEndX, LineEndY]));
WriteLn(Format('Adding Line from %f,%f to %f,%f', [LineStartX, LineStartY, LineEndX, LineEndY]));
{$endif}
AData.StartPath(LineStartX, LineStartY);
AData.AddLineToPath(LineEndX, LineEndY);