32ca7a51 |
1 | puts "========" |
2 | puts "OCC23706" |
3 | puts "========" |
4 | puts "" |
5 | #################################### |
6 | ## Cannot project point on curve |
7 | #################################### |
8 | |
9 | set x 3.99999999837571056 |
10 | set y 5.0000000000293724 |
11 | set z 5.0000001000463034 |
12 | set pp_ch 0.9999392756740122 |
13 | |
14 | restore [locate_data_file bug23706_c2.draw] c |
15 | set info [proj c $x $y $z] |
16 | |
17 | regexp {parameter 1 += +([-0-9.+eE]+)} $info full pp |
18 | if { $pp != $pp_ch } { |
19 | puts "Error : Projection is not correct" |
20 | } else { |
21 | puts "OK: Projection is correct" |
22 | } |