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

puts "============================================================================================="
puts "0024789: BOPAlgo_Builder produces invalid result on planar, conical and spherical surfaces"
puts "============================================================================================="
puts ""

restore [locate_data_file bug24789.brep] c1
tcopy c1 c2

bclearobjects
bcleartools
eval baddobjects [explode c1]
bfillds
bbuild result1

checkshape result1
checknbshapes result1 -shell 16 -solid 16
checkprops result1 -s 4.91964e+06 -v 6.9691e+08
if {![regexp "This shape seems to be OK" [bopcheck result1]]} {
  puts "Error: GF result is self-interfered shape"
}


mkvolume result c2 -c

checkshape result
checknbshapes result -ref [nbshapes result1]
checkprops result -equal result1
if {![regexp "This shape seems to be OK" [bopcheck result]]} {
  puts "Error: GF result is self-interfered shape"
}

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
cd0705f6	1	puts "============================================================================================="
	2	puts "0024789: BOPAlgo_Builder produces invalid result on planar, conical and spherical surfaces"
	3	puts "============================================================================================="
	4	puts ""
	5
	6	restore [locate_data_file bug24789.brep] c1
	7	tcopy c1 c2
	8
	9	bclearobjects
	10	bcleartools
	11	eval baddobjects [explode c1]
	12	bfillds
	13	bbuild result1
	14
	15	checkshape result1
	16	checknbshapes result1 -shell 16 -solid 16
	17	checkprops result1 -s 4.91964e+06 -v 6.9691e+08
	18	if {![regexp "This shape seems to be OK" [bopcheck result1]]} {
	19	puts "Error: GF result is self-interfered shape"
	20	}
	21
	22
	23	mkvolume result c2 -c
	24
	25	checkshape result
	26	checknbshapes result -ref [nbshapes result1]
	27	checkprops result -equal result1
	28	if {![regexp "This shape seems to be OK" [bopcheck result]]} {
	29	puts "Error: GF result is self-interfered shape"
	30	}
	31
	32	checkview -display result -2d -path ${imagedir}/${test_image}.png