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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

program RectClip_Demo;

{$APPTYPE CONSOLE}

{$R *.res}

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

const
  margin = 100;
  width = 600;
  height = 600;

//------------------------------------------------------------------------------
//------------------------------------------------------------------------------

procedure TestEllipse(radius, count: integer);
var
  i: integer;
  sub, clp, sol: TPaths64;
  rec: TRect64;
begin
  SetLength(clp, 1);
  clp[0] := Ellipse(Rect64(0, 0, radius, radius));
  SetLength(sub, count);
  for i := 0 to count -1 do
    sub[i] := TranslatePath(clp[0],
      Random(width - radius), Random(height - radius));

  rec := Rect64(margin, margin, width - margin, height - margin);
  clp[0] := rec.AsPath;
  sol := RectClip(rec, sub);
  DisplayAsSvg('RectClip Ellipses', frEvenOdd, sub, clp, sol);
end;
//------------------------------------------------------------------------------

procedure TestRandomPoly(count: integer);
var
  sub, clp, sol: TPathsD;
  rec: TRectD;
begin
  rec := RectD(margin, margin, width - margin, height - margin);
  SetLength(clp, 1);
  clp[0] := rec.AsPath;
  SetLength(sub, 1);
  sub[0] := PathD(MakeRandomPath(width, height, count));
  sol := RectClip(rec, sub);
  DisplayAsSvg('RectClip Random Polygons', frEvenOdd, sub, clp, sol);
end;
//------------------------------------------------------------------------------

procedure TestLineClip(lineLength: integer);
var
  sub, clp, sol: TPathsD;
  rec: TRectD;
begin
  SetLength(clp, 1);
  rec := RectD(margin, margin, width - margin, height - margin);
  clp[0] := rec.AsPath;
  SetLength(sub, 1);
  sub[0] := MakeRandomPathD(width, height, lineLength);
  sol := RectClipLines(rec, sub);
  DisplayAsSvg_Open('RectClip Open Paths', frEvenOdd, false, sub, clp, sol, true);
end;

//------------------------------------------------------------------------------
// main entry
//------------------------------------------------------------------------------

begin
  Randomize;
  TestEllipse(100, 100);
  TestRandomPoly(59);
  TestLineClip(59);

end.