Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug705
1
2 puts "=========="
3 puts "OCC705    "
4 puts "=========="
5 puts ""
6 ###########################################################
7 ## The matrix of inertia for sphere computed incorrectly.
8 ## In the secod case the not diagonal elements of the inertia matrix are not close to zero.
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
30 set length 123.755
31 set 2dviewer 0