Commit | Line | Data |
---|---|---|
0e94a94e | 1 | |
2 | puts "================" | |
3 | puts "OCC12" | |
4 | puts "================" | |
5 | puts "" | |
6 | ||
7 | restore [locate_data_file OCC12.brep] f | |
352ffd73 | 8 | checkshape f |
0e94a94e | 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 |