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

puts "TODO OCC12345 ALL: Faulty : Result is BAD. Distance is more than MaxTolerance"
puts "TODO OCC12345 ALL: Error : The length of result shape is"

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 
puts [checkshape a]

explode a
bsection result a_1 a_2 -2d -a
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"
}

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