[occt.git] / tests / bugs / modalg_5 / bug23881

puts "============"
puts "OCC23881"
puts "============"
puts ""
############################################################################
# BRepAlgoAPI_Section HasAnsectorFaceOn1 returned False on the boundary
############################################################################

polyline w1 0 0 0 1 0 0 1 1 0 0 1 0 0 0 0 
polyline w2 0 1 0 1 1 0 1 2 0 0 2 0 0 1 0
mkplane f1 w1
mkplane f2 w2
sewing s1 0.0001 f1 f2

plane pl 0 1 0 0 1 0
mkface f3 pl

bsection r s1 f3

# check that section edge (r) is the edge from original shape (s1)
compound r s1 c
if { ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes s1] str nbedges_s1] ||
     ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes c ] str nbedges_c] } {
    error "Could not get number of edges from resulting shapes"
}
 
if { $nbedges_s1 != $nbedges_c } {
    puts "Error: section does not share common edge with original shape"
}

renamevar r result
set 2dviewer 0
Commit	Line	Data
7a9d451a	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