OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
Code Packages Releases Activity

0024532: BRepOffsetAPI_MakePipeShell raises an exception in a case with auxiliary guide

Browse Source 
Test case for issue CR24532
This commit is contained in:
jgv 2014-01-16 14:03:22 +04:00 committed by bugmaster
parent 513d3443c7
commit 561ea68e96
2 changed files with 39 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/BRepFill/BRepFill_CompatibleWires.cxx
View File

@ -157,11 +157,7 @@ static Standard_Boolean PlaneOfWire (const TopoDS_Wire& W, gp_Pln& P)
} }
TopoDS_Edge Edge = TopoDS::Edge(anExp.Current()); TopoDS_Edge Edge = TopoDS::Edge(anExp.Current());
Standard_Real first, last; Standard_Real first, last;
TopLoc_Location loc; Handle(Geom_Curve) curv = BRep_Tool::Curve(Edge, first, last);
Handle(Geom_Curve) curv;
curv = BRep_Tool::Curve(Edge, loc, first, last);
curv =
Handle(Geom_Curve)::DownCast(curv->Transformed(loc.Transformation()));
if (wClosed) { if (wClosed) {
GeomAdaptor_Curve AdC; GeomAdaptor_Curve AdC;
AdC.Load(curv); AdC.Load(curv);

38
tests/bugs/modalg_5/bug24532 Executable file
View File

@ -0,0 +1,38 @@
puts "============"
puts "OCC24532"
puts "============"
puts ""
#######################################################################
# BRepOffsetAPI_MakePipeShell raises an exception in a case with auxiliary guide
#######################################################################
polyline w1 -4 -3 0 4 -3 0 4 3 0 -4 3 0 -4 -3 0
polyline w2 4 3 80 -4 3 80 -4 -3 80 4 -3 80 4 3 80
polyline sp 0 0 0 0 0 80
cylinder cc 0 0 0 0 0 1 -4 -3 0 5
line ll 0 0 pi 80
trim ll ll 0 sqrt(pi*pi+80*80)
explode w1 v
explode w2 v
mkedge ee ll cc w1_1 w2_1
wire gg ee
mksweep sp
setsweep -G gg 0 0
addsweep w1
buildsweep result -S
set square 2343.46
set nb_v_good 8
set nb_e_good 12
set nb_w_good 6
set nb_f_good 6
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 34
set 2dviewer 1