0026742: Update test cases for using checknbshapes procedure instead of global variables
[occt.git] / tests / bugs / modalg_5 / bug24204
1 puts "============"
2 puts "CR24204"
3 puts "============"
4 puts ""
5 ################################################################################################################################
6 # The algorithm BRepOffsetAPI_MakePipeShell produces resulting shape with unwarrantably big tolerance
7 ################################################################################################################################
8
9 restore [locate_data_file bug24204_outerWire1.brep] w1
10 restore [locate_data_file bug24204_outerWire2.brep] w2
11 restore [locate_data_file bug24204_path.brep] sp
12
13 wire w1 w1
14 wire w2 w2
15 wire sp sp
16
17 mksweep sp
18 addsweep w1
19 addsweep w2
20
21 buildsweep result
22
23 set tolmax_result [checkmaxtol result]
24
25 set tolmax_w1 [checkmaxtol w1]
26 set tolmax_w2 [checkmaxtol w2]
27 set tolmax_sp [checkmaxtol sp]
28
29 set tolmax_s ${tolmax_w1}
30 if { ${tolmax_w2} > ${tolmax_s} } {
31    set tolmax_s ${tolmax_w2}
32 }
33 if { ${tolmax_sp} > ${tolmax_s} } {
34    set tolmax_s ${tolmax_sp}
35 }
36
37 if { ${tolmax_result} > [expr 2 * ${tolmax_s}] } {
38    puts "Error : big tolerance of result"
39 }
40
41 set square 3.44584
42
43 checknbshapes result -vertex 2 -edge 3 -wire 1 -face 1 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 8
44 set 3dviewer 1