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

0023150: Command sewing produce incorrect results on test grid csw.

Browse Source 
Test for sewing command were updated to check reference information.

Commands for testing were moved to the file src/DrawResources/CheckCommands.tcl

Documentation overview was updated.
This commit is contained in:
ski 2015-04-15 15:22:50 +03:00 committed by bugmaster
parent 67680042bc
commit 5ae01c8551
787 changed files with 5791 additions and 522 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -988,7 +988,7 @@ This group allows testing extended data exchange packages.
| Visualization | TKService, TKV2d, TKV3d, TKOpenGl, TKMeshVS, TKNIS, TKVoxel | vis |
@subsection testmanual_5_2 Recommended approaches to checking test results
@subsection testmanual_5_3 Recommended approaches to checking test results
@subsubsection testmanual_5_3_1 Shape validity
@ -999,6 +999,36 @@ Example
checkshape result
~~~~~
To check the number of faults in the shape command *checkfaults* can be used.
Use: checkfaults shape source_shape [ref_value=0]
The default syntax of *checkfaults* command:
~~~~~
checkfaults results a_1
~~~~~
The command will check the number of faults in the source shape (*a_1*) and compare it
with number of faults in the resulting shape (*result*). If shape *result* contains
more faults, you will get an error:
~~~~~
checkfaults results a_1
Error : Number of faults is 5
~~~~~
It is possible to set the reference value for comparison (reference value is 4):
~~~~~
checkfaults results a_1 4
~~~~~
If number of faults in the resulting shape is unstable, reference value should be set to "-1".
As a result command *checkfaults* will return the following error:
~~~~~
checkfaults results a_1 -1
Error : Number of faults is UNSTABLE
~~~~~
@subsubsection testmanual_5_3_2 Shape tolerance
The maximal tolerance of sub-shapes of each kind of the resulting shape can be extracted from output of tolerance command as follows:
@ -1009,6 +1039,33 @@ regexp { *EDGE +: +MAX=([-0-9.+eE]+)} $tolerance dummy max_edgee
regexp { *VERTEX +: +MAX=([-0-9.+eE]+)} $tolerance dummy max_vertex
~~~~~
It is possible to use command *checkmaxtol* to check maximal tolerance of shape and compare it with reference value.
Use: checkmaxtol shape ref_value [source_shapes={}] [options...]
Allowed options are:
* -min_tol: minimum tolerance for comparison
* -multi_tol: tolerance multiplier
Argument "source_shapes" is a list of shapes to compare with.
It can be empty to skip comparison of tolerance with these shapes.
The default syntax of *checkmaxtol* command for comparison with the reference value:
~~~~~
checkmaxtol result 0.00001
~~~~~
There is an opportunity to compare max tolerance of resulting shape with max tolerance of source shape.
In the following example command *checkmaxtol* gets max tolerance among objects *a_1* and *a_2*.
Then it chooses the maximum value between founded tolerance and value -min_tol (0.000001)
and multiply it on the coefficient -multi_tol (i.e. 2):
~~~~~
checkmaxtol result 0.00001 {a_1 a_2} -min_tol 0.000001 -multi_tol 2
~~~~~
If the value of maximum tolerance more than founded tolerance for comparison, the command will return an error.
@subsubsection testmanual_5_3_3 Shape volume, area, or length
Use command *vprops, sprops,* or *lprops* to correspondingly measure volume, area, or length of the shape produced by the test. The value can be extracted from the result of the command by *regexp*.
@ -1058,3 +1115,82 @@ vdump $imagedir/${casename}_shading.png
~~~~~
This image will be included in the HTML log produced by *testgrid* command and will be checked for non-regression through comparison of images by command *testdiff*.
@subsubsection testmanual_5_3_6 Number of free edges
To check the number of free edges run the command *checkfreebounds*.
It compares number of free edges with reference value.
Use: checkfreebounds shape ref_value [options...]
Allowed options are:
* -tol N: used tolerance (default -0.01)
* -type N: used type, possible values are "closed" and "opened" (default "closed")
~~~~~
checkfreebounds result 13
~~~~~
Option -tol N is used to set tolerance for command *freebounds*, which is used within command *checkfreebounds*.
Option -type N is used to select the type of counted free edges - closed or opened.
If the number of free edges in the resulting shape is unstable, reference value should be set to "-1".
As a result command *checkfreebounds* will return the following error:
~~~~~
checkfreebounds result -1
Error : Number of free edges is UNSTABLE
~~~~~
@subsubsection testmanual_5_3_7 Compare numbers
Procedure to check equality of two reals with some tolerance (relative and absolute)
Use: checkreal name value expected tol_abs tol_rel
~~~~~
checkreal "Some important value" $value 5 0.0001 0.01
~~~~~
@subsubsection testmanual_5_3_8 Check number of sub-shapes
Compare number of sub-shapes in "shape" with given reference data
Use: checknbshapes shape [options...]
Allowed options are:
* -vertex N
* -edge N
* -wire N
* -face N
* -shell N
* -solid N
* -compsolid N
* -compound N
* -shape N
* -t: compare the number of sub-shapes in "shape" counting
the same sub-shapes with different location as different sub-shapes.
* -m msg: print "msg" in case of error
~~~~~
checknbshapes result -vertex 8 -edge 4
~~~~~
@subsubsection testmanual_5_3_9 Check pixel color
To check pixel color command *checkcolor* can be used.
Use: checkcolor x y red green blue
x y - pixel coordinates
red green blue - expected pixel color (values from 0 to 1)
This procedure checks color with tolerance (5x5 area)
Next example will compare color of point with coordinates x=100 y=100 with RGB color R=1 G=0 B=0.
If colors are not equal, procedure will check the nearest ones points (5x5 area)
~~~~~
checkcolor 100 100 1 0 0
~~~~~

437
src/DrawResources/CheckCommands.tcl Normal file
View File

