tests/bugs/modalg_5/bug23958

   1 puts "========="
   2 puts "OCC23958"
   3 puts "========="
   4 puts ""
   5 #################################################################################
   6 # Section of shell by plane is incomplete
   7 #################################################################################
   8
   9 cpulimit 4000
  10
  11 pload DATAEXCHANGEKERNEL
  12
  13 # shell
  14 restore [locate_data_file bug23958_bug948-shape.brep] a
  15
  16 # plane
  17 plane p 10.62752 0 0 1 0 0
  18 mkface f p
  19
  20 # check that everything is Ok
  21 checkshape a
  22 tolerance a
  23 bopargcheck a f -S #F
  24
  25 # build section
  26 bsection result a f
  27
  28 # check total length of result
  29 set length 1.21473
  30
  31 set 2dviewer 1