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.
48 lines
1.4 KiB
Plaintext
Executable File
48 lines
1.4 KiB
Plaintext
Executable File
puts "TODO OCC24036 ALL: Faulty shapes in variables faulty_1 to faulty_"
|
|
#puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 642 vertices instead of 966"
|
|
#puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 955 edges instead of 1224"
|
|
#puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 3 shells instead of 18"
|
|
#puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 2133 shapes instead of 2741"
|
|
|
|
puts "================"
|
|
puts "OCC22770"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Improve comman sewing in DRAW
|
|
######################################################################################
|
|
|
|
set BugNumber OCC22770
|
|
|
|
catch { pload XDE }
|
|
|
|
# Create a new document and set UndoLimit
|
|
|
|
# NewDocument D BinXCAF
|
|
# UndoLimit D 100
|
|
|
|
# Open a transaction
|
|
# NewCommand D
|
|
|
|
restore [locate_data_file 22770-tramp.brep] a
|
|
restore [locate_data_file 22770-trans.brep] b
|
|
sewing result a b -p
|
|
|
|
set square 1.8847e+07
|
|
|
|
set nb_v_good 964
|
|
set nb_e_good 1222
|
|
set nb_w_good 273
|
|
set nb_f_good 259
|
|
set nb_sh_good 18
|
|
set nb_sol_good 0
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 1
|
|
set nb_shape_good 2737
|
|
|
|
checkmaxtol result -ref 0.046734236640099257
|
|
checknbshapes result -shell 18
|
|
checkfreebounds result 926
|
|
|
|
set 3dviewer 0
|