0026252: GeomAdaptor_Surface should use inner adaptor to calculate values of complex...
[occt.git] / tests / bugs / modalg_2 / bug5805_18
1 puts "TODO OCC25925 ALL: Faulty shapes in variables faulty_1 to"
2
3 puts "============"
4 puts "OCC5805"
5 puts "============"
6
7 #######################################################################
8 # BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
9 #######################################################################
10
11 set BugNumber OCC5805
12
13 set z1 5
14 set z2 -5
15
16 # beziercurve1
17 beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
18 mkedge e1 bc1
19 wire UpCover e1
20
21 # beziercurve2
22 copy e1 e2
23 ttranslate e2 0 0 ${z2}
24 wire BottomCover e2
25
26 set issolid 1
27 set isruled 1
28 if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
29    puts "Faulty ${BugNumber} : thrusections is wrong"
30    
31 }
32
33 set distance -0.001
34 catch { OFFSETSHAPE $distance {s_2} $calcul $type }
35 # Bad result
36
37 set index [lsearch [whatis s] Closed]
38 if {$index == -1} {
39   puts "Faulty ${BugNumber} : s is not Closed shape"
40   
41 }
42
43 set index [lsearch [whatis result] Closed]
44 if {$index == -1} {
45   puts "Faulty ${BugNumber} : result is not Closed shape"
46   
47 }
48
49 checknbshapes result -vertex 4 -edge 5 -wire 5 -face 5 -shell 2 -solid 1 -compsolid 0 -compound 0 -shape 22
50
51 set square 358.795
52 set 2dviewer 0