0030679: Attached model hangs most of OCCT common functionality
[occt.git] / tests / bugs / modalg_2 / bug5805_32
CommitLineData
58cf74e0 1puts "TODO OCC25925 ALL: Error : The area of result shape is"
3bea4c16 2
3puts "============"
4puts "OCC5805"
5puts "OCC7582"
6puts "============"
7
8#######################################################################
9# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
10#######################################################################
11# Bad result of offset operation
12#######################################################################
13
14set BugNumber OCC5805
15
16set z1 10
17set z2 -10
18
19# circle1
20circle c1 0 0 ${z1} 5
21mkedge ec1 c1
22wire UpCover ec1
23
24# circle2
25circle c2 0 0 ${z2} 30
26mkedge ec2 c2
27wire BottomCover ec2
28
29set issolid 1
30set isruled 1
31if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
32 puts "Faulty ${BugNumber} : thrusections is wrong"
33
34}
35
36set distance -0.5
37catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
38
39
58cf74e0 40checkprops result -s 1223.65
41checkshape result
3bea4c16 42
a4eba920 43checknbshapes result -vertex 4 -edge 6 -wire 6 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 22
3bea4c16 44
45set index [lsearch [whatis s] Closed]
46if {$index == -1} {
47 puts "Faulty ${BugNumber} : s is not Closed shape"
48
49}
50
51set index [lsearch [whatis result] Closed]
52if {$index == -1} {
53 puts "Faulty ${BugNumber} : result is not Closed shape"
54
55}
56
57
5747059b 58checkview -display result -2d -path ${imagedir}/${test_image}.png