[occt.git] / tests / bugs / modalg_4 / pro18892

puts "=========="
puts "PRO18892"
puts "=========="
# Version de test: K4O, PATCH LEVEL:
#   GEOMETRY-M4-6A : 3 
#   GEOMLITE-M4-6A : 1 
#   TOPOLOGY-M4-6A : 2 

restore [locate_data_file pro18892.rle] a 
checkshape a

explode a
bsection result a_1 a_2
explode result

mkcurve c result_1
cvalue c 1 X Y Z 
vertex v X Y Z
explode a e

distmini d v a_8

set tol [ maxtolerance a_8 ]
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxEdgeTolerance
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxVertexTolerance
regexp {([-0-9.+eE]+)$} [dump d_val] full d

if { [expr $d > $MaxEdgeTolerance] || [expr $d > $MaxVertexTolerance] } {
    puts "Faulty : Result is BAD. Distance is more than MaxTolerance"
}

checkprops result -l 6.46299 
checkshape result 
checksection result
Commit	Line	Data
0e94a94e	1	puts "=========="
	2	puts "PRO18892"
	3	puts "=========="
	4	# Version de test: K4O, PATCH LEVEL:
	5	# GEOMETRY-M4-6A : 3
	6	# GEOMLITE-M4-6A : 1
	7	# TOPOLOGY-M4-6A : 2
	8
	9	restore [locate_data_file pro18892.rle] a
352ffd73	10	checkshape a
0e94a94e	11
0e94a94e	12	explode a
4e57c75e	13	bsection result a_1 a_2
0e94a94e	14	explode result
	15
	16	mkcurve c result_1
	17	cvalue c 1 X Y Z
	18	vertex v X Y Z
	19	explode a e
	20
	21	distmini d v a_8
	22
	23	set tol [ maxtolerance a_8 ]
	24	regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxEdgeTolerance
	25	regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxVertexTolerance
f1aa2b62	26	regexp {([-0-9.+eE]+)$} [dump d_val] full d
0e94a94e	27
	28	if { [expr $d > $MaxEdgeTolerance] \|\| [expr $d > $MaxVertexTolerance] } {
	29	puts "Faulty : Result is BAD. Distance is more than MaxTolerance"
	30	}
	31
58cf74e0	32	checkprops result -l 6.46299
	33	checkshape result
	34	checksection result