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

puts "========"
puts "OCC29711: General Fuse operation produces invalid result"
puts "========"
puts ""


binrestore [locate_data_file bug29711_faces.bin] cf

bclearobjects
bcleartools
eval baddobjects [explode cf f]
bfillds
bbuild gf

# check each face on self-interference
foreach f [explode gf f] {
  if {![regexp "OK" [bopcheck $f]]} {
    puts "Error: face $f is self-interfering"
  }
}

checkshape gf
checkprops gf -s 1995.07
checknbshapes gf -wire 256 -face 256

# make volumes from the faces
mkvolume result gf -ni

checkshape result
checkprops result -s 1996.57 -v 674.739
checknbshapes result -wire 256 -face 256 -shell 12 -solid 9

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
d3578357	1	puts "========"
	2	puts "OCC29711: General Fuse operation produces invalid result"
	3	puts "========"
	4	puts ""
	5
	6
	7	binrestore [locate_data_file bug29711_faces.bin] cf
	8
	9	bclearobjects
	10	bcleartools
	11	eval baddobjects [explode cf f]
	12	bfillds
	13	bbuild gf
	14
	15	# check each face on self-interference
	16	foreach f [explode gf f] {
	17	if {![regexp "OK" [bopcheck $f]]} {
	18	puts "Error: face $f is self-interfering"
	19	}
	20	}
	21
	22	checkshape gf
	23	checkprops gf -s 1995.07
	24	checknbshapes gf -wire 256 -face 256
	25
	26	# make volumes from the faces
	27	mkvolume result gf -ni
	28
	29	checkshape result
	30	checkprops result -s 1996.57 -v 674.739
	31	checknbshapes result -wire 256 -face 256 -shell 12 -solid 9
	32
	33	checkview -display result -2d -path ${imagedir}/${test_image}.png