0e94a94e |
1 | |
2 | puts "================" |
3 | puts "BUC61035" |
4 | puts "OCC107" |
5 | puts "================" |
6 | puts "" |
7 | |
8 | restore [locate_data_file OCC107-1.brep] ee |
352ffd73 |
9 | checkshape ee |
0e94a94e |
10 | restore [locate_data_file OCC107-2.brep] ff |
352ffd73 |
11 | checkshape ff |
0e94a94e |
12 | |
13 | distmini dd1 ee ff |
14 | |
15 | mkcurve cc ee |
16 | cvalue cc 0 x y z |
17 | vertex vv x y z |
18 | |
19 | distmini dd2 vv ff |
20 | |
21 | set d1 [dset t dd1_val] |
22 | set d2 [dset t dd2_val] |
23 | |
24 | if { [expr abs([expr $d1 - $d2])] > 0.1} then { |
25 | puts "Faulty :WRONG computation of distances." |
26 | } else { |
27 | puts "All is OK" |
28 | } |
29 | |
30 | |
31 | |