tests/bugs/modalg_7/bug31835_2

   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 bfuzzyvalue 1.e-6
  14 bnondestructive 1
  15 brunparallel 1
  16 setfillhistory 0
  17
  18 bcommon r c1 c2
  19 checkshape r
  20 if {![regexp "OK" [bopcheck r]]} {
  21   puts "Error: r is self-intersecting shape"
  22 }
  23 checkmaxtol r -ref 2.e-7
  24 checknbshapes r -wire 5 -face 5 -shell 1 -solid 1
  25 checkprops r -s 160000 -v 5.33333e+06
  26
  27 bcommon result r c3
  28 checkshape result
  29 if {![regexp "OK" [bopcheck result]]} {
  30   puts "Error: result is self-intersecting shape"
  31 }
  32 checkmaxtol result -ref 2.e-7
  33 checknbshapes result -wire 12 -face 12 -shell 1 -solid 1
  34 checkprops result -s 140589 -v 4.68629e+06
  35
  36 bclearobjects
  37 bcleartools
  38 baddobjects c1 c2 c3
  39 bfillds
  40 bcbuild r
  41
  42 bcremoveall
  43 bcadd result1 c1 1 c2 1 c3 1
  44
  45 boptions -default
  46
  47 checkprops result1 -equal result
  48 checknbshapes result1 -ref [nbshapes result]
  49 checkmaxtol result1 -ref 2.e-7
  50
  51 checkview -display result -2d -path ${imagedir}/${test_image}.png