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

puts "============"
puts "OCC26841"
puts "============"
puts ""
###############################
## Wrong result obtained by intersection algorithm.
###############################

restore [locate_data_file bug26841c3-prism.brep] p3
restore [locate_data_file bug26841c3-deck.brep] a3

bsection result a3 p3 -n2d2

smallview
donly result
fit
display a3 p3


set nbshapes_expected "
Number of shapes in shape
 VERTEX    : 10
 EDGE      : 10
 WIRE      : 0
 FACE      : 0
 SHELL     : 0
 SOLID     : 0
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 21
"

checknbshapes result -ref ${nbshapes_expected} -t -m "SECTION"

regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTolerance
puts "MaxTolerance=$MaxTolerance"

set expected_MaxTolerance 0.00010145423883977269
set tol_abs_MaxTolerance 0.0
set tol_rel_MaxTolerance 0.001
checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}

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"
}

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
47e3009d	1	puts "============"
	2	puts "OCC26841"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## Wrong result obtained by intersection algorithm.
	7	###############################
	8
	9	restore [locate_data_file bug26841c3-prism.brep] p3
	10	restore [locate_data_file bug26841c3-deck.brep] a3
	11
	12	bsection result a3 p3 -n2d2
	13
	14	smallview
	15	donly result
	16	fit
	17	display a3 p3
	18
	19
	20	set nbshapes_expected "
	21	Number of shapes in shape
	22	VERTEX : 10
	23	EDGE : 10
	24	WIRE : 0
	25	FACE : 0
	26	SHELL : 0
	27	SOLID : 0
	28	COMPSOLID : 0
	29	COMPOUND : 1
	30	SHAPE : 21
	31	"
	32
	33	checknbshapes result -ref ${nbshapes_expected} -t -m "SECTION"
	34
	35	regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTolerance
	36	puts "MaxTolerance=$MaxTolerance"
	37
	38	set expected_MaxTolerance 0.00010145423883977269
	39	set tol_abs_MaxTolerance 0.0
	40	set tol_rel_MaxTolerance 0.001
	41	checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
	42
	43	set log [checksection result]
	44
	45	if { [string compare -nocase $log " nb alone Vertices : 0\n\n"] } {
	46	puts "ERROR: the section is not closed"
	47	} else {
	48	puts "The section is OK"
	49	}
	50
5747059b	51	checkview -screenshot -2d -path ${imagedir}/${test_image}.png