tests/bugs/modalg_2/bug415

   1
   2 puts "========================"
   3 puts " OCC415 "
   4 puts "PRO5557"
   5 puts "========================"
   6 puts ""
   7
   8 restore [locate_data_file pro5557_revol.brep] revol1
   9 checkshape revol1
  10 restore [locate_data_file pro5557_bsurf.brep] bsurf2
  11 checkshape bsurf2
  12
  13 zoom 660
  14 normals bsurf2 0.27
  15 point pnt1 0 -0.3 0
  16 halfspace space2 bsurf2 0 -0.3 0
  17
  18 bcut result revol1 space2
  19
  20 set testinfos(info)  \
  21     "pro5557 : cut a cylinder by an infinite surface extrusion"
  22 set testinfos(infoX) -0.2
  23 set testinfos(infoY) -0.2
  24 set testinfos(infoZ)  -0.34
  25 set testinfos(infoZ2) -0.3
  26
  27 checkshape -top result
  28
  29 set square 0.402138
  30 set 2dviewer 0
  31
  32