Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug107
CommitLineData
0e94a94e 1
2puts "================"
3puts "BUC61035"
4puts "OCC107"
5puts "================"
6puts ""
7
8restore [locate_data_file OCC107-1.brep] ee
9puts [checkshape ee]
10restore [locate_data_file OCC107-2.brep] ff
11puts [checkshape ff]
12
13distmini dd1 ee ff
14
15mkcurve cc ee
16cvalue cc 0 x y z
17vertex vv x y z
18
19distmini dd2 vv ff
20
21set d1 [dset t dd1_val]
22set d2 [dset t dd2_val]
23
24if { [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