tests/bugs/modalg_7/bug29580_2

   1 puts "========"
   2 puts "OCC29580"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Regression: invalid result of BOP Fuse
   7 #################################################
   8
   9
  10 circle c1 0 -5 0 1 0 0 10
  11 circle c2 0 5 0 1 0 0 10
  12 mkedge e1 c1
  13 mkedge e2 c2
  14 wire w1 e1
  15 wire w2 e2
  16 mkplane f1 w1
  17 mkplane f2 w2
  18 bcut f12 f1 f2
  19 revol b1 f12 0 0 0 0 0 1 180
  20 ttranslate b1 0 31.358955689999998 0
  21
  22 plane pln 0 0 0 0 0 1 1.1102230246251565e-016 -1 0
  23 psphere b2 pln 8.6602540399999999 180
  24 ttranslate b2  0 31.358955689999998 0
  25
  26 bclearobjects
  27 bcleartools
  28 baddobjects b1
  29 baddtools b2
  30 bfillds
  31 bbuild result
  32
  33 checkshape result
  34 checknbshapes result -vertex 4 -edge 16 -wire 10 -face 10 -shell 3 -solid 3 -t
  35 checkprops result -s 3879.55 -v 6295.15
  36
  37 checkview -display result -2d -path ${imagedir}/${test_image}.png