1puts "============"
2puts "OCC1477"
3puts "============"
4puts ""
5######################################################
6# Problems in MakePipeShell
7# (case 13)
8######################################################
9
10restore [locate_data_file OCC1477_3dPolyline_c0.brep] s1
11restore [locate_data_file OCC1477_profile1_polygon.brep] e1
12wire s2 e1
13
14puts "###############################################################################"
15puts "# (case /-CF/-T -R/-R -S/)"
16puts "###############################################################################"
17
18checkshape s1
19checkshape s2
20
21mksweep s1
22
23setsweep -CF
24addsweep s2 -T -R
25if [catch { buildsweep result -R -S} res] {
26  puts "Faulty OCC1477: buildsweep is wrong"
27}
28
29checkprops result -s 26609 -v 85867.7
30
31checknbshapes result -vertex 43 -edge 84 -wire 37 -face 37 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 203
32