1 puts "================"
3 puts "================"
5 ###############################################
6 ## BRepAlgo_Sewing does not sew attached shape with any tolerance.
7 ###############################################
12 restore [locate_data_file OCC42.brep] sh
17 sewing result $toler sh
19 # 3. Verify result of sewing
22 # Retrieve free wires from result shape
23 catch { fbclose result $toler $toler } resOfCatch
25 # Amount of free open wires must be equal 0
26 set open_wires [explode result_o W]
27 if { [llength $open_wires] != 0} {
28 puts "Error : There are free open wires"
31 # Amount of free closed wires must be equal 1
32 set closed_wires [explode result_c W]
33 if { [llength $closed_wires] != 1} {
34 puts "Error : Amount of free closed wires is not equal 1"
37 checkmaxtol result 0.20874930847108514
38 checknbshapes result -shell 1
39 checkfreebounds result 86