[occt.git] / tests / bugs / moddata_1 / bug22194

puts "============"
puts "OCC22194"
puts "============"
puts ""
#######################################################################
# Exception in LocOpe_SplitShape algorithm
#######################################################################

restore [locate_data_file OCC22194-sh.brep] s 
restore [locate_data_file OCC22194-pl.brep] pl 
bsection r s pl
savehistory sec_hist

set sections {}
foreach f [explode s f] {
  if {![regexp "No shapes" [generated g_$f sec_hist $f]]} {
    puts "$f g_$f"
    lappend sections $f g_$f
  }
}

eval splitshape result s $sections

checkprops result -s 24041.4
checknbshapes result -face 352
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC22194"
	3	puts "============"
	4	puts ""
	5	#######################################################################
7b5e532f	6	# Exception in LocOpe_SplitShape algorithm
3bea4c16	7	#######################################################################
3bea4c16	8
3bea4c16	9	restore [locate_data_file OCC22194-sh.brep] s
3bea4c16	10	restore [locate_data_file OCC22194-pl.brep] pl
efac1733	11	bsection r s pl
	12	savehistory sec_hist
	13
	14	set sections {}
	15	foreach f [explode s f] {
	16	if {![regexp "No shapes" [generated g_$f sec_hist $f]]} {
	17	puts "$f g_$f"
	18	lappend sections $f g_$f
	19	}
	20	}
	21
	22	eval splitshape result s $sections
	23
b94d4858	24	checkprops result -s 24041.4
efac1733	25	checknbshapes result -face 352
5747059b	26	checkview -display result -2d -path ${imagedir}/${test_image}.png