f1aa2b62 |
1 | |
2 | puts "==========" |
3 | puts "OCC705 " |
4 | puts "==========" |
5 | puts "" |
6 | ########################################################### |
7 | ## The matrix of inertia for sphere computed incorrectly. |
7b5e532f |
8 | ## In the second case the not diagonal elements of the inertia matrix are not close to zero. |
f1aa2b62 |
9 | ########################################################### |
10 | |
11 | psphere result 10 10 10 |
12 | ttranslate result 10 10 10 |
13 | trotate result 0 0 0 0 1 1 34 |
14 | |
15 | set list [vprops result] |
16 | set inertia [regexp -all -inline { +[-0-9.+eE]+ +[-0-9.+eE]+ +[-0-9.+eE]+} $list] |
17 | set matrix [regexp -all -inline {[-0-9.+eE]+} $inertia] |
18 | |
19 | set matrix12 [lindex $matrix 1] |
20 | set matrix21 [lindex $matrix 3] |
21 | set matrix23 [lindex $matrix 5] |
22 | set matrix32 [lindex $matrix 7] |
23 | |
24 | if { ${matrix12} != 0. || ${matrix21} != 0. || ${matrix23} != 0. || ${matrix32} != 0. } { |
25 | puts "Faulty OCC705" |
26 | } else { |
27 | puts "OCC705 OK" |
28 | } |
29 | |
58cf74e0 |
30 | checkprops result -l 123.755 |
31 | checksection result |
5747059b |
32 | checkview -display result -2d -path ${imagedir}/${test_image}.png |