tests/bugs/modalg_7/bug29711

   1 puts "========"
   2 puts "OCC29711: General Fuse operation produces invalid result"
   3 puts "========"
   4 puts ""
   5
   6
   7 binrestore [locate_data_file bug29711_faces.bin] cf
   8
   9 bclearobjects
  10 bcleartools
  11 eval baddobjects [explode cf f]
  12 bfillds
  13 bbuild gf
  14
  15 # check each face on self-interference
  16 foreach f [explode gf f] {
  17   if {![regexp "OK" [bopcheck $f]]} {
  18     puts "Error: face $f is self-interfering"
  19   }
  20 }
  21
  22 checkshape gf
  23 checkprops gf -s 1995.07
  24 checknbshapes gf -wire 256 -face 256
  25
  26 # make volumes from the faces
  27 mkvolume result gf -ni
  28
  29 checkshape result
  30 checkprops result -s 1996.57 -v 674.739
  31 checknbshapes result -wire 256 -face 256 -shell 12 -solid 9
  32
  33 checkview -display result -2d -path ${imagedir}/${test_image}.png