Adding test cases from chl grid
[occt.git] / tests / thrusection / specific / L4
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 beziercurve bc1 5 5 5 0 5 -5 0 -5 -5 0 -5 5 0 5 5 0
16 mkedge e1 bc1
17 wire s2 e1
18
19 # 1 vertex
20 vertex v1 40 0 -20
21
22 # 2 vertex
23 vertex v2 40 0 20
24
25 mksweep s1
26
27 addsweep v1
28 addsweep s2
29 addsweep v2
30
31 buildsweep result
32
33
34 set square 892.672
35
36 set nb_v_good 2
37 set nb_e_good 3
38 set nb_w_good 1
39 set nb_f_good 1
40 set nb_sh_good 1
41 set nb_sol_good 0
42 set nb_compsol_good 0
43 set nb_compound_good 0
44 set nb_shape_good 8
45
46
47
48 set index [lsearch [whatis result] Closed]
49 if {$index == -1} {
50   puts "Faulty ${BugNumber} : result is not Closed shape"
51   
52 }
53
54 set 3dviewer 0
55