OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
Code Packages Releases Activity

0028537: Extend 'Draw' procedure 'checkprops' to specify the relative precision to compare corresponding values

Browse Source 
'Draw' procedure 'checkprops' was extended by an option to set the relative precision to compare corresponding values.
This commit is contained in:
abk 2017-03-13 13:28:32 +03:00 committed by bugmaster
parent 3b6ffeaca7
commit 4d597f3e2f
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
dox/dev_guides/tests/tests.md
View File

@ -1307,6 +1307,7 @@ Allowed options are:
* <i>-s AREA</i> -- command *sprops*, computes the mass properties of all faces with a surface density of 1;
* <i>-v VOLUME</i> -- command *vprops*, computes the mass properties of all solids with a density of 1;
* <i>-eps EPSILON</i> -- the epsilon defines relative precision of computation;
* <i>-deps DEPSILON</i> -- the epsilon defines relative precision to compare corresponding values;
* <i>-equal SHAPE</i> -- compares area, volume and length of input shapes. Puts error if they are not equal;
* <i>-notequal SHAPE</i> -- compares area, volume and length of input shapes. Puts error if they are equal.

7
src/DrawResources/CheckCommands.tcl
View File

@ -501,6 +501,7 @@ help checkprops {
-s AREA: command sprops, computes the mass properties of all faces with a surface density of 1
-v VOLUME: command vprops, computes the mass properties of all solids with a density of 1
-eps EPSILON: the epsilon defines relative precision of computation
-deps DEPSILON: the epsilon defines relative precision to compare corresponding values
-equal SHAPE: compare area\volume\length of input shapes. Puts error if its are not equal
-notequal SHAPE: compare area\volume\length of input shapes. Puts error if its are equal
-skip: count shared shapes only once, skipping repeatitions
@ -524,11 +525,13 @@ proc checkprops {shape args} {
set compared_notequal_shape -1
set equal_check 0
set skip 0
set depsilon 1e-2
set options {{"-eps" epsilon 1}
{"-equal" compared_equal_shape 1}
{"-notequal" compared_notequal_shape 1}
{"-skip" skip 0}}
{"-skip" skip 0}
{"-deps" depsilon 1}}
if { [regexp {\-[not]*equal} $args] } {
lappend options {"-s" area 0}
@ -593,7 +596,7 @@ proc checkprops {shape args} {
puts "The expected $prop is $mass"
}
#check of change of area is < 1%
if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > $depsilon) || ($mass == 0 && $m != 0) } {
puts "Error : The $prop of result shape is $m"
}
} else {