[occt.git] / tests / bugs / modalg_7 / bug23378_2

puts "========"
puts "OCC23378"
puts "========"
puts ""
########################################
# BRepAlgoAPI_Cut returns wrong result
########################################

# Restore the initial shape
restore [locate_data_file bug23378_blower1.brep] b

# Test case body
explode b
bop b_1 b_2
bopcut r

# Result of operation should be two shapes (checking)
set oper_result [explode r]
if {[llength $oper_result] != 2} {
  puts "ERRROR: Result of BrepAlgoAPI_Cut is unexpected"
}

# Algorithmic check of r_2 shape
renamevar r_2 result
checkshape result
checkprops result -s 2.77917

# Visualization check of r_2 shape
vinit
vsetdispmode 1
vdisplay result
vfit
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
3b337f77	1	puts "========"
	2	puts "OCC23378"
	3	puts "========"
	4	puts ""
	5	########################################
	6	# BRepAlgoAPI_Cut returns wrong result
	7	########################################
	8
	9	# Restore the initial shape
	10	restore [locate_data_file bug23378_blower1.brep] b
	11
	12	# Test case body
	13	explode b
	14	bop b_1 b_2
	15	bopcut r
	16
	17	# Result of operation should be two shapes (checking)
	18	set oper_result [explode r]
	19	if {[llength $oper_result] != 2} {
	20	puts "ERRROR: Result of BrepAlgoAPI_Cut is unexpected"
	21	}
	22
	23	# Algorithmic check of r_2 shape
	24	renamevar r_2 result
	25	checkshape result
	26	checkprops result -s 2.77917
	27
	28	# Visualization check of r_2 shape
	29	vinit
	30	vsetdispmode 1
	31	vdisplay result
	32	vfit
	33	checkview -screenshot -3d -path ${imagedir}/${test_image}.png