[occt.git] / tests / bugs / moddata / bug705


puts "=========="
puts "OCC705    "
puts "=========="
puts ""
###########################################################
## The matrix of inertia for sphere computed incorrectly.
## In the secod case the not diagonal elements of the inertia matrix are not close to zero.
###########################################################

psphere result 10 10 10
ttranslate result 10 10 10
trotate result 0 0 0 0 1 1 34

set list [vprops result]
set inertia [regexp -all -inline { +[-0-9.+eE]+ +[-0-9.+eE]+ +[-0-9.+eE]+} $list]
set matrix [regexp -all -inline {[-0-9.+eE]+} $inertia]

set matrix12 [lindex $matrix 1]
set matrix21 [lindex $matrix 3]
set matrix23 [lindex $matrix 5]
set matrix32 [lindex $matrix 7]

if { ${matrix12} != 0. || ${matrix21} != 0. || ${matrix23} != 0. || ${matrix32} != 0. } {
    puts "Faulty OCC705"
} else {
    puts "OCC705 OK"
}

set length 123.755
set 2dviewer 0
Commit	Line	Data
f1aa2b62	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