0023881: BRepAlgoAPI_Section HasAncestorFaceOn1 returned False on the boundary(6...
[occt.git] / tests / bugs / modalg_5 / bug23881
1 puts "============"
2 puts "OCC23881"
3 puts "============"
4 puts ""
5 ############################################################################
6 # BRepAlgoAPI_Section HasAnsectorFaceOn1 returned False on the boundary
7 ############################################################################
8
9 polyline w1 0 0 0 1 0 0 1 1 0 0 1 0 0 0 0 
10 polyline w2 0 1 0 1 1 0 1 2 0 0 2 0 0 1 0
11 mkplane f1 w1
12 mkplane f2 w2
13 sewing s1 0.0001 f1 f2
14
15 plane pl 0 1 0 0 1 0
16 mkface f3 pl
17
18 bsection r s1 f3
19
20 # check that section edge (r) is the edge from original shape (s1)
21 compound r s1 c
22 if { ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes s1] str nbedges_s1] ||
23      ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes c ] str nbedges_c] } {
24     error "Could not get number of edges from resulting shapes"
25 }
26  
27 if { $nbedges_s1 != $nbedges_c } {
28     puts "Error: section does not share common edge with original shape"
29 }
30
31 renamevar r result
32 set 2dviewer 0