tests/bugs/modalg_6/bug25055

   1 puts "##################################################"
   2 puts "0025055: Incorrect shape copying in BRepBuilderAPI_Copy"
   3 puts "##################################################"
   4
   5 # load and check shape
   6 restore [locate_data_file bug25055.brep] a
   7
   8 tolerance a
   9
  10 # call fixshape
  11 fixshape aa a 1e-3
  12 checkshape aa
  13 tcopy aa b
  14 checkshape b
  15
  16 tclean result
  17 incmesh aa 0.1
  18 regexp {([0-9]+) +triangles.*[^0-9]([0-9]+) +nodes} [trinfo aa] full NbTrian_1 NbNodes_1
  19
  20 tclean result
  21 incmesh b 0.1
  22
  23 set info_good [tricheck b]
  24 if { [string compare $info_good "" ] != 0 } {
  25     puts "Error : Result tricheck is BAD"
  26 }
  27
  28 checktrinfo b -tri ${NbTrian_1} -nod ${NbNodes_1}
  29
  30 checkview -display b -2d -path ${imagedir}/${test_image}.png
  31