tests/bugs/modalg_7/bug29183

   1 puts "========"
   2 puts "OCC29183"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Result of general fuse of shell and edge
   7 # produces a shape with too large tolerance
   8 #################################################
   9
  10 set MaxTol 30
  11
  12 restore [locate_data_file bug29183_shapes.brep] ss
  13 bclearobjects
  14 bcleartools
  15 baddcompound ss
  16 bfillds
  17 bbuild r
  18
  19 regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance r] full toler
  20
  21 if {$toler > $MaxTol} {
  22   puts "Error: Tolerance after fusing is too large"
  23 }
  24
  25 checknbshapes r -m "Fusing result" -edge 18 -face 7
  26
  27 smallview
  28 don r
  29 fit
  30 checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png