mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
fb60057d23
Command tolmax was removed. Tcl command checkmaxtol is used now in test cases to check maximum tolerance. Reference values in test cases were updated.
33 lines
816 B
Plaintext
Executable File
33 lines
816 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC22770"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Improve comman sewing in DRAW
|
|
######################################################################################
|
|
|
|
set BugNumber OCC22770
|
|
|
|
restore [locate_data_file 22770-tramp.brep] a
|
|
restore [locate_data_file 22770-trans.brep] b
|
|
sewing result +t 0.01 a b +mint 0.01 -a
|
|
|
|
set nbshapes_expected "
|
|
Number of shapes in shape
|
|
VERTEX : 479
|
|
EDGE : 748
|
|
WIRE : 273
|
|
FACE : 259
|
|
SHELL : 2
|
|
SOLID : 0
|
|
COMPSOLID : 0
|
|
COMPOUND : 1
|
|
SHAPE : 1762
|
|
"
|
|
checknbshapes result -ref ${nbshapes_expected} -t -m "sewing result"
|
|
checkmaxtol result -ref 0.066338232054955981
|
|
checkfreebounds result 12
|
|
|
|
set square 1.88469e+07
|
|
set 3dviewer 1
|