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