0e94a94e |
1 | |
2 | puts "================" |
3 | puts "OCC7" |
4 | puts "================" |
5 | puts "" |
6 | ######################################################### |
7 | ## Extrema_ExtPElS throw the exception "gp_VectorWithNullMagnitude". |
8 | ######################################################### |
9 | |
10 | ptorus tor 3 1 |
11 | explode tor f |
12 | vertex vv 0 3 0 |
13 | |
14 | distmini result vv tor_1 |
15 | set info [dump result] |
16 | |
17 | if { [regexp "TShape # 1 : EDGE" $info] != 1 |
18 | || [regexp "TShape # 2 : VERTEX" $info] != 1 |
19 | || [regexp "TShape # 3 : VERTEX" $info] != 1 } { |
20 | puts "Error : Result is incorrect" |
21 | } |
22 | |
23 | set 2dviewer 0 |
24 | |