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

puts "========"
puts "0030913: Invalid result of Fusing slices"
puts "========"
puts ""

restore [locate_data_file bug30913_case1.brep] s

bclearobjects
bcleartools
set exp [explode s]
baddobjects s_1
eval baddtools [lrange $exp 1 end]

# Use gluing Shift option
bglue 1
# Avoid History filling
setfillhistory 0

bfillds
bbop result 1

checkshape result

unifysamedom result result

checkshape result

checkprops result -s 3.81335e+06 -v 1.39597e+08
checknbshapes result -vertex 12042 -edge 18169 -wire 6223 -face 6176 -shell 1 -solid 1 -t

if {![regexp "This shape seems to be OK" [bopcheck result]]} {
  puts "Error: result is a self-intersecting shape"
}

checkview -display result -2d -path ${imagedir}/${test_image}.png

boptions -default
Commit	Line	Data
115d350e	1	puts "========"
	2	puts "0030913: Invalid result of Fusing slices"
	3	puts "========"
	4	puts ""
	5
	6	restore [locate_data_file bug30913_case1.brep] s
	7
	8	bclearobjects
	9	bcleartools
	10	set exp [explode s]
	11	baddobjects s_1
	12	eval baddtools [lrange $exp 1 end]
	13
	14	# Use gluing Shift option
	15	bglue 1
	16	# Avoid History filling
	17	setfillhistory 0
	18
	19	bfillds
	20	bbop result 1
	21
	22	checkshape result
	23
	24	unifysamedom result result
	25
	26	checkshape result
	27
	28	checkprops result -s 3.81335e+06 -v 1.39597e+08
	29	checknbshapes result -vertex 12042 -edge 18169 -wire 6223 -face 6176 -shell 1 -solid 1 -t
	30
	31	if {![regexp "This shape seems to be OK" [bopcheck result]]} {
	32	puts "Error: result is a self-intersecting shape"
	33	}
	34
	35	checkview -display result -2d -path ${imagedir}/${test_image}.png
	36
	37	boptions -default