mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
35 lines
790 B
Plaintext
Executable File
35 lines
790 B
Plaintext
Executable File
puts "========================"
|
|
puts "OCC23375"
|
|
puts "========================"
|
|
puts ""
|
|
#######################################################################
|
|
# (OCC 6.5.3 regression) BRepBuilderAPI_Sewing returns wrong result
|
|
#######################################################################
|
|
|
|
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
|
|
catch {freebounds $result -0.01}
|
|
set s [explode result_c e]
|
|
puts $s
|
|
set index [ llength $s ]
|
|
if { $index != 0 } {
|
|
puts "Error : Number of free edges is $index"
|
|
}
|
|
|
|
set 2dviewer 1
|