I'm trying to use Angus Johnsons Clipper routines to offset polygons but
get External: SIGSEV in the constructor of TClipperOffset object:
constructor TClipperOffset.Create(
MiterLimit: Double = 2;
ArcTolerance: Double = def_arc_tolerance);
begin
inherited Create;
FPolyNodes := TPolyNode.Create;
<-- External: SIGSEV FLowest.X := -1;
FMiterLimit := MiterLimit;
FArcTolerance := ArcTolerance;
end;
TPolyNode = class
private
FPath : TPath;
FParent : TPolyNode;
FIndex : Integer;
FCount : Integer;
FBuffLen : Integer;
FIsOpen : Boolean;
FChilds : TArrayOfPolyNode;
FJoinType: TJoinType; //used by ClipperOffset only
FEndType : TEndType; //used by ClipperOffset only
function GetChild(Index: Integer): TPolyNode;
function IsHoleNode: boolean;
procedure AddChild(PolyNode: TPolyNode);
function GetNextSiblingUp: TPolyNode;
public
function GetNext: TPolyNode;
property ChildCount: Integer read FCount;
property Childs[index: Integer]: TPolyNode read GetChild;
property Parent: TPolyNode read FParent;
property IsHole: Boolean read IsHoleNode;
property IsOpen: Boolean read FIsOpen;
property Contour: TPath read FPath;
end;
As of my understanding TPolyNode is implicitely of type TObject and would
be created as such.
What can cause the problems?
Windows 10 64 bits
Lazarus v.1.8.0
FPC 3.0.4
Regards
stab