tests/bugs/modalg_7/bug24905

   1 puts "========"
   2 puts "0024905: Boolean cut produced invalid result"
   3 puts "========"
   4 puts ""
   5
   6 circle c1 0 0 0 0 -1 0 75
   7 circle c2 0 0 0 0 -1 0 65
   8 mkedge c1 c1
   9 mkedge c2 c2
  10 wire c1 c1
  11 wire c2 c2
  12 orientation c2 R
  13 mkplane f1 c1 1
  14 add c2 f1
  15 prism p1 f1 0 1000 0
  16 trotate p1 0 0 0 0 0 1 180
  17 circle c3 50 500 -2000 0 0 1 50
  18 mkedge c3 c3
  19 wire c3 c3
  20 mkplane f2 c3 1
  21 prism p2 f2 0 0 4000
  22 trotate p2 0 500 0 1 0 0 -77
  23 trotate p2 0 0 0 0 0 1 180
  24
  25 bclearobjects
  26 bcleartools
  27 baddobjects p1
  28 baddtools p2
  29
  30 bfillds
  31
  32 bbop r_0 0
  33 bbop r_1 1
  34 bbop r_2 2
  35 bbop r_3 3
  36 bbop r_4 4
  37
  38 for {set i 0} {$i <= 4} {incr i} {
  39   checkshape r_$i
  40   if {[regexp "Faulties" [ bopargcheck r_$i ]]} {
  41     puts "Error: bopargcheck has found some faulties in r_$i"
  42   }
  43 }
  44
  45
  46 checknbshapes r_0 -solid 1 -shell 1 -face 5 -wire 6
  47 checkprops r_0 -s 196255 -v 857818
  48
  49 checknbshapes r_1 -solid 1 -shell 1 -face 9 -wire 13
  50 checkprops r_1 -s 1.96453e+06 -v 3.49563e+07
  51
  52 checknbshapes r_2 -solid 1 -shell 1 -face 7 -wire 11
  53 checkprops r_2 -s 742474 -v 3.54041e+06
  54
  55 checknbshapes r_3 -solid 2 -shell 2 -face 7 -wire 8
  56 checkprops r_3 -s 1.41831e+06 -v 3.05581e+07
  57
  58 checknbshapes r_4 -vertex 8 -edge 8
  59 checkprops r_4 -l 3965.07
  60
  61 checksection r_4 -r 0
  62
  63 # CUT
  64 copy r_2 result
  65 checkmaxtol result -min_tol 1.0e-4
  66 checkview -display result -2d -path ${imagedir}/${test_image}.png
  67