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