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