tests/bugs/modalg_7/bug28995

   1 puts "======="
   2 puts "0028995"
   3 puts "======="
   4 puts ""
   5 ##################################################
   6 # UnifySameDomain produces invalid shape
   7 ##################################################
   8
   9 brestore [locate_data_file bug28995_s1.brep] s1
  10 brestore [locate_data_file bug28995_s2.brep] s2
  11
  12 # perform fuse operation
  13 bfuse rfuse s1 s2
  14
  15 # check the result of fuse
  16 checkshape rfuse
  17
  18 if {![regexp "This shape seems to be OK" [bopcheck rfuse]]} {
  19   puts "Error: The result of FUSE operation is a self-intersecting shape."
  20 }
  21
  22 # unify faces and edges in the fused shape
  23 unifysamedom result rfuse
  24
  25 # check unified result
  26 checkshape result
  27
  28 if {![regexp "This shape seems to be OK" [bopcheck result]]} {
  29   puts "Error: The result of UnifySameDomain algorithm is a self-intersecting shape."
  30 }
  31
  32 checknbshapes result -vertex 200 -edge 300 -wire 104 -face 103 -solid 1
  33 checkprops result -s 1.59154e+006 -v 1.1497e+007
  34
  35 checkview -display result -2d -path ${imagedir}/${test_image}.png