0026742: Update test cases for using checknbshapes procedure instead of global variables
[occt.git] / tests / pipe / specific / J5
1 puts "============"
2 puts "OCC1477"
3 puts "============"
4 puts ""
5 ######################################################
6 # Problems in MakePipeShell
7 # (case 13)
8 ######################################################
9
10 restore [locate_data_file OCC1477_3dPolyline_c0.brep] s1 
11 restore [locate_data_file OCC1477_profile1_rectangle.brep] e1 
12 wire s2 e1
13
14 puts "###############################################################################"
15 puts "# (case /-CF/-T -R/-C/)"
16 puts "###############################################################################"
17
18 checkshape s1
19 checkshape s2
20
21 mksweep s1
22
23 setsweep -CF
24 addsweep s2 -T -R
25 if [catch { buildsweep result -C} res] {
26   puts "Faulty OCC1477: buildsweep is wrong"
27 }
28
29 set square 24371.2
30
31 checknbshapes result -vertex 20 -edge 36 -wire 16 -face 16 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 89
32 set 2dviewer 0