tests/bugs/modalg_6/bug26010

   1 puts "============"
   2 puts "OCC26010"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # [OCCT 6.8.0 regression] BRepFeat_SplitShape returns invalid shapes
   7 #######################################################################
   8
   9 restore [locate_data_file bug26010_splitnoproblem671.brep] s
  10
  11 explode s
  12 whatis s_1
  13 whatis s_2
  14
  15 settolerance s_1 1e-5
  16
  17 splitshape result s s_2 s_1
  18
  19 whatis result
  20
  21 set result_length [ llength [explode result] ]
  22 if { ${result_length} != 3} {
  23    puts "Error: shape number is wrong"
  24 }
  25
  26 checkshape result_1
  27 checkshape result_2
  28 checkshape result_3
  29
  30 vinit
  31 vdisplay result_1
  32 vdisplay result_2
  33 vdisplay result_3
  34
  35 checkview -screenshot -3d -path ${imagedir}/${test_image}.png