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