puts "##################################################"
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

tcopy a b

tclean a 
incmesh a 0.1

regexp {([0-9]+) +triangles.*[^0-9]([0-9]+) +nodes} [trinfo a] full NbTrian_1 NbNodes_1
 
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}