Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug18892
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
29 regexp {([-0-9.+eE]+)} [dump d_val] full d
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
36 set 3dviewer 2