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

puts "========"
puts "OCC29488"
puts "========"
puts ""
#################################################
# Regression: boolean operation " general fuse" creates solid containing 5 not connected shells lying on the one level
#################################################

restore [locate_data_file bug29488_shapes.brep] s
eval mkvolume result [lrange [explode s] 1 end] 

checkshape result
checknbshapes result -wire 74 -face 74 -shell 1 -solid 1
checkprops result -s 3073.39 -v 10240.8 

set MinArea 0.001
foreach f [explode result f] {
  regexp {Mass +: +([-0-9.+eE]+)} [sprops $f 1.0e-4] full anArea
  if { $anArea == 0.0 } {
    puts "Error in area computation: it is equal to 0"
  } elseif {$anArea < $MinArea} {
    puts "Error: Too small face has been created (S < $MinArea)"
  }
}

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
8a7476a6	1	puts "========"
	2	puts "OCC29488"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Regression: boolean operation " general fuse" creates solid containing 5 not connected shells lying on the one level
	7	#################################################
	8
	9	restore [locate_data_file bug29488_shapes.brep] s
	10	eval mkvolume result [lrange [explode s] 1 end]
	11
	12	checkshape result
8dc56d0f	13	checknbshapes result -wire 74 -face 74 -shell 1 -solid 1
8a7476a6	14	checkprops result -s 3073.39 -v 10240.8
8a7476a6	15
8dc56d0f	16	set MinArea 0.001
	17	foreach f [explode result f] {
	18	regexp {Mass +: +([-0-9.+eE]+)} [sprops $f 1.0e-4] full anArea
	19	if { $anArea == 0.0 } {
	20	puts "Error in area computation: it is equal to 0"
	21	} elseif {$anArea < $MinArea} {
	22	puts "Error: Too small face has been created (S < $MinArea)"
	23	}
	24	}
	25
8a7476a6	26	checkview -display result -2d -path ${imagedir}/${test_image}.png