0027531: Modeling Algorithms - Make the algorithm Approx_SameParameter more clear...
[occt.git] / tests / bugs / moddata_2 / bug42
1 puts "================"
2 puts "OCC42"
3 puts "================"
4 puts ""
5 ###############################################
6 ## BRepAlgo_Sewing does not sew attached shape with any tolerance.
7 ###############################################
8
9 pload XDE
10
11 # 1. retriesve shape
12 restore [locate_data_file OCC42.brep] sh 
13 checkshape sh
14
15 # 2. perform sewing
16 set toler 80
17 sewing result $toler sh
18
19 # 3. Verify result of sewing
20 checkshape result
21
22 # Retrieve free wires from result shape
23 catch { fbclose result $toler $toler } resOfCatch
24
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"
29 }
30
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"
35 }
36
37 checkmaxtol result -ref 66.072757207853044
38 checknbshapes result -shell 1
39 checkfreebounds result 86
40
41 checkview -display result -2d -path ${imagedir}/${test_image}.png
42