tests/bugs/modalg_6/bug28486_4

   1 puts "========"
   2 puts "OCC28486"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Fuse of several solids fails due to presence of common zones between faces
   7 #################################################
   8
   9 plane p 0 0 0 0 0 1
  10 mkface f1 p -10 10 -10 10
  11 copy f1 f2
  12 trotate f2 0 0 0 1 0 0 20
  13 line l 0 0 0 0 1 0
  14 mkedge e l -8 8
  15 trotate e 0 0 0 1 0 0 10
  16 settolerance e 1.5
  17 donly f1 f2 e
  18
  19 bclearobjects
  20 bcleartools
  21 baddobjects f1 f2
  22 baddtools e
  23 bfillds
  24 bbuild result
  25
  26 checkshape result
  27 checknbshapes result -face 4 -wire 8
  28 checkprops result -s 800
  29
  30 checkview -display result -2d -path ${imagedir}/${test_image}.png