Adding test cases from chl grid
[occt.git] / tests / thrusection / specific / M7
1 puts "============"
2 puts "OCC7166"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Improvement of API of ThruSection
7 #######################################################################
8
9 set BugNumber OCC7166
10
11 set z1 40
12 set z2 20
13 set z3 0
14 set z4 100
15
16 # spine
17 polyline s1 0 0 ${z4} 0 0 -${z4}
18
19 # begining vertex
20 vertex v4 0 0 ${z4}
21 # ending vertex
22 vertex v5 0 0 -${z4}
23
24 # profile
25 # top triangle
26 vertex v1 0 0 ${z1}
27 vertex v2 5 5 ${z1}
28 vertex v3 0 10 ${z1}
29
30 edge e1 v1 v2
31 edge e2 v2 v3
32 edge e3 v3 v1
33
34 wire w1 e1 e2 e3
35
36 # top quadrangle
37 vertex v11 15 15 ${z2}
38 vertex v12 -15 15 ${z2}
39 vertex v13 -15 -15 ${z2}
40 vertex v14 15 -15 ${z2}
41
42 edge e11 v11 v12
43 edge e12 v12 v13
44 edge e13 v13 v14
45 edge e14 v14 v11
46
47 wire w11 e11 e12 e13 e14
48  
49 # top octagon
50 vertex v21 25 25 ${z3}
51 vertex v22 -25 25 ${z3}
52 vertex v23 -30 10 ${z3}
53 vertex v24 -30 -10 ${z3}
54 vertex v25 -25 -25 ${z3}
55 vertex v26 25 -25 ${z3}
56 vertex v27 30 -10 ${z3}
57 vertex v28 30 10 ${z3}
58
59 edge e21 v21 v22
60 edge e22 v22 v23
61 edge e23 v23 v24
62 edge e24 v24 v25
63 edge e25 v25 v26
64 edge e26 v26 v27
65 edge e27 v27 v28
66 edge e28 v28 v21
67
68 wire w21 e21 e22 e23 e24 e25 e26 e27 e28
69
70 # bottom quadrangle
71 vertex v111 15 15 -${z2}
72 vertex v112 -15 15 -${z2}
73 vertex v113 -15 -15 -${z2}
74 vertex v114 15 -15 -${z2}
75
76 edge e111 v111 v112
77 edge e112 v112 v113
78 edge e113 v113 v114
79 edge e114 v114 v111
80
81 wire w111 e111 e112 e113 e114
82
83 # bottom triangle
84 vertex v101 0 0 -${z1}
85 vertex v102 5 5 -${z1}
86 vertex v103 0 10 -${z1}
87
88 edge e101 v101 v102
89 edge e102 v102 v103
90 edge e103 v103 v101
91
92 wire w101 e101 e102 e103
93
94 mksweep s1
95
96 addsweep v4
97 addsweep w1 -T
98 addsweep w11 -T
99 addsweep w21 -T
100 addsweep w111 -T
101 addsweep w101 -T
102 addsweep v5
103
104 catch {buildsweep result}
105
106
107 set square 270505
108
109 set nb_v_good 2
110 set nb_e_good 33
111 set nb_w_good 11
112 set nb_f_good 11
113 set nb_sh_good 1
114 set nb_sol_good 0
115 set nb_compsol_good 0
116 set nb_compound_good 0
117 set nb_shape_good 58
118
119
120
121 set index [lsearch [whatis result] Closed]
122 if {$index == -1} {
123   puts "Faulty ${BugNumber} : result is not Closed shape"
124   
125 }
126
127 set 3dviewer 0
128