clipper2-sys 1.0.0

Polygon Clipping and Offsetting (Clipper2 wrapper)
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

program ClipperTri;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  ShellAPI,
  SysUtils,
  Classes,
  Math,
  Clipper.Core in '..\..\Clipper2Lib\Clipper.Core.pas',
  Clipper in '..\..\Clipper2Lib\Clipper.pas',
  Clipper.SVG in '..\..\Utils\Clipper.SVG.pas',
  ClipMisc in '..\..\Utils\ClipMisc.pas';

//------------------------------------------------------------------------------
// Console application - main entry
//------------------------------------------------------------------------------

var
  sol : TPathsD;
  pp: TPathsD;
  inFilename, outFilename: string;
const
  svgFolder = '..\..\..\CPP\Examples\Triangulation\TriSamples\';
begin
  inFilename := svgFolder + 'coral3.svg';
  if not FileExists(inFilename) then Exit;
  outFilename := 'coral3t.svg';
  pp := GetPathsFromVerySimpleSVG(inFilename);
  if Triangulate(pp, 0, sol, true) = trSuccess then
    DisplayAsSvg_MultiColor(outFilename, frNonZero, pp, sol);
end.
//------------------------------------------------------------------------------