bd82d4b2 |
1 | puts "============" |
2 | puts "CR23464" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################################################################## |
6 | # Projection algorithm produces wrong results |
7 | ########################################################################################################## |
8 | |
9 | set int_check 3 |
10 | set fract_check 1415927 |
11 | |
351bbcba |
12 | restore [locate_data_file bug23464_c58.draw] c58 |
13 | restore [locate_data_file bug23464_s46.draw] s46 |
bd82d4b2 |
14 | |
15 | project result c58 s46 |
16 | set info [length result] |
17 | regexp {is +([-0-9.+eE]+)} $info full num |
18 | |
19 | set int_part [expr round($num)] |
20 | set y [expr $num - round($num)] |
21 | set z [expr $y*10000000] |
22 | set fract_part [expr round($z)] |
23 | |
24 | if { ${int_check} != ${int_part} } { |
25 | puts "Error : Integer part of result is incorrect" |
26 | } |
27 | |
28 | if { ${fract_check} != ${fract_part} } { |
29 | puts "Error : Fractional part of result is incorrect" |
30 | } |
31 | |
32 | |
33 | |
34 | |
35 | |