Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug107
1
2 puts "================"
3 puts "BUC61035"
4 puts "OCC107"
5 puts "================"
6 puts ""
7
8 restore [locate_data_file OCC107-1.brep] ee 
9 puts [checkshape ee]
10 restore [locate_data_file OCC107-2.brep] ff
11 puts [checkshape ff]
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