Commit | Line | Data |
---|---|---|
61c421bf | 1 | puts "========================" |
2 | puts "OCC663" | |
3 | puts "========================" | |
4 | #### Wrong translation of faces on SurfaceOfRevolution | |
5 | puts "" | |
6 | ||
7 | igesbrep [locate_data_file D44-11325-6.igs] a 2860 | |
8 | ||
9 | set x 62.5015115293408 | |
10 | set y -56.0926450759605 | |
11 | set z -44.3 | |
12 | vertex v $x $y $z | |
13 | ||
14 | distmini d a_1 v | |
15 | ||
16 | set MinDistList [dump d_val] | |
17 | set MinDist [lindex $MinDistList end] | |
18 | ||
19 | if {$MinDist > 1e-7} { | |
20 | puts "Faulty OCC663" | |
21 | } else { | |
22 | puts "OCC663 OK" | |
23 | } |