Adding test cases from chl grid
[occt.git] / tests / thrusection / specific / I5
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 circle c1 0 0 0 5
16 mkedge ec1 c1
17 wire s2 ec1
18
19 # 1 vertex
20 vertex v1 0 0 -20
21
22 mksweep s1
23
24 addsweep v1 -T
25 addsweep s2 -T
26
27 buildsweep result
28
29
30 set square 1313.1
31
32 set nb_v_good 2
33 set nb_e_good 3
34 set nb_w_good 1
35 set nb_f_good 1
36 set nb_sh_good 1
37 set nb_sol_good 0
38 set nb_compsol_good 0
39 set nb_compound_good 0
40 set nb_shape_good 8
41
42
43
44 set 3dviewer 0
45