[occt.git] / tests / bugs / modalg / buc60712

puts "=========="
puts "BUC60712"
puts "=========="
puts ""
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="

#
# OCC22070: Grid Tests: CHL set, detected problems
# Problems:
#  The shape buc60712a.brep is self-interferred.
#  thus it can not be used as the argument for Boolean Operation Algorithm.
#
# Proposals:
#  The Case chl/902/F3 should be removed or rewritten:

restore [locate_data_file buc60712a.brep] a 
checkshape a

restore [locate_data_file buc60712b.brep] b
checkshape b

# Recompute "a" shape
explode a f

bop a_1 a_2
bopfuse r12

bop a_3 a_4
bopfuse r34

bop r12 r34

bopfuse r

# Start boolean operation
bop r b
bopsection result

# Check result
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
# Resume
if { $num != 0 } {
    puts " Faulty BUC60712: Result shape is INcorrect !!! "
} else {
    puts "BUC60712 OK: Result shape is correct "
}
set length 1.88145
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "=========="
	2	puts "BUC60712"
	3	puts "=========="
	4	puts ""
	5	puts "=================================="
	6	puts "It takes visual check for this BUG"
	7	puts "=================================="
	8
	9	#
	10	# OCC22070: Grid Tests: CHL set, detected problems
	11	# Problems:
	12	# The shape buc60712a.brep is self-interferred.
	13	# thus it can not be used as the argument for Boolean Operation Algorithm.
	14	#
	15	# Proposals:
	16	# The Case chl/902/F3 should be removed or rewritten:
	17
	18	restore [locate_data_file buc60712a.brep] a
352ffd73	19	checkshape a
a87752f3	20
a87752f3	21	restore [locate_data_file buc60712b.brep] b
352ffd73	22	checkshape b
a87752f3	23
	24	# Recompute "a" shape
	25	explode a f
	26
	27	bop a_1 a_2
	28	bopfuse r12
	29
	30	bop a_3 a_4
	31	bopfuse r34
	32
	33	bop r12 r34
	34
	35	bopfuse r
	36
	37	# Start boolean operation
	38	bop r b
	39	bopsection result
	40
	41	# Check result
	42	regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
	43	# Resume
	44	if { $num != 0 } {
	45	puts " Faulty BUC60712: Result shape is INcorrect !!! "
	46	} else {
	47	puts "BUC60712 OK: Result shape is correct "
	48	}
	49	set length 1.88145
	50	set 2dviewer 0