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