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

puts "============"
puts "OCC27179"
puts "============"
puts ""
###############################
## The algorithm of sharing edges in Boolean operation should be improved
###############################

plane pl 0.195808075898442, -0.229262227170656, 4.05546403129991 0 0 1
psphere s1 pl 0.03101752454
restore [locate_data_file bug27128-Helix_Pipe.brep] s2

settolerance s1 2.0e-6

explode s1 f
explode s2 f

bsection result s1_1 s2_2

smallview
donly s1
fit
donly result

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

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
93e38faa	1	puts "============"
	2	puts "OCC27179"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## The algorithm of sharing edges in Boolean operation should be improved
	7	###############################
	8
	9	plane pl 0.195808075898442, -0.229262227170656, 4.05546403129991 0 0 1
	10	psphere s1 pl 0.03101752454
	11	restore [locate_data_file bug27128-Helix_Pipe.brep] s2
	12
	13	settolerance s1 2.0e-6
	14
	15	explode s1 f
	16	explode s2 f
	17
	18	bsection result s1_1 s2_2
	19
	20	smallview
	21	donly s1
	22	fit
	23	donly result
	24
	25	if { [string compare -nocase [checksection result] " nb alone Vertices : 0\n\n"] } {
	26	puts "ERROR: the section is not closed"
	27	} else {
	28	puts "The section is OK"
	29	}
	30
	31	checkview -screenshot -2d -path ${imagedir}/${test_image}.png