1dbdf099 |
1 | puts "========" |
2 | puts "OCC29857_1" |
3 | puts "========" |
4 | puts "" |
5 | #################################### |
6 | ## Extrema between Point and Curve returns three solutions |
7 | ## (there should be only two), two of these are actually the same |
8 | #################################### |
9 | |
10 | |
11 | restore [locate_data_file bug29857_1.brep] c |
12 | set info [proj c -139.04514104219 128.256108703487 -64.9999999999983] |
13 | |
14 | set pp1 "" |
15 | set pp2 "" |
16 | set pp3 "" |
17 | regexp {ext_1} $info pp1 |
18 | regexp {ext_2} $info pp2 |
19 | regexp {ext_3} $info pp3 |
20 | if { $pp3 != "" } { |
21 | puts "Error : Projection is not correct" |
22 | } |
23 | if { $pp1 != "" && $pp2 != "" } { |
24 | puts "OK: Projection is correct" |
25 | } else { |
26 | puts "Error : Projection is not correct" |
27 | } |