@ -0,0 +1,437 @@
# Copyright (c) 2013-2014 OPEN CASCADE SAS
#
# This file is part of Open CASCADE Technology software library.
#
# This library is free software; you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License version 2.1 as published
# by the Free Software Foundation, with special exception defined in the file
# OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
# distribution for complete text of the license and disclaimer of any warranty.
#
# Alternatively, this file may be used under the terms of Open CASCADE
# commercial license or contractual agreement.
############################################################################
# This file defines scripts for verification of OCCT tests.
# It provides top-level commands starting with 'check'.
# Type 'help check*' to get their synopsys.
# See OCCT Tests User Guide for description of the test system.
#
# Note: procedures with names starting with underscore are for internal use
# inside the test system.
############################################################################
help checkcolor {
Check pixel color.
Use: checkcolor x y red green blue
x y - pixel coordinates
red green blue - expected pixel color (values from 0 to 1)
Function check color with tolerance (5x5 area)
}
# Procedure to check color using command vreadpixel with tolerance
proc checkcolor { coord_x coord_y rd_get gr_get bl_get } {
puts "Coordinate x = $coord_x"
puts "Coordinate y = $coord_y"
puts "RED color of RGB is $rd_get"
puts "GREEN color of RGB is $gr_get"
puts "BLUE color of RGB is $bl_get"
if { $coord_x <= 1 || $coord_y <= 1 } {
puts "Error : minimal coordinate is x = 2, y = 2. But we have x = $coord_x y = $coord_y"
return -1
}
set color ""
catch { [set color "[vreadpixel ${coord_x} ${coord_y} rgb]"] }
if {"$color" == ""} {
puts "Error : Pixel coordinates (${position_x}; ${position_y}) are out of view"
}
set rd [lindex $color 0]
set gr [lindex $color 1]
set bl [lindex $color 2]
set rd_int [expr int($rd * 1.e+05)]
set gr_int [expr int($gr * 1.e+05)]
set bl_int [expr int($bl * 1.e+05)]
set rd_ch [expr int($rd_get * 1.e+05)]
set gr_ch [expr int($gr_get * 1.e+05)]
set bl_ch [expr int($bl_get * 1.e+05)]
if { $rd_ch != 0 } {
set tol_rd [expr abs($rd_ch - $rd_int)/$rd_ch]
} else {
set tol_rd $rd_int
}
if { $gr_ch != 0 } {
set tol_gr [expr abs($gr_ch - $gr_int)/$gr_ch]
} else {
set tol_gr $gr_int
}
if { $bl_ch != 0 } {
set tol_bl [expr abs($bl_ch - $bl_int)/$bl_ch]
} else {
set tol_bl $bl_int
}
set status 0
if { $tol_rd > 0.2 } {
puts "Warning : RED light of additive color model RGB is invalid"
set status 1
}
if { $tol_gr > 0.2 } {
puts "Warning : GREEN light of additive color model RGB is invalid"
set status 1
}
if { $tol_bl > 0.2 } {
puts "Warning : BLUE light of additive color model RGB is invalid"
set status 1
}
if { $status != 0 } {
puts "Warning : Colors of default coordinate are not equal"
}
global stat
if { $tol_rd > 0.2 || $tol_gr > 0.2 || $tol_bl > 0.2 } {
set info [_checkpoint $coord_x $coord_y $rd_ch $gr_ch $bl_ch]
set stat [lindex $info end]
if { ${stat} != 1 } {
puts "Error : Colors are not equal in default coordinate and in the near coordinates too"
return $stat
} else {
puts "Point with valid color was found"
return $stat
}
} else {
set stat 1
}
}
# Procedure to check color in the point near default coordinate
proc _checkpoint {coord_x coord_y rd_ch gr_ch bl_ch} {
set x_start [expr ${coord_x} - 2]
set y_start [expr ${coord_y} - 2]
set mistake 0
set i 0
while { $mistake != 1 && $i <= 5 } {
set j 0
while { $mistake != 1 && $j <= 5 } {
set position_x [expr ${x_start} + $j]
set position_y [expr ${y_start} + $i]
puts $position_x
puts $position_y
set color ""
catch { [set color "[vreadpixel ${position_x} ${position_y} rgb]"] }
if {"$color" == ""} {
puts "Warning : Pixel coordinates (${position_x}; ${position_y}) are out of view"
incr j
continue
}
set rd [lindex $color 0]
set gr [lindex $color 1]
set bl [lindex $color 2]
set rd_int [expr int($rd * 1.e+05)]
set gr_int [expr int($gr * 1.e+05)]
set bl_int [expr int($bl * 1.e+05)]
if { $rd_ch != 0 } {
set tol_rd [expr abs($rd_ch - $rd_int)/$rd_ch]
} else {
set tol_rd $rd_int
}
if { $gr_ch != 0 } {
set tol_gr [expr abs($gr_ch - $gr_int)/$gr_ch]
} else {
set tol_gr $gr_int
}
if { $bl_ch != 0 } {
set tol_bl [expr abs($bl_ch - $bl_int)/$bl_ch]
} else {
set tol_bl $bl_int
}
if { $tol_rd > 0.2 || $tol_gr > 0.2 || $tol_bl > 0.2 } {
puts "Warning : Point with true color was not found near default coordinates"
set mistake 0
} else {
set mistake 1
}
incr j
}
incr i
}
return $mistake
}
# auxiliary: check argument
proc _check_arg {check_name check_result {get_value 0}} {
upvar ${check_result} ${check_result}
upvar arg arg
upvar narg narg
upvar args args
if { $arg == ${check_name} } {
if {${get_value}} {
incr narg
if { $narg < [llength $args] && ! [regexp {^-} [lindex $args $narg]] } {
set ${check_result} "[lindex $args $narg]"
} else {
error "Option ${check_result} requires argument"
}
} else {
set ${check_result} 1
}
return 1
}
return 0
}
help checknbshapes {
Compare number of sub-shapes in "shape" with given reference data
Use: checknbshapes shape [options...]
Allowed options are:
-vertex N
-edge N
-wire N
-face N
-shell N
-solid N
-compsolid N
-compound N
-shape N
-t: compare the number of sub-shapes in "shape" counting
the same sub-shapes with different location as different sub-shapes.
-m msg: print "msg" in case of error
-ref [nbshapes a]: compare the number of sub-shapes in "shape" and in "a".
-vertex N, -edge N and other options are stil working.
}
proc checknbshapes {shape args} {
puts "checknbshapes ${shape} ${args}"
upvar ${shape} ${shape}
set nbVERTEX -1
set nbEDGE -1
set nbWIRE -1
set nbFACE -1
set nbSHELL -1
set nbSOLID -1
set nbCOMPSOLID -1
set nbCOMPOUND -1
set nbSHAPE -1
set message ""
set count_locations 0
set ref_info ""
for {set narg 0} {$narg < [llength $args]} {incr narg} {
set arg [lindex $args $narg]
if {[_check_arg "-vertex" nbVERTEX 1] ||
[_check_arg "-edge" nbEDGE 1] ||
[_check_arg "-wire" nbWIRE 1] ||
[_check_arg "-face" nbFACE 1] ||
[_check_arg "-shell" nbSHELL 1] ||
[_check_arg "-solid" nbSOLID 1] ||
[_check_arg "-compsolid" nbCOMPSOLID 1] ||
[_check_arg "-compound" nbCOMPOUND 1] ||
[_check_arg "-shape" nbSHAPE 1] ||
[_check_arg "-t" count_locations] ||
[_check_arg "-m" message 1] ||
[_check_arg "-ref" ref_info 1]
} {
continue
}
# unsupported option
if { [regexp {^-} $arg] } {
error "Error: unsupported option \"$arg\""
}
error "Error: cannot interpret argument $narg ($arg)"
}
if { ${count_locations} == 0 } {
set nb_info [nbshapes ${shape}]
} else {
set nb_info [nbshapes ${shape} -t]
}
set EntityList {VERTEX EDGE WIRE FACE SHELL SOLID COMPSOLID COMPOUND SHAPE}
foreach Entity ${EntityList} {
set expr_string "${Entity} +: +(\[-0-9.+eE\]+)"
set to_compare {}
# get number of elements from ${shape}
if { [regexp "${expr_string}" ${nb_info} full nb_entity2] } {
lappend to_compare ${nb_entity2}
} else {
error "Error : command \"nbshapes ${shape}\" gives an empty result"
}
# get number of elements from options -vertex -edge and so on
set nb_entity1 [set nb${Entity}]
if { ${nb_entity1} != -1 } {
lappend to_compare ${nb_entity1}
}
# get number of elements from option -ref
if { [regexp "${expr_string}" ${ref_info} full nb_entity_ref] } {
lappend to_compare ${nb_entity_ref}
}
# skip comparing if no reference data was given
if {[llength $to_compare] == 1} {
continue
}
# compare all values, if they are equal, length of sorted list "to_compare"
# (with key -unique) should be equal to 1
set to_compare [lsort -dictionary -unique $to_compare]
if { [llength $to_compare] != 1 } {
puts "Error : ${message} is WRONG because number of ${Entity} entities in shape \"${shape}\" is ${nb_entity2}"
} else {
puts "OK : ${message} is GOOD because number of ${Entity} entities is equal to number of expected ${Entity} entities"
}
}
}
# Procedure to check equality of two reals with tolerance (relative and absolute)
help checkreal {
Compare value with expected
Use: checkreal name value expected tol_abs tol_rel
}
proc checkreal {name value expected tol_abs tol_rel} {
if { abs ($value - $expected) > $tol_abs + $tol_rel * abs ($expected) } {
puts "Error: $name = $value is not equal to expected $expected"
} else {
puts "Check of $name OK: value = $value, expected = $expected"
}
return
}
help checkfreebounds {
Compare number of free edges with ref_value
Use: checkfreebounds shape ref_value [options...]
Allowed options are:
-tol N: used tolerance (default -0.01)
-type N: used type, possible values are "closed" and "opened" (default "closed")
}
proc checkfreebounds {shape ref_value args} {
puts "checkfreebounds ${shape} ${ref_value} ${args}"
upvar ${shape} ${shape}
set tol -0.01
set type "closed"
for {set narg 0} {$narg < [llength $args]} {incr narg} {
set arg [lindex $args $narg]
if {[_check_arg "-tol" tol 1] ||
[_check_arg "-type" type 1]
} {
continue
}
# unsupported option
if { [regexp {^-} $arg] } {
error "Error: unsupported option \"$arg\""
}
error "Error: cannot interpret argument $narg ($arg)"
}
if {"$type" != "closed" && "$type" != "opened"} {
error "Error : wrong -type key \"${type}\""
}
freebounds ${shape} ${tol}
set free_edges [llength [explode ${shape}_[string range $type 0 0] e]]
if { ${ref_value} == -1 } {
puts "Error : Number of free edges is UNSTABLE"
return
}
if { ${free_edges} != ${ref_value} } {
puts "Error : Number of free edges is not equal to reference data"
} else {
puts "OK : Number of free edges is ${free_edges}"
}
}
help checkmaxtol {
Compare max tolerance of shape with ref_value.
Argument "source_shapes" is a list of used for sewing shapes.
It can be empty to skip comparison of tolerance with source shapes.
Use: checkmaxtol shape ref_value [source_shapes={}] [options...]
Allowed options are:
-min_tol: minimum tolerance for comparison
-multi_tol: tolerance multiplier
}
proc checkmaxtol {shape ref_value {source_shapes {}} args} {
puts "checkmaxtol ${shape} ${ref_value} ${source_shapes} ${args}"
upvar ${shape} ${shape}
set min_tol 0
set tol_multiplier 0
for {set narg 0} {$narg < [llength $args]} {incr narg} {
set arg [lindex $args $narg]
if {[_check_arg "-min_tol" min_tol 1] ||
[_check_arg "-multi_tol" tol_multiplier 1]
} {
continue
}
# unsupported option
if { [regexp {^-} $arg] } {
error "Error: unsupported option \"$arg\""
}
error "Error: cannot interpret argument $narg ($arg)"
}
# get max tol of shape
regexp {max tol = ([-0-9.+eE]+)} [tolmax ${shape}] full max_tol
checkreal "Max tolerance" $max_tol $ref_value 0.0001 0.01
if {[llength $source_shapes]} {
# find max tol of source shapes
foreach source_shape $source_shapes {
upvar ${source_shape} ${source_shape}
regexp {max tol = ([-0-9.+eE]+)} [tolmax $source_shape] full _src_max_tol
if { ${_src_max_tol} > ${min_tol} } {
set min_tol ${_src_max_tol}
}
}
if {${tol_multiplier}} {
set min_tol [expr ${tol_multiplier} * ${_src_max_tol}]
}
# compare max tol of source shapes with max tol of sewing_result
if { ${max_tol} > ${min_tol} } {
puts "Error: tolerance of \"${shape}\" (${max_tol}) is greater than max tolerance of source shapes (${min_tol})"
}
}
}
help checkfaults {
Compare faults number of given shapes.
Use: checkfaults shape source_shape [ref_value=0]
}
proc checkfaults {shape source_shape {ref_value 0}} {
puts "checkfaults ${shape} ${source_shape} ${ref_value}"
upvar $shape $shape
upvar $source_shape $source_shape
set cs_a [checkshape $source_shape]
set nb_a 0
if {[regexp {Faulty shapes in variables faulty_([0-9]*) to faulty_([0-9]*)} $cs_a full nb_a_begin nb_a_end]} {
set nb_a [expr $nb_a_end - $nb_a_begin +1]
}
set cs_r [checkshape $shape]
set nb_r 0
if {[regexp {Faulty shapes in variables faulty_([0-9]*) to faulty_([0-9]*)} $cs_r full nb_r_begin nb_r_end]} {
set nb_r [expr $nb_r_end - $nb_r_begin +1]
}
puts "Number of faults for the initial shape is $nb_a."
puts "Number of faults for the resulting shape is $nb_r."
if { ${ref_value} == -1 } {
puts "Error : Number of faults is UNSTABLE"
return
}
if { $nb_r > $nb_a } {
puts "Error : Number of faults is $nb_r"
}
}

