mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
93937391be
Upgrade method of computing vertex tolerance. Update function, which used the old method. Test case for issue CR26241 Delete obsolete variables. Small correction of test cases for issue CR26241
43 lines
979 B
Plaintext
Executable File
43 lines
979 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC42"
|
|
puts "================"
|
|
puts ""
|
|
###############################################
|
|
## BRepAlgo_Sewing does not sew attached shape with any tolerance.
|
|
###############################################
|
|
|
|
pload XDE
|
|
|
|
# 1. retriesve shape
|
|
restore [locate_data_file OCC42.brep] sh
|
|
checkshape sh
|
|
|
|
# 2. perform sewing
|
|
set toler 80
|
|
sewing result $toler sh
|
|
|
|
# 3. Verify result of sewing
|
|
checkshape result
|
|
|
|
# Retrieve free wires from result shape
|
|
catch { fbclose result $toler $toler } resOfCatch
|
|
|
|
# Amount of free open wires must be equal 0
|
|
set open_wires [explode result_o W]
|
|
if { [llength $open_wires] != 0} {
|
|
puts "Error : There are free open wires"
|
|
}
|
|
|
|
# Amount of free closed wires must be equal 1
|
|
set closed_wires [explode result_c W]
|
|
if { [llength $closed_wires] != 1} {
|
|
puts "Error : Amount of free closed wires is not equal 1"
|
|
}
|
|
|
|
checkmaxtol result 0.20874930847108514
|
|
checknbshapes result -shell 1
|
|
checkfreebounds result 86
|
|
|
|
set 2dviewer 0
|
|
|