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