| 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 | |
| 12 | restore [locate_data_file bug23464_c58.draw] c58 |
| 13 | restore [locate_data_file bug23464_s37.draw] s37 |
| 14 | |
| 15 | project result c58 s37 |
| 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 | |