puts "0025055: Incorrect shape copying in BRepBuilderAPI_Copy"
puts "##################################################"
+vclear
+vinit View1
+vdefaults -autoTriang 0
+
# load and check shape
restore [locate_data_file bug25055.brep] a
-tolerance a
+tcopy a b
-# call fixshape
-fixshape aa a 1e-3
-checkshape aa
-tcopy aa b
-checkshape b
+tclean a
+incmesh a 0.1
-tclean result
-incmesh aa 0.1
-regexp {([0-9]+) +triangles.*[^0-9]([0-9]+) +nodes} [trinfo aa] full NbTrian_1 NbNodes_1
+regexp {([0-9]+) +triangles.*[^0-9]([0-9]+) +nodes} [trinfo a] full NbTrian_1 NbNodes_1
-tclean result
+tclean b
incmesh b 0.1
+vclear
+vdisplay -dispMode 1 b
+vfit
+vdump ${imagedir}/${test_image}.png
+
set info_good [tricheck b]
if { [string compare $info_good "" ] != 0 } {
puts "Error : Result tricheck is BAD"
checktrinfo b -tri ${NbTrian_1} -nod ${NbNodes_1}
-checkview -display b -2d -path ${imagedir}/${test_image}.png
-