tests/bugs/modalg_2/bug23029_1

   1 puts "============"
   2 puts "OCC23029"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # split shape algorithm works incorrectly in some cases
   7 #######################################################################
   8
   9 set BugNumber OCC23029
  10
  11 catch { pload XDE }
  12
  13 testreadstep [locate_data_file OCC23029-ProblemF.stp] a
  14 restore [locate_data_file OCC23029-TempW.brep] t
  15
  16 checkshape a
  17 explode a f
  18 splitshape result a a_1 t
  19
  20 set square 215.198
  21
  22 set nb_v_good 19
  23 set nb_e_good 21
  24 set nb_w_good 2
  25 set nb_f_good 2
  26 set nb_sh_good 1
  27 set nb_sol_good 0
  28 set nb_compsol_good 0
  29 set nb_compound_good 0
  30 set nb_shape_good 45
  31
  32 set CheckShape_status 0
  33
  34 set ll [ llength [explode result f2 ] ]
  35
  36 if { $ll != 2 } {
  37     set CheckShape_status 1
  38 }
  39
  40 # Resume
  41 puts ""
  42 if { ${CheckShape_status} != 0 } {
  43    puts "Faulty ${BugNumber}"
  44 } else {
  45    puts "OK ${BugNumber}"
  46 }
  47
  48 vinit
  49 vsetdispmode 1
  50 vdisplay result
  51 vfit
  52
  53 vmoveto 252 289
  54
  55 set only_screen 1
  56