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_circle.brep] e1 12wire s2 e1 13 14puts "###############################################################################" 15puts "# (case /-/-R/-C/)" 16puts "###############################################################################" 17 18checkshape s1 19checkshape s2 20 21mksweep s1 22 23addsweep s2 -R 24if [catch { buildsweep result -C} res] { 25 puts "Faulty OCC1477: buildsweep is wrong" 26} 27 28checkprops result -s 26820.4 29 30checknbshapes result -vertex 13 -edge 17 -wire 4 -face 4 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 39 31