Modified TODOs in test cases bugs modalg_2 bug5805_* with number of issue #25925.
[occt.git] / tests / bugs / modalg_2 / bug5805_32
1 puts "TODO OCC25925 ALL: Error : The square of result shape is"
2
3 puts "============"
4 puts "OCC5805"
5 puts "OCC7582"
6 puts "============"
7
8 #######################################################################
9 # BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
10 #######################################################################
11 # Bad result of offset operation
12 #######################################################################
13
14 set BugNumber OCC5805
15
16 set z1 10
17 set z2 -10
18
19 # circle1
20 circle c1 0 0 ${z1} 5
21 mkedge ec1 c1
22 wire UpCover ec1
23
24 # circle2
25 circle c2 0 0 ${z2} 30
26 mkedge ec2 c2
27 wire BottomCover ec2
28
29 set issolid 1
30 set isruled 1
31 if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
32    puts "Faulty ${BugNumber} : thrusections is wrong"
33    
34 }
35
36 set distance -0.5
37 catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
38
39
40 set square 1223.65
41
42 set nb_v_good 4
43 set nb_e_good 6
44 set nb_w_good 6
45 set nb_f_good 4
46 set nb_sh_good 1
47 set nb_sol_good 1
48 set nb_compsol_good 0
49 set nb_compound_good 0
50 set nb_shape_good 22
51
52
53 set index [lsearch [whatis s] Closed]
54 if {$index == -1} {
55   puts "Faulty ${BugNumber} : s is not Closed shape"
56   
57 }
58
59 set index [lsearch [whatis result] Closed]
60 if {$index == -1} {
61   puts "Faulty ${BugNumber} : result is not Closed shape"
62   
63 }
64
65
66 set 2dviewer 0