Boolean operation "section" hangs-up for a pair of cylindrical shapes

[VladislavVitalievichRomashko]

Description

An attempt to get a section of two shapes hangs-up the application. Here it is the source code:

BRepAlgoAPI_Section mkSection(S1, S2, false);
mkSection.Approximation(true);
mkSection.ComputePCurveOn1(true);
mkSection.ComputePCurveOn2(true);
mkSection.SetNonDestructive(true);
mkSection.Build();

The shapes are attached. One of them is invalid because has self-intersecting cylindrical faces. Another shapes is a planar face.

Expected Behavior

An intersecting wire of the 2 shapes.

Actual Behavior

Hangs-up.

Sample Code or DRAW Tcl Script

BRepAlgoAPI_Section mkSection(S1, S2, false);
mkSection.Approximation(true);
mkSection.ComputePCurveOn1(true);
mkSection.ComputePCurveOn2(true);
mkSection.SetNonDestructive(true);
mkSection.Build();

Operating System

Windows

Compiler

MSVC

Bitness

32-bit

OCCT Version

latest

Additional Files

S1.zip
S2.zip