[occt.git] / tests / bugs / modalg_6 / bug26431_2

puts "============"
puts "OCC26431"
puts "============"
puts ""
###############################
## Can't cut a sphere from a cylinder
###############################

restore [locate_data_file bug26431_Body.brep] b1
restore [locate_data_file bug26431_Sphere.brep] b2

explode b1 f
explode b2 f

bsection result b1_3 b2_1

set log [checksection result]

if { [string compare -nocase $log " nb alone Vertices : 0\n\n"] } {
  puts "ERROR: the section is not closed"
} else {
  puts "The section is OK"
}

smallview
donly result
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
4e14c88f	1	puts "============"
	2	puts "OCC26431"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## Can't cut a sphere from a cylinder
	7	###############################
	8
	9	restore [locate_data_file bug26431_Body.brep] b1
	10	restore [locate_data_file bug26431_Sphere.brep] b2
	11
	12	explode b1 f
	13	explode b2 f
	14
	15	bsection result b1_3 b2_1
	16
	17	set log [checksection result]
	18
	19	if { [string compare -nocase $log " nb alone Vertices : 0\n\n"] } {
	20	puts "ERROR: the section is not closed"
	21	} else {
	22	puts "The section is OK"
	23	}
	24
	25	smallview
	26	donly result
	27	fit
5747059b	28	checkview -screenshot -2d -path ${imagedir}/${test_image}.png