2
src/DrawResources/DrawDefault
View File

@ -36,7 +36,7 @@ if { [info exists env(DRAWHOME) ] } {
# load standard DRAW scripts
if { [file isdirectory $dir] } {
foreach script {StandardCommands.tcl Geometry.tcl StandardViews.tcl TestCommands.tcl} {
foreach script {StandardCommands.tcl Geometry.tcl StandardViews.tcl TestCommands.tcl CheckCommands.tcl} {
if [file exist [file join $dir $script]] {
source [file join $dir $script]
} else {

39
tests/bugs/begin
View File

@ -1,4 +1,5 @@
# File : begin
if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
pload TOPTEST
pload VISUALIZATION
@ -25,17 +26,6 @@ if { [info exists test_image] == 0 } {
set test_image photo
}
# Procedure to check equality of two reals with tolerance (relative and absolute)
help checkreal {name value expected tol_abs tol_rel}
proc checkreal {name value expected tol_abs tol_rel} {
if { abs ($value - $expected) > $tol_abs + $tol_rel * abs ($expected) } {
puts "Error: $name = $value is not equal to expected $expected"
} else {
puts "Check of $name OK: value = $value, expected = $expected"
}
return
}
# Procedure to check equality of two reals with tolerance (relative and absolute)
help checkarea {shape area_expected tol_abs tol_rel}
proc checkarea {shape area_expected tol_abs tol_rel} {
@ -156,30 +146,3 @@ proc checktime {value expected tol_rel message} {
puts "Improvement. ${message}, ${value} seconds, is less than expected time - ${expected} seconds"
}
}
# Procedure to check result of nbshapes command
proc checknbshapes { res nbshapes_expected_s count_locations message} {
upvar $res shape
if { ${count_locations} == 0 } {
set nb_info [nbshapes shape]
} else {
set nb_info [nbshapes shape -t]
}
set EntityList {VERTEX EDGE WIRE FACE SHELL SOLID COMPSOLID COMPOUND SHAPE}
puts "Checking $message"
foreach Entity ${EntityList} {
set expr_string "${Entity} +: +(\[-0-9.+eE\]+)"
if { [regexp "${expr_string}" ${nbshapes_expected_s} full nb_entity1] > 0 } {
if { [regexp "${expr_string}" ${nb_info} full nb_entity2] > 0 } {
if { ${nb_entity2} != ${nb_entity1} } {
puts "Error: number of ${Entity} entities is wrong: ${nb_entity2} while ${nb_entity1} is expected"
} else {
puts "OK: number of ${Entity} entities is as expected: ${nb_entity2}"
}
}
}
}
}

2
tests/bugs/iges/bug25816
View File

@ -14,4 +14,4 @@ brepiges s ${imagedir}/${casename}.igs
# read back and check similarity
igesbrep ${imagedir}/${casename}.igs a *
checknbshapes a [nbshapes s] t "Number of sub-shapes in result after saving to IGES and reading back"
checknbshapes a -vertex 1 -edge 1 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 3 -t -m "Number of sub-shapes in result after saving to IGES and reading back"

7
tests/bugs/iges/bug306
View File

@ -28,7 +28,8 @@ if { ($tri != 6409 || $nod != 6195) } {
puts "Shading problem may be, nb tri & nod"
}
checkmaxtol result 0.00061050555357809982
checknbshapes result -shell 1
checkfreebounds result 265
set 3dviewer 1

5
tests/bugs/modalg_1/buc60523
View File

@ -6,6 +6,11 @@ puts "========================"
restore [locate_data_file buc60523a.brep] a
checkshape a
sewing result 1.e-7 a
checkmaxtol result 0.0010002000000000001
checknbshapes result -shell 1
checkfreebounds result 2
set square 156.919
set 2dviewer 0

6
tests/bugs/modalg_1/buc60905
View File

@ -19,6 +19,10 @@ vinit
vdisplay result
# checkshape res
checkmaxtol result 0.0022960682613350899
checknbshapes result -shell 2
checkfreebounds result 115
set square 270868
set 3dviewer 0

4
tests/bugs/modalg_2/bug22500
View File

@ -14,5 +14,9 @@ if { [catch {sewing result 0.01 a} catch_result] } {
puts "Faulty ${BugNumber} : function Sewing works wrongly"
}
checkmaxtol result 4.3455205172376901e-006
checknbshapes result -shell 1
checkfreebounds result 28
set square 0.0363594
set 3dviewer 0

5
tests/bugs/modalg_2/bug22717
View File

@ -17,6 +17,11 @@ if [catch {sewing result 0.019 shape_8h} catch_result] {
} else {
checkshape result f
}
checkmaxtol result 0.99457631799307555
checknbshapes result -shell 1
checkfreebounds result 13
set square 16490.5
set 3dviewer 0

5
tests/bugs/modalg_2/bug22765
View File

@ -12,5 +12,10 @@ restore [locate_data_file OCC22765.brep] a
sewing result 0.1 a
checkshape result f
checkmaxtol result 2.0000280013370992e-005
checknbshapes result -shell 1
checkfreebounds result 456
set square 0.0141287
set 3dviewer 1

5
tests/bugs/modalg_2/bug22770_1
View File

@ -36,5 +36,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 6
set 3dviewer 0
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 0
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_10
View File

@ -24,4 +24,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1761
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 10
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_11
View File

@ -24,4 +24,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1759
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 6
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_12
View File

@ -24,4 +24,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 2871
checkmaxtol result 0.000126867229511314
checknbshapes result -shell 22
checkfreebounds result 1031
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_13
View File

@ -40,4 +40,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 2133
checkmaxtol result 0.000126867229511314
checknbshapes result -shell 18
checkfreebounds result 927
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_14
View File

@ -24,4 +24,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 3476
checkmaxtol result 0.00077119287499509003
checknbshapes result -shell 0
checkfreebounds result 1469
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_15
View File

@ -40,4 +40,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 2133
checkmaxtol result 0.000126867229511314
checknbshapes result -shell 18
checkfreebounds result 927
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_16
View File

@ -28,4 +28,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 6
checkmaxtol result 0
checknbshapes result -shell 0
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_17
View File

@ -28,4 +28,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 7
checkmaxtol result 0
checknbshapes result -shell 0
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_18
View File

@ -27,4 +27,8 @@ set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 13
checkmaxtol result 1.5
checknbshapes result -shell 1
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_19
View File

@ -27,4 +27,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 21
checkmaxtol result 0
checknbshapes result -shell 0
checkfreebounds result 8
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_2
View File

@ -36,4 +36,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 7
checkmaxtol result 0
checknbshapes result -shell 0
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_20
View File

@ -27,4 +27,8 @@ set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 13
checkmaxtol result 1.5
checknbshapes result -shell 1
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_21
View File

@ -27,4 +27,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 29
checkmaxtol result 0
checknbshapes result -shell 1
checkfreebounds result 10
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_22
View File

@ -27,4 +27,8 @@ set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 25
checkmaxtol result 1.9999999999999999e-007
checknbshapes result -shell 1
checkfreebounds result 6
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_23
View File

@ -25,4 +25,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1756
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_24
View File

@ -27,4 +27,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1759
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_25
View File

@ -27,4 +27,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1761
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 4
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_26
View File

@ -27,4 +27,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1759
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_27
View File

@ -25,4 +25,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1762
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 9
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_28
View File

@ -25,4 +25,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1756
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_29
View File

@ -25,4 +25,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 3476
checkmaxtol result 0.00077119287499509003
checknbshapes result -shell 0
checkfreebounds result 1469
set 3dviewer 0

5
tests/bugs/modalg_2/bug22770_3
View File

@ -33,5 +33,8 @@ set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 13
set 3dviewer 0
checkmaxtol result 1.5
checknbshapes result -shell 1
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_30
View File

@ -25,4 +25,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1756
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_4
View File

@ -25,4 +25,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 21
checkmaxtol result 0
checknbshapes result -shell 0
checkfreebounds result 8
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_5
View File

@ -25,4 +25,8 @@ set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 13
checkmaxtol result 1.5
checknbshapes result -shell 1
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_6
View File

@ -25,4 +25,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 29
checkmaxtol result 0
checknbshapes result -shell 1
checkfreebounds result 10
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_7
View File

@ -25,4 +25,8 @@ set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 25
checkmaxtol result 1.9999999999999999e-007
checknbshapes result -shell 1
checkfreebounds result 6
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_8
View File

@ -26,4 +26,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1761
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 6
set 3dviewer 0

4
tests/bugs/modalg_2/bug22770_9
View File

@ -24,4 +24,8 @@ set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 1759
checkmaxtol result 0.002196807453775285
checknbshapes result -shell 2
checkfreebounds result 6
set 3dviewer 0

5
tests/bugs/modalg_2/bug22804
View File

@ -53,6 +53,9 @@ if { ${IsOk} == 0 } {
puts "${BugNumber}: OK"
}
checkmaxtol result 2279.641703013865
checknbshapes result -shell 1
checkfreebounds result 5
set square 1.22542e+09
set 2dviewer 0

4
tests/bugs/modalg_2/bug22881
View File

@ -24,4 +24,8 @@ set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 19
checkmaxtol result 2.5976619580820199e-005
checknbshapes result -shell 1
checkfreebounds result 0
set 3dviewer 0

4
tests/bugs/modalg_2/bug322
View File

@ -24,6 +24,10 @@ set y_coord 232
checkcolor $x_coord $y_coord 1 1 0
checkmaxtol result 2.0002007833605686e-007
checknbshapes result -shell 1
checkfreebounds result 6
set square 20000
set only_screen 1

4
tests/bugs/modalg_4/bug714
View File

@ -31,6 +31,10 @@ if { $ve1 != $ve2 || $ed1 != $ed2 || $we1 != $we2} {
puts "OK OCC714: SEWING operation was made PROPERLY"
}
checkmaxtol result 0.00016588397833094108
checknbshapes result -shell 1
checkfreebounds result 0
set square 12917.1
set 2dviewer 0

4
tests/bugs/modalg_5/bug22747
View File

@ -29,5 +29,9 @@ if { [regexp "Progress:" $List2] != 1 } {
puts "Mode +t works properly"
}
checkmaxtol result 2.0000280013370992e-005
checknbshapes result -shell 1
checkfreebounds result 456
set 2dviewer 0

21
tests/bugs/modalg_5/bug23375_1
View File

@ -13,24 +13,9 @@ restore [locate_data_file bug23375_Volute1.brep] v
explode v
sewing result 0.01 v_1 v_2
# 1
checkshape result
# 2
set tolmaxres [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
set CMP_TOL 1.e-4
if { ${MaxTolerance} > ${CMP_TOL} } {
puts "Error: invalid tolerance"
}
# 3
freebounds $result -0.01
set s [explode result_c e]
puts $s
set index [ llength $s ]
if { $index != 8 } {
puts "Error : Number of free edges is $index"
}
checkmaxtol result 3.1397023587080346e-005 {v_1 v_2} -min_tol 1.e-4
checknbshapes result -shell 1
checkfreebounds result 8
set 2dviewer 1

19
tests/bugs/modalg_5/bug24036
View File

@ -14,21 +14,8 @@ explode v
sewing result 0.00001 v_1 v_2
checkshape result
set tolmaxres [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
set CMP_TOL 1.e-4
if { ${MaxTolerance} > ${CMP_TOL} } {
puts "Error: invalid tolerance"
}
freebounds $result 0
set s [explode result_c e]
set index [ llength $s ]
puts "Number of free edges is $index"
if { $index != 2 } {
puts "Error : Number of free edges is $index"
}
checkmaxtol result 2.0000004260026293e-007 {v_1 v_2} -min_tol 1.e-4
checknbshapes result -shell 1
checkfreebounds result 2
set 2dviewer 1

32
tests/bugs/modalg_5/bug24174_1
View File

@ -13,35 +13,9 @@ restore [locate_data_file bug24174_Comp1.brep] a
explode a
sewing result 0.1 a_1 a_2
# 0
set log_1 [tolmax a_1]
regexp {max tol = ([-0-9.+eE]+)} ${log_1} full MaxTolerance_a_1
set log_2 [tolmax a_2]
regexp {max tol = ([-0-9.+eE]+)} ${log_2} full MaxTolerance_a_2
set CMP_TOL ${MaxTolerance_a_1}
if { ${MaxTolerance_a_2} > ${CMP_TOL} } {
set CMP_TOL ${MaxTolerance_a_2}
}
# 1
checkshape result
# 2
set log_3 [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} ${log_3} full MaxTolerance_result
if { ${MaxTolerance_result} > ${CMP_TOL} } {
puts "Error: invalid tolerance"
}
# 3
freebounds ${result} 0
set s [explode result_c e]
set Number [ llength ${s} ]
puts "Number of free edges is ${Number}"
set Number_Free_Edges 12
if { ${Number} != ${Number_Free_Edges} } {
puts "Error : Number of free edges is ${Number}"
}
checkmaxtol result 8.2074631917183755e-005 {a_1 a_2}
checknbshapes result -shell 1
checkfreebounds result 12
set 2dviewer 1

27
tests/bugs/modalg_5/bug24174_2
View File

@ -12,30 +12,9 @@ restore [locate_data_file bug24174_stitch.brep] a
sewing result 0.1 a
# 0
set log_1 [tolmax a]
regexp {max tol = ([-0-9.+eE]+)} ${log_1} full MaxTolerance_a
set CMP_TOL ${MaxTolerance_a}
# 1
checkshape result
# 2
set log_2 [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} ${log_2} full MaxTolerance_result
if { ${MaxTolerance_result} > ${CMP_TOL} } {
puts "Error: invalid tolerance"
}
# 3
freebounds $result 0
set s [explode result_c e]
set Number [ llength ${s} ]
puts "Number of free edges is ${Number}"
set Number_Free_Edges 9
if { ${Number} != ${Number_Free_Edges} } {
puts "Error : Number of free edges is ${Number}"
}
checkmaxtol result 0.58022137281123598 {a}
checknbshapes result -shell 1
checkfreebounds result 9
set 2dviewer 1

25
tests/bugs/modalg_5/bug24390_1
View File

@ -18,27 +18,8 @@ restore [locate_data_file bug24390_face_5.brep] f6
sewing result f1 f2 f3 f4 f5 f6
checkshape result
set tolmax_f [tolmax f1]
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full CMP_TOL
set face_list {f2 f3 f4 f5 f6}
foreach f ${face_list} {
set tolmax_f [tolmax ${f}]
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full FaceMaxTolerance
if { ${FaceMaxTolerance} > ${CMP_TOL} } {
set CMP_TOL ${FaceMaxTolerance}
}
}
set CMP_TOL [expr 5. * ${CMP_TOL}]
puts "CMP_TOL=${CMP_TOL}"
set tolmaxres [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} ${tolmaxres} full MaxTolerance
puts "MaxTolerance=${MaxTolerance}"
if { ${MaxTolerance} > ${CMP_TOL} } {
puts "Error: invalid tolerance"
}
checkmaxtol result 6.1606205182399194e-005 {f1 f2 f3 f4 f5 f6} -min_tol 0 -multi_tol 5.
checknbshapes result -shell 1
checkfreebounds result 0
set 2dviewer 1

25
tests/bugs/modalg_5/bug24390_2
View File

@ -14,27 +14,8 @@ restore [locate_data_file bug24390_face2.brep] f2
sewing result f1 f2
checkshape result
set tolmax_f [tolmax f1]
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full CMP_TOL
set face_list {f2}
foreach f ${face_list} {
set tolmax_f [tolmax ${f}]
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full FaceMaxTolerance
if { ${FaceMaxTolerance} > ${CMP_TOL} } {
set CMP_TOL ${FaceMaxTolerance}
}
}
set CMP_TOL [expr 5. * ${CMP_TOL}]
puts "CMP_TOL=${CMP_TOL}"
set tolmaxres [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} ${tolmaxres} full MaxTolerance
puts "MaxTolerance=${MaxTolerance}"
if { ${MaxTolerance} > ${CMP_TOL} } {
puts "Error: invalid tolerance"
}
checkmaxtol result 0.028334611098393123 {f1 f2} -min_tol 0 -multi_tol 5.
checknbshapes result -shell 1
checkfreebounds result 6
set 2dviewer 1

14
tests/bugs/modalg_5/bug24646_1
View File

@ -16,18 +16,6 @@ bopcheck result
set square 8.76332e+06
set nbshapes_expected "
Number of shapes in shape
VERTEX : 88
EDGE : 180
WIRE : 86
FACE : 86
SHELL : 1
SOLID : 1
COMPSOLID : 0
COMPOUND : 1
SHAPE : 443
"
checknbshapes result ${nbshapes_expected} 1 "Result done by Boolean Operation algorithm"
checknbshapes result -vertex 88 -edge 180 -wire 86 -face 86 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 443 -t -m "Result done by Boolean Operation algorithm"
set 2dviewer 1

14
tests/bugs/modalg_5/bug24646_2
View File

@ -14,18 +14,6 @@ bopfuse result
set square 3.05204e+06
set nbshapes_expected "
Number of shapes in shape
VERTEX : 22
EDGE : 36
WIRE : 17
FACE : 14
SHELL : 1
SOLID : 1
COMPSOLID : 0
COMPOUND : 1
SHAPE : 92
"
checknbshapes result ${nbshapes_expected} 1 "Result done by Boolean Operation algorithm"
checknbshapes result -vertex 22 -edge 36 -wire 17 -face 14 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 92 -t -m "Result done by Boolean Operation algorithm"
set 2dviewer 1

14
tests/bugs/modalg_5/bug24646_3
View File

@ -22,18 +22,6 @@ bbuild result
set square 8.82625e+06
set nbshapes_expected "
Number of shapes in shape
VERTEX : 88
EDGE : 180
WIRE : 88
FACE : 88
SHELL : 2
SOLID : 2
COMPSOLID : 0
COMPOUND : 1
SHAPE : 449
"
checknbshapes result ${nbshapes_expected} 1 "Result done by Boolean Operation algorithm"
checknbshapes result -vertex 88 -edge 180 -wire 88 -face 88 -shell 2 -solid 2 -compsolid 0 -compound 1 -shape 449 -t -m "Result done by Boolean Operation algorithm"
set 2dviewer 1

14
tests/bugs/modalg_5/bug24646_4
View File

@ -22,18 +22,6 @@ bbuild result
set square 3.1449e+06
set nbshapes_expected "
Number of shapes in shape
VERTEX : 22
EDGE : 38
WIRE : 20
FACE : 18
SHELL : 3
SOLID : 3
COMPSOLID : 0
COMPOUND : 1
SHAPE : 105
"
checknbshapes result ${nbshapes_expected} 1 "Result done by Boolean Operation algorithm"
checknbshapes result -vertex 22 -edge 38 -wire 20 -face 18 -shell 3 -solid 3 -compsolid 0 -compound 1 -shape 105 -t -m "Result done by Boolean Operation algorithm"
set 2dviewer 1

8
tests/bugs/modalg_5/bug24817
View File

@ -131,3 +131,11 @@ if { ${square2} != ${square2_good} } {
donly sr2
fit
xwd $imagedir/${test_image}_2.png
checkmaxtol sr1 2.0000000024492936e-007
checknbshapes sr1 -shell 1
checkfreebounds sr1 2
checkmaxtol sr2 3.0000000042603855e-007
checknbshapes sr2 -shell 1
checkfreebounds sr2 0

4
tests/bugs/modalg_5/bug25175
View File

@ -12,5 +12,9 @@ igesread [locate_data_file bug25175_3.igs] a *
sewing result 0.1 a
checkmaxtol result 0.0076621571738049385
checknbshapes result -shell 1
checkfreebounds result 2
set 2dviewer 1

16
tests/bugs/modalg_5/bug25398
View File

@ -16,20 +16,8 @@ incmesh c 0.001
proximity s c -tol 0.01 -profile
set nbshapes_expected "
Number of shapes in shape
VERTEX : 2
EDGE : 3
WIRE : 1
FACE : 1
SHELL : 0
SOLID : 0
COMPSOLID : 0
COMPOUND : 1
SHAPE : 8
"
checknbshapes s_overlapped ${nbshapes_expected} 1 "Overlapped part of shere"
checknbshapes c_overlapped ${nbshapes_expected} 1 "Overlapped part of shere"
checknbshapes s_overlapped -vertex 2 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 8 -t -m "Overlapped part of shere"
checknbshapes c_overlapped -vertex 2 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 8 -t -m "Overlapped part of shere"
vinit
vdisplay s_overlapped

2
tests/bugs/modalg_5/bug25742_1
View File

@ -60,6 +60,6 @@ Number of shapes in shape
COMPOUND : 1
SHAPE : 61
"
checknbshapes result ${nbshapes_expected} 1 "Partition of 2 shapes"
checknbshapes result -ref "${nbshapes_expected}" -t -m "Partition of 2 shapes"
set 3dviewer 1

14
tests/bugs/modalg_5/bug25819_1
View File

@ -13,18 +13,6 @@ bcut result a b
set square 379421
set nbshapes_expected "
Number of shapes in shape
VERTEX : 20
EDGE : 30
WIRE : 12
FACE : 11
SHELL : 1
SOLID : 1
COMPSOLID : 0
COMPOUND : 1
SHAPE : 76
"
checknbshapes result ${nbshapes_expected} 1 "Result of BOP cut"
checknbshapes result -vertex 20 -edge 30 -wire 12 -face 11 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 76 -t -m "Result of BOP cut"
set 2dviewer 1

14
tests/bugs/modalg_5/bug25819_2
View File

@ -13,18 +13,6 @@ bcut result a b
set square 268575
set nbshapes_expected "
Number of shapes in shape
VERTEX : 8
EDGE : 12
WIRE : 6
FACE : 5
SHELL : 1
SOLID : 1
COMPSOLID : 0
COMPOUND : 1
SHAPE : 34
"
checknbshapes result ${nbshapes_expected} 1 "Result of BOP cut"
checknbshapes result -vertex 8 -edge 12 -wire 6 -face 5 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 34 -t -m "Result of BOP cut"
set 2dviewer 1

14
tests/bugs/modalg_5/bug25819_3
View File

@ -13,18 +13,6 @@ bcut result a b
set square 67742.9
set nbshapes_expected "
Number of shapes in shape
VERTEX : 99
EDGE : 136
WIRE : 49
FACE : 36
SHELL : 1
SOLID : 1
COMPSOLID : 0
COMPOUND : 1
SHAPE : 323
"
checknbshapes result ${nbshapes_expected} 1 "Result of BOP cut"
checknbshapes result -vertex 99 -edge 136 -wire 49 -face 36 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 323 -t -m "Result of BOP cut"
set 2dviewer 1

14
tests/bugs/modalg_5/bug25838
View File

@ -19,18 +19,6 @@ bbuild result
set square 3107.42
set nbshapes_expected "
Number of shapes in shape
VERTEX : 26
EDGE : 45
WIRE : 23
FACE : 23
SHELL : 5
SOLID : 5
COMPSOLID : 0
COMPOUND : 1
SHAPE : 128
"
checknbshapes result ${nbshapes_expected} 1 "Result done by General Fuse operator"
checknbshapes result -vertex 26 -edge 45 -wire 23 -face 23 -shell 5 -solid 5 -compsolid 0 -compound 1 -shape 128 -t -m "Result done by General Fuse operator"
set 2dviewer 1

14
tests/bugs/modalg_5/bug25847
View File

@ -20,18 +20,6 @@ bbuild result
set square 3912.59
set nbshapes_expected "
Number of shapes in shape
VERTEX : 100
EDGE : 108
WIRE : 10
FACE : 9
SHELL : 0
SOLID : 0
COMPSOLID : 0
COMPOUND : 1
SHAPE : 228
"
checknbshapes result ${nbshapes_expected} 1 "Result obtained by General Fuse operator"
checknbshapes result -vertex 100 -edge 108 -wire 10 -face 9 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 228 -t -m "Result obtained by General Fuse operator"
set 3dviewer 1

17
tests/bugs/modalg_5/bug25858_1
View File

@ -18,20 +18,7 @@ display ff
openoffset res ff 1 0.1
renamevar res_1 result
checknbshapes result -vertex 2 -edge 1 -wire 1 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 4 -t -m "Result of open offset on single edge based on BSpline curve"
set length 0.879164
set nbshapes_expected "
Number of shapes in shape
VERTEX : 2
EDGE : 1
WIRE : 1
FACE : 0
SHELL : 0
SOLID : 0
COMPSOLID : 0
COMPOUND : 0
SHAPE : 4
"
checknbshapes result ${nbshapes_expected} 1 "Result of open offset on single edge based on BSpline curve"
set only_screen_axo 1

17
tests/bugs/modalg_5/bug25858_2
View File

@ -19,20 +19,7 @@ display ff
openoffset res ff 1 0.1
renamevar res_1 result
checknbshapes result -vertex 2 -edge 1 -wire 1 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 4 -t -m "Result of open offset on single edge based on BSpline curve"
set length 0.879164
set nbshapes_expected "
Number of shapes in shape
VERTEX : 2
EDGE : 1
WIRE : 1
FACE : 0
SHELL : 0
SOLID : 0
COMPSOLID : 0
COMPOUND : 0
SHAPE : 4
"
checknbshapes result ${nbshapes_expected} 1 "Result of open offset on single edge based on BSpline curve"
set only_screen_axo 1

17
tests/bugs/modalg_5/bug25982
View File

@ -23,20 +23,7 @@ baddtools b2
bfillds
bbuild result
checknbshapes result -vertex 6 -edge 11 -wire 4 -face 2 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 24 -t -m "Result obtained by General Fuse operator"
set square 306.285
set nbshapes_expected "
Number of shapes in shape
VERTEX : 6
EDGE : 11
WIRE : 4
FACE : 2
SHELL : 0
SOLID : 0
COMPSOLID : 0
COMPOUND : 1
SHAPE : 24
"
checknbshapes result ${nbshapes_expected} 1 "Result obtained by General Fuse operator"
set 3dviewer 1

4
tests/bugs/moddata_1/bug135
View File

@ -10,6 +10,10 @@ checkshape sh
sewing result 1 sh
checkshape result
checkmaxtol result 0.0030000000000000001
checknbshapes result -shell 1
checkfreebounds result 0
set square 273837
set 2dviewer 0

4
tests/bugs/moddata_1/bug20904_1
View File

@ -45,5 +45,9 @@ if { ${status} != 0 } {
puts "OK ${BugNumber}"
}
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 0
checkfreebounds result 2
set square 30078.9
set 2dviewer 0

4
tests/bugs/moddata_1/bug20904_2
View File

@ -44,5 +44,9 @@ if { ${status} != 0 } {
puts "OK ${BugNumber}"
}
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 8
set square 1.33253e+06
set 2dviewer 0

4
tests/bugs/moddata_1/bug20904_3
View File

@ -45,5 +45,9 @@ if { ${status} != 0 } {
puts "OK ${BugNumber}"
}
checkmaxtol result 2.5602765785712274e-006
checknbshapes result -shell 1
checkfreebounds result 5
set square 1.36261e+06
set 2dviewer 0

4
tests/bugs/moddata_2/bug326
View File

@ -14,5 +14,9 @@ if [catch { sewing result a } catch_result] {
puts "OCC326 OK: Sewing is ok, there is no except"
}
checkmaxtol result 54.6751898398187
checknbshapes result -shell 1
checkfreebounds result 254
set 2dviewer 0

8
tests/bugs/moddata_2/bug343
View File

@ -18,6 +18,10 @@ if [catch {igesbrep $filepath a *} catch_result] {
#
sewing result1 100. a
checkmaxtol result1 0.21325393968565914
checknbshapes result1 -shell 1
checkfreebounds result1 86
set FaceList [explode result1 f]
set FaceListLength [llength ${FaceList}]
if { ${FaceListLength} < 1 } {
@ -67,6 +71,10 @@ if [catch {igesbrep $filepath a *} catch_result] {
tpcompound a
sewing result2 100. a
checkmaxtol result2 0.21325393968565914
checknbshapes result2 -shell 1
checkfreebounds result2 86
set FaceList [explode result2 f]
set FaceListLength [llength ${FaceList}]
if { ${FaceListLength} < 1 } then {puts "OCC343 - Error : FaceListLength= ${FaceListLength}"}

4
tests/bugs/moddata_2/bug36
View File

@ -23,6 +23,10 @@ if [catch { igesbrep $filepath a * } res] {
} else {
puts "Elapsed time is less then 30 seconds - OK"
}
checkmaxtol result 2.5472812372261969e-005
checknbshapes result -shell 13
checkfreebounds result 1249
}
set 2dviewer 0

4
tests/bugs/moddata_2/bug42
View File

@ -34,5 +34,9 @@ if { [llength $closed_wires] != 1} {
puts "Error : Amount of free closed wires is not equal 1"
}
checkmaxtol result 0.21325393955468794
checknbshapes result -shell 1
checkfreebounds result 86
set 2dviewer 0

5
tests/bugs/moddata_3/buc60898
View File

@ -17,6 +17,11 @@ if [catch { igesbrep $filepath a *} result] {
} else {
puts " BUC60898 OK: function SEWING works without except"
}
checkmaxtol result 0.0002494807463576937
checknbshapes result -shell 4
checkfreebounds result 1725
set square 798.266
set 2dviewer 0
}

16
tests/bugs/step/bug25523
View File

@ -9,19 +9,7 @@ puts ""
restore [locate_data_file bug25523_bad_loopback_step.brep] a
nbshapes a
set nbshapes_expected "
Number of shapes in a
VERTEX : 30
EDGE : 54
WIRE : 32
FACE : 27
SHELL : 1
SOLID : 1
COMPSOLID : 0
COMPOUND : 0
SHAPE : 145
"
checknbshapes a ${nbshapes_expected} 0 "Stator model"
checknbshapes a -vertex 30 -edge 54 -wire 32 -face 27 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 145 -m "Stator model"
newmodel
set aFile ${imagedir}/bug25523.stp
@ -31,7 +19,7 @@ stepwrite a a ${aFile}
stepread ${aFile} b *
nbshapes b_1 ;# empty compound
checknbshapes b_1 ${nbshapes_expected} 0 "Stator model"
checknbshapes b_1 -vertex 30 -edge 54 -wire 32 -face 27 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 145 -m "Stator model"
tpstat c ;# reports exception

4
tests/bugs/xde/bug184
View File

@ -64,5 +64,9 @@ if { ${square2} != ${square1} } {
puts "Error : Square is not valid"
}
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 0
checkfreebounds result 2
set 2dviewer 0

4
tests/bugs/xde/bug547_2
View File

@ -29,4 +29,8 @@ if { ${face2} > ${face1} || ${edge2} > ${edge1} || ${vert2} > ${vert1} } {
puts "Tolerance valed. Function FixShape works CORRECTLY"
}
checkmaxtol result 0.03895270570799534
checknbshapes result -shell 1
checkfreebounds result 227
set 2dviewer 1

4
tests/bugs/xde/bug6491
View File

@ -21,5 +21,9 @@ if { ${res_faces} != ${good_faces} } {
puts "Faulty ${BugNumber}"
}
checkmaxtol result 105.192615242296
checknbshapes result -shell 1
checkfreebounds result 73
set 2dviewer 0

4
tests/bugs/xde/bug6675
View File

@ -13,7 +13,11 @@ restore [locate_data_file OCC6675.brep] a
set tolerance 1.00000e-07
sewing result ${tolerance} a
checkshape result
checkmaxtol result 2.0021528498807746e-005
checknbshapes result -shell 1
checkfreebounds result 0
set 2dviewer 0

4
tests/bugs/xde/bug859
View File

@ -20,4 +20,8 @@ if {[llength ${list}] > 4} {
puts "Faulty OCC859: here is sewing problem"
}
checkmaxtol result 0.00025118948696105701
checknbshapes result -shell 1
checkfreebounds result 6
set 2dviewer 1

62
tests/sewing/end
View File

@ -1,69 +1,7 @@
set cs_a [checkshape a]
puts "checkshape a"
if { [info exists nb_f] == 0 } {
set nb_f 0
}
if { $cs_a == "This shape seems to be valid"} {
puts "Shape a seems to be valid"
set nb_a 0
} else {
puts "Shape a is not valid"
regexp {Faulty shapes in variables faulty_([0-9]*) to faulty_([0-9]*)} $cs_a full nb_a_begin nb_a_end
puts "Number of faulties is [expr $nb_a_end - $nb_a_begin +1]"
set nb_a [expr $nb_a_end - $nb_a_begin +1]
}
set exp [explode a f]
set L [concat compound $exp C]
eval $L
puts [whatis C]
puts [sewing result $tol C]
if { [isdraw result] } {
set cs_r [checkshape result]
puts "checkshape result"
if { $cs_r == "This shape seems to be valid"} {
puts "Shape result seems to be valid"
set nb_r 0
} else {
puts "Shape result is not valid"
regexp {Faulty shapes in variables faulty_([0-9]*) to faulty_([0-9]*)} $cs_r full nb_r_begin nb_r_end
set nb_r [expr $nb_r_end - $nb_r_begin +1]
}
set t [dtyp result]
puts $t
set w [lindex $t 1]
if {"$w" == "SHELL"} {
freebounds $result -0.01
set s [explode result_c e]
puts $s
set index [ llength $s ]
#nbFreeEdges is set to empty only in cases of unstable work of sewing (see #24591).
if { [string compare "$nbFreeEdges" ""] == 0 || $index != $nbFreeEdges } {
puts "Error : Number of free edges is $index"
}
puts "Number of faults for the initial shape is $nb_a."
puts "Number of faults for the resulting shape is $nb_r."
#if nb_f is empty then it is instaility.
if { [string compare "$nb_f" ""] == 0 || $nb_f > 0 } {
set os "ALL"
if {[array get env os_type] != ""} {
set os $env(os_type)
}
puts "TODO #23150 $os: Error : Number of faults is $nb_f"
}
if { $nb_r > $nb_a } {
puts "Error : Number of faults is $nb_r"
}
} else {
puts "Error : OPERATION FAILED"
}
clear
smallview
donly result
checkshape result
fit
xwd $imagedir/${test_image}.png
} else {

7
tests/sewing/tol_0_01/A1
View File

@ -1 +1,8 @@
restore [locate_data_file CCH_001_ahdb.rle] a
sewing result $tol a
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/A2
View File

@ -1 +1,8 @@
restore [locate_data_file CCH_001_ahev.rle] a
sewing result $tol a
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/A3
View File

@ -1 +1,8 @@
restore [locate_data_file BUC60328.rle] a
sewing result $tol a
checkmaxtol result 995.10214705587305
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/A4
View File

@ -1 +1,8 @@
restore [locate_data_file BUC60329.rle] a
sewing result $tol a
checkmaxtol result 658.98901006989695
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/A5
View File

@ -1 +1,8 @@
restore [locate_data_file BUC60391.rle] a
sewing result $tol a
checkmaxtol result 1.2190703625960401e-005
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/A6
View File

@ -1 +1,8 @@
restore [locate_data_file mal_vis.brep] a
sewing result $tol a
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/A7
View File

@ -1 +1,8 @@
restore [locate_data_file CFE900_ger50gdb.rle] a
sewing result $tol a
checkmaxtol result 0.0001
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/A8
View File

@ -1 +1,8 @@
restore [locate_data_file BUC60394.rle] a
sewing result $tol a
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/A9
View File

@ -1 +1,8 @@
restore [locate_data_file CHE_bb11.rle] a
sewing result $tol a
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/B1
View File

@ -1 +1,8 @@
restore [locate_data_file CCH_001_ahew.rle] a
sewing result $tol a
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/B2
View File

@ -1 +1,8 @@
restore [locate_data_file CCH_001_bhdc.rle] a
sewing result $tol a
checkmaxtol result 4.9999999999999998e-007
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/B3
View File

@ -1 +1,8 @@
restore [locate_data_file CCH_001_chde.rle] a
sewing result $tol a
checkmaxtol result 4.9999999999999998e-007
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/B4
View File

@ -1 +1,8 @@
restore [locate_data_file CCH_001_chez.rle] a
sewing result $tol a
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/B5
View File

@ -1 +1,8 @@
restore [locate_data_file CCH_001_chfa.rle] a
sewing result $tol a
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/B6
View File

@ -1 +1,8 @@
restore [locate_data_file CCH_001_dhdd.rle] a
sewing result $tol a
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

7
tests/sewing/tol_0_01/B7
View File

@ -1 +1,8 @@
restore [locate_data_file CCH_001_ehdg.rle] a
sewing result $tol a
checkmaxtol result 9.9999999999999995e-008
checknbshapes result -shell 1
checkfreebounds result 0
checkfaults result a 0

Some files were not shown because too many files have changed in this diff Show More