tests/bugs/modalg_7/bug31835_1

   1 puts "============================================================================================="
   2 puts "0031835: Modeling Algorithms - step by step Boolean common produces bad shape on given three cylinders"
   3 puts "============================================================================================="
   4 puts ""
   5
   6 plane p1 -200 2.22044604925033e-14 12.6935294289015 1 -1.11022302462516e-16 0
   7 pcylinder c1 p1 100 400
   8 plane p2 0 0 -187.306470571099 0 0 1
   9 pcylinder c2 p2 100 400
  10 plane p3 0 200 12.6935294289015 0 -1 1.11022302462516e-16
  11 pcylinder c3 p3 100 400
  12
  13 bcommon r c1 c2
  14 checkshape r
  15 if {![regexp "OK" [bopcheck r]]} {
  16   puts "Error: r is self-intersecting shape"
  17 }
  18 checkmaxtol r -ref 2.e-7
  19 checknbshapes r -wire 5 -face 5 -shell 1 -solid 1
  20 checkprops r -s 160000 -v 5.33333e+06
  21
  22 bcommon result r c3
  23 checkshape result
  24 if {![regexp "OK" [bopcheck result]]} {
  25   puts "Error: result is self-intersecting shape"
  26 }
  27 checkmaxtol result -ref 2.e-7
  28 checknbshapes result -wire 12 -face 12 -shell 1 -solid 1
  29 checkprops result -s 140589 -v 4.68629e+06
  30
  31 bclearobjects
  32 bcleartools
  33 baddobjects c1 c2 c3
  34 bfillds
  35 bcbuild r
  36
  37 bcremoveall
  38 bcadd result1 c1 1 c2 1 c3 1
  39
  40 checkprops result1 -equal result
  41 checknbshapes result1 -ref [nbshapes result]
  42 checkmaxtol result1 -ref 2.e-7
  43
  44 checkview -display result -2d -path ${imagedir}/${test_image}.png