mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
f1aa2b6272
Adding procedures checkcolor and checkpoint. Modified test cases which are used QAGetPixelColor or QAAISGetPixelColor2d Allow using command QAAISGetPixelColor2d on WNT Rename test case tests/bugs/vis/bug19619 to pro19619 Added test cases to modalg and moddata
32 lines
891 B
Plaintext
Executable File
32 lines
891 B
Plaintext
Executable File
|
|
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
|