tests/bugs/modalg_7/bug31836

   1 puts "============================================================================================="
   2 puts "0031836: regression issue - boolean cut between a cone and a Torus is not done"
   3 puts "============================================================================================="
   4 puts ""
   5
   6 pcone c 282.842712474619 100 300
   7 ttranslate c 100 0 0
   8 ptorus t 80.2535587508467 19.7464412491533
   9 ttranslate t 100 0 300
  10
  11 bfuzzyvalue 1.e-6
  12 brunparallel 1
  13 bnondestructive 1
  14 setfillhistory 0
  15
  16 explode s
  17
  18 bclearobjects
  19 bcleartools
  20 baddobjects c
  21 baddtools t
  22 bfillds
  23
  24 bbop r_0 0
  25 bbop r_1 1
  26 bbop r_2 2
  27 bbop r_3 3
  28 bbop r_4 4
  29 bbuild r_5
  30
  31 boptions -default
  32
  33 foreach i {0 1 2 3 4 5} {
  34   checkshape r_$i
  35   if {![regexp "OK" [bopcheck r_$i]]} {
  36     puts "Error: r_$i is self-intersecting shape"
  37   }
  38 }
  39
  40 checkprops r_0 -s 51195.4 -v 308846
  41 checknbshapes r_0 -wire 3 -face 2 -shell 1 -solid 1 -t
  42
  43 checkprops r_1 -s 716665 -v 3.74689e+07
  44 checknbshapes r_1 -wire 4 -face 4 -shell 1 -solid 1 -t
  45
  46 checkprops r_2 -s 716665 -v 3.68513e+07
  47 checknbshapes r_2 -wire 4 -face 4 -shell 1 -solid 1 -t
  48
  49 checkprops r_3 -s 51195.4 -v 308846
  50 checknbshapes r_3 -wire 3 -face 2 -shell 1 -solid 1 -t
  51
  52 checkprops r_4 -l 1008.5
  53 checksection r_4 -r 0
  54 checknbshapes r_4 -edge 2
  55
  56 checkprops r_5 -s 819056 -v 3.74689e+07
  57 checknbshapes r_5 -wire 7 -face 6 -shell 3 -solid 3 -t
  58
  59 checkview -display r_2 -2d -path ${imagedir}/${test_image}.png