1puts "============"
2puts "OCC26897"
3puts "============"
4puts ""
5###############################
6## The mesh should not rebuild on copied shape
7###############################
8
9pload MODELING
10set tol 1.0e-7
11
12cone c 0 0 0 45 0
13mkface f c 0 6.28318530717958647 0 10
14
15# Mesh the face and store initial data
16incmesh f 0.1
17set base [trinfo f]
18regexp {([0-9]+) +triangles.*[^0-9]([0-9]+) +nodes} $base dummy base_tria base_nodes
19regexp {Maximal deflection ([-0-9.+eE]+)} $base dummy base_defl
20
21# Copy face
22tcopy -m f fc
23
24# Remesh initial face and check it is not changed
25incmesh f 1.0
26checktrinfo f -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
27
28# Compare mesh info from copied shape
29checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
30
31# Remesh copied shape and compare mesh once again
32incmesh fc 1.0
33checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
34
35copy fc result
36checkview -display result -3d -path ${imagedir}/${test_image}.png
37