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