Adding test cases from chl grid
[occt.git] / tests / thrusection / specific / H5
1 puts "============"
2 puts "OCC7166"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Improvement of API of ThruSection
7 #######################################################################
8
9 set BugNumber OCC7166
10
11 # spine
12 polyline s1 0 0 20 0 0 -20
13
14 # profile
15 polyline s2 0 5 0  5 0 0 -5 -5 0  0 5 0
16
17 # 1 vertex
18 vertex v1 0 0 -20
19
20 # 2 vertex
21 vertex v2 0 0 20
22
23 mksweep s1
24
25 addsweep v1
26 addsweep s2
27 addsweep v2
28
29 buildsweep result
30
31
32 set square 790.139
33
34 set nb_v_good 2
35 set nb_e_good 9
36 set nb_w_good 3
37 set nb_f_good 3
38 set nb_sh_good 1
39 set nb_sol_good 0
40 set nb_compsol_good 0
41 set nb_compound_good 0
42 set nb_shape_good 18
43
44
45
46 set index [lsearch [whatis result] Closed]
47 if {$index == -1} {
48   puts "Faulty ${BugNumber} : result is not Closed shape"
49   
50 }
51
52 set 3dviewer 0
53