Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug5805_25
CommitLineData
3bea4c16 1puts "============"
2puts "OCC5805"
3puts "============"
4
5#######################################################################
6# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
7#######################################################################
8
9set BugNumber OCC5805
10
11#
12# *
13# | \
14# | \
15# | \
16# | \
17# | \
18# | \
19# | * v3 \
20# | | \ \
21# | | \ \
22# | | \ \
23# | | \ \
24# | | /* v2 *
25# | | / /
26# | | / /
27# | | / /
28# | * /
29# | v1 /
30# | /
31# | /
32# | /
33# | /
34# | /
35# |/
36# *
37#
38cpulimit 1400
39set z1 10
40set z2 -10
41
42# triangle1
43polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
44
45# triangle2
46polyline BottomCover -5 -5 ${z2} 10 10 ${z2} -5 20 ${z2} -5 -5 ${z2}
47
48set issolid 1
49set isruled 1
50if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
51 puts "Faulty ${BugNumber} : thrusections is wrong"
52
53}
54
55set distance -0.5
56catch { OFFSETSHAPE $distance {} $calcul $type }
57
58
59set square 914.876
60
61set nb_v_good 6
62set nb_e_good 9
63set nb_w_good 5
64set nb_f_good 5
65set nb_sh_good 1
66set nb_sol_good 1
67set nb_compsol_good 0
68set nb_compound_good 0
69set nb_shape_good 27
70
71
72set index [lsearch [whatis s] Closed]
73if {$index == -1} {
74 puts "Faulty ${BugNumber} : s is not Closed shape"
75
76}
77
78set index [lsearch [whatis result] Closed]
79if {$index == -1} {
80 puts "Faulty ${BugNumber} : result is not Closed shape"
81
82}
83
84
85set 2dviewer 0