mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +03:00
5a29f57e9b
Adding test case for issue CR24036 Loading Draw plugin containing command "freebounds" Loading plugin XDEDRDRW was changed on loading plugin XSDRAW
35 lines
846 B
Plaintext
35 lines
846 B
Plaintext
puts "========================"
|
|
puts "OCC24036"
|
|
puts "========================"
|
|
puts ""
|
|
#######################################################################
|
|
# Regression: sewing is not correct
|
|
# (OCC 6.6.0 regression) BRepBuilderAPI_Sewing returns wrong result
|
|
#######################################################################
|
|
|
|
pload XSDRAW
|
|
|
|
restore [locate_data_file bug24036_data.brep] v
|
|
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"
|
|
}
|
|
|
|
set 2dviewer 1
|