tests/pipe/specific/F2

   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_polygon.brep] e1
  12 wire s2 e1
  13
  14 puts "###############################################################################"
  15 puts "# (case /-FR/-T -R/-C -S/)"
  16 puts "###############################################################################"
  17
  18 checkshape s1
  19 checkshape s2
  20
  21 mksweep s1
  22
  23 setsweep -FR
  24 addsweep s2 -T -R
  25 if [catch { buildsweep result -C -S} res] {
  26   puts "Faulty OCC1477: buildsweep is wrong"
  27 }
  28
  29 set square 27718.7
  30 set volume 89336.2
  31
  32 checknbshapes result -vertex 25 -edge 45 -wire 22 -face 22 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 116
  33 set 2dviewer 0