Delphi test app

[rs0xFFFF]

Is there a Delphi program where you can feed Paths data in to be able to reproduce errors.

[AngusJohnson]

I'm afraid i don't understand your question. Could you elaborate?

[rs0xFFFF]

The question has been resolved. I wrote a small program that can read Path data from a text file (sorry for my Delphi 6 coding style ;-) )

program ProjectTest;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes,
  Clipper_Core in 'Clipper_Core.pas',
  Clipper_Engine in 'Clipper_Engine.pas',
  Clipper_Offset in 'Clipper_Offset.pas',
  Clipper_Minkowski in 'Clipper_Minkowski.pas',
  Clipper in 'Clipper.pas';

const
  decPrec = 4;

var
  Clp: TClipperD;
  Path: TPathD;
  SolutionPaths: TPathsD;
  i, j: Integer;
  rows: Integer;
  Lines: TStringList;
  s1, s2: String;
  PathType: TPathType;


procedure Split(const s: String; var s1, s2: String);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Delimiter := ' ';
    sl.DelimitedText := s;
    s1 := sl[1];
    s2 := sl[2];
  finally
    sl.Free;
  end;
end;
begin
  Clp := TClipperD.Create(decPrec);

  Lines := TStringList.Create;
  Lines.LoadFromFile('data.txt');
  DecimalSeparator := ',';

  for i := 0 to Lines.Count-1 do
    begin
      Split(Lines.Strings[i], s1, s2);
      if s1 = 'ptSub' then
        begin
          PathType := ptSubject;
          rows := StrToInt(s2);
          j := 0;
          SetLength(Path, rows);
        end else
      if s1 = 'ptClp' then
        begin
          PathType := ptClip;
          rows := StrToInt(s2);
          j := 0;
          SetLength(Path, rows);
        end else
        begin
          Path[j].x := StrToFloat(s1);
          Path[j].y := StrToFloat(s2);
          inc(j);
          if (j = rows) then
            begin
              if (PathType = ptSubject) then
                Clp.AddSubject(Path)
              else
                Clp.AddClip(Path);
            end;
        end;
    end;

  Clp.Execute(ctDifference, frEvenOdd, SolutionPaths);

  Clp.Free;
  Lines.Free;
  //readln;
end.

2: ptSub 8
3: 0,635000000 52,705000000
4: 101,600000000 52,705000000
5: 101,600000000 0,635000000
6: 0,635000000 0,635000000
7: 0,635000000 29,845000000
8: 10,795000000 29,845000000
9: 10,795000000 46,355000000
10: 0,635000000 46,355000000
11: ptClp 8
12: 8,934327217 18,592800000
13: 8,458200000 18,116672783
14: 8,458200000 17,443327217
15: 8,934327217 16,967200000
16: 12,071472783 16,967200000
17: 12,547600000 17,443327217
18: 12,547600000 18,116672783
19: 12,071472783 18,592800000
20: ptClp 8
21: 36,906200000 3,600327217
22: 37,382327217 3,124200000
23: 38,055672783 3,124200000
24: 38,531800000 3,600327217
25: 38,531800000 7,448672783
26: 38,055672783 7,924800000
27: 37,382327217 7,924800000
28: 36,906200000 7,448672783

[stefanottili]

Have a look at klayout’s text read/write. You can use that to visualize inputs and results.

[AngusJohnson]

I've also recently added a PointPlotter utility that will read clipper formatted text files (see Tests for examples) as well as text files containing just comma separated coordinates (either floating point or integer). And you can just type in coordinates too. And the results displayed can be easily zoomed and scrolled.