0026742: Update test cases for using checknbshapes procedure instead of global variables
[occt.git] / tests / pipe / specific / J9
1 puts "============"
2 puts "OCC1477"
3 puts "============"
4 puts ""
5 ######################################################
6 # Problems in MakePipeShell
7 # (case 14)
8 # test2.tcl
9 ######################################################
10
11 beziercurve c11 5 0 0 0 10 0 0 20 10 12 25 30 20 50 40 50
12 beziercurve c12 4 50 40 50 70 30 30 90 20 20 100 50 0
13 mkedge e11 c11
14 mkedge e12 c12
15 wire s1 e11 e12
16
17 beziercurve c21 4 0 0 0 0 0 10 0 10 10 0 10 20
18 mkedge e21 c21
19 wire s2 e21
20
21 puts "###############################################################################"
22 puts "# (case /-/-/-/)"
23 puts "###############################################################################"
24
25 checkshape s1
26 checkshape s2
27
28 mksweep s1
29
30 addsweep s2
31 if [catch { buildsweep result } res] {
32   puts "Faulty OCC1477: buildsweep is wrong"
33 }
34
35 set square 2570.32
36
37 checknbshapes result -vertex 6 -edge 7 -wire 2 -face 2 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 18
38 set 2dviewer 0