Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug12
CommitLineData
0e94a94e 1
2puts "================"
3puts "OCC12"
4puts "================"
5puts ""
6
7restore [locate_data_file OCC12.brep] f
8puts [checkshape f]
9
10mksurface su f
11clpoles su
12emptycopy f1 f
13vertex v 0 -170.63226587036002 82.2373635024
14don su v
15distmini d1 v f1
16if [expr [dval d1_val] > 0.01] {
17 set res "failed"
18 puts "Error : Result is incorrect"
19} else {
20 set res "OK"
21}
22puts "Info: test $res, distance=[dval d1_val]"
23