tests/bugs/modalg_7/bug31306

   1 puts "======================================================="
   2 puts "0031306: Modeling Algorithms - Incomplete result of Cut operation"
   3 puts "======================================================="
   4 puts ""
   5
   6 restore [locate_data_file bug31306_argument.brep] s1
   7 restore [locate_data_file bug31306_tool.brep] s2
   8
   9 bclearobjects
  10 bcleartools
  11 baddobjects s1
  12 baddtools s2
  13 bfillds
  14
  15 bbop r0 0
  16 bbop r1 1
  17 bbop r2 2
  18 bbop r3 3
  19 bbop r4 4
  20
  21 foreach r {r0 r1 r2 r3 r4} {
  22   checkshape $r
  23   if {![regexp "OK" [bopcheck $r]]} {
  24     puts "Error: the $r is a self-interfering shape"
  25   }
  26 }
  27
  28 checknbshapes r0 -wire 0 -face 0
  29
  30 checknbshapes r1 -wire 41 -face 40 -t
  31 checkprops r1 -s 244.474
  32
  33 checknbshapes r2 -wire 3 -face 2 -t
  34 checkprops r2 -s 228.338
  35
  36 checknbshapes r3 -wire 38 -face 38 -t
  37 checkprops r3 -s 16.1362
  38
  39 checkprops r4 -l 40.2015
  40 checksection r4 -r 0
  41
  42 checkview -display r1 -2d -path ${imagedir}/${test_image}.png