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

puts "========"
puts "OCC29580"
puts "========"
puts ""
#################################################
# Regression: invalid result of BOP Fuse
#################################################

restore [locate_data_file bug29580_Cylinder.brep] b1
restore [locate_data_file bug29580_Solid.brep] b2

bfuse result b1 b2

foreach f [explode result f] {
  explode $f w
  foreach w [explode $f w] {
    if {[regexp "A self-intersecting wire" [checkselfintersection $w $f]]} {
      puts "Error: BOP produces a face with self-intersecting wire"
    }
  }
}

checkshape result
checknbshapes result -wire 11 -face 10 -shell 1 -solid 1
checkprops result -s 865.851 -v 1622.17

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
7f3408c8	1	puts "========"
	2	puts "OCC29580"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Regression: invalid result of BOP Fuse
	7	#################################################
	8
	9	restore [locate_data_file bug29580_Cylinder.brep] b1
	10	restore [locate_data_file bug29580_Solid.brep] b2
	11
	12	bfuse result b1 b2
	13
f8163956	14	foreach f [explode result f] {
	15	explode $f w
	16	foreach w [explode $f w] {
	17	if {[regexp "A self-intersecting wire" [checkselfintersection $w $f]]} {
	18	puts "Error: BOP produces a face with self-intersecting wire"
	19	}
	20	}
	21	}
	22
7f3408c8	23	checkshape result
f8163956	24	checknbshapes result -wire 11 -face 10 -shell 1 -solid 1
f8163956	25	checkprops result -s 865.851 -v 1622.17
7f3408c8	26
7f3408c8	27	checkview -display result -2d -path ${imagedir}/${test_image}.png